set f [open QSCad.hlp r]
array set xxx [read $f]
close $f


set f [open xxx w]
proc tabs {t} {
	return [string repeat \t [expr (3 - ([string length $t] / 8)) +1]]
}

foreach n [lsort [array names xxx]] {

	puts $f "[list $n][tabs $n][list $xxx($n)]"
}

close $f


