s=charin(,,1e4)
do 100
n=1
do 11
t="A"x||left(s,n)
n=n+(0<pos(t,s))
end
s=subword(s,2)||t
end
say s