A ray traceri haskell