chomp(my $a = <STDIN>);
my @ai = split / /,$a;
my %count = map {$_ => 0} @ai;
my %role = (
    THREE => 0,
    PAIR => 0,
);
for (@ai){
    $count{$_}++; 
}

for (keys %count){
    $role{THREE}++ if $count{$_} == 3;
    $role{PAIR}++ if $count{$_} == 2;
}

if($role{THREE} == 1 && $role{PAIR} == 1){
    print "FULL HOUSE\n";
}elsif($role{THREE} == 1){
    print "THREE CARD\n";
}elsif($role{PAIR} == 2){
    print "TWO PAIR\n";
}elsif($role{PAIR} == 1){
    print "ONE PAIR\n";
}else{
    print "NO HAND\n";
}