added rspork function