" <-APL2-------------------- sam183.txt ---------------------------->
men#45 75 15
women#35 75 15 45 95
children#35 0 55 15
stock # men women children
" <- Each and a scalar argument ------------------------------------>
R`1 1
" <- Reduce of nested variables ------------------------------------>
S/(1 2) (3 4) (5 6)
" <- Disclose------------------------------------------------------->
`X[1]stock
styles#'oxfords' 'loafers' 'sneakers'
L#styles#styles,'sandals' 'pumps'
groups#'mens' 'womens' 'childrens'
(' ',groups),[1]styles,`X[1]stock
)off