ml/i test -- skipins
tests skips and inserts
mcskipg mt,<>
mcskip gone
mcskip,/with++with/
mcskip mmtddt,a b
mcskip d,<mcpvar>
gone/+ddd<+/mcsub(mcpvar,-1,-1)<a>b>a/+mcdef+/b/+
+/ sb mcnoskip<>aa>ba/+mc<>def+/b
mcskip ttt,nopunct n1 opt,n1 or .n1 or end all
nopunct,a,b,cd..e,.f end sb abcdef
mcins p,%with p .
mcins u,%with u.
mcinsg u,%with gu.
mcins %.
mcdef 2 as mcdef 4 as 1
4
mcdef 3 4
as<%a mcdef 1 as 6
7-1.mcdef space as /
%u b1.%%a1.+1./%wat1./%wd0./%%wdt1.-1./mcdef 4 as 5
%dt1./%p dt1./%gu dt1./%u dt1.>
3 2 4<>mcskip d,<opt 2 or 3 all>
 sb 1/1/2/2/3/3/4/4/5/5
mcdef factorial;
as<mcgo l1 if%a1.gr 1
1<>mcgo l0
%l   1  .%%a1.*factorial%%a1.-1.;.>
factorial 1;%factorial 4;-1. sb 123
