(use gauche.collection)

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

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