anchor.diff:              sw.Restart()
               let indices = [1..innerlen] |> List.map (fun i -> (int64 (r.Next(0, 2160*1080)) ))
               let indices = indices.OrderBy(fun x -> x)
  -            result <- Array.map (queryBin indices) sbgPaths
  +            result <- Array.map (query indices) sbgPaths
   
               sw.Stop()
               arr.[i] <- sw.ElapsedMilliseconds
  
positive.code:         let values = (List.ofSeq indices) |> List.map (readValue reader offset)
          values
  
  module AsciiToBin =
  
      let parseValue nodata (v:string) =
          if v <> nodata then
              Some(int v)
  
negative.code:         let values = List.map (readValue reader) (List.ofSeq indices)
          values
  
  module MemoryMappedSimpleRead =
  
      open System.IO.MemoryMappedFiles
  
      let readValue (reader:MemoryMappedViewAccessor) offset cellIndex =
  