chrono rogue in haskell