main = do
    contents <- readFile "p022_names.txt"
    let wordlist = sort (words $ contents)
    let s = sum [ fst e * snd e | e <- zip
        [ nameToNum w | w <- wordlist ]
        [1..(length wordlist)] ]
    print s