MULT.MT

;********************** CUADRADO.MT  ***************************
(SETQ FUNCION_DE_TRANSICION '(
	     ((Q1 0) (2 R Q2))
	     ((Q1 1) (1 L Q4))
	     ((Q2 0) (0 R Q2))
	     ((Q2 1) (1 R Q2))
	     ((Q2 B) (0 L Q3))
	     ((Q3 0) (0 L Q3))
	     ((Q3 1) (1 L Q3))
	     ((Q3 2) (2 R Q1))
	     ((Q4 1) (1 R Q5))
	     ((Q4 2) (0 L Q4))
	     ((Q0 0) (B R Q6))
	     ((Q6 0) (0 R Q6))
	     ((Q6 1) (1 R Q1))
	     ((Q5 0) (0 L Q7))
	     ((Q7 1) (1 L Q8))
	     ((Q8 0) (0 L Q9))
	     ((Q8 B) (B R QA))
	     ((Q9 0) (0 L Q9))
	     ((Q9 B) (B R Q0))
	     ((QA 1) (B R QB))
	     ((QB 0) (B R QB))
	     ((QC 1) (B R QC))
))
(SETQ ENTRADA '(0 0 0))
(SETQ ESTADO_INICIAL Q0)
(SETQ POSICION_INICIAL_CINTA 0)
(SETQ SIMBOLOS '(0 1 B 2) )