(e (coerce '(#\a #\b #\c #\e #\d) '(simple-string))))
(assert (= (length a) 5))
(assert (string= b "abdec"))
(assert (string= c "abcde"))
(assert (string= d "beacd"))
(assert (string= e "abced")))
(e (coerce '(#\a #\b #\c #\e #\d) '(simple-string))))
(assert (= (length a) 5))
(assert (string= b "abdec"))
(assert (string= c "abcde"))
(assert (string= d "beacd"))
(assert (string= e "abced")))