anchor.diff:  
           Function.Load(modelBuffer,device)
   
  +    ///Loads a model as binary modelBuffer from the given path and returns the resulting CNTK.Function
       let loadModel (modelPath) = 
           loadModelWithDevice (DeviceDescriptor.UseDefaultDevice()) modelPath
   
  -    let toInputBatchWithDevice (device: DeviceDescriptor) (predictor:Function) (data: seq<#seq<'Feature>>) =
  -        let inputVar: Variable = predictor.Arguments.Item 0
  +    ///Returns an input batch from the given feature vectors attached to the given model using the given DeviceDescriptor
  +    let toInputBatchWithDevice (device: DeviceDescriptor) (model:Function) (featureVectors: seq<#seq<'Feature>>) =
  +        let inputVar: Variable = model.Arguments.Item 0
           
           let inputShape = inputVar.Shape
           
           /// Extracts all Features and appends them, stores Values in a List
           let featureData = 
               let tmp = new List<'Feature>()
  -            data |> Seq.iter(fun x -> 
  -                                let data' = x
  -                                tmp.AddRange(data')
  -                                )
  +            featureVectors 
  +            |> Seq.iter
  +                (fun x -> 
  +                    let data' = x
  +                    tmp.AddRange(data')
  +                )
               tmp
           
           /// Creates an input Batch
  
positive.code:         inputMap.Add(inputVar,inputValues)
          inputMap
  
      let toInputBatch (predictor:Function) (data: 'Feature [] []) = 
          toInputBatchWithDevice (DeviceDescriptor.UseDefaultDevice()) (predictor:Function) (data: 'Feature [] [])
  
      let predictAsWithDevice<'Output> (device: DeviceDescriptor) (predictor:Function) (inputBatch: Dictionary<Variable,Value>) =
          
          ///////////Output
          let outputVar : Variable = predictor.Output
  
          let outputMap = new Dictionary<Variable,Value>()
          outputMap.Add(outputVar,null)
  
          predictor.Evaluate(inputBatch,outputMap,device)
  
          let outputValues = outputMap.[outputVar]
  
  
          outputValues.GetDenseData<'Output>(outputVar)
          |> Seq.concat
          |> Array.ofSeq
  
      let predictAs<'Output> (predictor:Function) (inputBatch: Dictionary<Variable,Value>) =
          predictAsWithDevice<'Output> (DeviceDescriptor.UseDefaultDevice()) predictor inputBatch
  
  
  
negative.code:     open System.IO 
      open System.Collections.Generic
  
      //Loads a model as binary modelBuffer from the given path and returns the resulting CNTK.Function using the given DeviceDescriptor
      let loadModelWithDevice (device : DeviceDescriptor) (modelPath) =
          let modelBuffer = 
              use stream = new FileStream(modelPath,FileMode.Open)
  