anchor.diff:      member m.nparameters = m.parametersDict.nelement
   
       /// <summary>TBD</summary>
  -    abstract member forward: Tensor -> Tensor
  -
  -    /// <summary>TBD</summary>
  -    member m.forwardParameters (input:Tensor) (parameters:Tensor) =
  -        m.parameters <- parameters
  -        let f = m.forward(input) in m.noDiff(); f
  -
  -    /// <summary>TBD</summary>
  -    member m.forwardCompose (f:Tensor->Tensor) (input:Tensor) (parameters:Tensor) =
  -        m.forwardParameters input parameters |> f
  -
  -    /// <summary>TBD</summary>
  -    member m.forwardLoss (f:Tensor->Tensor->Tensor) (input:Tensor) (target:Tensor) (parameters:Tensor) =
  -        m.forwardCompose (f target) input parameters
  -
  -    /// <summary>TBD</summary>
  -    static member create ps f =
  -        let model = { new Model() with override __.forward(x) = f x}
  -        model.add(ps)
  -        model
  +    member m.saveParameters(fileName) = m.parameters.save(fileName)
  +
  +    /// <summary>TBD</summary>
  +    member m.loadParameters(fileName) = m.parameters <- Tensor.load(fileName)
  +
  +    /// <summary>TBD</summary>
  +    member m.save(fileName) = saveBinary m fileName
   
       /// <summary>TBD</summary>
       override m.ToString() =
  
positive.code: 
  /// <summary>Represents a model, primarily a collection of named parameters and sub-models and a function governed by them.</summary>
  [<AbstractClass>]
  type Model() =
      [<DefaultValue>]
      val mutable mode: Mode
  
  
negative.code:     member val ParametersDict = ParameterDict()
  
      /// <summary>TBD</summary>
      member val SubModelsDict = Dictionary<string, BaseModel>()
  
      /// <summary>TBD</summary>
      member m.train() = 
          m.mode <- Mode.Train
          for model:BaseModel in m.allModels do model.mode <- Mode.Train
  
      /// <summary>TBD</summary>
      member m.eval() = 
          m.mode <- Mode.Eval
          for model:BaseModel in m.allModels do model.mode <- Mode.Eval
  
      /// <summary>TBD</summary>
      member m.parametersDict
  