hamlet/StrIdMap-struct.ss
(module StrIdMap-struct (planet chongkai/sml)
  (#%module-begin
   (Program:
    (STRDECTopDec:
     (STRUCTUREStrDec:
      (StrBind:
       (StrId: StrIdMap-struct)
       (APPStrExp:
        (FunId: FinMapFn-functor)
        (STRUCTStrExp:
         (SEQStrDec:
          (DECStrDec: (TYPEDec: (TypBind: (TyVarseq:) (TyCon: ord_key-type) (CONTy: (Tyseq:) (LongTyCon: StrId.Id-type)))))
          (DECStrDec: (VALDec: (TyVarseq:) (PLAINValBind: (ATPat: (IDAtPat: (LongVId: compare))) (ATExp: (IDAtExp: (LongVId: StrId.compare)))))))))))))))