Graphics thinkering (in Haskell)