$KCODE="u";STDIN.each{|l|x=0;p l.chop.split(//).map{|n|"一二三四五六七八九十百千".index(n)/3+1}.inject(0){|s,n|if n>9;x=1 if x<1;s+=x*10**(n-9);x=0;else;x=n;end;s}+x}