Add R.extend function