Mximo comn divisor. Carlos Gershenson
der1	>		;checa si ya tienes cero
	? stop	tst1	;si no
tst1	>		; checa si todavia hay celdas a la derecha borra
	? ya1	bor1	; si no es que ya acabaste ese nmero
bor1	<
	0 der2		;borra y
der2	>		;ve al fin del 1er n.
	? der3	der2
der3	> 		;recorre entre los dos numeros y haz lo mismo para el 2o n.
	? der3	der12	
der12	>		;recorre el hueco y 
	? der12	tst12	;
tst12	>		; checa si todavia hay celdas a la derecha borra
	? ya12	bor12	; si no es que ya acabaste ese nmero
bor12	<
	0 q1		;borra y
q1	? izq1	izq2     ;pasa el hueco del 2o n.
izq1	< q1
izq2	<		;pasa la marca del 2o
	? izq2	izq3
izq3	<		;llega al hueco del 1o
	? der1	izq3	;y empieza de nuevo
ya1	< reg1		;regenera
reg1	<		;el hueco del 1er
	? mrk1	der4
mrk1	* reg1
der4	>		;ve al fin del 1o
	? der5	der4	
der5	>		;recorre el espacio entre los dos
	? der5	crt1 
crt1	0 der6		;y elimina la marca del 2o
der6	>		;ve al principio de lo que queda del 2o
	? der6	tst3
tst3	>		; y ve si ya tienes cero
	? stop	izqp4
izqp4	< izq4
izq4	<		; y ve al 
	? izq4	izq5
izq5	<		;principio del 
	? pder	izq5
pder	> der1		;1o
ya12	< rg2		
rg2	< p1		;regenera
p1	? mrk2	izq61	;el hueco del 2o
mrk2	* rg2
izq61	< izq6		;recorre el espacio entre los dos
izq6	<
	? izq6	izq7
izq7	<		; el resto del 1o
	? izq8	izq7
izq8	<		; su hueco
	? izq8	crt2
crt2	0 der11		;borra la marca
der11	>
	? der11 rege1	
rege1	<		;y regrenera al 1o.
	* der1
stop	|		;Parada con resultados