lcStr = "This    is a    string                with  spaces"
>? EVALUATE(REPLICATE([STRTRAN(], CEILING(LEN(lcStr) / 2)) + [lcStr] + ;
>			REPLICATE([, SPACE(2), SPACE(1))], CEILING(LEN(lcStr) / 2)))