" <------------------------- sam093.txt ---------------------------->
" <--- Dyadic User Function, no return. ---------------------------->
a # 1 40 R 'a user b                                '
a # a,[1]  '''Sum of arguments, a + b, is '',Fa+b     '
Lfx a
1 user 2
" <--- Dyadic User Function, with return, and local variable. ------>
d # 47
a # 1 40 R 'c # a user b;d                          '
a # a,[1]  'd # a + b                               '
a # a,[1]  '''Sum of arguments, a + b, is '',Fd       '
a # a,[1]  '" Now set return value to sum squared.  '
a # a,[1]  'c # d X d                               '
Lfx a
'Product of sum is ', F 1 user 2
d
a
)off