Producto. Carlos Gershenson
der1	>			;ve al final del primer trmino
	? zero pru6
pru6	>
	? stop dere6
dere6	>
	? mul1 dere6	
mul1	> pru5			;pasa el primer trmino a la derecha del segundo
pru5	>			;ver si ya acabo
	? prstp izq
izq	<
	<
	< mul2			
mul2	0 dere2
dere2	> 			;recorre espacio entre 2 dgitos
	>
	? prstp	dere3
dere3	>			;recorre el segundo trmino
	? borr1	dere3
borr1	<			;borra del segundo trmino
	0
	> 
	*
dere4	> 			;recorre el nuevo trmino
	? marc1 dere4
marc1	* izq1			;marca
izq1	<			;recorre el nuevo trmino de regreso
	? izq2	izq1
izq2	<			;recorre el espacio
	? izq2	pru4
pru4	? prstp	izq3
izq3	<			;recorre el segundo trmino de regreso
	? izq4	izq3
izq4	< 			;recorre el espacio entre lo que queda de los 2 primeros dgitos
	? izq4	pru1
pru1	<			;ve si ya acabo de pasar n-1 celdas
	<
	? regen	dere5
dere5	> 
	> mul4
mul4	0 dere22
dere22	> 			;recorre espacio entre 2 dgitos
	? dere22 dere32
dere32	>			;recorre el segundo trmino
	? dere4 dere32
regen	>			;regenerar
	> rege1
rege1	>
	> pru3			;ve si ya acab de regenerar el primer trmino
pru3	? rege2	mul3		;y comienza de nuevo si s.
rege2	<
	* rege1
mul3	< mul1
prstp	*
	<
	0 stop
zero	>
	>
	? stop borri
borri	<
	0 zero
stop	|