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



if $Compiling {

	p7proc (tcl)jam1 { (tcl)x (tcl)y } {

		return "$x $y"
	}


	p7proc (tcl)jam2 { (tcl)x (tcl)y } {
		set (tcl)s " "

		return $x$s$y
	}

	p7proc (tcl)jam3 { (tcl)x (tcl)y } {
		new (byt*)s 1
		set s(0) (' ')

		return [set x][set s][set y]
	}
	p7proc (tcl)jam_pid { } {

		return "[::pid] [::pid] [ ::pid ]"
	}


} else { # Not Compiling


			AssertEq "one two" { jam1 one two }

			AssertEq "one two" { jam2 one two }

			AssertEq "one two" { jam3 one two }

			AssertEq "[pid] [pid] [pid]" { jam_pid }


} ;#endif