program :: Parser Program
program = do
  spaceConsumer
  expr <- expression
  eof
  return $ Prog expr
program :: Parser Program
program = do
  spaceConsumer
  expr <- expression
  eof
  return $ Prog expr
program = do
  spaceConsumer
  expr <- expression
  eof
  return $ Prog expr