;******************************* ; Weave ;******************************* ; I/O examples: (setf weave-test (list (cons '( () () ) '()) (cons '( (a) () ) '(a)) (cons '( () (a) ) '(a)) (cons '( (a) (b) ) '(a b)) (cons '( (a b) () ) '(a b)) (cons '( () (a b) ) '(a b)) (cons '( (a b) (c) ) '(a c b)) (cons '( (a) (b c) ) '(a b c)) (cons '( (a b) (c d) ) '(a c b d)) ) )