*       Example Program-3
        &FullScan = 1
        &ANCHOR = 0
        define('print(P1,P2,P3)')
        Pat = len(1) $ A arb len(1) $ B ARB LEN(1) $ C
+                     *print(A,B,C) fail
        "123456" Pat                                    :(END)
*       'arb' matches anything including the null-string, initially matching
*       the null-string then any one character then two consecutive
*       characters then three consecutive characters and so on.
print   count = count + 1
        output = lt(Count,10) count ":::" P1 " " P2 " " P3  :s(return)
        output = count "::"  P1 " " P2 " " P3               :(Return)
end