number :: Parser Expr
number = do
  n <- natural
  return (Num (fromIntegral n))
number :: Parser Expr
number = do
  n <- natural
  return (Num (fromIntegral n))
number = do
  n <- natural
  return (Num (fromIntegral n))