#!perl -lap
%e=qw(zr 0 oe 1 to 2 tr 3 fu 4 fv 5 sx 6 sv 7 eg 8 nn 9 tn 0 ee 1 te 2 ti 3 fr 4 ff 5 b 9-$s m 6-$s o 3-$s u 2-$s%3 y 1-$s%3,$e{$k},2-$s%3 1 0,"1$e{$k}",2 0 0,$e{$k},1);while($_=pop@F){/(.).(.)/;$k=$1.$2;$K=/(b|m|y)|h(u|o)/?$+:/el|te/?1:0;eval"r($e{$K})"}sub r{($a,$b,$c)=@_;$o=$b.0 x$a.$o;$s+=$c?$c:$a}$_=$o;1while s/(\d)(\d{3}(,|$))/$1,$2/

#!perl -lap
%e=qw(zr 0 oe 1 to 2 tr 3 fu 4 fv 5 sx 6 sv 7 eg 8 nn 9 tn 0 ee 1 te 2 ti 3 fr 4 ff 5 b 9-$s m 6-$s ho 3-$s hu 2-$s%3 y 1-$s%3,$e{$k},2-$s%3 el 0,"1$e{$k}",2 1 0,$e{$k},1);while($_=pop@F){/(.).(.)/;$k=$1.$2;$_=/(b|m|ho|hu|y|el|te)/?$1:1;s/te/el/;eval"r($e{$_})";}sub r{$o=$_[1].0 x$_[0].$o;$s+=$_[2]?$_[2]:$_[0]}$_=$o;1while s/(\d)(\d{3}(,|$))/$1,$2/

#!perl -lap
%e=qw(zr 0 oe 1 to 2 tr 3 fu 4 fv 5 sx 6 sv 7 eg 8 nn 9 tn 0 ee 1 te 2 ti 3 fr 4 ff 5 b 9-$s m 6-$s ho 3-$s hu 2-$s%3 y 1-$s%3,$e{$k},2-$s%3 el 0,$e{$k}.1,2 1 0,$e{$k},1);while($_=pop@F){/^(.).(.)/;$k=$1.$2;/(b|m|ho|hu|y|el|te)/;$_=$2?1:$1;s/te/el/;eval"r($e{$_})";}sub r{$o.=0 x$_[0].$_[1];$s+=$_[2]?$_[2]:$_[0]}$o=~s/(\d{3})(?=\d)/$1,/g;$_=scalar reverse$o

#!perl -lap
%e=qw(zr 0 oe 1 to 2 tr 3 fu 4 fv 5 sx 6 sv 7 eg 8 nn 9 tn 0 ee 1 te 2 ti 3 fr 4 ff 5 b 9-$s m 6-$s ho 3-$s hu 2-$s%3 y 1-$s%3,$e{$k},2-$s%3 el 0,$e{$k}.1,2 1 0,$e{$k},1);while($_=pop@F){/^(.).(.)/;$k=$1.$2;/(b|m|ho|hu|y|el|te)/;$q=$2?1:$1;$q=~s/te/el/;eval"r($e{$q})";}sub r{$o.=0 x$_[0].$_[1];$s+=$_[2]?$_[2]:$_[0]}$o=~s/(\d\d\d)(?=\d)/$1,/g;$_=scalar reverse$o

#!perl -lap
%e=qw(zr 0 oe 1 to 2 tr 3 fu 4 fv 5 sx 6 sv 7 eg 8 nn 9 tn 0 ee 1 te 2 ti 3 fr 4 ff 5);%p=qw(b 9-$s m 6-$s ho 3-$s hu 2-$s%3 y 1-$s%3,$e{$k},2-$s%3 el 0,$e{$k}.1,2 1 0,$e{$k},1);$p{te}=$p{el};while($_=pop@F){/^(.).(.)/;$k=$1.$2;/(b|m|ho|hu|y|el|te)/;$q=$2?1:$1;eval"r($p{$q})";}sub r{$o.=0 x$_[0].$_[1];$s+=$_[2]?$_[2]:$_[0]}$o=~s/(\d\d\d)(?=\d)/$1,/g;$_=scalar reverse$o

#!perl -lap
%e=qw{zr 0 oe 1 to 2 tr 3 fu 4 fv 5 sx 6 sv 7 eg 8 nn 9 tn 0 ee 1 te 2 ti 3 fr 4 ff 5};while($_=pop@F){/^(.).(.)/;$k=$1.$2;if(/b/){r(9-$s)}elsif(/m/){r(6-$s)}elsif(/ho/){r(3-$s)}elsif(/hu/){r(2-$s%3)}elsif(/y/){r(1-$s%3,$e{$k},2-$s%3)}elsif(/el|te/){r(0,$e{$k}.1,2)}else{r(0,$e{$k},1)}}sub r{$o.=0 x$_[0].$_[1];$s+=$_[2]?$_[2]:$_[0]}$o=~s/(\d\d\d)(?=\d)/$1,/g;$_=scalar reverse$o

#!perl -lap
$_='zr0oe1to2tr3fu4fv5sx6sv7eg8nn9tn0ee1te2ti3fr4ff5b9-$sm6-$so3-$su2-$s%3y1-$s%3,2-$s%3,$e{$k}s0,2,"1$e{$k}"k0,1,$e{$k}';1 while s/^([a-z]+)(\d)|^((?:[-\d%{}",]|\$.)+)([a-z]+\d|$)/push@e,$1.$3;$+/e;%e=@e;while($_=pop@F){/(.).(.)/;$k=$1.$2;$K=/(b|m|y)|h(u|o)/?$+:/el|te/?'s':'k';eval"r($e{$K})"}sub r{($a,$b)=@_;$o=$_[2].0 x$a.$o;$s+=$b?$b:$a}$_=$o;1while s/(\d)(\d{3}(,|$))/$1,$2/

#!perl -lap
%e=qw{zr 0 oe 1 to 2 tr 3 fu 4 fv 5 sx 6 sv 7 eg 8 nn 9 tn 0 ee 1 te 2 ti 3 fr 4 ff 5};while($_=pop@F){/^(.).(.)/;$k=$1.$2;if(/b/){$o.=0 x(9-$s);$s=9}elsif(/m/){$o.=0 x(6-$s);$s=6}elsif(/ho/){$o.=0 x(3-$s);$s=3}elsif(/hu/){$n=2-$s%3;$o.=0 x$n;$s+=$n}elsif(/y/){$o.=0 x(1-$s%3).$e{$k};$s+=2-$s%3}elsif(/el|te/){$o.="$e{$k}1";$s+=2}else{$o.=$e{$k};$s++}}$o=~s/(\d\d\d)(?=\d)/$1,/g;$_=scalar reverse$o