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


apl>" <-More disclose, origin 1 ---------------------------------------->


apl>Lio # 1


apl>`X'abcd' (1 2 3 4) 'wxyz'

 a b c d 
 1 2 3 4 
 w x y z 

apl>`X[1](45 75 15) (35 75 15 45 95) (35 0 55 15)

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

apl>`X'abc' (1 2 3 4) (5 6)

 a b c   
 1 2 3 4 
 5 6 0 0 

apl>`X`ZI3

1 2 3

apl>`X(2 3 4) (5 6)

2 3 4
5 6 0

apl>)off