do 3e3
if"A"x==c then a.=
c=charin()
a.c=charout(,left(c,a.c<>0))
end