ml test -- escalate
tests gradually more complicated constructions
not comprehensive, but useful as general overall test
mcleng(a)mcleng(mcleng(abcdefhijk))mcsub(ab34c,3,4)mcdef:as 56
:mcleng(:abcde )mcdef 56 as 89
: sb 123456789
mcskip mt,<>
<1>mcins u,%.
%2.%2+1.%9-5.%350/70.%3*2.%1+2*3.%10-6/3.%55/3/2. sb 123456789
%5-6.%23.%4/1.%10/2.%5-5. sb -123450
mcdef mac; as <%a1.>
mac 1 ;mac 23;mcset p1=9*5
%p1.mcgo l1
x%l1.67<>mcset p2=mac 79; + mac 10;
%p2. sb 123456789
mcdefg /with/as 12
//mcskipg d,3
3<>mcdef //as%6-2.
12<>mcdef<:> space as<<56>>
mcdefg<:> opt; or pig all as 89
: %: /8.mcnodef:x; sb 123456789
mcdef 1 n1 opt 2 n1 or 2 withs 3 all
as<% wd 0 .%d1.%a1.%a2.5%%b3.-3.mcskip space
%% d t1 .+55. 9>
1 3 2 %2+2.2<9>2 3 sb 123456789
mcskip d,< 1 >
mcgo l%3-2. if: x pig=89
x%l1.mcgo l2 unless s1+3 en p1-42
1%l2.mcdef sl as 23
mcset s1=1
4<>mcset s1=1-s1
5<>mcpvar 11
mcset p11=p11+67
%p11.mcdef macro 8 n0 as
macro x 8<>mcalter as to is
mcdef pig as is submac
mcalter is to as
mcdef submac as 9
pig as sb 123456789
