range in scheme lisp

(define range (lambda (n m) (cond
    ((> n m)
        '()
    )
    (#t
        (cond
            ((= m n)
                (cons n '())
            )
            (#t
                (append (range n (halfway n m)) (range (+ (halfway n m) 1) m ))
            )
        )
    )
    )
))