twoNumbers :: Integer -> IO (Integer, Integer)
twoNumbers n = return (x,x)
  where x = 2^(64 * 2^n) - 1
twoNumbers :: Integer -> IO (Integer, Integer)
twoNumbers n = return (x,x)
  where x = 2^(64 * 2^n) - 1
twoNumbers n = return (x,x)
  where x = 2^(64 * 2^n) - 1