s="apple"copies("*",25)
pull a
do i=0 to a
say substr(s||s||s,61-i,30)
end