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