// Testing SET

function Main()
local n, NEWLINE := CHR (10)

   for n := 1 to 39
      outstd (NEWLINE)
      outstd (set (n))
   next

return nil