5 lines
86 B
Tcl
5 lines
86 B
Tcl
$ tclsh
|
|
% proc f {a b s} {join [list $a "" $b] $s}
|
|
% f Rosetta Code :
|
|
Rosetta::Code
|
|
%
|