r:?read\-line;c:charlist;a:c(r());n:0;while(b:r(?-,?-,~))#~do(for v in c(b)do?princ(if v="_"then a[n:n+1]else v),newline());