generator for domino tilings in haskell