(define (path->string path)
        (string-append
         "/" (string-join
              (map uri-encode-string (map ->string (cdr path))) "/")))