check :: Opts -> [(String, FreqList TriGram)] -> Results -> (String, FreqList TriGram) -> Results
check os dataB results a =
  L.foldl' (compTwo os a) results dataB
check :: Opts -> [(String, FreqList TriGram)] -> Results -> (String, FreqList TriGram) -> Results
check os dataB results a =
  L.foldl' (compTwo os a) results dataB
check os dataB results a =
  L.foldl' (compTwo os a) results dataB