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