$ "ABCD CABD ACDB DACB BCDA ACBD
     ADCB CDAB DABC BCAD CADB CDBA
     CBAD ABDC ADBC BDCA DCBA BACD
     BADC BDAC CBDA DBCA DCAB" nest$
  16 base put
  [] swap
  witheach [ $->n drop join ]
  0 swap witheach ^
  number$ echo$
  base release