raytracing using haskell