((^,\(port-fold(^(b r)(if(= b 10)(and(set!\(map logxor\ r))(map . ,\),10())`(,@r,b)))()read-byte))write-byte'#0=(0 . #0#))