#$Counter = 1;
#while(<>){
#  if ($_ !~ /^\</){
#    $_ =~ s/(\r|\n|\s)*$//;
#    print "<seg id=$Counter>$_</seg>\n";
#    $Counter++;
#  }
#  else{
#    print $_;
#  }
#}


#while(<>){
#  $_ =~ s/\"\"/\"zyx\"/g;
#  print $_;
#}

$c = 1;
while(<>){
  if (($_ =~ /\:\:/)&&($_ =~ /\-\>/)){
    $Type = $_;
    chomp($Type);
    $Type =~ s/\:\:.*//;
    print "{" . $Type . "," . $c . "}\n"; 
    $c++;
  }
  print $_;
}