Created by Don Curry, February 1, 1986 2:43:22 pm PST

Edited by Don Curry, July 14, 1986 2:10:00 pm PDT

BEGIN

ROPE:  TYPE = Core.ROPE;

CWire: TYPE = RECORD[w: Core.Wire];

f: PROC[wire: CWire, name: ROPE] RETURNS[subWire: CWire];

i: PROC[wire: CWire, index: INT]  RETURNS[subWire: CWire];

x: PROC[wire: CWire, index: INT]  RETURNS[subWire: CWire]; -- using CoreXform

n: PROC[wire: CWire]     RETURNS[name: ROPE];

END.