randomExpr :: IO Expr
randomExpr = exIO
	where exIO =
		do
			g <- newStdGen
			let (rN, _) = random g :: (Int,StdGen)
			let ex = unGen arbitrary (mkStdGen rN) 1 :: Expr
			return ex