let new_abs str base = let sv = call_class_method "URI" "new_abs" [sv_of_string str; sv_of_string base] in new uri sv