#!perl -apl
for(@F){$e=/^b/?9:/^m/?6:/sa/?3:0;$a+=$e?$c*10**$e:0;$c*=/^h/?100:$e?0:1;$d=/le/?11:/^te/?10:/^n/?9:/^e/?8:/^se/?7:/x/?6:/^fi/?5:/^fo/?4:/hr|hi/?3:/w/?2:/^o/?1:0;$d*=/y$/?10:1;$d+=/lv|een/?10:0;$c+=$d}$_=$a+$c;1while s/^(-?\d+)(\d{3})/$1,$2/