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