import System.Random
import Data.List
diffSelect :: Int -> Int -> IO [Int]
diffSelect c to = do
    gen <- getStdGen
    return $ take c . nub $ randomRs (1,to) gen