main = mapM_ putStrLn $ fmap (\\x -> if x < 7 then replicate x '*' else replicate (n-x) '*') [1..14]