[Haskell] Discrete event simulation