Cacher is the code snippet organizer for pro developers

lerArquivo = do
    conteudo <- readFile "bacon-ipsum.txt"
    print (numBacons conteudo)

numBacons = somatorio . map (isBacon . head . words) . lines

isBacon str
    | str == "bacon" = 1
    | str == "Bacon" = 1
    | otherwise = 0

somatorio [x] = x
somatorio (x:xs) = x + somatorio xs