my ($s,@a)=words;map {$s.substr-rw($_,1)=" "},@a.unique;say $s.subst(" ",:g)