#lang racket

    (define/public exito!
      (lambda (arg)
        (set! emocion arg)
        (if (= emocion 0)
            (set! memoria_reciente (cons orden_ensayada emocion))
            (set! memoria_reciente #f)
            )
        ))
    (define/public get-emocion
      (lambda ()
        emocion ))
    (define proto_consciencia
      (lambda (ensayar ultimo emocion_ultimo)
        (if
         (and
          (= emocion_ultimo 0)
          (equal? ensayar ultimo))
         #t
         #f)
        ))
    (define/public set-orden_ensayada
      (lambda (orden)
        (set! orden_ensayada orden)
        ))
;             [(sensor orden)
;              (send automata_frontal proceso! pre_orden_visual pre_orden_tactil energia)]

;          (set! memoria (cons (list output_vision output_tacto) memoria))
;          (printf "Retina: ~a Sensores_tacto: ~a Sensores_olfato: ~a ~n" output_retina output_tactil output_olfativo)
;          (printf "Visión: ~a Tacto: ~a Olfato: ~a~n" output_vision output_tacto output_olfato)
;          (printf "Discriminación visual: ~a Discriminación tactil: ~a Análisis olfativo: ~a ~n" orden_visual Discriminacion_tactil Analisis_olfato)
;          (printf "Orden ~a~n" orden)
;          (values
;           sensor
;           orden)
;          orden_visual
