(define (kmapl ls)
  (loop ((for i (up-from 0 (to (length ls))))
         (for lst (appending ((lambda (i)
                                 (let ((h (list-ref ls i))
                                       (p (if (= i 0) '() (list-ref ls (- i 1))))
                                       (n (if (= i (- (length ls) 1)) '() (list-ref ls (+ i 1)))))
				;;; XXX tut noch nicht, weils keine liste zurueckgibt
                                   (values (take ls i) p h n))) i))))
        => lst))