在日常生活中，我们需要统计一些人文地理相关的数据，一条一条人工去收集显然非常困难，而且不现实。那么今天，我就试着用Haskell写一个采集统计数据的程序，测试了一下速度不错，稳定性还不确定，至少目前没有什么问题，一起来看看吧。
```haskell
import Network.HTTP
import Network.HTTP.Conduit
import Data.Text (Text)
import Data.Aeson (decode, Value(..))
import Data.List (head)
-- 网页代理信息
proxyHost = "duoip.cn"proxyPort = 8000
-- 网页URL
url = "http://www.stats.gov.cn/tjsj/tjbz/gkpcpd/"
-- 使用HTTP库发送GET请求，获取网页内容
response = httpGet (Proxy $ ProxyTypeHTTP $ ProxyConnect $ Just (proxyHost, proxyPort)) url
-- 将响应内容解码为Text
html = responseBody response
-- 使用BeautifulSoup解析HTML内容
import TextBS
bs :: BeautifulSoup String
bs = parseHTML html
-- 找到所有的标题标签（H1, H2, H3, H4, H5, H6）
headings :: [BeautifulSoup String]
headings = findAllByTag bs ("h1" :: [Tag])
-- 输出第一个标题
print $ head headings
```这个程序只是一个基本的采集示例，实际的网页可能需要更复杂的解析。此外，爬虫需要遵守网站的相关协议，并尊重网站的版权和隐私政策。在使用网络爬虫时，应该始终尊重他人的权利，避免对网站造成不必要的负担。如果你需要爬取特定网站的数据，最好先联系网站的管理员，了解他们的使用政策和限制。