#!/usr/bin/env tclsh8.6

set map {one 1 two 2 three 3 four 4 five 5 six 6 seven 7 eight 8 nine 9}
set pam {eno 1 owt 2 eerht 3 ruof 4 evif 5 xis 6 neves 7 thgie 8 enin 9}

set total 0
while {[gets stdin line] >= 0} {
    set first {}
    set forward [string map $map $line]
    foreach c [split $forward {}] {
        if {[string is digit $c]} {
            set first $c
            break
        }
    }

    set last {}
    set backward [string map $pam [string reverse $line]]
    foreach c [split $backward {}] {
        if {[string is digit $c]} {
            set last $c
            break
        }
    }

    if {$first eq "0"} {set first {}}
    set number "$first$last"
    incr total $number
}
puts $total