(let ((one 1)
      (two 2))
  (+ (shl 2 3) (shl 1 0) (shl 0 4) (shr 2 3) (shr 10 two) (shl -2 one) (sar -16 two))
  )

;; 16         1          0          0          2           -4          -4