3 lines
51 B
Tcl
3 lines
51 B
Tcl
set f [open |lp w]
|
|
puts $f "Hello World!"
|
|
close $f
|
set f [open |lp w]
|
|
puts $f "Hello World!"
|
|
close $f
|