anchor.diff:              pathScan "/%s/kek.%s" (fun (commander, format) ->
                   cmdr {
                     let! f = FormatExtractor format
  -                  return da f
  +                  return referenceData state |> ingredients |> FormatPicker(f) |> OK
                   }
               )
                
  
positive.code:         d format
      )
  
    let app =
      choose
        [ GET >=> choose
  
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
  