~james/remy/examples/Cells.remy

1 (let u (+ x (shr t 2))
2   (let cell (xor (shr u 4) (shr y 4))
3     (if (< (and cell 3) 1)
4       (and (+ (xor u y) t) 15)
5       (and (shr (+ (* u u) (* y y)) 7) 15))))
1	(let u (+ x (shr t 2))
2	(let cell (xor (shr u 4) (shr y 4))
3	(if (< (and cell 3) 1)
4	(and (+ (xor u y) t) 15)
5	(and (shr (+ (* u u) (* y y)) 7) 15))))