print join ' ', map { $_{w}=0;
      join '',  map {
                     ++$_{w} == 1 ? $_ : chr( (ord)+(1<<5) )
                    } split ''
                    } split;