(bind-func world_basic_print (lambda (w) (doloop (i (world_data_size w)) (printf "%c " (if (<> (pref (world_data w) i) 0) (pref "O" 0) (pref "." 0)))) (println) (println)))