module HaskellClosureTest where

strings = ["do", "re", "mi"]

main = do
  let printFunctions = map (\s -> putStrLn s) strings
  -- prints "do, re, mi"
  mapM_ id printFunctions