t$="********"
s$="apple*"+t$+t$+t$
input""a
for i=0to a?mid$(s$+s$+s$,61-i,30)next