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