#!perl -lp
$t='(=[^=]+=|(?<=[*-/])-\d+|\d+)';sub r{for$o(qw|*/ -+|){1while s~$t([$o])$t~$_="$1 $3 $2";y/=//d;"=$_="~e}$_}s/\s//g;1while s~\(([^()]+)\)~$_=$1;r~e;r;y/=//d

#!perl -lp
$t='(=[^=]+=|(?<=[*-/])-\d+|\d+)';sub r{for$o(qw|*/ -+|){1while s~$t([$o])$t~$_="$1 $3 $2";y/=//d;"=$_="~e}$_}s/\s+//g;1while s~\(([^()]+)\)~$_=$1;r~e;r;y/=//d

#!perl -lp
$t='(=[^=]+=|(?<=[*-/])-\d+|\d+)';sub r{for$o(qw|*/ -+|){1while s~$t([$o])$t~$_="$1 $3 $2";y/=//d;"=$_="~e}$_}s/\s+//g;1while s~\(([^()]+)\)~$_=$1;r~e;$_=r;y/=//d

#!perl -lp
$t=qr~=[^=]+=|(?<=[*-/])-?\d+|^\d+~;sub r{for$o(qw|*/ -+|){1while s~($t)([$o])($t)~$_="$1 $3 $2";y/=//d;"=$_="~e}$_}s/\s+//g;1while s~\(([^()]+)\)~$_=$1;r~e;$_=r;y/=//d

#!perl -lp
$t=qr~=[^=]+=|(?<=[*-/])-?\d+|^\d+~;sub r{$_=$1;for$o(qw|*/ -+|){1while s~($t)([$o])($t)~$_="$1 $3 $2";y/=//d;"=$_="~e}$_}s/\s+//g;1while s~\(([^()]+)\)~r~e;s~(.*)~r~e;y/=//d

#!perl -lp
$t=qr~=[^=]+=|(?<=[*-/])-?\d+|^\d+~;sub r{$_=$1;for$o(qw|*/ -+|){1while s~($t)([$o])($t)~$_="$1 $3 $2";y/=//d;"=$_="~e}$_}s/\s+//g;1while s~\(([^()]+)\)~r~e||s~($t(.$t)+)~r~e;y/=//d

#!perl -lp
sub r{$_=$1;for$o(qw|*/ -+|){1while s~($t)([$o])($t)~$_="$1 $3 $2";y/{}//d;"{$_}"~e}$_}$t=qr~(?:^|(?<=[-+*/]))-?\d+|{[^}]+}~;s/\s+//g;1while s~\(([^()]+)\)~r~e||s~($t([-+*/]$t)+)~r~e;y/{}//d

#!perl -lp
sub r{$_=$1;for$o(qw|*/ -+|){1while s~($t)([$o])($t)~y/{}//dfor@x=($1,$3,$2);"{@x}"~e};$_}$t=qr~(?:^|(?<=[-+*/]))-?\d+|{[^}]+}~;s/\s+//g;1 while s~\(([^()]+)\)~r~e||s~($t([-+*/]$t)+)~r~e;y/{}//d

#!perl -lp
sub n{y/{}//dfor@x=($1,$3,$2);"{@x}"}sub r{$_=$1;for$o(qw|*/ -+|){1while s~($t)([$o])($t)~n~e};$_}$t=qr~(?:^|(?<=[-+*/]))-?\d+|{[^}]+}~;s/\s+//g;1while s~\(([^()]+)\)~r~e||s~($t([-+*/]$t)+)~r~e;y/{}//d