;; Load Terracotta module
(load "jstc.scm")

;; Define shared root object
(define ob (create-root "list" (ArrayList.)))

;; Write a value to the object
(sync-write (lambda () (.add ob 1)) ob)

;; Get the value
(.get ob 0)

;; Get the value in synchronized context
(define res (sync-read (lambda () (.get ob 0)) ob))
(display res)