#lang prospect-monolithic
;; The actor should receive a single event adding the (at-meta x) assertion.

(require prospect/pretty)

(spawn-network
 (spawn (lambda (e counter)
          (and e
               (let ((new-counter (+ counter 1)))
                 (printf "Received event ~a:\n~a\n" new-counter (prospect-pretty-print->string e))
                 (transition (+ counter 1) '()))))
        0
        (list (scn/union (assertion (at-meta 'x))
                         (subscription 'x #:meta-level 1)))))