let (post_form :
         request -> (char, (request * ((string * string) list))) I.iteratee) 
      =
      fun request ->
        (I.printf
           "request headers was read ok, request_uri: %S, uri: %S.\nheaders:\n%s\n===\n%!"
           (Uri.dump_uri request.rq_request_uri__)
           (* Uri.dump_uri request.rq_uri *) "<todo>"
           ((String.concat "\n") &
              (List.map (fun (k, v) -> sprintf "%S = %S" k v)
                 request.rq_headers.rq_all)))
          >>=
          (fun () -> (*
  dump_chars_chunks "header"
*)
             H.request_with_post_vars request)