Squish()
FUNCTION: squish(<text>,<separator>)
This function replaces consecutive occurrences of <separator> in <text> with a single occurrence. If <separator> is not specified, it defaults to a space. <separator> may be a multi-character string such as %r (CRLF).
Examples:
> @wait 0=@va me=Foo[space(5)]Bar
Set.
> think %va
Test Test
> say squish(%va)
Test Test
> think squish(....Foo....Bar....,.)
.Foo.Bar.
> think squish(%r%rFoo%r%rBar%r%r,%r)
Foo
Bar