A simple library program in COBOL