#!/usr/bin/perl

$prime= 262139;
$pprime = 2*$prime;
$s=0; # print "start\n";
while(<>)
  {
    if($s==0) { m/^(.*?) *(( *(\d+))+)$/ or die; $s=1; $g=$2; @g0=split(/ +/,$g); %hg=(); @hg{@g0}=(); @g = sort {$a <=> $b} (keys %hg) ;
	#	print "@g\n"
	      }

    elsif($s==1) { m/^(.*\]) *(( *(\d+))*)$/ or die ; $s=2; $p=$2; @p0=map {$_ + $prime } split(/ +/,$p); %hg=(); @hg{@p0}=(); @p = sort {$a <=> $b} (keys %hg);
		   # print "@p\n"
		 }

    elsif(m/^$/) {die unless($s==2); $s=0; # print "start\n";
		}

    elsif($s==2) { m/^(.*?) *(( *(\d+))+) *(\d+)$/ or die; $l=$5; $s=2; $c=$2; @c0=map {$_ + $pprime } split(/ +/,$c); %hg=(); @hg{@c0}=(); 
		   @c = sort {$a <=> $b} (keys %hg);
		   @f = map {(1 + $_) . ':1' } (@g,@p,@c);
		   print $l," ", join(" ", (@f)),"\n"}
  }