$25=OFS="*"{for(n=$0;$1="apple";$--n)print substr($0$0$0,n+1,30)}