[Haskell-cafe] Creating polygons in qtHaskell