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