;******************************* ; SWITCH ;******************************* ; I/O examples: (setf switch-test (list (cons '() '()) (cons '(a) '(a)) (cons '(a b) '(b a)) (cons '(a b c) '(b a c)) (cons '(a b c d) '(b a d c)) (cons '(a b c d e) '(b a d c e)) ) )