" <-APL2-------------------- sam197.txt ---------------------------->
men#45 75 15
women#35 75 15 45 95
children#35 0 55 15
stock # men women children
styles#'oxfords' 'loafers' 'sneakers' 'sandals' 'pumps'
groups#'mens' 'womens' 'childrens'
costs#(39 19 29) (35 15 29 18 45)
costs#costs,`Z25 16 21 12.5
costs
1 2`Xcosts
(1 2 `X costs) # 20
costs
prices#costsX1+.6 .7 .8
,[I0]prices
groups,`1 costs +.X`1 stock
net#stockXprices_costs
,[I0]net
+/`1net
+/+/`1net
15 1 R groupstyles#,(groups,`1' ')J.,styles
Enet
S/Enet
net=S/Enet
,`Xnet=S/Enet
(,`Xnet=S/Enet)/groupstyles
)off