((^,r,(port-fold(^(c\)((^`d(guard'',c(map .,(iota`d\(/`d d)))))abs(- c\))c)(r)r))write-byte read-byte)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page