(mapcar #'co:to-list
	       (if (children node)
		   (sort (assoc:hash-values (children node))
			 #'char<
			 :key #'co:value)))
             
(defun hash-values (ht)
  (when ht
    (loop for v being the hash-values of ht
       collect v)))