diff --git a/libs/test-atomic-nosync.scm b/libs/test-atomic-nosync.scm
new file mode 100644
index 00000000..2fdaf213
--- /dev/null
+++ b/libs/test-atomic-nosync.scm
@@ -0,0 +1,43 @@
+;;;; A simple example of using a condition variable to simulate thread-join
+(import (scheme base)
+        (scheme read)
+        (scheme write)
+        (srfi 18))
+
+;(define cv (make-condition-variable))
+;(define m (make-mutex))
+
+(define *sum* 0)
+
+(define (sum-loop n)
+  (set! *sum* (+ *sum* 1))
+  (if (zero? n)
+      'done
+      (sum-loop (- n 1))))
+
+(define (sum-entry-pt)
+  (sum-loop (* 10 100 100)))
+
+;; Thread - Do something, then let main thread know when we are done
+(define t1 (make-thread sum-entry-pt))
+(define t2 (make-thread sum-entry-pt))
+(define t3 (make-thread sum-entry-pt))
+(define t4 (make-thread sum-entry-pt))
+(define t5 (make-thread sum-entry-pt))
+(define t6 (make-thread sum-entry-pt))
+(thread-start! t1)
+(thread-start! t2)
+(thread-start! t3)
+(thread-start! t4)
+(thread-start! t5)
+(thread-start! t6)
+
+(thread-join! t1)
+(thread-join! t2)
+(thread-join! t3)
+(thread-join! t4)
+(thread-join! t5)
+(thread-join! t6)
+(display "main thread done, sum = ")
+(display *sum*)
+(newline)
diff --git a/libs/test-atomic.scm b/libs/test-atomic.scm
new file mode 100644
index 00000000..8983c106
--- /dev/null
+++ b/libs/test-atomic.scm
@@ -0,0 +1,45 @@
+;;;; A simple example of using a condition variable to simulate thread-join
+(import (scheme base)
+        (scheme read)
+        (scheme write)
+        (cyclone concurrency)
+        (srfi 18))
+
+;(define cv (make-condition-variable))
+;(define m (make-mutex))
+
+(define *sum* (make-atom 0))
+
+(define (sum-loop n)
+  ;;(set! *sum* (+ *sum* 1))
+  (swap! *sum* + 1)
+  (if (zero? n)
+      'done
+      (sum-loop (- n 1))))
+
+(define (sum-entry-pt)
+  (sum-loop (* 10 100 100)))
+
+;; Thread - Do something, then let main thread know when we are done
+(define t1 (make-thread sum-entry-pt))
+(define t2 (make-thread sum-entry-pt))
+(define t3 (make-thread sum-entry-pt))
+(define t4 (make-thread sum-entry-pt))
+(define t5 (make-thread sum-entry-pt))
+(define t6 (make-thread sum-entry-pt))
+(thread-start! t1)
+(thread-start! t2)
+(thread-start! t3)
+(thread-start! t4)
+(thread-start! t5)
+(thread-start! t6)
+
+(thread-join! t1)
+(thread-join! t2)
+(thread-join! t3)
+(thread-join! t4)
+(thread-join! t5)
+(thread-join! t6)
+(display "main thread done, sum = ")
+(display (ref *sum*))
+(newline)