(define (FILTER s)
  (application (string->list s) '()))

(define (application lin lout)
  (if (empty? lin)
      (list->string lout)
      (application (cdr lin)
                   (if (< (char->integer (car lin)) 97)
                       (append lout (list (car lin)))
                       lout))))

(FILTER "Für sIe habe iCh Konsiquent gearbeitet")
(FILTER "und Das Ist der Crazy abscHluss")