Function Collapse-Whitespace

( collapse-whitespace < s > )
Convert multiple whitespace characters to a single space character.