let parse_document html_document base_uri = let svlist = call_class_method_array "HTML::Form" "parse" [sv_of_string html_document; sv_of_string base_uri] in List.map (new html_form) svlist