anchor.diff:  
   let start (token, port, state:Func<IDictionary<string, State>>) =
   
  -  let json = fun s -> JsonConvert.SerializeObject(s, Formatting.Indented)
  +  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
  
positive.code:             pathScan "/%s/kek.%s" (fun (commander, format) ->
                  cmdr {
                    let! f = FormatExtractor format
                    return da f
                  }
              )
               
  
negative.code:         d format
      )
  
    let FormatPicker = fun f ->
      match f with
      | Xml -> xml
      | _   -> json
  
    let app =
      choose
        [ GET >=> choose
  