lhc-0.10: tests/1_io/basic/Echo.stdin

module Main where

import Data.Char

main :: IO ()
main = interact (map toUpper)