anchor.diff:          d format
       )
   
  +  let FormatPicker = fun f ->
  +    match f with
  +    | Xml -> xml
  +    | _   -> json
  +
     let app =
       choose
         [ GET >=> choose
  
positive.code:             pathScan "/%s/kek.%s" (fun (commander, format) ->
                  cmdr {
                    let! f = FormatExtractor format
                    return da f
                  }
              )
               
  
negative.code: 
  let start (token, port, state:Func<IDictionary<string, State>>) =
  
    let json = fun s -> JsonConvert.SerializeObject s
    let xml = fun s -> 
      let xmlDoc = (json(s) |> sprintf "{ \"ingredient\": %s }", "root") |> JsonConvert.DeserializeXmlNode
      xmlDoc.InnerXml
      
    let ingredients = fun (state:State) -> state.Cargo
                                            |> List.ofSeq
  