do 2e4
c=charin()
do" ">>c|c>>a
a=c charout(,c)
end
end