import qualified System.IO as IO

main = do
    let str = "←↑→↓"
    putStrLn str
    h <- IO.openFile "test.output" IO.WriteMode 
    IO.hPutStrLn h str