if [llength [info commands p7proc]] {
        set Compiling true
} else {
        set Compiling false
        source testing.tcl
}

if $Compiling {



	p7proc (double)pi {} { return 3.1415926536 }

	p7proc (double)add { (double)x (double)y } { return ( x + y ) }

	p7proc (double)sum { (double*)v } { 
		set (double)z
		loop (int)i [len $v] { set z (z+v[i]) }
		set z
	}


} else {

			puts pi=[pi]
			puts 2pi=[add [pi] [pi]]

			AssertTrue { [add [pi] [pi]] > 6.0 }
			AssertTrue { [add [pi] [pi]] < 7.0 }

			AssertEq [add [pi] [pi]] { sum [ list 5 [pi] 0 [pi] -5 ] }

Okay
}