(define some-list '("hello" "world"))

(for-each
  (lambda (str)
    (write (string-length str))
    (newline))
  some-list)