;;Напишите функцию (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))