(SYSTEM::VERSION '(20040222.))
#0Y UTF-8
#Y(#:|(SETQ INICIAL '(# # NIL ...))-1|
   #15Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 19 01)
   (COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::T)
   ((COMMON-LISP-USER::TRAJE) (COMMON-LISP-USER::J) COMMON-LISP::NIL
    (COMMON-LISP-USER::ARMARIO COMMON-LISP-USER::CUCHILLO)
    (COMMON-LISP-USER::CRUCIFIJO COMMON-LISP-USER::PALANCA) COMMON-LISP::NIL
    COMMON-LISP::NIL COMMON-LISP::NIL (COMMON-LISP-USER::BARRIL)
    COMMON-LISP::NIL (COMMON-LISP-USER::ATAUD)
    (COMMON-LISP-USER::AJOS COMMON-LISP-USER::MARTILLO COMMON-LISP-USER::LLAVE
     COMMON-LISP-USER::TROZO)
    COMMON-LISP::NIL)
   COMMON-LISP-USER::INICIAL)
#Y(#:|(SETQ FINAL '(* * * ...))-2|
   #15Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 19 01)
   (COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::T)
   (COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
    COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::* COMMON-LISP::*
    (COMMON-LISP-USER::ATAUD COMMON-LISP-USER::J COMMON-LISP-USER::VAMPIROM)
    COMMON-LISP::* COMMON-LISP::*)
   COMMON-LISP-USER::FINAL)
#Y(#:|(SETQ A '(# # # ...))-3|
   #15Y(00 00 00 00 00 00 00 00 00 01 C5 0F 01 19 01)
   (COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::T)
   (((COMMON-LISP-USER::J 1.) "n" (COMMON-LISP-USER::J 2.))
    ((COMMON-LISP-USER::J 2.) "n" (COMMON-LISP-USER::J 5.))
    ((COMMON-LISP-USER::J 2.) "s" (COMMON-LISP-USER::J 1.))
    ((COMMON-LISP-USER::J 2.) "e" (COMMON-LISP-USER::J 4.))
    ((COMMON-LISP-USER::J 2.) "o" (COMMON-LISP-USER::J 3.))
    ((COMMON-LISP-USER::J 3.) "e" (COMMON-LISP-USER::J 2.))
    ((COMMON-LISP-USER::J 4.) "o" (COMMON-LISP-USER::J 2.))
    ((COMMON-LISP-USER::J 5.) "s" (COMMON-LISP-USER::J 2.))
    ((COMMON-LISP-USER::J 5.) "e" (COMMON-LISP-USER::J 7.))
    ((COMMON-LISP-USER::J 5.) "o" (COMMON-LISP-USER::J 6.))
    ((COMMON-LISP-USER::J 5.) "subir" (COMMON-LISP-USER::J 9.))
    ((COMMON-LISP-USER::J 5.) "bajar" (COMMON-LISP-USER::J 8.))
    ((COMMON-LISP-USER::J 6.) "e" (COMMON-LISP-USER::J 5.))
    ((COMMON-LISP-USER::J 7.) "o" (COMMON-LISP-USER::J 5.))
    ((COMMON-LISP-USER::J 8.) "subir" (COMMON-LISP-USER::J 5.))
    ((COMMON-LISP-USER::J 9.) "bajar" (COMMON-LISP-USER::J 5.))
    ((COMMON-LISP-USER::J 9.) "o" (COMMON-LISP-USER::J 10.))
    ((COMMON-LISP-USER::J 10.) "e" (COMMON-LISP-USER::J 9.))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::CUCHILLO) "coger cuchillo"
     (COMMON-LISP-USER::CUCHILLO 0.))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::CRUCIFIJO) "coger crucifijo"
     (COMMON-LISP-USER::CRUCIFIJO 0.))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::PALANCA) "coger palanca"
     (COMMON-LISP-USER::PALANCA 0.))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::TRAJE) "coger traje"
     (COMMON-LISP-USER::TRAJE 0.))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::TROZO) "coger trozo"
     (COMMON-LISP-USER::TROZO 0.))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::LLAVE) "coger llave"
     (COMMON-LISP-USER::LLAVE 0.))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::AJOS) "coger ajos"
     (COMMON-LISP-USER::AJOS 0.))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::MARTILLO) "coger martillo"
     (COMMON-LISP-USER::MARTILLO 0.))
    ((COMMON-LISP-USER::CUCHILLO 0.) "dejar cuchillo"
     (COMMON-LISP-USER::CUCHILLO COMMON-LISP-USER::J))
    ((COMMON-LISP-USER::CRUCIFIJO 0.) "dejar crucifijo"
     (COMMON-LISP-USER::CRUCIFIJO COMMON-LISP-USER::J))
    ((COMMON-LISP-USER::PALANCA 0.) "dejar palanca"
     (COMMON-LISP-USER::PALANCA COMMON-LISP-USER::J))
    ((COMMON-LISP-USER::TRAJE 0.) "dejar traje"
     (COMMON-LISP-USER::TRAJE COMMON-LISP-USER::J))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::TROZO) "dejar trozo"
     (COMMON-LISP-USER::TROZO COMMON-LISP-USER::J))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::LLAVE) "dejar llave"
     (COMMON-LISP-USER::LLAVE COMMON-LISP-USER::J))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::AJOS) "dejar ajos"
     (COMMON-LISP-USER::AJOS COMMON-LISP-USER::J))
    ((COMMON-LISP-USER::J COMMON-LISP-USER::MARTILLO) "dejar martillo"
     (COMMON-LISP-USER::MARTILLO COMMON-LISP-USER::J))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::CUCHILLO 0.)
     "meter cuchillo en fregadero"
     (COMMON-LISP-USER::CUCHILLO 11. COMMON-LISP-USER::CUCHILLOFREG 3.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::CRUCIFIJO 0.)
     "meter crucifijo en fregadero"
     (COMMON-LISP-USER::CRUCIFIJO 11. COMMON-LISP-USER::CRUCIFIJOFREG 3.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::PALANCA 0.)
     "meter palanca en fregadero"
     (COMMON-LISP-USER::PALANCA 11. COMMON-LISP-USER::PALANCAFREG 3.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::TROZO 0.)
     "meter trozo en fregadero"
     (COMMON-LISP-USER::TROZO 11. COMMON-LISP-USER::TROZOFREG 3.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::LLAVE 0.)
     "meter llave en fregadero"
     (COMMON-LISP-USER::LLAVE 11. COMMON-LISP-USER::LLAVEFREG 3.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::CUCHILLOFREG 3.)
     "sacar cuchillo de fregadero"
     (COMMON-LISP-USER::CUCHILLO 0. COMMON-LISP-USER::CUCHILLOFREG 11.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::CRUCIFIJOFREG 3.)
     "sacar crucifijo de fregadero"
     (COMMON-LISP-USER::CRUCIFIJO 0. COMMON-LISP-USER::CRUCIFIJOFREG 11.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::PALANCAFREG 3.)
     "sacar palanca de fregadero"
     (COMMON-LISP-USER::PALANCA 0. COMMON-LISP-USER::PALANCAFREG 11.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::TROZOFREG 3.)
     "sacar trozo de fregadero"
     (COMMON-LISP-USER::TROZO 0. COMMON-LISP-USER::TROZOFREG 11.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::LLAVEFREG 3.)
     "sacar llave de fregadero"
     (COMMON-LISP-USER::LLAVE 0. COMMON-LISP-USER::LLAVEFREG 11.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIOAB 3.
      COMMON-LISP-USER::AJOS 11.)
     "ex armario" (COMMON-LISP-USER::AJOS 3.))
    ((COMMON-LISP-USER::J 6. COMMON-LISP-USER::LLAVE 11.) "ex sabanas"
     (COMMON-LISP-USER::LLAVE 6.))
    ((COMMON-LISP-USER::J 7. COMMON-LISP-USER::TROZO 11.) "ex fuego"
     (COMMON-LISP-USER::TROZO 7.))
    ((COMMON-LISP-USER::J 8. COMMON-LISP-USER::BARRILAB 8.
      COMMON-LISP-USER::MARTILLO 11.)
     "ex barril" (COMMON-LISP-USER::MARTILLO 8.))
    ((COMMON-LISP-USER::CUCHILLO 0. COMMON-LISP-USER::TROZO 0.)
     "afilar trozo con cuchillo"
     (COMMON-LISP-USER::ESTACA 0. COMMON-LISP-USER::CUCHILLO 11.
      COMMON-LISP-USER::TROZO 12.))
    ((COMMON-LISP-USER::J 8. COMMON-LISP-USER::BARRIL 8.
      COMMON-LISP-USER::PALANCA 0.)
     "abrir barril con palanca"
     (COMMON-LISP-USER::BARRIL 11. COMMON-LISP-USER::BARRILAB 8.))
    ((COMMON-LISP-USER::J 3. COMMON-LISP-USER::ARMARIO 3.
      COMMON-LISP-USER::LLAVE 0.)
     "abrir armario con llave"
     (COMMON-LISP-USER::ARMARIOAB 3. COMMON-LISP-USER::ARMARIO 11.))
    ((COMMON-LISP-USER::J 10. COMMON-LISP-USER::ESTACA 0.
      COMMON-LISP-USER::MARTILLO 0. COMMON-LISP-USER::CRUCIFIJO 0.
      COMMON-LISP-USER::AJOS 0.)
     "abrir ataud" (COMMON-LISP-USER::VAMPIROM 10.)))
   COMMON-LISP-USER::A)
#Y(#:|(DEFUN JUGAR (J1 &OPTIONAL # ...) ...)-4|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::JUGAR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::JUGAR
      #63Y(00 00 00 00 01 00 02 00 80 25 01 00 00 00 3B 03 03 0E 01 FB 3B 02 03
           0E 02 FA 3B 01 03 0E 03 F9 AE 2F 04 AD AF 8A 05 10 B0 B0 B2 76 00 B2
           B2 6E 03 07 38 01 29 04 09 56 E0 38 01 31 82 19 05)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) :EF COMMON-LISP-USER::A
      COMMON-LISP-USER::INICIAL COMMON-LISP-USER::FINAL
      COMMON-LISP-USER::VERESTADO COMMON-LISP-USER::CUMPLEF "fin del juego."
      COMMON-LISP-USER::TRANSITAR))
#Y(#:|(DEFUN HUMANO NIL ...)-5|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::HUMANO
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::HUMANO
      #22Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 33 01 15 38 04 31 74 19 01)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      #Y(COMMON-LISP-USER::HUMANO-1
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 89 9E 19 03)
         (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
         "
> ")
      COMMON-LISP::*STANDARD-OUTPUT*))
#Y(#:|(DEFUN ACCIONES (LC &OPTIONAL #) ...)-6|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ACCIONES
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::ACCIONES
      #54Y(00 00 00 00 01 00 01 00 00 08 3B 01 0F 7D 01 92 02 0D 9E 19 03 95 02
           AE 29 02 05 6E 93 02 73 94 02 6F 00 AE DB 38 02 8C B4 6B 95 02 94 03
           6F 00 A0 7A 29 02 05 54)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ORDEN
      #.#'COMMON-LISP::EQUAL))
#Y(#:|(DEFUN POSIBLES (ACCIONES LC L) ...)-7|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::POSIBLES
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::POSIBLES
      #54Y(00 00 00 00 03 00 00 00 00 04 92 03 0E 00 19 04 95 03 AF AF 29 03 07
           00 93 03 72 AD 94 04 B0 B0 6E 03 00 8E 02 6A 94 03 AF AF 6E 03 00 95
           04 B0 B0 28 65 5D 19 04)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      COMMON-LISP-USER::TRANSITAR))
#Y(#:|(DEFUN POSIBLES2 (ACCIONES LC L) ...)-8|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::POSIBLES2
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::POSIBLES2
      #49Y(00 00 00 00 03 00 00 00 00 04 92 03 0E 00 19 04 95 03 AF AF 29 03 07
           00 93 03 72 AD 94 04 B0 B0 6E 03 00 8E 02 6A 94 03 95 04 B0 B0 28 6A
           5D 19 04)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)
      COMMON-LISP-USER::TRANSITAR))
#Y(#:|(DEFUN CUMPLEF (L L2) ...)-9|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::CUMPLEF
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::CUMPLEF
      #42Y(00 00 00 00 02 00 00 00 00 03 92 02 06 02 19 03 93 02 7A 94 02 24 00
           07 94 02 94 02 8F 02 08 95 02 95 02 29 02 05 69 00 19 03)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP::*))
#Y(#:|(DEFUN HACER (&KEY # # ...) ...)-10|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01)
   (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::HACER
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP-USER::HACER
      #50Y(00 00 00 00 00 00 00 00 80 1B 03 00 00 00 00 2B 01 3B 04 03 0E 03 FC
           3B 03 02 0E 04 0B 00 00 3D 02 B0 DF AE 6D 06 01 E1 E2 E3 E4 DC B6 2D
           09 0B 19 05)
      (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) :INI :FIN :TRAZA
      COMMON-LISP-USER::INICIAL COMMON-LISP-USER::FINAL :FINALP
      #Y(COMMON-LISP-USER::HACER-1
         #18Y(00 00 00 00 01 00 00 00 00 02 69 00 01 AE 30 01 19 02)
         (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP::NIL
         COMMON-LISP-USER::CUMPLEF)
      :HIJOS
      #Y(COMMON-LISP-USER::HACER-2
         #34Y(00 00 00 00 01 00 00 00 00 02 6B 00 6F 01 6B 00 AF 6E 03 02 6B 00
              6F 01 6B 00 B0 6E 03 03 40 02 19 02)
         (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::A
         COMMON-LISP-USER::ACCIONES COMMON-LISP-USER::POSIBLES
         COMMON-LISP-USER::POSIBLES2)
      :EQESTADO #.#'COMMON-LISP::EQUALP COMMON-LISP-USER::AMPLITUD))