(bind-func print_json_t (lambda (json:json_t*) (let ((s (json_dumps json 4))) (printf "%s\n" s) (free s))))