-module(a).
-export([m/0]).
m()->T=lists,S="apple"++T:duplicate(25,42),{_,[X]}=io:fread('',"~d"),[io:format(T:sublist(S++S++S,61-Y,30)++"
")||Y<-T:seq(0,X)].