e2:=val(v2),
	e4:=val(v5008),
	e0:=0, (e1:=e2/e4)

	while e0<=e1-1
	(
	 e3:=e0*e4+1,
	 e6:=e4-1,
	 e5:=e3+e6,
	 '^i'f(e0,1,0)'^f'f(e3,1,0)'^t'f(e5,1,0)/
	 ,(e0:=e0+1),
	),
	 e3:=e0*e4+1,
	 '^i'f(e0,1,0)'^f'f(e3,1,0)'^t'f(e2,1,0)