playing with a simple ray tracer in Haskell