(define-syntax premier (syntax-rules () [(premier x y) x] ))