resampleCheck :: Int -> Bool
resampleCheck n =
  (enumerate . collapse . resampleMultinomial) (spawn n >> sprinkler) ~==
  sprinklerExact
resampleCheck :: Int -> Bool
resampleCheck n =
  (enumerate . collapse . resampleMultinomial) (spawn n >> sprinkler) ~==
  sprinklerExact
resampleCheck n =
  (enumerate . collapse . resampleMultinomial) (spawn n >> sprinkler) ~==
  sprinklerExact