KumaChan/support/examples/rx/debounce.km

do os::Stdin
    . { read-lines }
    . { debounce 2000 }
    . { concat-map &(line) => { os::println { "GOT ?" line } } }
    . { crash-on-error }
    . { forever };