Реализовать функцию по рекурсивной обработке радиограммы

(defun sum-n (x n)
  (let ((s 0))
       (dolist (i (flatten x) s) (when (> i n) (setq s (+ s i))))))
 
==> sum-n
 
;; Создаем глобальную переменную (кстати, у тебя в середине - лишняя скобка!)
 
(setq *radio* '((((336 86 451 547) (409 888 266 76) (266)) ((376 368 687 246) (310 483 98 262) (280) 2 )) (((312 332 537 164) (320 427 145 359) (392)) ((127 77 202 352) (404 653)) ((219 18 285 522 358) (274 701)) ((280 338 524 446) (108 597 136 206) (266))) ((185 127 286 11 266) (76 266)) ((320 328 569 263) (259 406)) ((287 237 617 425) (195 605 368 92) ( 40 495 255 101 378) (414 486 700)) ((196 46 311 253) (67 350 308 334) (521))))
 
 
==> ((((336 86 451 547) (409 888 266 76) (266)) ((376 368 687 246) (310 483 98 262) (280) 2)) (((312 332 537 164) (320 427 145 359) (392)) ((127 77 202 352) (404 653)) ((219 18 285 522 358) (274 701)) ((280 338 524 446) (108 597 136 206) (266))) ((185 127 286 11 266) (76 266)) ((320 328 569 263) (259 406)) ((287 237 617 425) (195 605 368 92) (40 495 255 101 378) (414 486 700)) ((196 46 311 253) (67 350 308 334) (521)))
Создана глобальная переменная *radio*
 
;; а теперь проверяем работу функции:
 
(sum-n *radio* 900)
 
==> 0
 
(sum-n *radio* 500)
 
==> 8668
 
;; и это все...