Source code in the mad programming language

            NORMAL MODE IS INTEGER
            VECTOR VALUES FRST15 = $20HFIRST 15 NUMBERS ARE*$
            VECTOR VALUES FRSTAT = $6HFIRST ,I3,S1,11HAPPEARS AT ,I4*$
            VECTOR VALUES NUMBER = $I4*$
            
            DIMENSION STERN(1200)
            STERN(1) = 1
            STERN(2) = 1
          
          R GENERATE FIRST 1200 MEMBERS OF THE STERN-BROCOT SEQUENCE
            THROUGH GENSEQ, FOR I = 1, 1, I .GE. 600
            STERN(I*2-1) = STERN(I) + STERN(I-1)
GENSEQ      STERN(I*2) = STERN(I)

          R PRINT FIRST 15 VALUES OF STERN-BROCOT SEQUENCE
            PRINT FORMAT FRST15
            THROUGH P15, FOR I = 1, 1, I .G. 15
P15         PRINT ON LINE FORMAT NUMBER, STERN(I)
            
          R PRINT FIRST OCCURRENCE OF 1..10
            THROUGH FRST10, FOR I = 1, 1, I .G. 10
FRST10      PRINT FORMAT FRSTAT, I, FIRST.(I)
            PRINT FORMAT FRSTAT, 100, FIRST.(100)
            
          R SEARCH FOR FIRST OCCURRENCE OF N IN SEQUENCE  
            INTERNAL FUNCTION(N)
            ENTRY TO FIRST.
            THROUGH SCAN, FOR K = 1, 1, I .G. 1200
SCAN        WHENEVER N .E. STERN(K), FUNCTION RETURN K
            END OF FUNCTION
            END OF PROGRAM