28 lines
529 B
Text
28 lines
529 B
Text
( (a=.out$"I'm a"&!!arg)
|
|
& (b=.out$"I'm b"&!!arg)
|
|
& (false==~)
|
|
& (true==)
|
|
& !false !true:?outer
|
|
& whl
|
|
' ( !outer:%?x ?outer
|
|
& !false !true:?inner
|
|
& whl
|
|
' ( !inner:%?y ?inner
|
|
& out
|
|
$ ( Testing
|
|
(!!x&true|false)
|
|
AND
|
|
(!!y&true|false)
|
|
)
|
|
& `(a$!x&b$!y)
|
|
& out
|
|
$ ( Testing
|
|
(!!x&true|false)
|
|
OR
|
|
(!!y&true|false)
|
|
)
|
|
& `(a$!x|b$!y)
|
|
)
|
|
)
|
|
& done
|
|
);
|