anchor.diff:  
       let queryBin indices fileName =
           SimpleReadWrite.readValues fileName indices
  +        //MemoryMappedRead.readValues fileName indices
       
       let testPrepareLoad fileName = 
  -        let sbg = Path.Combine(@"D:\temp\", Path.GetFileName(fileName))
  +        let sbg = Path.Combine(@"D:\temp\", Path.GetFileNameWithoutExtension(fileName) + ".sbg")
           if (not (File.Exists(sbg))) then
               asciiToBin fileName sbg
           sbg
  
positive.code: ﻿open System
  open System.IO
  open System.Collections.Generic
  open System.Collections
  
negative.code:         count
  
  module PSeqOrdered =
  
      let map (mapping:'a->'b) (source:seq<'a>) =
          source.AsParallel().AsOrdered().Select(mapping)
  
  