haskell: Random Scheduler implementation.