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