r:?read\-line;a:r();printf(?t,"~a ",a);a:charlist(a);while(b:r(?-,?-,~))#~do(b:charlist(b),sum(a[i]:?princ(ascii(?logxor(cint(a[i]),cint(b[i])))),i,1,length(a)),newline());
Note that non-ascii characters in the above source code will be escaped (such as \x9f).