 
 \ split, { string string } "specializer" set-word-prop
 
-\ member-eq? { array } "specializer" set-word-prop
-
-\ member? { array } "specializer" set-word-prop
+{ member? member-eq? } [
+    { array } "specializer" set-word-prop
+] each
 
 \ assoc-stack { vector } "specializer" set-word-prop
 
-\ >le { { fixnum fixnum } { bignum fixnum } } "specializer" set-word-prop
-
-\ >be { { bignum fixnum } { fixnum fixnum } } "specializer" set-word-prop
+{ >le >be } [
+    { { fixnum fixnum } { bignum fixnum } }
+    "specializer" set-word-prop
+] each
 
 \ base> { string fixnum } "specializer" set-word-prop
 

{ { string sbuf } { array vector } { byte-array byte-vector } }
"specializer" set-word-prop

\ append
{ { string string } { array array } }
"specializer" set-word-prop

\ prepend
{ { string string } { array array } }
"specializer" set-word-prop

\ subseq
{ { fixnum fixnum string } { fixnum fixnum array } }

    [ parse-definition { } like "specializer" set-word-prop ] tri ;

! Default specializers
{ pop* pop } [
    { vector } "specializer" set-word-prop
] each

