(define make-arr
  (letrec ((helper (lambda(x y n init arr)
                     (if (and (= x 0) (= y 0)) (append  arr (list(list x y init)))
                         (if (= x 0) (helper n (- y 1) n init (append  arr (list(list x y init))))
                             (helper (- x 1) y n init (append  arr (list(list x y init)))))))))
    (lambda (n init)
      (helper n n n init empty))))