module Alea.Random where

import Crypto.Threefish.Random

randWords :: Int -> Int -> IO [Int]
randWords n k = newSkeinGen >>= \x -> return . take k $ randomRs (0, n) x