ReduceSpaces ->
Arg Dest : &String, Src : String

S : String : [Src] = '' ..
Space_is_present = 0 ..

- CharsIn Src ( C : 
                    If C !IS_SPACE then 
                     Space_is_present = 0; S '= C
                    Else
                     If !Space_is_present then
                      Space_is_present = 1; S '= C
                     Else
                      _
              )

Dest = S

/