(define (bla x)
  (cond ((null? x) x)
        (else (cons (length x) (bla x)))))

(bla '(the quick brown moocow))