let new_ ?scheme str =
  let args =
    [sv_of_string str] @
    match scheme with
        None -> []
      | Some scheme -> [sv_of_string scheme] in
  let sv = call_class_method "URI" "new" args in
  new uri sv