testSample sampleWrds str =
  Map.lookup str sampleMap
  where
    sample = zip (map init sampleWrds) (map lastTplLst sampleWrds)
    sampleMap = Map.fromListWith (Map.unionWith (+)) sample
testSample sampleWrds str =
  Map.lookup str sampleMap
  where
    sample = zip (map init sampleWrds) (map lastTplLst sampleWrds)
    sampleMap = Map.fromListWith (Map.unionWith (+)) sample
testSample sampleWrds str =
  Map.lookup str sampleMap
  where
    sample = zip (map init sampleWrds) (map lastTplLst sampleWrds)
    sampleMap = Map.fromListWith (Map.unionWith (+)) sample