apl: ∪ unique / ∪ union / ∩ intersection (+12)

- apl-unique: dedup keeping first-occurrence order
- apl-union: dedup'd A then B-elements-not-in-A
- apl-intersect: A elements that are in B, preserves left order
- ∪ wired both monadic and dyadic; ∩ wired dyadic
- pipeline 121/121

lib/apl/transpile.sx

@@ -47,6 +47,7 @@
       ((= g "⎕FMT") apl-quad-fmt)
       ((= g "⎕←") apl-quad-print)
       ((= g "⍸") apl-where)
+      ((= g "∪") apl-unique)
       (else (error "no monadic fn for glyph")))))
 
 (define
@@ -92,6 +93,8 @@
       ((= g "⊢") (fn (a b) b))
       ((= g "⊣") (fn (a b) a))
       ((= g "⍸") apl-interval-index)
+      ((= g "∪") apl-union)
+      ((= g "∩") apl-intersect)
       (else (error "no dyadic fn for glyph")))))
 
 (define