#lang scheme

(define
    (iter num)
    (cond (
        (equal? num 1)
            (cons num '())
        )
        (else
            (
                cons num (iter (- num 1))
            )
        )
    )
)

(define
    (apnd li1 li2)
    (cond ((null? (cdr li1)) (cons (car li1) li2))
    (else (cons (car li1) (apnd (cdr li1) li2)))
    ))


;(define
;    (rev li)
;    (cond ((null? (cdr li)) (car li))
;    (else (cons (rev (cdr li)) (car li))
;    )
;))

(define
    (rev li)
    (cond ((null? (cdr li)) (cons (car li) '()))
    (else (apnd (rev (cdr li)) (cons (car li) '()))
    )
))