Test.

Added some more tests to the compare function. It fails (unexpectedly)
on (compare '(Black 2H 3D 5S 9C KD) '(White 2C 3H 4S 8C KH)) which
should have returned Black.