crawl2 :: Statement -> Opts -> M.Map String (FreqList TriGram) -> Results -> [String] -> IO Results
crawl2 st os dataA results f2 =
  do trs <- fetch st "dataB" (opNumTrigrams os) f2
     hPutStrLn stderr ("\nNow crunching\n" ++ (show $ M.keys dataA) ++ "\nand\n" ++ (show f2))
     evaluate (L.foldl' (check os (M.toList trs)) results (M.toList dataA))
crawl2 :: Statement -> Opts -> M.Map String (FreqList TriGram) -> Results -> [String] -> IO Results
crawl2 st os dataA results f2 =
  do trs <- fetch st "dataB" (opNumTrigrams os) f2
     hPutStrLn stderr ("\nNow crunching\n" ++ (show $ M.keys dataA) ++ "\nand\n" ++ (show f2))
     evaluate (L.foldl' (check os (M.toList trs)) results (M.toList dataA))
crawl2 st os dataA results f2 =
  do trs <- fetch st "dataB" (opNumTrigrams os) f2
     hPutStrLn stderr ("\nNow crunching\n" ++ (show $ M.keys dataA) ++ "\nand\n" ++ (show f2))
     evaluate (L.foldl' (check os (M.toList trs)) results (M.toList dataA))