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