Test.QuickCheck.Shrink
doShrink