import Data.Char import Control.Monad main :: IO () main = do n <- readLn :: IO Int mapM_ putStrLn $ (map gen [1..n-1]) ++ ["an"] where gen n = 'a' : ((map (\x -> chr (ord x + 48)) $ show n) ++ "a")