let printSquares = mapM_ (print.square)
printSquares values