function for Stull (8.23)