~james/remy/examples/Weave.remy

1 (let drift (+ y (shr t 1))
2   (let warp (xor (* x drift) (* (+ x t) y))
3     (and (xor (shr warp 5) (shr (+ x drift) 3)) 15)))
1	(let drift (+ y (shr t 1))
2	(let warp (xor (* x drift) (* (+ x t) y))
3	(and (xor (shr warp 5) (shr (+ x drift) 3)) 15)))