t=Hash["一",1,"二",2,"三",3,"四",4,"五",5,"六",6,"七",7,"八",8,"九",9,"",1]
$<.each{|i|
n=0
i=~/(.*)千(.*)/&&(n+=t[$1]*1000;i=$2)
i=~/(.*)百(.*)/&&(n+=t[$1]*100;i=$2)
i=~/(.*)十(.*)/&&(n+=t[$1]*10;i=$2)
i=~/.+/&&n+=t[$&]
puts n}