(bind-func fleet_print_unit_state
  (lambda (state:json_t*)
     (printf "                  name: %s\n\n" (json_string_value (json_object_get state "name")))
     (printf "             machineID: %s\n" (json_string_value (json_object_get state "machineID")))
     (printf "    systemdActiveState: %s\n" (json_string_value (json_object_get state "systemdActiveState")))
     (printf "      systemdLoadState: %s\n" (json_string_value (json_object_get state "systemdLoadState")))
     (printf "       systemdSubState: %s\n" (json_string_value (json_object_get state "systemdSubState")))
     (println)))