(define (make-list lth obj) (let loop ((i lth) (lst '())) (if (< i 1) lst (loop (- i 1) (cons obj lst)))))