DIRECTORY CoreCreate, CoreOps;TestCoreIO: CEDAR PROGRAM IMPORTS CoreCreate = BEGIN OPEN CoreCreate;NAnd: PUBLIC PROC [i: NAT] RETURNS [ct: CellType] = {instances: LIST OF CellInstance _ NIL;pType: CellType _ Transistor[type: pE, width: 3];nType: CellType _ Transistor[type: nE, width: 1];FOR input: NAT IN [0..i) DOinstances _ CONS[Instance[pType, ["gate", Index["Input", input]], ["ch1", "Vdd"], ["ch2", "nOutput"]],instances];instances _ CONS[Instance[nType,["gate", Index["Input", input]],["ch1", IF input=0 THEN "nOutput" ELSE Index["stack", input-1]],["ch2", IF input=i-1 THEN "Gnd" ELSE Index["stack", input]]],instances];ENDLOOP;ct _ Cell[name: "NAnd",public: Wires["Vdd", "Gnd", Seq["Input", i], "nOutput"],onlyInternal: Wires[Seq["stack", i-1]],instances: instances];};END.   „  TestCoreIO.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Bertrand Serlet August 17, 1986 9:58:11 pm PDT Êx  –"cedar" style˜ codešœ™Kšœ
Ïmœ1™<K™.K™ —KšÏk	œ˜K˜ K•StartOfExpansion[]šÏn
œžœžœžœžœžœ˜E˜ š
Ÿœžœžœžœžœ˜5Kšœžœžœžœ˜&Kšœ1˜1Kšœ1˜1šžœžœžœž˜šœžœ˜!KšœE˜EKšœ˜—šœžœ˜ Kšœ ˜ Kšœžœ	žœžœ˜@Kšœžœžœžœ˜=Kšœ˜—Kšžœ˜—šœ
˜
Kšœ˜Kšœ8˜8Kšœ'˜'Kšœ˜—Kšœ˜K˜ ——Kšžœ˜K˜ — …—    *  &  