(bind-func test_world_foo (lambda () (world_init world .3) (doloop (i 6) (world_ascii_print world) (world_step world))))