while(<>){
  / /, $;{$`}++}{print $_, $/ ^= "*" for %
}