hstack = gensub( /^(.* )?([0-9]+( [0-9]+){5})$/, "\\1" ,"1", hstack) \
HL[1] " " HL[2] " " HL[3] " " HL[4] " " HL[5] " " HL[6];
hstack = gensub( /^(.* )?([0-9]+( [0-9]+){5})$/, "\\1" ,"1", hstack) \
HL[1] " " HL[2] " " HL[3] " " HL[4] " " HL[5] " " HL[6];