function
(brushift x & shifts )
Returns the value of x bit shifted right by the sum of all values
in shifts. x and each element in shift must be an integer. The sign
of x is not preserved , so for positive shifts the return value will
always be positive.
( (brushift 2r1000 1 1 1 ) 2r0001 )
# => true