replaced straight? implementation with a reference to find-straight
added straight-flush? implementation