Improve legibility by using array and calling scan() function in lieu of series of proc transpose steps.