diff --git a/reference/Tuple/Tuple.cpp b/reference/Tuple/Tuple.cpp
new file mode 100644
index 000000000..9a2f89999
--- /dev/null
+++ b/reference/Tuple/Tuple.cpp
@@ -0,0 +1,32 @@
+#include <Core/Core.h>
+
+using namespace Upp;
+
+CONSOLE_APP_MAIN
+{
+	StdLogSetup(LOG_COUT|LOG_FILE);
+
+	Tuple2<int, String> x = Tuple(12, (const char *)"hello");
+	
+	DUMP(x.a);
+	DUMP(x.b);
+	DUMP(x);
+	
+	Tuple2<int, String> y = Tuple<int, String>(13, "hello");
+	
+	DUMP(x == y);
+	y.a = 13;
+	DUMP(x == y);
+	
+	int i; String s;
+	Tie(i, s) = x;
+	DUMP(i);
+	DUMP(s);
+	
+	Index< Tuple2<int, String> > ndx;
+	ndx.Add(x);
+	ndx.Add(y);
+	
+	DDUMP(ndx.Find(x));
+	DDUMP(ndx.Find(y));
+}
diff --git a/reference/Tuple/Tuple.upp b/reference/Tuple/Tuple.upp
new file mode 100644
index 000000000..f59af48fe
--- /dev/null
+++ b/reference/Tuple/Tuple.upp
@@ -0,0 +1,11 @@
+description "Demonstrates Tuple and Tie\377";
+
+uses
+	Core;
+
+file
+	Tuple.cpp;
+
+mainconfig
+	"" = "SSE2";
+
diff --git a/reference/Tuple/init b/reference/Tuple/init
new file mode 100644
index 000000000..906e2783e
--- /dev/null
+++ b/reference/Tuple/init
@@ -0,0 +1,4 @@
+#ifndef _Tuple_icpp_init_stub
+#define _Tuple_icpp_init_stub
+#include "Core/init"
+#endif