let to_strings item =
    let date = Time.to_filename (time item) in
    match item.content with
    | `Creation -> [date; "Creation"]
    | `Incoming_request hr -> [date; "Incomming HTTP request"; hr.uri]
    | `End_of_request (hr, rl) ->
      [date; "End of HTTP request";
       hr.uri;
       Int.to_string rl.body_length;
       rl.response; ]
    | `Tag t -> [date; "Tag"; t]