(define (switch x)(cond
                    ((null? x) x)
                    (else (append (cadr x)) (append (car x)(cddr x))
                          )))