#lang typed/syndicate/roles
(run-ground-dataspace (U)
(spawn (U)
(start-facet x
(field [y Int 0])
(define/dataflow x (add1 (ref y)))
(displayln (add1 (ref x)))
;; print 2
#f))
)