Cobol

Caution: I used language constructs introduced in Cobol 85. Make sure your compiler is new enough!