14 lines
267 B
Text
14 lines
267 B
Text
( (plus=a b.!arg:(?a.?b)&!a+!b)
|
|
& ( print
|
|
= text a b func
|
|
. !arg:(?a.?b.(=?func).?text)
|
|
& out$(str$(!text "(" !a "," !b ")=" func$(!a.!b)))
|
|
)
|
|
& print$(3.7.'$plus.add)
|
|
& print
|
|
$ ( 3
|
|
. 7
|
|
. (=a b.!arg:(?a.?b)&!a*!b)
|
|
. multiply
|
|
)
|
|
);
|