$data = loadfile('data.txt')
for $i = 4 to ubound($data)
	While $length <> Len($data[$i])
		$length = Len($data[$i])
		$data[$i] = join(split($data[$i],'  '),' ')
	Loop
	? $data[$i]
next