sig
  val post_form :
    Amall_http.request ->
    (char, Amall_http.request * (string * string) list) I.iteratee
  val it_post_vars : (char, (string * string) list) I.iteratee
  val run :
    Amall_http_server.listen_addr ->
    (Amall_http.request ->
     Amall_http.segpath * Amall_http.Make(IO)(I).service_desc) ->
    IO.server
end