anchor.diff:                      | false, _ -> Map.empty
                   d.[c.CustomizedName] <-
                       (existing, allowedMeths)
  -                    ||> Seq.fold (fun map m -> Map.add (Option.map Http.Method.OfString m) i map)
  +                    ||> Seq.fold (fun map m ->
  +                        let k = (Option.map Http.Method.OfString m)
  +                        Map.add k (i :: defaultArg (map.TryFind k) []) map)
                   let fields = c.GetFields()
                   parseTuple t (uC c)
                       (fields |> Array.mapi (fun i f ->
  
positive.code: type Parameters =
      {
          Request : Http.Request
          Read : unit -> option<string>
      }
  
  type D =
      {
  
negative.code:                 let sb = System.Text.StringBuilder 128
                  if input = null then None else
                      let parts = input.Split '/'
                      let pars = Parameters.Make req parts
                      let parsed = d.Decode pars
                      if pars.IsAtEnd then parsed else None
              show = fun value ->
                  let sb = System.Text.StringBuilder 128
                  let q = List()
  