import Data.Char

wordValue :: String -> Int
wordValue ""     = 0
wordValue (a:as) = ord (toLower a) - (ord 'a') + 1 + wordValue as

-- wordValue "Attitude"