let handle_html_arg cgi (key:string) (handle:string->unit) = try let item = List.assoc key (cgi # arguments) in handle (item # value) with Not_found -> ()