For help output Spline Knot Position Array

fn storeKnotsPosToTxt spl txtFile: = 
(
	if isKindOf spl Line or isKindOf spl splineshape do
	(
		fn breakUp arr idx = (if idx > arr.count do return #() ; for i = idx to arr.count collect arr[i])
		fn roundP3 val = (for a in #("x","y","z") where abs (getProperty val a) < .0001 do (setProperty val a 0) ; val)		
		local fStream = createFile txtFile
		local minKnots = amin (for s = 1 to numsplines spl collect numknots spl s)
		local oddArr = #(), evenArr = #(), cnt = 1, coords = #()
		while cnt <= minKnots do 
		( 
			kpos = (for s = 1 to numsplines spl collect roundP3 (getKnotPoint spl s cnt))
			if mod cnt 2 != 0 then append oddArr kpos else append evenArr kpos ; cnt += 1
		)
		coords = #(oddArr, evenArr)
		for arr in coords do
		(
			for i = 1 to arr.count do
			(
				while arr[i].count != 0 do
				(
					format "% % % %\n" arr[i][1].y arr[i][2].y arr[i][3].y arr[i][4].y to:fStream
					format "% % % %\n" arr[i][1].z arr[i][2].z arr[i][3].z arr[i][4].z to:fStream
					format "% % % %\n" arr[i][1].x arr[i][2].x arr[i][3].x arr[i][4].x to:fStream
					arr[i] = breakUp arr[i] 5
				)
			)
		)
		flush fStream ; close fStream ; free coords ; free oddArr ; free evenArr
	)
)
storeKnotsPosToTxt selection[1] txtFile:@"c:\temp\test.txt"