<> <> <> DIRECTORY Atom, CD, CMosB, CMosBExtras, IO; CMosBImpl: CEDAR PROGRAM IMPORTS Atom, CD, CMosB, IO EXPORTS CMosBExtras = BEGIN extraLayers: PUBLIC ARRAY [1..20] OF CD.Layer; InitKernelExtras: PROC [] = { <<--layers>> FOR i: NAT IN [1..20] DO extraLayers[i] _ CD.NewLayer[CMosB.cmosB, Atom.MakeAtom[IO.PutFR["extraLayer%d", IO.int[i]]]]; ENDLOOP; }; InitKernelExtras[]; END.