Здравствуйте. Есть задача решена 2 способами на языке Scheme (ide racket), помогите пожалуйста решить эту же задачу с помощью макросов.

Условие: Координаты двух векторов заданы в виде списка. Определить являются ли эти векторы ортогональными.

Сама задача:

#lang racket

(define list1 (list 2 2))

(define list2 (list 3 -3))

 

(define (var1 l1 l2) 

  (cond ((null? l1) 0)

        ((null? l2) 0)

        (else (+

                (* (car l1) (car l2))

                (var1 (cdr l1) (cdr l2))))))

 

(define (var2 l1 l2)

  (cond ((null? l1) 0)

        ((null? l2) 0)

        (else

         (apply +(map * l1 l2)))))

 

(if (= (var2 list1 list2) 0) 'ortogonalni 'neortogonalni)

Заранее спасибо.