zahlengen

(defun 0-9 ()  ;erzeugung von liste ("0" .. "9")
(loop for i from 0 to 9 collect (string (code-char (+ 48 i)))))    ;(string (code-char (+ 48 i))) um aus symbol einen string zu machen

(defun zahlentiefe (tief)
(cond ((<= tief 0) (0-9))  ;rekursions ende
      (t (apply 'append
       (mapcar #'(lambda (X) (mapcar #'(lambda (Y)
                                     (concatenate 'string X "." Y))
                                (zahlentiefe (- tief 1))))
          (zahlentiefe 0))))))


; append <funktion> ((liste in liste) (weitere liste in liste))   --> <funktion> (liste in liste) (weitere liste in liste)
; übergibt <funktion> jedes element der übergebenen liste als parameter ... um alle erzeugten listen zu einer zusammen zu fassen

; mapcar <funktion> liste
; wendet funktion auf jedes object der liste an und formt neue liste aus ergebnissen