for k=0:input(0)disp(shift(["apple",(1:25>0)*42],k))end