num :: Parser Expr
num = do
    x <- integer
    return $ Num (fromInteger x)
num :: Parser Expr
num = do
    x <- integer
    return $ Num (fromInteger x)
num = do
    x <- integer
    return $ Num (fromInteger x)