import Char
main = do cs <- getContents
putStrLn $ unlines $ map toUpper cs

ToUpper.hs:4:31:
　　Couldn't match expected type `String' against inferred type `Char'
　　　Expected type: [String]
　　　Inferred type: [Char]
　　In the second argument of `($)', namely `map toUpper cs'
　　In the second argument of `($)', namely
　　　　`unlines $ (map toUpper cs)'


　 　　　　./　　　　　　 ;ヽ
　　　　　 l　　＿,,,,,,,,＿,;;;;i　 ＜おいおい　ベイべー！
　　　　　 l l''|~___;;､_y__ lﾐ;l　 たったの三行でもコンパイルエラーだ！！
　　　　　 ﾞl;| | `'",;_,i`'"|;i |　 どう足掻いたってコンパイルが通らねぇ！！
　　　　 ,r''i ヽ, '~rーj`c=/
　　 ,／　 ヽ　 ヽ`ｰ"/::　`ヽ
　 /　　　　 ﾞヽ　 ￣､:::::　　ﾞl,　ホント 高卒にHaskellは地獄だぜ！ フゥハハハーハァー
　|;/"⌒ヽ,　　＼　　ヽ:　　 _l＿　　　　　　　　ri　　　　　　　　　　　　　　　　　　　ri
　l l　　　　ヽr‐─ヽ＿|_⊂////;`ゞ--―─-r| |　　　　　　　　　　　　　　　　　　 / |
　ﾞlﾞl,　　　　 l,|｀ﾞﾞﾞ''―ll＿__l,,l,|,iﾉ二二二二│｀""""""""""""|二;;二二;;二二二i≡二三三l
　| ヽ　　　　 ヽ　　　_|＿　　＿　　　　　　　"l￣￣￣￣￣￣ |二;;二二;;二='''''''''''￣ﾉ
　/"ヽ　　　　 'j＿／ヽヽ,￣ ,,,/"''''''''''''⊃r‐l'二二二T￣￣￣　　［iﾞ''''''''''''''''"ﾞﾞﾞ￣`"
／　　ヽ　　　　ー──''''''""(;;)　　 ｀ﾞ,j"　　|　 |　|