$KCODE='u'
require 'kconv'
$<.read.map{|i|a=i.toutf8.match(/(.?千)?(.?百)?(.?十)?(.+)?/).to_a.map{|i|i ?{'一',1,'二',2,'三',3,'四',4,'五',5,'六',6,'七',7,'八',8,'九',9,'十',1,'百',1,'千',1}[i.split(//)[0]]:0}
p a[1]*1000+a[2]*?d+a[3]*10+a[4]}