(defun cross-product () (let* ((ax (read)) (ay (read)) (az (read)) (bx (read)) (by (read)) (bz (read)) (cx (- (* ay bz) (* az by))) (cy (- (* az bx) (* ax bz))) (cz (- (* ax by) (* ay bx)))) (format t "~d ~d ~d~%" cx cy cz))) (cross-product)