;; The first three lines of this file were inserted by DrRacket. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-advanced-reader.ss" "lang")((modname fop-klausur) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #t #t none #f () #f)))
(define-struct abc (a b))

(define (foo p)
  (if (abc? p)
      (if (list? (abc-b p))
          (cons (abc-a p) (abc-b p))
          empty)
      empty))

(define (bar lst n)
  (cond
    [(= 0 n) empty]
    [(< (length lst) n) lst]
    [else (cons (first lst) (bar (rest lst) (- n 1)))]))

(define (foo-bar n)
  (lambda (x) (bar x n)))