Updated Randoms.hs