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