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")