A Haskell ray tracer