Fix randomR (lo, hi :: Int) where lo >= hi.