-- | function to produce seemingly random ints
-- useage: rng(min int, max int) seed => pseudo-random int
rng :: (Int,Int) -> Int -> Int
rng (min,max) seed = ((seed ^ 20) `mod` 2339 `mod` max) + min
rng :: (Int,Int) -> Int -> Int
rng (min,max) seed = ((seed ^ 20) `mod` 2339 `mod` max) + min
rng (min,max) seed = ((seed ^ 20) `mod` 2339 `mod` max) + min