putStrLn $ unlines [replicate n '*' | n <- [1..5]]