1 #!/usr/local/plan9/bin/rc
2 
3 spellflags=()
4 deroffargs=()
5 fflag=''
6 for(x){
7 	switch($x){
8 	case -[abcvx]
9 		spellflags=($spellflags $x)
10 	case -f
11 		fflag=$x
12 	case *
13 		if(~ $fflag -f)	{
14 			spellflags=($spellflags -f $x)
15 			fflag=''
16 		}
17 		if not		deroffargs=($deroffargs $x)
18 	}
19 }
20 
21 deroff -w $deroffargs | sort -u | sprog $spellflags