my $ans;

print "(F)irst,(S)econd,(T)hird\n";

chomp($ans=<STDIN>);


while($ans ne 'F' && $ans ne 'S' && $ans ne 'T') {
	print "(F)irst,(S)econd,(T)hird\n";
	chomp($ans=<STDIN>);
}