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