A haskell kata for the Berlin Clock