" <-APL2-------------------- sam181.txt ---------------------------->
4+5 8 3 2
" <- Displaying nested arrays -------------------------------------->
1 (2 3 4) 5
(1 2) (3 4 5) 6 (2 2 3R6+I12)
2 3R'abc' 2 3 4
" <- Each, monadic ------------------------------------------------->
men#45 75 15
women#35 75 15 45 95
children#35 0 55 15
+/`1 men women children
stock # men women children
stock
+/`1 stock
" <- Enlist -------------------------------------------------------->
+/Estock
)off