Added join_r function to be used when keys are decreasing.

Join function is working only with zlists which keys are increasing, I added fun join_r to work also with decreasing keys.