(bind-func print (lambda (w:World*) (printf "World: %lld x %lld, generation %lld (data %p)\n" (world_width w) (world_height w) (world_generation w) (world_data w))))