#!/usr/bin/tcl

proc fib {max} {
	set a 0
	set b 1
	while {$b < $max} {
		puts $b
		set b [expr $b + $a]
		set a [expr $b - $a]
	}
}

fib 100