Crawling appliction in haskell