let display_args_html (pr:string->unit) cgi = 
  List.iter (fun (name, arg) ->
       pr (Printf.sprintf "Arg %s = %s<br/>\n"
             (encode_html name) (encode_html arg#value)))
    cgi # arguments