simple raytracer inhaskell