- arithmetic-shift i countprocedure
Returns the arithmetic left shift when count>0; right shift when count < 0.
(arithmetic-shift 8 2) => 32 (arithmetic-shift 4 0) => 4 (arithmetic-shift 8 -1) => 4 (arithmetic-shift -100000000000000000000000000000000 -100) => -79