anchor.diff:  type StorageReader(path: string) = 
       static let logger = NLog.LogManager.GetCurrentClassLogger()
       static let version = Version.LUCENE_30
  +    static let paginationAmount = 15
   
       static let _parseQuery = fun query (parser: QueryParser) ->
           try
  
positive.code: ﻿namespace NBlast.Storage.FileSystem
  
  open System.IO
  open Lucene.Net
  open Lucene.Net.QueryParsers
  open Lucene.Net.Util
  open Lucene.Net.Search
  
negative.code:         }
      }
  } 
  
  
  
  *)
  
      member this.GetAllRecords () =
          []
  
  
      member this.Search (fieldName, query, page) =
          use indexSearcher = new IndexSearcher(directory.Value, true)
          use analyzer = new StandardAnalyzer(version)
          let query = _parseQuery query (new QueryParser(version, fieldName, analyzer))
          let itemsAmount = (page + 1) * paginationAmount
          let topDocs = indexSearcher.Search(query, null, itemsAmount, Sort.RELEVANCE)
          
          let k = seq {
              for i in ((page * paginationAmount) + 1) .. (if (paginationAmount < topDocs.TotalHits) 
                                                              then (page + 1) * paginationAmount 
                                                              else topDocs.TotalHits ) 
              -> i
          }
  
          // seq {for i in ((page * 10)+1) ..  (if ((page + 1)*10 < total) then (page + 1)*10 else total) -> i} ;;
          //let take = if (totalSkip >= paginationAmount) then paginationAmount else totalSkip
  
          //seq {for i in skip to  }
          //new QueryParser(Version.LUCENE_30) 
          []
  
      member this.Search (fieldName, query) = this.Search(fieldName, query, 1)
  
  