method forms = let svlist = call_method_array sv "forms" [] in List.map (new Pl_HTML_Form.html_form) svlist