1 files changed, 5 insertions, 0 deletions
diff --git a/GenSym.sml b/GenSym.sml
new file mode 100644
index 0000000..eef7333
--- /dev/null
+++ b/GenSym.sml
@@ -0,0 +1,5 @@
+structure GenSym =
+struct
+  val counter : int ref = ref 0
+  fun new () : int = (counter := (!counter + 1) ; !counter)
+end