Mnimo comn mltiplo. Carlos Gershenson	(los nmeros tienen que ser mayores que cero!)
ch1	>			;si el 1o es 1, ya acabe.
	>
	? stop	der1
der1	>			;ve a la derecha del 1er nm
	? copi1 der1
copi1	< 			;comienza a copiar el primer nmero
	? copi1 bor1
bor1	0 der2			;desmarca
der2	>
	? der2	der3
der3	>			;pasa el 2o nm
	? der4	der3
der4	>
	? marc1	der4
marc1	* izq1			;marca en el 3er nm.
izq1	<
	? izq2	izq1
izq2	<			;recorre el 2o. de regreso
	? izq3	izq2
izq3	<
	? izq3	tst1
tst1	<
	? rege1 der1
rege1	>			;regenera
	> marc2
marc2	*
	> tst2
tst2	>
	? tdv1	cmp23
tdv1	< marc2	
cmp23	>			;compara si el 2o cabe en el 3o
	? ya2o	tdv2
tdv2	<
	0 der5
der5	>
	? der6	der5
der6	>
	? der6	tst3
tst3	>
	? ya3o	tdv3
tdv3	<
	0 izq4
izq4	<
	? izq4	izq5
izq5	<
	? prp1	izq5
prp1	> cmp23
ya3o	<			;reg. 3o
	< marc3
marc3	*
	< tst4
tst4	<
	? tdv4	aver1
tdv4	> marc3	
aver1	<
	? casi	izq6
casi	<			; ya acabe, solo regenerar el 2o, y...
	? tdv5	pilon
tdv5	>
	* aver1
ya2o	< 			; se me acabo el 2o 
ns1	< 			; regenera el 2o
	<
	? tdv6	pcmp
pcmp	>
	> cmp23			; y sigue comparando
tdv6	> 
	* ns1
izq6	<			;regenera el 2o
	? pt1 izq6
pt1	<
	? marc4	bor1		;y agreaga el 1o al 3o
marc4	>
	* izq6			
pilon	> der7			;... poner la marca adicional del 3o.
der7	>
	? der8	der7
der8	>
	? marc5	der8
marc5	* stop
stop	|