(define (string-lengths some-list)
   (unless (null? some-list)
      (write (string-length (car some-list)))
      (newline)
      (string-lengths (cdr some-list))))

(string-lengths '("hello" "world"))