#!/usr/bin/env perl
while (<>) {
  if (m/:tags/){
    m/:tags "([^"]*)" ;/;
    $tags = $1;
    @tgs = split(/ /, $tags);
    for ($j = 0; $j < @tgs; $j++){
      $_ = $tgs[$j];
      if(m/\//)
      {
        @parts = split(/\//);
        $tgs[$j] = @parts[-1];
        
        #print relations on tags
        #for ($i = 0; $i < (@parts - 1); $i++)
        #{
        #  print $tag . " " . $parts[$i] . "\n";
        #}
      }
    }
    @uniq = sort (keys %{{ map { $_ => 1 } @tgs }});
    print "\t:tag ";
    for ($j = 0; $j < @uniq - 1; $j++) {
      $tag = $uniq[$j];
      print "\"" . $tag . "\", ";
    }
    print "\"" . $uniq[-1] . "\" ";
    print ";\n";
  } else {
    print;
  }
}