randoms :: Int -> Int -> [Int]
randoms seed max = (mod seed max) : (randoms (mod (17 + 23 * seed) 311) max)