A small haskell program to generate schedules.