testliste :: Int -> Int -> Integer -> IO [[Integer]]
testliste len ari hei = sequence $ replicate len $ do
    xs <- sequence $ replicate ari $ randomRIO (0, hei)
    return xs
testliste :: Int -> Int -> Integer -> IO [[Integer]]
testliste len ari hei = sequence $ replicate len $ do
    xs <- sequence $ replicate ari $ randomRIO (0, hei)
    return xs
testliste len ari hei = sequence $ replicate len $ do
    xs <- sequence $ replicate ari $ randomRIO (0, hei)
    return xs