(Unit
  (DFmt
    (DDecl
      Globals
      (GDecl Clos "simple2" -1 4 0 Init)
      (GDecl Clos "noOperation" -1 4 1 Foam)
      (GDecl Clos "runtime" -1 4 1 Init)
      (GDecl Word "sal_int_AldorInteger_298824830" -1 4 1 Foam)
      (GDecl Clos "rtLazyDomFrInit" -1 4 1 Foam)
      (GDecl Clos "domainHash!" -1 4 1 Foam)
      (GDecl Clos "lazyGetExport!" -1 4 1 Foam)
      (GDecl Clos "lazyForceImport" -1 4 1 Foam)
      (GDecl Clos "sal_int" -1 4 1 Init))
    (DDecl
      Consts
      (Decl Prog "simple2" -1 4)
      (Decl Prog "sal_int-init" -1 4))
    (DDecl LocalEnv)
    (DDecl Fluids)
    (DDecl Locals)
    (DDecl
      LocalEnv
      (Decl Word "BinaryWriter" -1 4)
      (Decl Word "BinaryReader" -1 4)
      (Decl Word "TextWriter" -1 4)
      (Decl Word "TextReader" -1 4)
      (Decl Word "Character" -1 4)
      (Decl Word "WriterManipulator" -1 4)
      (Decl Word "Boolean" -1 4)
      (Decl Word "AldorInteger" -1 4)
      (Decl Word "String" -1 4)
      (Decl Word "File" -1 4)
      (Decl Word "1" -1 4)
      (Decl Word "dom" -1 4)
      (Decl Word "" -1 4)
      (Decl Bool "" -1 4)))
  (DDef
    (Def
      (Const 0 simple2)
      (Prog
        0
        0
        NOp
        0
        8192
        0
        0
        0
        (DDecl Params)
        (DDecl Locals (Decl Clos "" -1 4))
        (DFluid)
        (DEnv 5)
        (Seq
          (CCall NOp (Glo 2 runtime))
          (Set (Glo 0 simple2) (Glo 1 noOperation))
          (Def (Loc 0) (Clos (Env 0) (Const 1 sal_int-init)))
          (Set (Lex 0 13) (Bool 0))
          (Def
            (Lex 0 7 AldorInteger)
            (CCall Word (Glo 4 rtLazyDomFrInit) (Loc 0) (SInt 0)))
          (Def (Lex 0 11 dom) (Lex 0 7 AldorInteger))
          (Def
            (Lex 0 10 \1)
            (CCall
              Word
              (Glo 6 lazyGetExport!)
              (Lex 0 11 dom)
              (SInt 200090)
              (CCall SInt (Glo 5 domainHash!) (Lex 0 7 AldorInteger))))
          (Cast Word (CCall Word (Glo 7 lazyForceImport) (Lex 0 10 \1)))
          (Return (Values)))))
    (Def
      (Const 1 sal_int-init)
      (Prog
        0
        1
        Word
        0
        2
        0
        0
        0
        (DDecl Params (Decl SInt "idx" -1 4))
        (DDecl Locals)
        (DFluid)
        (DEnv 4 5)
        (Seq
          (If (Lex 1 13) 0)
          (Set (Lex 1 13) (Bool 1))
          (CCall NOp (Glo 8 sal_int))
          (Label 0)
          (Return (Glo 3 sal_int_AldorInteger_298824830)))))
    (Def (Glo 0 simple2) (Clos (Env 0) (Const 0 simple2)))))