add source- and test-code for the implementation of the poker-function: poker :: [Hand] -> [Hand]