(let ((state (vc-state file 'Pijul)))

  (let ((state (vc-state file 'Pijul))
        (backend (vc-backend file)))

        "Pijul"
      (format "Pijul/%s" state))))

        backend
      (format "%s:%s" backend state))))