LL未来の課題2

課題1は殆ど慣れていないHaskellでHTML周り弄る奴なので短くなっていないとして、問題2の方は実に単純ですので興味のある方は是非是非。

エロと風俗情報満載 どう抜く？

dokakuのお題として出ているので、実際に参加されない方も文字通りしのぎ(バイト)を削ってください。
Haskellはもうちょっと行けるのか・・・しら?