-- Modula.model
-- last edited by Satterthwaite, May 20, 1986 3:35:36 pm PDT

LET @///SML/OSBasics.modelBcd!581021414 IN 
LET @///SML/CedarBasics.modelBcd!581021540 IN 
LET [CommandTool: TYPE~@/Cedar/Cedar6.1/CommandTool/CommandTool.bcd!546422614] IN 

LAMBDA [
    BasicTimeImpl: BasicTime, 
    CommanderImpl: Commander, 
    CommandToolImpl: CommandTool, 
    FSImpl: FS, 
    IOImpl: IO, 
    RopeImpl: Rope, 
    ViewerIOImpl: ViewerIO] IN 
  
  LET REC [
      
      &options: STRING~"bjn-sd"; 
      
      M2D: TYPE~@M2D.mesa!566418661*[]; 
      M2DImpl: M2D~@M2DImpl.mesa!566419015*[]*[]; 
      
      M2S: TYPE~@M2S.mesa!566419097*[]; 
      M2SImpl: M2S~@M2SImpl.mesa!574133776*[]*[]; 
      
      M2I: TYPE~@M2I.mesa!566170435*[]; 
      M2IImpl: M2I~@M2IImpl.mesa!574133818*[]*[]; 
      
      M2G: TYPE~@M2G.mesa!566329361*[]; 
      M2GImpl: M2G~@M2GImpl.mesa!566419409*[]*[]; 
      
      M2T: TYPE~@M2T.mesa!566271940*[]; 
      M2TImpl: M2T~@M2TImpl.mesa!566349914*[]*[]; 
      
      M2R: TYPE~@M2R.mesa!566243894*[]; 
      M2RImpl: M2R~@M2RImpl.mesa!574133896*[]*[]; 
      
      M2P: TYPE~@M2P.mesa!566183791*[]; 
      M2PImpl: M2P~@M2PImpl.mesa!579208201*[]*[]; 
      
      Modula: CONTROL~@M2Impl.mesa!566418930*[]*[]] IN []