(def encodequery (kvs)
  (tostring
   (between (k v) kvs (pr "&")
     (pr k "=" (urlencode:string v)))))