PL/M

From Rosetta Code