Другой вариант обойти посимвольно строку

(loop for char across "Zeppo"
        collect char)
; (#\Z #\e #\p #\p #\o)