f s(n+1)=putStrLn s>>f(last s:init s)n
main=readLn>>=f("apple"++([1..25]>>"*")).succ