It’s not Fortran style, but the code of the original Bourne shell is a remarkable piece. “How to write Algol in C”