Test.

Added a function for four-of-a-kind and a test... and an
implementation. Seeing as it it consists of (n-of-a-kind 4 hand)
I skipped the separate check-in. My apologies.