(define-syntax rotate
    (syntax-rules ()
      [(rotate a) (void)]
      [(rotate a b c ...) (begin
                            (swap a b)
                            (rotate b c ...))]))