# What is Tcl's largest integer?

# Certain aspects of Tcl arithmetic are implementation-specific, and
#     therefore most conveniently determined at run time.

set good 1
set increment 1

while {$increment > 0} {
	set test [expr $good + $increment]
	if {$test < $good} {
		set increment [expr $increment / 2]
	} else {
		set good $test
		set increment $test
	}
}

puts "$good is as big as it gets, because"
puts "     '$good + 1' evaluates to [expr $good + 1]."
exit