if ($#argv == 3) then
switch ($argv[2])
case +:
@ e = $argv[1] + $argv[3]
breaksw
case -:
@ e = $1 - $3
breksw
case x:
@ e = $1 * $3
breaksw
case /:
@ e = $1 / $3
breaksw
case %:
@ e = $1 % $3
breaksw
case ::
@ a = $1 / $3
@ b = $1 % $3
@ c = $b * 1000
@ d = $c / $3
if ($d < 0) @ d = $d * -1
set e = ${a},${d}
breaksw
endsw
echo $e
endifPages: 1 2