PALIN.MT

(SETQ FUNCION_DE_TRANSICION '(
             ((Q0 0) (B R Q4))
             ((Q0 1) (B R Q1))
             ((Q1 0) (0 R Q1))
             ((Q1 1) (1 R Q1))
             ((Q1 B) (B L Q2))
             ((Q2 1) (B L Q3))
             ((Q3 0) (0 L Q3))
	     ((Q3 1) (1 L Q3))
	     ((Q3 B) (B R Q0))
             ((Q4 0) (0 R Q4))
             ((Q4 1) (1 R Q4))
             ((Q4 B) (B L Q5))
             ((Q5 0) (B L Q3))
))
(SETQ ENTRADA '(0 1 0 1 0 1))
(SETQ ESTADO_INICIAL Q0)
(SETQ POSICION_INICIAL_CINTA 0)
(SETQ SIMBOLOS '(0 1 B) )