diff --git a/Alea/Random.hs b/Alea/Random.hs
index e775abf..100ade2 100644
--- a/Alea/Random.hs
+++ b/Alea/Random.hs
@@ -3,4 +3,4 @@ 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
+randWords n k = newSkeinGen >>= return . take k . randomRs (0, n-1)