$KCODE="UTF8";def c(d);h=Hash["千","1000+","百","100+","十","10+","九","9*","八","8*","七","7*","六","6*","五","5*","四","4*","三","3*","二","2*","一","1*"];b=(d.scan(/./).map{|i|h[i]}).join;b+=(b[-1]==42)?"1":"0";end;while a=gets;p eval c(a);end