GlobalVariables.scl

   1 import "Prelude"
   2
   3 global :: Ref Integer
   4 global = ref 0
   5
   6 inc :: <Proc> ()
   7 inc = global := getRef global + 1
   8
   9 main = do
  10     inc
  11     inc
  12     getRef global
  13 --
  14 2