#lang racket (define-syntax si (syntax-rules (entonces sino) [(si e1 entonces e2 sino e3) (if e1 e2 e3)]))