l="a":take 99((++).map succ<$>l<*>["","a"]) main=mapM putStrLn l