IDENTIFICATION DIVISION.
	PROGRAM-ID. SAMPLE.
 
	ENVIRONMENT DIVISION.
 
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 n PIC Z9 .
	01 THE-NUMBERS.
		10 FILLER USAGE IS COMP-1 VALUE -.24093455+04.
		10 FILLER USAGE IS COMP-1 VALUE -.55439209-47.
		10 FILLER USAGE IS COMP-1 VALUE  .44591240+13.
		10 FILLER USAGE IS COMP-1 VALUE -.22818252-71.
		10 FILLER USAGE IS COMP-1 VALUE -.48936378-36.
		10 FILLER USAGE IS COMP-1 VALUE  .53763199+00.
		10 FILLER USAGE IS COMP-1 VALUE  .23808258+74.
		10 FILLER USAGE IS COMP-1 VALUE -.13901026-68.
		10 FILLER USAGE IS COMP-1 VALUE -.54452280-53.
		10 FILLER USAGE IS COMP-1 VALUE -.33187504+05.
		10 FILLER USAGE IS COMP-1 VALUE  .84218729+00.
		10 FILLER USAGE IS COMP-1 VALUE -.18465549-73.
		10 FILLER USAGE IS COMP-1 VALUE -.16025044-50.
	01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
	PROCEDURE DIVISION.
		ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY THE-ANSWER
			ACCEPT n
		END-PERFORM.
		STOP RUN.
 

CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gU0FNUExFLgoKCUVOVklST05NRU5UIERJVklTSU9OLgoKCURBVEEgRElWSVNJT04uCglXT1JLSU5HLVNUT1JBR0UgU0VDVElPTi4KCTc3IG4gUElDIFo5IC4KCTAxIFRIRS1OVU1CRVJTLgoJCTEwIEZJTExFUiBVU0FHRSBJUyBDT01QLTEgVkFMVUUgLS4yNDA5MzQ1NSswNC4KCQkxMCBGSUxMRVIgVVNBR0UgSVMgQ09NUC0xIFZBTFVFIC0uNTU0MzkyMDktNDcuCgkJMTAgRklMTEVSIFVTQUdFIElTIENPTVAtMSBWQUxVRSAgLjQ0NTkxMjQwKzEzLgoJCTEwIEZJTExFUiBVU0FHRSBJUyBDT01QLTEgVkFMVUUgLS4yMjgxODI1Mi03MS4KCQkxMCBGSUxMRVIgVVNBR0UgSVMgQ09NUC0xIFZBTFVFIC0uNDg5MzYzNzgtMzYuCgkJMTAgRklMTEVSIFVTQUdFIElTIENPTVAtMSBWQUxVRSAgLjUzNzYzMTk5KzAwLgoJCTEwIEZJTExFUiBVU0FHRSBJUyBDT01QLTEgVkFMVUUgIC4yMzgwODI1OCs3NC4KCQkxMCBGSUxMRVIgVVNBR0UgSVMgQ09NUC0xIFZBTFVFIC0uMTM5MDEwMjYtNjguCgkJMTAgRklMTEVSIFVTQUdFIElTIENPTVAtMSBWQUxVRSAtLjU0NDUyMjgwLTUzLgoJCTEwIEZJTExFUiBVU0FHRSBJUyBDT01QLTEgVkFMVUUgLS4zMzE4NzUwNCswNS4KCQkxMCBGSUxMRVIgVVNBR0UgSVMgQ09NUC0xIFZBTFVFICAuODQyMTg3MjkrMDAuCgkJMTAgRklMTEVSIFVTQUdFIElTIENPTVAtMSBWQUxVRSAtLjE4NDY1NTQ5LTczLgoJCTEwIEZJTExFUiBVU0FHRSBJUyBDT01QLTEgVkFMVUUgLS4xNjAyNTA0NC01MC4KCTAxIFRIRS1BTlNXRVIgUkVERUZJTkVTIFRIRS1OVU1CRVJTIFBJQyBYKDUyKS4KCVBST0NFRFVSRSBESVZJU0lPTi4KCQlBQ0NFUFQgbgoJCVBFUkZPUk0gVU5USUwgbiA9IDQyCgkJCURJU1BMQVkgVEhFLUFOU1dFUgoJCQlBQ0NFUFQgbgoJCUVORC1QRVJGT1JNLgoJCVNUT1AgUlVOLgo=

MTAKNDMKNQo0MgoxCg==

10
43
5
42
1