RandomSupply.hs