8 lines
533 B
Rexx
8 lines
533 B
Rexx
/*REXX program to show interactive programming by using a function [F]. */
|
|
say f('Rosetta', "Code", ':')
|
|
say f('The definition of a trivial program is '," one that has no bugs.",'───')
|
|
exit /*stick a fork in it, we're done.*/
|
|
|
|
/*──────────────────────────────────F subroutine────────────────────────*/
|
|
f: return arg(1) || copies(arg(3),2) || arg(2) /*return required str.*/
|