#!/usr/bin/perl -w

use strict;

my $score;
my @v;
my $long;
my $n=0;
my $query;
my $contador=0;
my $nom;
while (<STDIN>){
    chomp($_);
    
    
    @v = split(//, $_);
    $long = scalar(@v);
    if(/\w/){

	if (($v[0] eq "Q") && ($v[5] eq "=")) {
	    $nom=$_;
	}
	if (($v[1] eq "S") && ($v[5] eq "e")) {
	    $score=$_;
	}
	if($n>0){$n=$n+1;}
	if (($v[0] eq "Q") && ($v[5] eq ":")) {
	    $contador=0;
	    while ($long>=0){
		if ($v[$long-1] eq "U"){
		    
		    $n = 1; #contador de línea
		    $contador=$long-1;
		    $long = -1;
		    $query=$_;

		}
		else {
		    $long=$long-1; 
		}
	    }
	}
	
	
	if($n==3){
	    $n=0;
	   
            #has llegado a la segunda línea consecutiva 
	    if ($v[$contador] eq "C" || $v[$contador] eq "*"){
		print "$nom\n $score\n$query\n$_\n";
		
		
	    }
	}
	$long=0;
	
    }
}
