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

(let loop
   ((todo some-list))
   (unless (null? todo)
      (write (string-length (car todo)))
      (newline)
      (loop (cdr todo))))