simple console metronome app in Haskell