;;Напишите функцию (range М N X), которая выдает список чисел,
;;больших X и расположенных между М и N включительно

(DEFUN range_list(m n c)
 (COND ((< c m) (range_list m n m))
       ((> c n) nil)
       (1 (CONS c (range_list m n (+ c 1))))
 )
)

(DEFUN range(m n x)
 (range_list (+ x 1) n x)
)

(PRINT (range 3 7 4))