(defun test-basic-vector-math ()
  (let ((vector-0 (new 'stack 'vector))
        (vector-1 (new 'stack 'vector))
        (vector-2 (new 'stack 'vector)))
    (set! (-> vector-0 x) 1.0)
    (set! (-> vector-0 y) 2.0)
    (set! (-> vector-0 z) 3.0)
    (set! (-> vector-0 w) 4.0)
    
    (set! (-> vector-1 x) 10.0)
    (set! (-> vector-1 y) 20.0)
    (set! (-> vector-1 z) 30.0)
    (set! (-> vector-1 w) 40.1)
    
    (vector-! vector-2 vector-1 vector-0)
    ; 9 + 18 + 27 = 54.0000
    (format #t "~f~%" (+ (-> vector-2 x) (-> vector-2 y) (-> vector-2 z) (-> vector-2 w)))
    )
  )

(test-basic-vector-math)