Small Haskell gloss aplication to try out floor tile designs