01 02 03 04 05 06     01 02 03 04 05 06 07 08 09 10 11 12 13 14     ←     →

module Main where

We can instead do all this at once.

main ∷ IO ()
main = putStr $ concatMap (++ "\n") ["hello", "there", "world"]

hello
there
world

Main.hs