とりあえずLha展開関数動いたよ。
http://www3.atwiki.jp/nanakoso/pages/4.html

だれかモナドを２つ以上同時に使う方法教えて下さい。