(let* ((base-addr #x6000000)
      (ptr-int32 (the (pointer int32) base-addr))
      (ptr-int16 (the (pointer int16) base-addr))
      )
  (set! (-> ptr-int32 1) #x00070006)
  (+ (-> ptr-int16 2)
     (-> ptr-int16 3)
     )
  )