RosettaCodeData/Task/Apply-a-callback-to-an-array/Haskell/apply-a-callback-to-an-array-5.hs

let printSquares = mapM_ (print.square)
printSquares values