#!/usr/bin/perl
while(<>) {
	if (/([a-zA-Zéè()]+)\s+/) {
		print "$1 : " . `./genre \"$1\"` . "\n";
#		print "$1\n";
	}	
	elsif(/"(.*)"\s+/) {
		print "$1\n";
	}
	elsif(/^\s/) {}
	else {
		print "SKIPPED: $_\n";
	}
}
