(use test fast-loop utf8-lolevel)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; R5RS

(test-begin)

(test '(#\日 #\本 #\語)
    (loop ((for c (in-utf8-string "日本語"))
           (for res (listing c)))
      => res))

(test-end)