main :: IO ()
main = do
  putStrLn $ show '\65'
  putStrLn $ show 'A'
  putStrLn $ show '\8704'
  putStrLn $ show '∀'