(bind-func json_obj_iterator (lambda (object:json_t* iter:i8*) (if (null? iter) 0 (begin (printf "%s\n" (json_object_iter_key iter)) (json_obj_iterator object (json_object_iter_next object iter))))))