genList :: (Int,Int) -> Int -> Int -> [Int]
genList mm len seed = if len == 0
        then []
        else (rng mm seed):(genList mm (len - 1) (seed + 1))
genList :: (Int,Int) -> Int -> Int -> [Int]
genList mm len seed = if len == 0
        then []
        else (rng mm seed):(genList mm (len - 1) (seed + 1))
genList mm len seed = if len == 0
        then []
        else (rng mm seed):(genList mm (len - 1) (seed + 1))