anchor.diff:      let main argv = 
   
   //        TestFunctions.testDatasetParser()
  -        classificationMLP ()
  -        classificationMLMGP()
  +        classificationMLP DevHost
  +        classificationMLMGP DevHost
   //        TestFunctions.testMultiGPLayer DevHost
   //        TestFunctions.testMultiGPLayer DevCuda
      
  
positive.code:         mb.SetSize nInput (fullDataset.[0].InputS |> ArrayND.nElems)
          mb.SetSize nClass (fullDataset.[0].TargetS |> ArrayND.nElems)
          mb.SetSize nHidden 10
          let mi = mb.Instantiate DevCuda
          
          // loss expression
          let loss = MLP.loss mlp input.T target.T
  
          // optimizer
          let opt = Adam (loss, mi.ParameterVector, DevCuda)
          let optCfg = opt.DefaultCfg
  
          let smplVarEnv (smpl: singleSample) =
  
negative.code:         mb.SetSize nHidden 10
          mb.SetSize nTrn 20
  
          let mi = mb.Instantiate dev
  
          // loss expression
          let loss = MLGPT.loss mlmgp input.T target.T
  
          // optimizer
          let opt = Adam (loss, mi.ParameterVector, dev)
          let optCfg = opt.DefaultCfg
  
          let smplVarEnv (smpl: singleSample) =
  