Create something graphical with Free monads