Tcl — δείγμα κώδικα — DedSec Project
proc greet {name} { return "Hello, $name!" } puts greet Ada
Αναφορά πηγαίου κώδικα
proc greet {name} { return "Hello, $name!" }
puts [greet Ada]
proc greet {name} { return "Hello, $name!" } puts greet Ada
proc greet {name} { return "Hello, $name!" }
puts [greet Ada]