# -*- coding: utf-8 -*-
U = '個|十|百|千'
D = '零|一|二|三|四|五|六|七|八|九'

def i(a,s)
  a.index(s)/4
end

STDIN.each { |l|
  v = 0
  l.gsub(/(#{D})?(#{U}|$)/) {|m|
    a = i(D,($1||"一"))
    v += a*10**i(U,$2)
  }
  puts v-2
}