(LAMBDA (STRING START END &AUX (P (- START 1)))
  (DECLARE (TYPE FIXNUM START END P)
           (TYPE (SIMPLE-ARRAY CHARACTER (*)) STRING)
           (OPTIMIZE (SPEED 3) (SAFETY 0)))
  (BLOCK FOO
    (LET ($0.S $0.E)
      (LABELS
          ((L.3 ()
             (SETQ P (THE FIXNUM (+ P 1)))
             (WHEN (= P END) (L.4))
             (CASE (SCHAR STRING P)
               (#\s (L.6))
               (T (L.3))))
           (L.6 ()
             (SETQ P (THE FIXNUM (+ P 1)))
             (WHEN (= P END) (L.4))
             (case (SCHAR STRING P)
               (#\u (L.7))
               (#\s (L.6))
               (T (L.3))))
           (L.7 ()
             (SETQ P (THE FIXNUM (+ P 1)))
             (WHEN (= P END) (L.4))
             (case (SCHAR STRING P)
               (#\n (L.5))
               (#\s (L.6))
               (T (L.3))))
           (L.5 ()
             (SETQ P (THE FIXNUM (+ P 1)))
             (PSETQ $0.S (- P 3) $0.E P)
             (RETURN-FROM FOO (VALUES $0.S $0.E #() #())))
           (L.4  ()
             (PSETQ $0.E '-1 $0.S '-1)
             (RETURN-FROM FOO (VALUES $0.S $0.E #() #()))))
        (L.3)))))