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