# ref.tlp @module ref
ref value = Instance (spawn [! loop value ])
loop value = receive [
.set new-value => loop new-value p, .get => (send p value; loop value)
]
@module Instance pid [
set val = .set val > send pid get! = .get > send-wait pid
]