import Control.Monad
main = display "Hello\n" where display = mapM putChar