(bind-func world_create (lambda (w h) (let ((data (zalloc (* w h))) (res (World w h data 0))) (printf "Created Game of Life ") (printout res) res)))