Berlin Uhr Kata implemented in Haskell