procedure main()
	every write( fib() \20 )
end

procedure fib()
	suspend previous := 0
	suspend current := 1
	repeat {
		previous :=: current
		suspend current +:= previous
	}
end