anchor.diff:      /// <summary>TBD</summary>
       let namePrefixes = Dictionary<string, int>()
       let parameterDict = ParameterDict()
  -    let modelsDict = Dictionary<string, ModelBase>()
  +    let modelDict = Dictionary<string, ModelBase>()
   
       /// <summary>TBD</summary>
       member m.train() = 
  
positive.code:                 parameterDict.add(n, param)
              | :? Model as model ->
                  let n = if names.Length > 0 then names.[i] else sprintf "model-%s" (Random.UUID())
                  modelsDict.Add(n, model)
                  parameterDict.add(model.parameters.map(fun (nn, pp:Parameter) -> (nextName nn, pp)))
              | _ -> failwithf "Unsupported type. Expecting a Parameter or Model"
  
  
negative.code: 
      member _.children
          with get () = 
              modelDict.Values |> Seq.toList
  
      member m.models
          with get () =
  