n:0;a:?read\-line();while(c:?read\-char(?-,?-,~))#~do ?princ(if"?_"=string(c)then charat(a,n:n+1)else c);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page