PL/I

From Rosetta Code