Calendar made in the Snap framework (Haskell)