diff --git a/bin/spell b/bin/spell
new file mode 100755
index 0000000..3a6b4a3
--- /dev/null
+++ b/bin/spell
@@ -0,0 +1,21 @@
+#!/usr/local/plan9/bin/rc
+
+spellflags=()
+deroffargs=()
+fflag=''
+for(x){
+	switch($x){
+	case -[abcvx]
+		spellflags=($spellflags $x)
+	case -f
+		fflag=$x
+	case *
+		if(~ $fflag -f)	{
+			spellflags=($spellflags -f $x)
+			fflag=''
+		}
+		if not		deroffargs=($deroffargs $x)
+	}
+}
+
+deroff -w $deroffargs | sort -u | sprog $spellflags