stdin linesDo:[:x|O:=''.X:=x.{'?千'.'?百'.'?十'.'$'}do:[:r|N:=0.X=~('(.)',r,'(.*)')ifMatched:[:m|N:=1.X:=m at:2.nil=(D:=m at:1)or:[N:='���������'indexOf:D first]].O:=O,(#[],{48+N})].O asNumber printNl]