gagent/pkg/picol/examples/t2.tcl

proc square {x} {
	* $x $x
}

set a 1
while {<= $a 10} {
	if {== $a 5} {
		puts {Missing five!}
		set a [+ $a 1]
		continue
	}
	puts "I can compute that $a*$a = [square $a]"
	set a [+ $a 1]
}