--- /dev/null
+importJava "org.simantics.scl.runtime.procedure.Ref" where\r
+ data Ref a\r
+ \r
+ @JavaName "<init>"\r
+ ref :: a -> <Proc> (Ref a)\r
+ \r
+ @JavaName "value"\r
+ getRef :: Ref a -> <Proc> a\r
+ \r
+ @JavaName "<set>value"\r
+ (:=) :: Ref a -> a -> <Proc> ()\r
+\r
+main = do\r
+ r = ref (13 :: Integer)\r
+ r := (14 :: Integer)\r
+ getRef r\r
+--\r
+14
\ No newline at end of file