Net2/usr/src/usr.bin/pascal/tstpx/src/gordon.p

program ffunc( output );
    type
	comparisons = ( less , equal , greater );
    function insert(
	    function comparitor( this , that : integer ) : comparisons;
	    here , there : integer ) : boolean;
	function equality : boolean;
	    begin
		if comparitor( here , there ) = equal then begin
		    equality := true
		end else begin
		    equality := false
		end
	    end;
	begin
	    insert := equality;
	end;
    function compare( this , that : integer ) : comparisons;
	begin
		 if this < that then compare := less
	    else if this = that then compare := equal
	    else compare := greater
	end;
    begin
	writeln( insert( compare , 17 , 23 ) );
    end.