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

puts [square 5]