sub p
{
# 68 characters
my@s;for(@_){@s=(/^\D$/?(eval"$s[1]$_$s[0]",@s[2..$#s]):($_,@s))};@s
}

print p(@ARGV);