U='個|十|百|千'
D='零|一|二|三|四|五|六|七|八|九'
$<.each{|l|v=-2;l.scan(/(#{D})?(#{U}|$)/){|m|v+=D.index($1||"一")/4*10**(U.index($2)/4)};p v}