(use gauche.collection)

(define (f xs)
  (cond
    ((equal? xs '(3 2))     "FULL HOUSE")
    ((equal? xs '(3 1 1))   "THREE CARD")
    ((equal? xs '(2 2 1))   "TWO PAIR")
    ((equal? xs '(2 1 1 1)) "ONE PAIR")
    (else                   "NO HAND")))

(define yuki227
  (print (f (map length (group-collection (sort (list (read) (read) (read) (read) (read))))))))