countWds :: FilePath -> IO Int
countWds p =
    runResourceT $ CB.sourceFile
        ("/home/danl/p/l/melang/lang/de/base/" ++ p ++ "-wds.txt")
        $$ CB.lines
        =$ CC.foldl countFold 0
  where
    countFold !size !line = size + count
      where
        (_wd:countStr:_) = BSC.split '\t' line
        Just (count, _) = BSC.readInt countStr
countWds :: FilePath -> IO Int
countWds p =
    runResourceT $ CB.sourceFile
        ("/home/danl/p/l/melang/lang/de/base/" ++ p ++ "-wds.txt")
        $$ CB.lines
        =$ CC.foldl countFold 0
  where
    countFold !size !line = size + count
      where
        (_wd:countStr:_) = BSC.split '\t' line
        Just (count, _) = BSC.readInt countStr
countWds p =
    runResourceT $ CB.sourceFile
        ("/home/danl/p/l/melang/lang/de/base/" ++ p ++ "-wds.txt")
        $$ CB.lines
        =$ CC.foldl countFold 0
  where
    countFold !size !line = size + count
      where
        (_wd:countStr:_) = BSC.split '\t' line
        Just (count, _) = BSC.readInt countStr