(clear)
(load "/home/dave/play/scm/stroke.scm")

(hint-unlit)

(stroke-list-build 0 (string->list "o+++...-o.o.---o."))