$s="apple"."*"x25;
for(0 ..<>){print substr($s,30-$o,$o).substr($s,0,30-$o)."\n";$o++;$o%=30}