apl: ⊥ decode / ⊤ encode (mixed-radix; +11)

- apl-decode: Horner reduce; scalar base broadcasts to digit length
- apl-encode: right-to-left modulo + floor-div
- 24 60 60 ⊥ 2 3 4 → 7384, 24 60 60 ⊤ 7384 → 2 3 4
- pipeline 132/132

lib/apl/transpile.sx

@@ -95,6 +95,8 @@
       ((= g "⍸") apl-interval-index)
       ((= g "∪") apl-union)
       ((= g "∩") apl-intersect)
+      ((= g "⊥") apl-decode)
+      ((= g "⊤") apl-encode)
       (else (error "no dyadic fn for glyph")))))
 
 (define