-- PoplarD.model
-- last edited July 6, 1983 12:09 pm
LET @PoplarSystemTypes.modelBcd IN LAMBDA [ConvertUnsafeImpl: ConvertUnsafe,
      DirectoryImpl: Directory,FileImpl: File,FileIOImpl: FileIO,
      InlineImpl: Inline,IOImpl: IO,ProcessImpl: Process,RefTextImpl: RefText,
      RopeImpl: Rope,RTTypesBasicImpl: RTTypesBasic,SafeStorageImpl: SafeStorage,
      SpaceImpl: Space,ViewerIOImpl: ViewerIO] => [] IN REC [
    &options: STRING~"bjn";PString: TYPE ~@PString.mesa!2576354169*[][];
    PL: TYPE ~@PL.mesa!2605973442*[][];Disp: TYPE ~@Disp.mesa!2576351876*[][];
    PStringImpl: PString~@PStringImpl.mesa!2605104398*[][ConvertUnsafeImpl,DirectoryImpl,
    FileImpl,IOImpl,PLImpl,ProcessImpl,RopeImpl,RTTypesBasicImpl,SpaceImpl];
    DispImpl: Disp~@DispImpl.mesa!2576354366*[][PLImpl,PStringImpl,RopeImpl,IOImpl,
    SafeStorageImpl];WindowProcInt: TYPE ~@WindowProcInt.mesa!2576350075*[][];
    WindowProcIntImpl: WindowProcInt~@WindowProcImpl.mesa!2590695151*[IO~IO,
    ViewerIO~ViewerIO][ProcessImpl,IOImpl,ViewerIOImpl];
    Route: TYPE ~@Route.mesa!2576352241*[][];
    RouteImpl1: Route~@RouteImpl1.mesa!2576354837*[][DispImpl,PLImpl,PStringImpl,
    RopeImpl];
    RouteImpl2: Route~@RouteImpl2.mesa!2605106165*[][FileIOImpl,RopeImpl,RefTextImpl,
    ConvertUnsafeImpl,PLImpl,PStringImpl,IOImpl,DirectoryImpl];
    PLImpl1: PL~@PLSupImpl.mesa!2605973337*[][PLImpl,PStringImpl,SafeStorageImpl,
    RopeImpl];
    PLImpl2: PL~@PLEvalImpl.mesa!2602518872*[][PLImpl,PStringImpl,DispImpl,RouteImpl,
    ProcessImpl,RopeImpl,IOImpl];
    PLImpl3: PL~@PLStoreImpl.mesa!2602518924*[][PLImpl,RopeImpl];
    PLImpl4: PL~@PLParseImpl.mesa!2602532061*[][DispImpl,PStringImpl,PLImpl,RopeImpl,
    IOImpl];
    [Main: CONTROL,PLImpl5: PL]~@PLImpl.mesa!2603202980*[][DispImpl,PStringImpl,PLImpl,
    RouteImpl,SafeStorageImpl,IOImpl,RopeImpl,WindowProcIntImpl];
    RouteImpl: Route~RouteImpl1+RouteImpl2;
    PLImpl: PL~PLImpl1+PLImpl2+PLImpl3+PLImpl4+PLImpl5]