import           Data.Bits ((.&.))
import           Data.Char (ord)
import           Data.List (foldl')
import           Data.List.Split (splitOn)

getHash :: String -> Int
getHash = foldl' (\acc x -> (acc + ord x) * 17 .&. 255) 0

main :: IO ()
main = print . sum . map getHash . splitOn "," . concat . lines
  =<< readFile "data.txt"