tentative effort at a pure haskell layer debounce
need an int of time