import KanaConv (convertHalfToFull)

main :: IO ()
main = do
  let input = "おいそこのｷﾐ｡あっはいはいはいは～い｡"
  let output = convertHalfToFull input
  putStrLn output