n:0;a:?read\-line();while(c:?read\-char(?-,?-,~))#~do ?princ(if"?_"=string(c)then charat(a,n:n+1)else c);