procedure lrot( var t : tree );
	var	temp : tree;
	begin
		temp := t;
		t := t^.right;
		temp^.right := t^.left;
		t^.left := temp;
	end;