(define-syntax ´
  (lambda (exp rename compare)
    (let* ((fn (last exp))
	   (args (reverse (cdr (butlast exp)))))
      `(,fn ,@args))))