#!/usr/bin/perl -w
sub p{push@s,shift}sub o{pop@s}for$n(@ARGV){if($n=~/(\D)/){$y=o;$x=o;p(eval"$x$1$y")}else{p$n}}print o