(require bind-vals)

(reactor (line-terminal) 0
  (fexpr (args env)
    (bind-vals ((event-type event-payload) state) args
      (if (equal? event-type (literal readln))
        (list state
          (list (literal writeln) event-payload))
        (list state)))))