input""a$
do
b$=chr$(peek(0))
if"_"=b$n=n+1:b$=mid$(a$,n,1)
?b$;loop