testing some platforming-logic with haskell + sdl