#lang scheme

;;CÓMO OBTENER UN VALOR DE UN PARÁMETRO EN UN HECHO
(define valor-de-parametro
  (lambda (hecho)
    (let ((parametros (cdr hecho)) )
      (lambda mensaje
        (case (car mensaje)
          ((primero) (first parametros))
          ((segundo) (second parametros))
          ((tercero) (third parametros))
          ((cuarto) (fourth parametros))
          ((quinto) (fifth parametros))
          (else #f)
          ) )
      ) ))