#tri (%x)支人参
renshen=%1;
renshen=%replace(@renshen,零,0);
renshen=%replace(@renshen,一,1);
renshen=%replace(@renshen,二,2);
renshen=%replace(@renshen,三,3);
renshen=%replace(@renshen,四,4);
renshen=%replace(@renshen,五,5);
renshen=%replace(@renshen,六,6);
renshen=%replace(@renshen,七,7);
renshen=%replace(@renshen,八,8);
renshen=%replace(@renshen,九,9);
renshen=%replace(@renshen,十,*10+);
renshen=%replace( @renshen,百,*100+);
renshen=%replace( @renshen,千,*1000+);
renshen=%replace( @renshen,万,*10000+);
renshen=%replace( @renshen," ","");
#if %pos(%rightback(@renshen,1),+) {renshen=%concat(@renshen,0)};
#if (%begins(@renshen,*)) {renshen=%concat(1,@renshen)};
renshen=%eval(@renshen)