((^,r,(port-fold(^(c\)((^`d(guard'',c(map .,(iota`d\(/`d d)))))abs(- c\))c)(r)r))write-byte read-byte)