import Data.Array
import Data.Char
import Data.List
import Data.Tuple
main :: IO ()
main = putStrLn $ show n ++ "==" ++ radix62 n
  where
    n = 18446744073709551615
radix62 :: (Ix a, Integral a) => a -> String
radix62 n = map (char !) $ reverse $ unfoldr f n
  where
    f 0 = Nothing
    f x = Just $ swap $ x `divMod` radix
    char =
      listArray (0, radix - 1)
                "0123456789abcdefghijklnmopqrstuvwxyzABCDEFGHIJKLNMOPQRSTUVWXYZ"
    radix = 62