((^,\(port-fold(^(b r)(if(= b 10)(and(set!\(map logxor\ r))(map . ,\),10())`(,@r,b)))()read-byte))write-byte'#0=(0 . #0#))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page