anchor.diff:  stopwatch.Start()
   source |> Agent.post ([], (file,directory,lines))
   
  -stopwatch.Start()
  -let results =
  -    tokenizer
  +let s =
  +    parser
       |> Agent.fetch
       |> Option.get
       |> snd
  -    |> List.ofArray
  -    |> List.filter (fun x -> x.Category = Category.CategorizedFuncDefinition || x.Category = Category.CategorizedVarDefinition)
  -    |> List.map (fun x -> async { return Parser.parse x})
  -    |> Async.Parallel
  -    |> Async.RunSynchronously
  -stopwatch.Stop()
  +
  
positive.code:         (time
              (fun s ->
                  s
                  |> Seq.map (Tokenizer.tokenize)
                  |> Seq.toArray))
  
  // Example data.
  let filename =
  
negative.code: let lines           = f.FullName |> File.ReadAllLines |> List.ofArray
  let mutable count   = 0
  let stopwatch       = System.Diagnostics.Stopwatch()
  parser.Post(
      Connect
          (fun (li,_) ->
              stopwatch.Stop()
  