diff --git a/test/t-014/answer b/test/t-014/answer
new file mode 100644
index 0000000..ed35a03
--- /dev/null
+++ b/test/t-014/answer
@@ -0,0 +1,2 @@
+ASCII
+AS
diff --git a/test/t-014/program b/test/t-014/program
new file mode 100644
index 0000000..f70174e
--- /dev/null
+++ b/test/t-014/program
@@ -0,0 +1,13 @@
+{Pop top n items from stack}
+TTC
+  ATA GTA GAT
+  ATA GTT GAG
+  ATA GTA GAG
+  ATA GTA GCT
+  AAC
+  ATA GAA GCC
+  CTA
+  ATT GTA
+  ATA GAA GCC
+  CTA
+TTG CGG
diff --git a/test/t-015/answer b/test/t-015/answer
new file mode 100644
index 0000000..560af0e
--- /dev/null
+++ b/test/t-015/answer
@@ -0,0 +1,2 @@
+ASCII
+CII
diff --git a/test/t-015/program b/test/t-015/program
new file mode 100644
index 0000000..9a9cfa4
--- /dev/null
+++ b/test/t-015/program
@@ -0,0 +1,12 @@
+{Pop bottom n items from stack}
+TTC
+  ATA GTA GAT
+  ATA GTT GAG
+  ATA GTA GAG
+  ATA GTA GCT
+  AAC
+  ATA GAA GCC
+  CTA
+  ATG GAC
+  CTA
+TTG CGG
diff --git a/test/t-016/answer b/test/t-016/answer
new file mode 100644
index 0000000..3c752e1
--- /dev/null
+++ b/test/t-016/answer
@@ -0,0 +1,3 @@
+ASCII
+ASCII
+S
diff --git a/test/t-016/program b/test/t-016/program
new file mode 100644
index 0000000..f9a2d17
--- /dev/null
+++ b/test/t-016/program
@@ -0,0 +1,13 @@
+{Copy top nth item on the stack}
+TTC
+  ATA GTA GAT
+  ATA GTT GAG
+  ATA GTA GAG
+  ATA GTA GCT
+  AAC
+  ATA GAA GCC
+  CTA
+  ACT GTT
+  ATA GAA GCC
+  CTA
+TTG CGG
diff --git a/test/t-017/answer b/test/t-017/answer
new file mode 100644
index 0000000..3c752e1
--- /dev/null
+++ b/test/t-017/answer
@@ -0,0 +1,3 @@
+ASCII
+ASCII
+S
diff --git a/test/t-017/program b/test/t-017/program
new file mode 100644
index 0000000..45a5dbe
--- /dev/null
+++ b/test/t-017/program
@@ -0,0 +1,13 @@
+{Copy bottom nth item on the stack}
+TTC
+  ATA GTA GAT
+  ATA GTT GAG
+  ATA GTA GAG
+  ATA GTA GCT
+  AAC
+  ATA GAA GCC
+  CTA
+  ACG GAC
+  ATA GAA GCC
+  CTA
+TTG CGG
diff --git a/test/t-018/answer b/test/t-018/answer
new file mode 100644
index 0000000..ed35a03
--- /dev/null
+++ b/test/t-018/answer
@@ -0,0 +1,2 @@
+ASCII
+AS
diff --git a/test/t-018/program b/test/t-018/program
new file mode 100644
index 0000000..4bf5387
--- /dev/null
+++ b/test/t-018/program
@@ -0,0 +1,12 @@
+{Slide n items keeping top item}
+TTC
+  ATA GTA GAT
+  ATA GTT GAG
+  ATA GTA GAG
+  ATA GTA GCT
+  AAC
+  ATA GAA GCC
+  CTA
+  ACC GAG
+  CTA
+TTG CGG