anchor.diff:        | KnownFormat v -> f v
         | NotFound commander -> (sprintf "Commander %s not found (๑´╹‸╹`๑)" commander) |> NOT_FOUND
         | BadString s -> (sprintf "Couldn't parse time %s ヘ（。□°）ヘ" s) |> BAD_REQUEST
  -      | UnknownFormat s -> (sprintf "Unknown file format requested %s ヘ（。□°）ヘ" s) |> BAD_REQUEST
  +      | UnknownFormat s -> (sprintf "Unknown file format requested %s (╬ ꒪Д꒪)ノ" s) |> BAD_REQUEST
     member this.Return value = value
   
   let cmdr = CmdrBuilder()
  
positive.code:                    |> List.filter
                       (fun e -> match e.Timestamp with
                                 | t when t >= timestamp -> true
                                 | _ -> false)
                     |> json 
                     |> OK
          }
  
negative.code:               let accepts = accept.Split [|';'|]
                let format = accepts |> List.ofSeq |> List.fold(fun acc elem -> match acc with
                                                                                | Some(r) -> Some(r)
                                                                                | _       -> match elem with
                                                                                             | "text/json" -> Some(Json)
                                                                                             | "text/csv"  -> Some(Csv)
                                                                                             | "text/xml"  -> Some(Xml)
                                                                                             | _           -> None) None
                match format with
                | Some(f) -> KnownFormat f
                | _       -> KnownFormat Json
          | KnownFormat e   -> KnownFormat e
          | UnknownFormat f -> UnknownFormat f
  
      let test ex =
  