diff --git a/extra/singleton/authors.txt b/extra/singleton/authors.txt
new file mode 100644
index 0000000000..7c1b2f2279
--- /dev/null
+++ b/extra/singleton/authors.txt
@@ -0,0 +1 @@
+Doug Coleman
diff --git a/extra/singleton/singleton-docs.factor b/extra/singleton/singleton-docs.factor
new file mode 100644
index 0000000000..b87c557366
--- /dev/null
+++ b/extra/singleton/singleton-docs.factor
@@ -0,0 +1,14 @@
+USING: help.markup help.syntax ;
+IN: singleton
+
+HELP: SINGLETON:
+{ $syntax "SINGLETON: class"
+} { $values
+    { "class" "a new tuple class to define" }
+} { $description
+    "Defines a new tuple class with membership predicate name? and a default empty constructor that is the class name itself."
+} { $examples
+    { $example "SINGLETON: foo\nfoo ." "T{ foo f }" }
+} { $see-also
+    POSTPONE: TUPLE:
+} ;
diff --git a/extra/singleton/singleton.factor b/extra/singleton/singleton.factor
new file mode 100644
index 0000000000..3a9af90071
--- /dev/null
+++ b/extra/singleton/singleton.factor
@@ -0,0 +1,9 @@
+! Copyright (C) 2007 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel parser quotations tuples words ;
+IN: singleton
+
+: SINGLETON:
+    CREATE-CLASS
+    dup { } define-tuple-class
+    dup construct-empty 1quotation define ; parsing