;A2a)
;aus A1a) Prozedur zur Ausgabe, ob objekt vom Typ Zahl, Symbol oder Sonstiges ist. Wenn objekt eine Liste ist, dann sollen alle Listenobjekte ausgegeben werden statt 'liste'.
(define (benenne+listenelem objekt)
  (cond ((number? objekt) 'zahl)
        ((symbol? objekt) 'symbol)
        ((list? objekt) (benenne-alle+listenelem objekt))
        (else 'sonstiges)))

;aus A1c) Rekursive Prozedur zur Ausgabe, von welchem Typ die Elemente der Liste objekte sind:
(define (benenne-rek+listenelem objekte)
  (if (null? objekte)
      ()
      (cons (benenne+listenelem (car objekte))
            (benenne-rek+listenelem (cdr objekte)))))