little Haskell Mahjong engine