apl>" <------------------------- sam070.txt ---------------------------->


apl>" <--- The Shape function ------------------------------------------>


apl>R1

.

apl>RR1

0

apl>RRR1

1

apl>R,1 2 3

3

apl>RR,1 2 3

1

apl>RRR,1 2 3

1

apl>R a # 3 4 R I 12

3 4

apl>RRa

2

apl>RRRa

1

apl>R b # 2 3 4 R I 24

2 3 4

apl>RRb

3

apl>RRRb

1

apl>)off