diff --git a/package.json b/package.json
index e464ecb..7187321 100644
--- a/package.json
+++ b/package.json
@@ -22,9 +22,7 @@
   },
   "devDependencies": {
     "sanctuary-maybe": "2.1.x",
-    "sanctuary-scripts": "7.0.x",
-    "sanctuary-show": "3.0.x",
-    "sanctuary-type-classes": "13.0.x"
+    "sanctuary-scripts": "7.0.x"
   },
   "scripts": {
     "doctest": "sanctuary-doctest",
diff --git a/test/index.js b/test/index.js
index f87a7b0..527274b 100644
--- a/test/index.js
+++ b/test/index.js
@@ -1,21 +1,13 @@
-import assert from 'assert';
+import {deepStrictEqual as eq} from 'assert';
 
 import test from 'oletus';
 import Maybe from 'sanctuary-maybe';
-import show from 'sanctuary-show';
-import Z from 'sanctuary-type-classes';
 
 import {Flag, Option, Left, Right, Pair, parseArgs} from 'sanctuary-argv';
 
 
 const {Nothing, Just} = Maybe;
 
-//    eq :: a -> a -> Undefined !
-const eq = actual => expected => {
-  assert.strictEqual (show (actual), show (expected));
-  assert.strictEqual (Z.equals (actual, expected), true);
-};
-
 //    type Options = { color :: Boolean
 //                   , email :: Maybe String
 //                   , words :: Array String }
@@ -34,7 +26,7 @@ const color = Flag (options => ({...options, color: true}));
 const email = Option (email =>
   email.includes ('@')
   ? Right (options => ({...options, email: Just (email)}))
-  : Left (`${show (email)} is not a valid email address`)
+  : Left (`${JSON.stringify (email)} is not a valid email address`)
 );
 
 //    words :: Handler Options
@@ -53,217 +45,217 @@ const updaters = {
 const parse = args => parseArgs (updaters) (Pair (defaultOptions) (args));
 
 test ('[success] no arguments', () => {
-  eq (parse ([]))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse ([]),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   ([])));
 });
 
 test ('[success] long options', () => {
-  eq (parse (['--color']))
-     (Right (Pair ({color: true, email: Nothing, words: []})
+  eq (parse (['--color']),
+      Right (Pair ({color: true, email: Nothing, words: []})
                   ([])));
 
-  eq (parse (['--colour']))
-     (Right (Pair ({color: true, email: Nothing, words: []})
+  eq (parse (['--colour']),
+      Right (Pair ({color: true, email: Nothing, words: []})
                   ([])));
 
-  eq (parse (['--email', 'mail@example.org']))
-     (Right (Pair ({color: false, email: Just ('mail@example.org'), words: []})
+  eq (parse (['--email', 'mail@example.org']),
+      Right (Pair ({color: false, email: Just ('mail@example.org'), words: []})
                   ([])));
 
-  eq (parse (['--email', 'xxx@example.org', '--email', 'mail@example.org']))
-     (Right (Pair ({color: false, email: Just ('mail@example.org'), words: []})
+  eq (parse (['--email', 'xxx@example.org', '--email', 'mail@example.org']),
+      Right (Pair ({color: false, email: Just ('mail@example.org'), words: []})
                   ([])));
 
-  eq (parse (['--word', 'foo']))
-     (Right (Pair ({color: false, email: Nothing, words: ['foo']})
+  eq (parse (['--word', 'foo']),
+      Right (Pair ({color: false, email: Nothing, words: ['foo']})
                   ([])));
 
-  eq (parse (['--word', 'foo', '--word', 'bar']))
-     (Right (Pair ({color: false, email: Nothing, words: ['foo', 'bar']})
+  eq (parse (['--word', 'foo', '--word', 'bar']),
+      Right (Pair ({color: false, email: Nothing, words: ['foo', 'bar']})
                   ([])));
 
-  eq (parse (['--word', 'foo', '--word', 'bar', '--word', 'baz']))
-     (Right (Pair ({color: false, email: Nothing, words: ['foo', 'bar', 'baz']})
+  eq (parse (['--word', 'foo', '--word', 'bar', '--word', 'baz']),
+      Right (Pair ({color: false, email: Nothing, words: ['foo', 'bar', 'baz']})
                   ([])));
 
-  eq (parse (['--word', 'foo', '--color', '--word', 'bar', '--email', 'mail@example.org', '--word', 'baz']))
-     (Right (Pair ({color: true, email: Just ('mail@example.org'), words: ['foo', 'bar', 'baz']})
+  eq (parse (['--word', 'foo', '--color', '--word', 'bar', '--email', 'mail@example.org', '--word', 'baz']),
+      Right (Pair ({color: true, email: Just ('mail@example.org'), words: ['foo', 'bar', 'baz']})
                   ([])));
 
-  eq (parse (['--word', '--']))
-     (Right (Pair ({color: false, email: Nothing, words: ['--']})
+  eq (parse (['--word', '--']),
+      Right (Pair ({color: false, email: Nothing, words: ['--']})
                   ([])));
 
-  eq (parse (['--word', '--color']))
-     (Right (Pair ({color: false, email: Nothing, words: ['--color']})
+  eq (parse (['--word', '--color']),
+      Right (Pair ({color: false, email: Nothing, words: ['--color']})
                   ([])));
 });
 
 test ('[success] short options (separate)', () => {
-  eq (parse (['-c', '-e', 'mail@example.org', '-w', 'foo', '-w', 'bar', '-w', 'baz']))
-     (Right (Pair ({color: true, email: Just ('mail@example.org'), words: ['foo', 'bar', 'baz']})
+  eq (parse (['-c', '-e', 'mail@example.org', '-w', 'foo', '-w', 'bar', '-w', 'baz']),
+      Right (Pair ({color: true, email: Just ('mail@example.org'), words: ['foo', 'bar', 'baz']})
                   ([])));
 
-  eq (parse (['-e', 'xxx@example.org', '--email', 'mail@example.org']))
-     (Right (Pair ({color: false, email: Just ('mail@example.org'), words: []})
+  eq (parse (['-e', 'xxx@example.org', '--email', 'mail@example.org']),
+      Right (Pair ({color: false, email: Just ('mail@example.org'), words: []})
                   ([])));
 
-  eq (parse (['--email', 'xxx@example.org', '-e', 'mail@example.org']))
-     (Right (Pair ({color: false, email: Just ('mail@example.org'), words: []})
+  eq (parse (['--email', 'xxx@example.org', '-e', 'mail@example.org']),
+      Right (Pair ({color: false, email: Just ('mail@example.org'), words: []})
                   ([])));
 
-  eq (parse (['-w', 'short', '--word', 'long', '-w', 'short', '--word', 'long']))
-     (Right (Pair ({color: false, email: Nothing, words: ['short', 'long', 'short', 'long']})
+  eq (parse (['-w', 'short', '--word', 'long', '-w', 'short', '--word', 'long']),
+      Right (Pair ({color: false, email: Nothing, words: ['short', 'long', 'short', 'long']})
                   ([])));
 
-  eq (parse (['-w', '--']))
-     (Right (Pair ({color: false, email: Nothing, words: ['--']})
+  eq (parse (['-w', '--']),
+      Right (Pair ({color: false, email: Nothing, words: ['--']})
                   ([])));
 
-  eq (parse (['-w', '-c']))
-     (Right (Pair ({color: false, email: Nothing, words: ['-c']})
+  eq (parse (['-w', '-c']),
+      Right (Pair ({color: false, email: Nothing, words: ['-c']})
                   ([])));
 });
 
 test ('[success] short options (grouped)', () => {
-  eq (parse (['-ce', 'mail@example.org']))
-     (Right (Pair ({color: true, email: Just ('mail@example.org'), words: []})
+  eq (parse (['-ce', 'mail@example.org']),
+      Right (Pair ({color: true, email: Just ('mail@example.org'), words: []})
                   ([])));
 });
 
 test ('[success] positional arguments', () => {
-  eq (parse (['foo']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['foo']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['foo'])));
 
-  eq (parse (['foo', 'bar']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['foo', 'bar']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['foo', 'bar'])));
 
-  eq (parse (['foo', 'bar', 'baz']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['foo', 'bar', 'baz']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['foo', 'bar', 'baz'])));
 
-  eq (parse (['foo', 'bar', 'baz', '-']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['foo', 'bar', 'baz', '-']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['foo', 'bar', 'baz', '-'])));
 
-  eq (parse (['foo', 'bar', 'baz', '--']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['foo', 'bar', 'baz', '--']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['foo', 'bar', 'baz', '--'])));
 
-  eq (parse (['--']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['--']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   ([])));
 
-  eq (parse (['--', 'foo']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['--', 'foo']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['foo'])));
 
-  eq (parse (['--', 'foo', 'bar']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['--', 'foo', 'bar']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['foo', 'bar'])));
 
-  eq (parse (['--', 'foo', 'bar', 'baz']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['--', 'foo', 'bar', 'baz']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['foo', 'bar', 'baz'])));
 
-  eq (parse (['--', '-', '--', '---']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['--', '-', '--', '---']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['-', '--', '---'])));
 
-  eq (parse (['--', '--color', '--email', 'mail@example.org', '--word', 'foo']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['--', '--color', '--email', 'mail@example.org', '--word', 'foo']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['--color', '--email', 'mail@example.org', '--word', 'foo'])));
 
-  eq (parse (['--', '--foo', '--bar', '--baz']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['--', '--foo', '--bar', '--baz']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['--foo', '--bar', '--baz'])));
 
-  eq (parse (['--', '-x', '-y', '-z']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['--', '-x', '-y', '-z']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['-x', '-y', '-z'])));
 
-  eq (parse (['--', '-']))
-     (Right (Pair ({color: false, email: Nothing, words: []})
+  eq (parse (['--', '-']),
+      Right (Pair ({color: false, email: Nothing, words: []})
                   (['-'])));
 });
 
 test ('[failure] unrecognized long options', () => {
-  eq (parse (['--foo']))
-     (Left ('--foo is unrecognized'));
+  eq (parse (['--foo']),
+      Left ('--foo is unrecognized'));
 
-  eq (parse (['--foo', '--bar']))
-     (Left ('--foo is unrecognized'));
+  eq (parse (['--foo', '--bar']),
+      Left ('--foo is unrecognized'));
 
-  eq (parse (['--color', '--foo']))
-     (Left ('--foo is unrecognized'));
+  eq (parse (['--color', '--foo']),
+      Left ('--foo is unrecognized'));
 
-  eq (parse (['--bar', '--color']))
-     (Left ('--bar is unrecognized'));
+  eq (parse (['--bar', '--color']),
+      Left ('--bar is unrecognized'));
 });
 
 test ('[failure] lonely dash', () => {
-  eq (parse (['-']))
-     (Left ('- is not a valid flag or option name'));
+  eq (parse (['-']),
+      Left ('- is not a valid flag or option name'));
 });
 
 test ('[failure] unrecognized short options (separate)', () => {
-  eq (parse (['-d', '-c']))
-     (Left ('-d is unrecognized'));
+  eq (parse (['-d', '-c']),
+      Left ('-d is unrecognized'));
 
-  eq (parse (['-c', '-d']))
-     (Left ('-d is unrecognized'));
+  eq (parse (['-c', '-d']),
+      Left ('-d is unrecognized'));
 
-  eq (parse (['-X']))
-     (Left ('-X is unrecognized'));
+  eq (parse (['-X']),
+      Left ('-X is unrecognized'));
 
-  eq (parse (['-0']))
-     (Left ('-0 is unrecognized'));
+  eq (parse (['-0']),
+      Left ('-0 is unrecognized'));
 });
 
 test ('[failure] unrecognized short options (grouped)', () => {
-  eq (parse (['-dc']))
-     (Left ('-d is unrecognized'));
+  eq (parse (['-dc']),
+      Left ('-d is unrecognized'));
 
-  eq (parse (['-cd']))
-     (Left ('-d is unrecognized'));
+  eq (parse (['-cd']),
+      Left ('-d is unrecognized'));
 });
 
 test ('[failure] unspecified long options', () => {
-  eq (parse (['--email']))
-     (Left ('--email requires a value'));
+  eq (parse (['--email']),
+      Left ('--email requires a value'));
 
-  eq (parse (['--word']))
-     (Left ('--word requires a value'));
+  eq (parse (['--word']),
+      Left ('--word requires a value'));
 });
 
 test ('[failure] unspecified short options (separate)', () => {
-  eq (parse (['-c', '-e']))
-     (Left ('-e requires a value'));
+  eq (parse (['-c', '-e']),
+      Left ('-e requires a value'));
 });
 
 test ('[failure] unspecified short options (grouped)', () => {
-  eq (parse (['-ce']))
-     (Left ('-e requires a value'));
+  eq (parse (['-ce']),
+      Left ('-e requires a value'));
 
-  eq (parse (['-ec']))
-     (Left ('-e requires a value'));
+  eq (parse (['-ec']),
+      Left ('-e requires a value'));
 });
 
 test ('[failure] invalid long option values', () => {
-  eq (parse (['--email', '--color']))
-     (Left ('"--color" is not a valid email address'));
+  eq (parse (['--email', '--color']),
+      Left ('"--color" is not a valid email address'));
 
-  eq (parse (['--email', '--color', '--xxx']))
-     (Left ('"--color" is not a valid email address'));
+  eq (parse (['--email', '--color', '--xxx']),
+      Left ('"--color" is not a valid email address'));
 });
 
 test ('[failure] invalid short option values', () => {
-  eq (parse (['-e', '-c']))
-     (Left ('"-c" is not a valid email address'));
+  eq (parse (['-e', '-c']),
+      Left ('"-c" is not a valid email address'));
 
-  eq (parse (['-e', '-c', '-x']))
-     (Left ('"-c" is not a valid email address'));
+  eq (parse (['-e', '-c', '-x']),
+      Left ('"-c" is not a valid email address'));
 });