(let1 d(#7=read-line)((#8=compose(map$ print)(map$ #6=list->string)#1=reverse #2=(map$ #1#)#3=(pa$ apply map list)#4=(map$(#8##5=string->list(lambda(s)(if #0=(string-scan s d'both)(receive L #0#(string-join L(make-string(string-length d)#\ )))s))#6#))#2##4##3##4##2##4#)(port-map #5##7#)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).