### Revision 86

This is my regression reference for older stuff in revision and new stuff in experimentation aligned to upload version number. As I work on new features and correct problems with old ones, I collect my test cases here. They become part of my regression testing as well as notes of documentation I must complete.

Code Result
'A'10 %% 3 %**\$; Seq[R1C3:K]
[1]String[R2C1:C]A
[2]Num[R1C1:I]10
[3]String[R2C1:C]A
'A'10> %% 3 %**\$; Seq[R1C3:K]
[1]Seq[R3C2:K]
*[1]String[R1C1:C]A
*[2]Num[R1C1:I]10
[2]Seq[R3C2:K]
*[1]String[R1C1:C]A
*[2]Num[R1C1:I]10
[3]Seq[R3C2:K]
*[1]String[R1C1:C]A
*[2]Num[R1C1:I]10
'a'#pgm{
'a-Start'\$;
'b'#pgm{
'b-Start'\$;
:?(x* =_1){'b-Return' :->}
'b-End'
};
b\$;
'a-End'\$;
};
'1st Call (w/o Arg):'\$;     a;
'2nd Call (w Arg):'\$;  1[.x]a;
'3rd Call (w/o Arg):'\$;     a
1st Call (w/o Arg):
a-Start
b-Start
b-Return
a-End
2nd Call (w Arg):
a-Start
b-Start
b-End
a-End
3rd Call (w/o Arg):
a-Start
b-Start
b-End
a-End
\$\$ == run vvv ============================
'run'#pgm{
\$\$ -- Initialization ---------------------
#ix{
'HW'#pgm{'Hello World'};
'GB'#pgm{'Good Bye'};
'NC'#pgm{'No Comprende'};
'Initialized' :->;};

\$\$ -- program body -----------------------
@ ~(@ ~ (.HW.GB.NC)) => @; \$\$ clean up namespace
#args;                     \$\$ fresh arguments
:?(x='hello'){HW}::?(x='bye'){GB}::{NC}}; \$\$ work
\$\$ == run ^^^ ============================

'<1>'(run)\$;
'<2>'(run) \$;
'<3>'('hello'[.x]run)\$;
'<5>'('bye'  [.x]run)\$;
<1>Initialized
<2>No Comprende
<3>Hello World
<4>No Comprende
<5>Good Bye
#ns => @;
'<1>'(a+1)\$;
'<2>'(a*1)\$;
'<3>'(a-1)\$;
'<4>'(a/3)\$;
'<5>'(:@&(1..3){cnt+1=>cnt}%*2)\$;
'<6>'(:@&(1..3){pwr*2=>pwr}%*2)\$;

<1>1
<2>1
<3>_1
<4>0.333333
<5> 1 2 3
<6> 2 4 8
'factorial'#op{
:?(l__<=1){:->};
l__*(l__-1 factorial)};
5 factorial\$;
120
'factorial'#pgm{
:?(x<=1){:->};
x*(x-1[.x]factorial)};
5[.x]factorial\$;
120