#[macro_export]
macro_rules! setup {
    { mut $input:ident: SplitWhitespace $(,)? } => {
        use std::io::Read;
        let mut buf = String::new();
        std::io::stdin().read_to_string(&mut buf).unwrap();
        let mut $input = buf.split_whitespace();
    };
}

#[macro_export]
macro_rules! parse_next {
    ($str_iter:expr) => {
        $str_iter.next().unwrap().parse().unwrap()
    };
}

fn main() {
    setup! { mut input: SplitWhitespace };

    let mut a: Vec<usize> = (0..5).map(|_| parse_next!(input)).collect();

    a.sort();

    let mut cards = vec![0; 13];
    a.iter().for_each(|&i| cards[i - 1] += 1);
    cards = cards.into_iter().filter(|&count| count != 0).collect();

    cards.sort();

    let ans = match cards.len() {
        1 => "NO HAND",
        2 => match (cards[0], cards[1]) {
            (1, 4) => "NO HAND",
            (2, 3) => "FULL HOUSE",
            _ => unreachable!(),
        },
        3 => match (cards[0], cards[1], cards[2]) {
            (1, 1, 3) => "THREE CARD",
            (1, 2, 2) => "TWO PAIR",
            _ => unreachable!(),
        },
        4 => match (cards[0], cards[1], cards[2], cards[3]) {
            (1, 1, 1, 2) => "ONE PAIR",
            _ => unreachable!(),
        },
        5 => "NO HAND",
        _ => unreachable!(),
    };

    println!("{}", ans);
}