Haskell Graphics Lib problem