8 lines
109 B
Tcl
8 lines
109 B
Tcl
|
$ tclsh
|
||
|
|
% proc f {s1 s2 sep} {
|
||
|
|
append result $s1 $sep $sep $s2
|
||
|
|
}
|
||
|
|
% f Rosetta Code :
|
||
|
|
Rosetta::Code
|
||
|
|
% exit
|