Program in SNOBOL

* Find biggest words and numbers in a test string
*
         BIGP = (*P $ TRY  *GT(SIZE(TRY,SIZE(BIG))) $ BIG  FAIL
          STR = 'IN 1964 NFL ATTENDANCE JUMPED TO 4,807884; '
                'AN INCREASE OF 401,810.'
         P = SPAN('0123456789,')
         BIG =
         STR  BIGP
         OUTPUT = 'LONGEST NUMBER IS ' BIG
         P = SPAN('ABCDEFGHIJKLMNOPQRSTUVWXYZ')
         BIG =
         STR  BIGP
         OUTPUT = 'LONGEST WORD IS ' BIG
END