But watch out, you have a lot of
(each c u ...
(each (pos cell) u ...
In 'init-universe, you have
(= (pos u) (create-cell i j))
(= (u pos) (create-cell i j))
(= u.pos (create-cell i j))