#!/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); @g = sort {$a <=> $b} @g0 ;
	#	print "@g\n"
	      }

    elsif($s==1) { m/^(.*\]) *(( *(\d+))*)$/ or die ; $s=2; $p=$2; @p0=map {$_ + $prime } split(/ +/,$p); @p = sort {$a <=> $b} @p0;
		   # 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);
		   @c = sort {$a <=> $b} @c0;
		   @f = map {$_ . ':1' } (@g,@p,@c);
		   print $l," ", join(" ", (@f)),"\n"}
  }