(require bind)
(require literal)

(reactor (line-terminal) 0
  (fexpr (args env)
    (bind-vals ((event-type event-payload) state) args
      (if (equal? event-type (literal init))
        (list state
          (list (literal writeln) (literal ''Hello, world!''))
          (list (literal stop) 0))
        (list state)))))