(bind-func world_add_blinker "add a (horizontal) blinker, centred at [x,y]" (lambda (w x y) (doloop (i 3) (cell_set_value w x (+ y i -1) 1))))