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