(define (aux:make-point-list points #!optional (internal-list '()))
    (if (not (null? points))
        (aux:make-point-list (cdr points)
                             (cons (cdr (car points))
                                   (cons (car (car points))
                                         internal-list)))
        (reverse internal-list)))