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 -> ()