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 '= Z 
                     ' Z <- 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 '= ' ' [ T._ ] 
                     T '= W 
               )

Dest = T

/                                                     /
