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());