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