(bind-func world_set_to_inverse (lambda (w) (doloop (i (world_height w)) (doloop (j (world_width w)) (cell_set_value w i j (% (cell_value w i j) 2))))))