" <------------------------- sam092.txt ---------------------------->
" <--- Monadic User Function, no return. --------------------------->
a # 1 40 R 'user a                                  '
a # a,[1]  '''Value of argument a + 1 is '',Fa+1      '
Lfx a
user
user 23
" <--- Monadic User Function, with return. ------------------------->
a # 1 40 R 'r # user a                              '
a # a,[1]  'r # a + 1                               '
Lfx a
user 23
)off