Or use gloss and make "something" arguably more easily than in PureScript?

https://hackage.haskell.org/package/gloss