apl>" <-APL2-------------------- sam181.txt ---------------------------->


apl>4+5 8 3 2

9 12 7 6

apl>" <- Displaying nested arrays -------------------------------------->


apl>1 (2 3 4) 5

 1  2 3 4  5 

apl>(1 2) (3 4 5) 6 (2 2 3R6+I12)

 1 2  3 4 5  6     7  8  9 
                  10 11 12 
                           
                  13 14 15 
                  16 17 18 

apl>2 3R'abc' 2 3 4

 abc   2 3 
   4 abc 2 

apl>" <- Each, monadic ------------------------------------------------->


apl>men#45 75 15


apl>women#35 75 15 45 95


apl>children#35 0 55 15


apl>+/`1 men women children

 135 265 105 

apl>stock # men women children


apl>stock

 45 75 15  35 75 15 45 95  35 0 55 15 

apl>+/`1 stock

 135 265 105 

apl>" <- Enlist -------------------------------------------------------->


apl>+/Estock

505

apl>)off