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