appendの定義をundefinedにしてもスタックオバ風呂になったから
mapperの方にも問題はありそう
特にrec >>= fてのから危険な臭いがする
とりあえず、foldl'で書くことを試してみてはどうだろうか？