(let ((x 30))
  ;; setting upper 32 bits should be ignored
  (+ (/ (logior #x111111100000000 x) (logior #x1231234400000000 10)) 4)
  )