makeMachine :: (RandomGen g) => Rand g Machine
makeMachine = do
    e <- getRandoms 
    return $ Machine sr dummyDensity (mkRDDLKernel ["cc"] "c2" "c1") e
makeMachine :: (RandomGen g) => Rand g Machine
makeMachine = do
    e <- getRandoms 
    return $ Machine sr dummyDensity (mkRDDLKernel ["cc"] "c2" "c1") e
makeMachine = do
    e <- getRandoms 
    return $ Machine sr dummyDensity (mkRDDLKernel ["cc"] "c2" "c1") e