Spaces_disassembled ->                                Spaces ->
Arg Dest : &String, Src : String                      Arg Dest : &String, Src : String

Dest <- Src ..                                        Dest <- Src ..

S : String : [Dest] = '' ..
T : String : [Dest] = '' ..

C, R = <> ..                                          Dest <- Dest, '(', ' ('
                                                      Dest <- Dest, ',', ', '
C .= '('; R .= ' ('                                   Dest <- Dest, ';', '; '
C .= ','; R .= ', '                                   Dest <- Dest, ':', ': '
C .= ';'; R .= '; '                                   Dest <- Dest, '.', '. '
C .= ':'; R .= ': '
C .= '.'; R .= '. '

- CharsIn Dest ( H : S '= <- H, C, R )

Dest = S                                              Dest <- Dest, '. . . ', '... '

Dest <- Dest, '. . . ', '... '                        Dest <- Dest, '--', ' - '
                                                      Dest <- Dest, '- ', ' - '
Dest <- Dest, '--', ' - '                             Dest <- Dest, ' -', ' - '
Dest <- Dest, '- ', ' - '
Dest <- Dest, ' -', ' - '                             Do Dest <- Dest, '  ', ' '
                                                      While Dest, '  '
- WordsIn Dest ( W : T '= ' ' W )

Dest <- T, 2, T._                                     /

/














