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