wordValue :: String -> Int
wordValue word = sum $ toValue <$> word
  where
    toValue c = ord c - ord 'A' + 1
wordValue :: String -> Int
wordValue word = sum $ toValue <$> word
  where
    toValue c = ord c - ord 'A' + 1
wordValue word = sum $ toValue <$> word
  where
    toValue c = ord c - ord 'A' + 1