let () =
    let h = Array.make 13 0 in
    for i = 1 to 5 do
        Scanf.scanf " %d" (fun a -> h.(a - 1) <- h.(a - 1) + 1)
    done;
    Array.sort (fun a b -> compare b a) h;
    print_endline @@ match h.(0), h.(1) with
    | 3, 2 -> "FULL HOUSE"
    | 3, _ -> "THREE CARD"
    | 2, 2 -> "TWO PAIR"
    | 2, 1 -> "ONE PAIR"
    | _    -> "NO HAND"