#!/usr/bin/env ruby

   k, a, b, a1, b1 =
#  2, 4, 1, 12,  4
   3, 0, 4, 64, 24

in_PBox = true

print <<EOT
@PBox = [
EOT

x = 0

while x < 8*4*256
  # Next approximation
  p, q, k = k*k, 2*k+1, k+1
  a, b, a1, b1 = a1, b1, p*a+q*a1, p*b+q*b1
  # Print common digits
  d = a / b
  d1 = a1 / b1
  while d == d1
    if x % (8*4) == 0
       print "  "
    end
    if x % 8 == 0
       print "0x"
    end
    printf "%x",d
    $stdout.flush
    a, a1 = 16*(a%b), 16*(a1%b1)
    d, d1 = a/b, a1/b1
    x += 1
    if x % 8 == 0
       print ", "
    end
    if in_PBox && x == 8*(16+2)
       in_PBox = nil
       x = 0
       print "\n"
       print <<EOT
]
@SBox = [
EOT
    elsif x % (8*4) == 0
       print "\n"
    end
  end
end

print <<EOT
]
EOT