Create something graphical with free monads