anchor.diff:  let lines           = f.FullName |> File.ReadAllLines |> List.ofArray
   let mutable count   = 0
   let stopwatch       = System.Diagnostics.Stopwatch()
  -tokenizer.Post(
  +parser.Post(
       Connect
           (fun (li,_) ->
               stopwatch.Stop()
  
positive.code: stopwatch.Start()
  source |> Agent.post ([], (file,directory,lines))
  
  stopwatch.Start()
  let results =
      tokenizer
      |> 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()
  
negative.code:         (time
              (fun s ->
                  s
                  |> List.map (Tokenizer.tokenize)
                  |> List.toArray))
  let parser          = tokenizer |> Agent.map (time (Array.map Parser.parse))
  
  // Example data.
  let filename =
  