RosettaCodeData/Task/Loops-For/Haskell/loops-for-4.hs

2 lines
49 B
Haskell

putStrLn . unlines . take 5 $ iterate ('*':) "*"