chore: update stage0

stage0/src/Init/Lean/Elab/Tactic/Basic.lean

@@ -282,12 +282,10 @@ adaptExpander $ fun stx => match_syntax stx with
   | `(tactic| try $t) => `(tactic| $t <|> skip)
   | _         => throwUnsupportedSyntax
 
-/-
 @[builtinTactic repeat] def evalRepeat : Tactic :=
 adaptExpander $ fun stx => match_syntax stx with
-  | `(tactic| repeat $t) => `(tactic| try ($t; repeat $t))
+  | `(tactic| repeat $t) => `(tactic| try (($t); repeat $t)) -- TODO: remove parens around $t
   | _                    => throwUnsupportedSyntax
--/
 
 @[builtinTactic «assumption»] def evalAssumption : Tactic :=
 fun stx => liftMetaTactic stx $ fun mvarId => do Meta.assumption mvarId; pure []

stage0/src/Init/Lean/Eval.lean

@@ -33,6 +33,6 @@ instance MetaIO.metaHasEval : MetaHasEval (MetaIO Unit) :=
 ⟨fun env opts x => x (env, opts)⟩
 
 instance MetaIO.monadIO : MonadIO MetaIO :=
-⟨fun _ x _ => x⟩
+{ monadLift := fun _ x _ => x }
 
 end Lean

stage0/src/Init/Lean/Parser/Module.lean

@@ -121,7 +121,7 @@ partial def parseFileAux (env : Environment) (inputCtx : InputContext) : ModuleP
 
 def parseFile (env : Environment) (fname : String) : IO Syntax := do
 fname ← IO.realPath fname;
-contents ← IO.readTextFile fname;
+contents ← IO.readFile fname;
 let inputCtx := mkInputContext contents fname;
 let (stx, state, messages) := parseHeader env inputCtx;
 parseFileAux env inputCtx state messages #[stx]

stage0/src/Init/System/IO.lean

@@ -5,6 +5,7 @@ Authors: Luke Nelson, Jared Roesch, Leonardo de Moura, Sebastian Ullrich
 -/
 prelude
 import Init.Control.EState
+import Init.Control.Reader
 import Init.Data.String.Basic
 import Init.Data.ByteArray
 import Init.System.IOError
@@ -67,7 +68,18 @@ constant allocprof {α : Type} (msg : @& String) (fn : IO α) : IO α := arbitra
 @[extern "lean_io_initializing"]
 constant IO.initializing : IO Bool := arbitrary _
 
-abbrev MonadIO (m : Type → Type) := HasMonadLiftT IO m
+class MonadIO (m : Type → Type) extends HasMonadLiftT IO m, MonadExcept IO.Error m
+
+instance : MonadIO IO := {  }
+
+instance ExceptT.monadFail (m : Type → Type) [Monad m] [MonadExcept IO.Error m] : MonadFail m :=
+⟨fun _ => throw ∘ IO.userError⟩
+
+/- Omitted instances of MonadIO: OptionT, ExceptT and EStateT. The possibility for
+errors introduces the risk that `withStdout` will not restore the previous handle when
+an error is returned in the topmost monad. -/
+instance ReaderT.monadIO {ρ} (m : Type → Type) [Monad m] [MonadIO m] : MonadIO (ReaderT ρ m) := {  }
+instance StateT.monadIO {σ} (m : Type → Type) [Monad m] [MonadIO m] : MonadIO (StateT σ m) := {  }
 
 namespace IO
 
@@ -87,6 +99,20 @@ constant FS.Handle : Type := Unit
 namespace Prim
 open FS
 
+@[extern "lean_get_stdin"]
+constant getStdin  : IO FS.Handle := arbitrary _
+@[extern "lean_get_stderr"]
+constant getStderr : IO FS.Handle := arbitrary _
+@[extern "lean_get_stdout"]
+constant getStdout : IO FS.Handle := arbitrary _
+
+@[extern "lean_get_set_stdin"]
+constant setStdin  : FS.Handle → IO FS.Handle := arbitrary _
+@[extern "lean_get_set_stderr"]
+constant setStderr : FS.Handle → IO FS.Handle := arbitrary _
+@[extern "lean_get_set_stdout"]
+constant setStdout : FS.Handle → IO FS.Handle := arbitrary _
+
 @[specialize] partial def iterate {α β : Type} : α → (α → IO (Sum α β)) → IO β
 | a, f => do
   v ← f a;
@@ -105,12 +131,6 @@ let mode :=
 let bin := if b then "b" else "t";
 mode ++ bin
 
-@[extern "lean_io_prim_put_str"]
-constant putStr (s: @& String) : IO Unit := arbitrary _
-@[extern "lean_io_prim_read_text_file"]
-constant readTextFile (s : @& String) : IO String := arbitrary _
-@[extern "lean_io_prim_get_line"]
-constant getLine : IO String := arbitrary _
 @[extern "lean_io_prim_handle_mk"]
 constant Handle.mk (s : @& String) (mode : @& String) : IO Handle := arbitrary _
 @[extern "lean_io_prim_handle_is_eof"]
@@ -148,27 +168,6 @@ constant appPath : IO String := arbitrary _
 monadLift x
 end Prim
 
-section
-variables {m : Type → Type} [Monad m] [MonadIO m]
-
-private def putStr : String → m Unit :=
-Prim.liftIO ∘ Prim.putStr
-
-def print {α} [HasToString α] (s : α) : m Unit := putStr ∘ toString $ s
-def println {α} [HasToString α] (s : α) : m Unit := print s *> putStr "\n"
-def readTextFile : String → m String := Prim.liftIO ∘ Prim.readTextFile
-def getEnv : String → m (Option String) := Prim.liftIO ∘ Prim.getEnv
-def realPath : String → m String := Prim.liftIO ∘ Prim.realPath
-def isDir : String → m Bool := Prim.liftIO ∘ Prim.isDir
-def fileExists : String → m Bool := Prim.liftIO ∘ Prim.fileExists
-def appPath : m String := Prim.liftIO Prim.appPath
-
-def appDir : m String := do
-p ← appPath;
-realPath (System.FilePath.dirName p)
-
-end
-
 namespace FS
 variables {m : Type → Type} [Monad m] [MonadIO m]
 
@@ -176,8 +175,8 @@ def Handle.mk (s : String) (Mode : Mode) (bin : Bool := false) : m Handle :=
 Prim.liftIO (Prim.Handle.mk s (Prim.fopenFlags Mode bin))
 
 @[inline]
-def withFile {α} (fn : String) (m : Mode) (f : Handle → IO α) : IO α :=
-Handle.mk fn m >>= f
+def withFile {α} (fn : String) (mode : Mode) (f : Handle → m α) : m α :=
+Handle.mk fn mode >>= f
 
 /-- returns whether the end of the file has been reached while reading a file.
 `h.isEof` returns true /after/ the first attempt at reading past the end of `h`.
@@ -208,16 +207,66 @@ Prim.liftIO $ Prim.iterate "" $ fun r => do
     c ← h.getLine;
     pure $ Sum.inl (r ++ c) -- continue
 
+end FS
+
+section
+variables {m : Type → Type} [Monad m] [MonadIO m]
+
+def getStdout : m FS.Handle :=
+Prim.liftIO Prim.getStdout
+
+def getStderr : m FS.Handle :=
+Prim.liftIO Prim.getStderr
+
+def getStdin : m FS.Handle :=
+Prim.liftIO Prim.getStdin
+
+/- replaces the stdout handle and returns its previous value -/
+def setStdout : FS.Handle → m FS.Handle :=
+Prim.liftIO ∘ Prim.setStdout
+
+/- see `setStdout` -/
+def setStderr : FS.Handle → m FS.Handle :=
+Prim.liftIO ∘ Prim.setStderr
+
+/- see `setStdout` -/
+def setStdin : FS.Handle → m FS.Handle :=
+Prim.liftIO ∘ Prim.setStdin
+
+def withStderr {α} (h : FS.Handle) (x : m α) : m α := do
+prev ← setStderr h;
+finally x (setStderr prev)
+
+def withStdout {α} (h : FS.Handle) (x : m α) : m α := do
+prev ← setStdout h;
+finally x (setStdout prev)
+
+def withStdin {α} (h : FS.Handle) (x : m α) : m α := do
+prev ← setStdin h;
+finally x (setStdin prev)
+
+private def putStr (s : String) : m Unit := do
+out ← getStdout;
+out.putStr s
+
+def print {α} [HasToString α] (s : α) : m Unit := putStr ∘ toString $ s
+def println {α} [HasToString α] (s : α) : m Unit := print s *> putStr "\n"
+def getEnv : String → m (Option String) := Prim.liftIO ∘ Prim.getEnv
+def realPath : String → m String := Prim.liftIO ∘ Prim.realPath
+def isDir : String → m Bool := Prim.liftIO ∘ Prim.isDir
+def fileExists : String → m Bool := Prim.liftIO ∘ Prim.fileExists
+def appPath : m String := Prim.liftIO Prim.appPath
+
+def appDir : m String := do
+p ← appPath;
+realPath (System.FilePath.dirName p)
+
 def readFile (fname : String) (bin := false) : m String := do
-h ← Handle.mk fname Mode.read bin;
+h ← FS.Handle.mk fname Mode.read bin;
 r ← h.readToEnd;
 pure r
 
-end FS
-
--- constant stdin : IO FS.Handle
--- constant stderr : IO FS.Handle
--- constant stdout : IO FS.Handle
+end
 
 /-
 namespace Proc
@@ -311,7 +360,7 @@ class HasEval (α : Type u) :=
 (eval : α → IO Unit)
 
 instance HasRepr.HasEval {α : Type u} [HasRepr α] : HasEval α :=
-⟨fun a => IO.println (repr a)⟩
+⟨fun a => IO.print (repr a)⟩
 
 instance IO.HasEval {α : Type} [HasEval α] : HasEval (IO α) :=
 ⟨fun x => do a ← x; HasEval.eval a⟩

stage0/src/runtime/io.cpp

@@ -123,15 +123,6 @@ extern "C" obj_res lean_io_initializing(obj_arg) {
     return set_io_result(box(g_initializing));
 }
 
-extern "C" obj_res lean_io_prim_put_str(b_obj_arg s, obj_arg) {
-    std::cout << string_to_std(s); // TODO(Leo): use out handle
-    return set_io_result(box(0));
-}
-
-extern "C" obj_res lean_io_prim_get_line(obj_arg /* w */) {
-    // not implemented yet
-    lean_unreachable();
-}
 
 static lean_external_class * g_io_handle_external_class = nullptr;
 
@@ -146,6 +137,58 @@ static lean_object * io_wrap_handle(FILE *hfile) {
     return lean_alloc_external(g_io_handle_external_class, hfile);
 }
 
+static object * g_handle_stdout = nullptr;
+static object * g_handle_stderr = nullptr;
+static object * g_handle_stdin  = nullptr;
+MK_THREAD_LOCAL_GET(object *, get_handle_current_stdout, g_handle_stdout);
+MK_THREAD_LOCAL_GET(object *, get_handle_current_stderr, g_handle_stderr);
+MK_THREAD_LOCAL_GET(object *, get_handle_current_stdin,  g_handle_stdin);
+
+/* getStdout : IO FS.Handle */
+extern "C" obj_res lean_get_stdout(obj_arg /* w */) {
+    object * r = get_handle_current_stdout();
+    inc_ref(r);
+    return set_io_result(r);
+}
+
+/* getStderr : IO FS.Handle */
+extern "C" obj_res lean_get_stderr(obj_arg /* w */) {
+    object * r = get_handle_current_stderr();
+    inc_ref(r);
+    return set_io_result(r);
+}
+
+/* getStdin : IO FS.Handle */
+extern "C" obj_res lean_get_stdin(obj_arg /* w */) {
+    object * r = get_handle_current_stdin();
+    inc_ref(r);
+    return set_io_result(r);
+}
+
+/* setStdout  : FS.Handle -> IO FS.Handle */
+extern "C" obj_res lean_get_set_stdout(obj_arg h, obj_arg /* w */) {
+    object * & x = get_handle_current_stdout();
+    object * r = x;
+    x = h;
+    return set_io_result(r);
+}
+
+/* setStderr  : FS.Handle -> IO FS.Handle */
+extern "C" obj_res lean_get_set_stderr(obj_arg h, obj_arg /* w */) {
+    object * & x = get_handle_current_stderr();
+    object * r = x;
+    x = h;
+    return set_io_result(r);
+}
+
+/* setStdin  : FS.Handle -> IO FS.Handle */
+extern "C" obj_res lean_get_set_stdin(obj_arg h, obj_arg /* w */) {
+    object * & x = get_handle_current_stdin();
+    object * r = x;
+    x = h;
+    return set_io_result(r);
+}
+
 static FILE * io_get_handle(lean_object * hfile) {
     return static_cast<FILE *>(lean_get_external_data(hfile));
 }
@@ -355,7 +398,7 @@ obj_res lean_get_line(FILE * fp) {
     }
 }
 
-/* Handle.getLine : (@& Handle) → IO Unit                     */
+/* Handle.getLine : (@& Handle) → IO Unit                */
 /*   The line returned by `lean_io_prim_handle_get_line` */
 /*   is truncated at the first '\0' character and the    */
 /*   rest of the line is discarded.                      */
@@ -614,8 +657,14 @@ extern "C" obj_res lean_io_ref_ptr_eq(b_obj_arg ref1, b_obj_arg ref2, obj_arg) {
 
 void initialize_io() {
     g_io_error_nullptr_read = mk_string("null reference read");
-    mark_persistent(g_io_error_nullptr_read);
     g_io_handle_external_class = lean_register_external_class(io_handle_finalizer, io_handle_foreach);
+    g_handle_stdout = io_wrap_handle(stdout);
+    g_handle_stderr = io_wrap_handle(stderr);
+    g_handle_stdin  = io_wrap_handle(stdin);
+    mark_persistent(g_handle_stdout);
+    mark_persistent(g_handle_stderr);
+    mark_persistent(g_handle_stdin);
+    mark_persistent(g_io_error_nullptr_read);
 }
 
 void finalize_io() {

stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c

@@ -168,6 +168,7 @@ lean_object* l_Lean_IR_EmitC_main(lean_object*, lean_object*);
 extern lean_object* l_Char_quoteCore___closed__2;
 lean_object* l_Lean_IR_EmitC_emit___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
 extern lean_object* l_Lean_IR_Arg_Inhabited;
+extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1;
 lean_object* l_Lean_IR_EmitC_emitMainFn___closed__4;
 lean_object* l_Lean_IR_EmitC_emitIf(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_IR_EmitC_emitReset(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@@ -263,7 +264,6 @@ lean_object* l_Lean_IR_EmitC_emitSProj___closed__3;
 extern lean_object* l_List_reprAux___main___rarg___closed__1;
 extern lean_object* l_Lean_IR_formatFnBody___main___closed__1;
 lean_object* l_Lean_IR_EmitC_emitFileHeader___closed__21;
-extern lean_object* l_IO_println___rarg___closed__1;
 lean_object* l_Lean_IR_EmitC_toCName(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_IR_EmitC_emitInitFn___closed__7;
 lean_object* l_Lean_IR_EmitC_emitFullApp___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@@ -729,7 +729,7 @@ lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_obj
 x_5 = lean_apply_1(x_1, x_2);
 x_6 = lean_string_append(x_4, x_5);
 lean_dec(x_5);
-x_7 = l_IO_println___rarg___closed__1;
+x_7 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_8 = lean_string_append(x_6, x_7);
 x_9 = lean_box(0);
 x_10 = lean_alloc_ctor(0, 2, 0);
@@ -780,7 +780,7 @@ lean_inc(x_1);
 x_9 = lean_apply_1(x_1, x_7);
 x_10 = lean_string_append(x_4, x_9);
 lean_dec(x_9);
-x_11 = l_IO_println___rarg___closed__1;
+x_11 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_12 = lean_string_append(x_10, x_11);
 x_2 = x_8;
 x_4 = x_12;
@@ -1876,7 +1876,7 @@ x_30 = l_Option_HasRepr___rarg___closed__3;
 x_31 = lean_string_append(x_28, x_30);
 x_32 = l_Lean_IR_formatFnBody___main___closed__1;
 x_33 = lean_string_append(x_31, x_32);
-x_34 = l_IO_println___rarg___closed__1;
+x_34 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_35 = lean_string_append(x_33, x_34);
 x_36 = lean_box(0);
 lean_ctor_set(x_26, 1, x_35);
@@ -1893,7 +1893,7 @@ x_38 = l_Option_HasRepr___rarg___closed__3;
 x_39 = lean_string_append(x_37, x_38);
 x_40 = l_Lean_IR_formatFnBody___main___closed__1;
 x_41 = lean_string_append(x_39, x_40);
-x_42 = l_IO_println___rarg___closed__1;
+x_42 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_43 = lean_string_append(x_41, x_42);
 x_44 = lean_box(0);
 x_45 = lean_alloc_ctor(0, 2, 0);
@@ -1926,7 +1926,7 @@ x_51 = l_Option_HasRepr___rarg___closed__3;
 x_52 = lean_string_append(x_49, x_51);
 x_53 = l_Lean_IR_formatFnBody___main___closed__1;
 x_54 = lean_string_append(x_52, x_53);
-x_55 = l_IO_println___rarg___closed__1;
+x_55 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_56 = lean_string_append(x_54, x_55);
 x_57 = lean_box(0);
 lean_ctor_set(x_47, 1, x_56);
@@ -1943,7 +1943,7 @@ x_59 = l_Option_HasRepr___rarg___closed__3;
 x_60 = lean_string_append(x_58, x_59);
 x_61 = l_Lean_IR_formatFnBody___main___closed__1;
 x_62 = lean_string_append(x_60, x_61);
-x_63 = l_IO_println___rarg___closed__1;
+x_63 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_64 = lean_string_append(x_62, x_63);
 x_65 = lean_box(0);
 x_66 = lean_alloc_ctor(0, 2, 0);
@@ -1963,7 +1963,7 @@ x_69 = l_Option_HasRepr___rarg___closed__3;
 x_70 = lean_string_append(x_68, x_69);
 x_71 = l_Lean_IR_formatFnBody___main___closed__1;
 x_72 = lean_string_append(x_70, x_71);
-x_73 = l_IO_println___rarg___closed__1;
+x_73 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_74 = lean_string_append(x_72, x_73);
 x_75 = lean_box(0);
 if (lean_is_scalar(x_10)) {
@@ -1985,7 +1985,7 @@ lean_dec(x_8);
 lean_dec(x_6);
 x_81 = l_Lean_IR_formatFnBody___main___closed__1;
 x_82 = lean_string_append(x_18, x_81);
-x_83 = l_IO_println___rarg___closed__1;
+x_83 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_84 = lean_string_append(x_82, x_83);
 x_85 = lean_box(0);
 if (lean_is_scalar(x_10)) {
@@ -2481,7 +2481,7 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_obj
 x_6 = lean_ctor_get(x_1, 0);
 x_7 = lean_ctor_get(x_1, 1);
 x_8 = lean_string_append(x_3, x_6);
-x_9 = l_IO_println___rarg___closed__1;
+x_9 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_10 = lean_string_append(x_8, x_9);
 x_1 = x_7;
 x_3 = x_10;
@@ -3051,7 +3051,7 @@ if (x_56 == 0)
 lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; 
 x_57 = l_Lean_IR_EmitC_emitMainFn___closed__30;
 x_58 = lean_string_append(x_54, x_57);
-x_59 = l_IO_println___rarg___closed__1;
+x_59 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_60 = lean_string_append(x_58, x_59);
 x_61 = l_Lean_IR_EmitC_emitMainFn___closed__31;
 x_62 = lean_string_append(x_60, x_61);
@@ -3067,7 +3067,7 @@ else
 lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; 
 x_67 = l_Lean_IR_EmitC_emitMainFn___closed__33;
 x_68 = lean_string_append(x_54, x_67);
-x_69 = l_IO_println___rarg___closed__1;
+x_69 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_70 = lean_string_append(x_68, x_69);
 x_71 = l_Lean_IR_EmitC_emitMainFn___closed__31;
 x_72 = lean_string_append(x_70, x_71);
@@ -3096,7 +3096,7 @@ x_24 = l_Lean_IR_EmitC_emitMainFn___closed__3;
 x_25 = lean_string_append(x_23, x_24);
 x_26 = lean_string_append(x_19, x_25);
 lean_dec(x_25);
-x_27 = l_IO_println___rarg___closed__1;
+x_27 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_28 = lean_string_append(x_26, x_27);
 x_29 = l_Lean_IR_EmitC_emitMainFn___closed__11;
 x_30 = l_List_forM___main___at_Lean_IR_EmitC_emitMainFn___spec__2(x_29, x_1, x_28);
@@ -3161,7 +3161,7 @@ if (x_126 == 0)
 lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; 
 x_127 = l_Lean_IR_EmitC_emitMainFn___closed__30;
 x_128 = lean_string_append(x_124, x_127);
-x_129 = l_IO_println___rarg___closed__1;
+x_129 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_130 = lean_string_append(x_128, x_129);
 x_131 = l_Lean_IR_EmitC_emitMainFn___closed__31;
 x_132 = lean_string_append(x_130, x_131);
@@ -3177,7 +3177,7 @@ else
 lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; 
 x_137 = l_Lean_IR_EmitC_emitMainFn___closed__33;
 x_138 = lean_string_append(x_124, x_137);
-x_139 = l_IO_println___rarg___closed__1;
+x_139 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_140 = lean_string_append(x_138, x_139);
 x_141 = l_Lean_IR_EmitC_emitMainFn___closed__31;
 x_142 = lean_string_append(x_140, x_141);
@@ -3206,7 +3206,7 @@ x_85 = l_Lean_IR_EmitC_emitMainFn___closed__3;
 x_86 = lean_string_append(x_84, x_85);
 x_87 = lean_string_append(x_80, x_86);
 lean_dec(x_86);
-x_88 = l_IO_println___rarg___closed__1;
+x_88 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_89 = lean_string_append(x_87, x_88);
 x_108 = l_Lean_IR_EmitC_emitMainFn___closed__11;
 x_109 = l_List_forM___main___at_Lean_IR_EmitC_emitMainFn___spec__2(x_108, x_1, x_89);
@@ -3324,7 +3324,7 @@ if (x_191 == 0)
 lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; 
 x_192 = l_Lean_IR_EmitC_emitMainFn___closed__30;
 x_193 = lean_string_append(x_189, x_192);
-x_194 = l_IO_println___rarg___closed__1;
+x_194 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_195 = lean_string_append(x_193, x_194);
 x_196 = l_Lean_IR_EmitC_emitMainFn___closed__31;
 x_197 = lean_string_append(x_195, x_196);
@@ -3340,7 +3340,7 @@ else
 lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; 
 x_202 = l_Lean_IR_EmitC_emitMainFn___closed__33;
 x_203 = lean_string_append(x_189, x_202);
-x_204 = l_IO_println___rarg___closed__1;
+x_204 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_205 = lean_string_append(x_203, x_204);
 x_206 = l_Lean_IR_EmitC_emitMainFn___closed__31;
 x_207 = lean_string_append(x_205, x_206);
@@ -3369,7 +3369,7 @@ x_164 = l_Lean_IR_EmitC_emitMainFn___closed__3;
 x_165 = lean_string_append(x_163, x_164);
 x_166 = lean_string_append(x_159, x_165);
 lean_dec(x_165);
-x_167 = l_IO_println___rarg___closed__1;
+x_167 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_168 = lean_string_append(x_166, x_167);
 x_169 = l_Lean_IR_EmitC_emitMainFn___closed__11;
 x_170 = l_List_forM___main___at_Lean_IR_EmitC_emitMainFn___spec__2(x_169, x_1, x_168);
@@ -3426,7 +3426,7 @@ if (x_256 == 0)
 lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; 
 x_257 = l_Lean_IR_EmitC_emitMainFn___closed__30;
 x_258 = lean_string_append(x_254, x_257);
-x_259 = l_IO_println___rarg___closed__1;
+x_259 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_260 = lean_string_append(x_258, x_259);
 x_261 = l_Lean_IR_EmitC_emitMainFn___closed__31;
 x_262 = lean_string_append(x_260, x_261);
@@ -3442,7 +3442,7 @@ else
 lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; 
 x_267 = l_Lean_IR_EmitC_emitMainFn___closed__33;
 x_268 = lean_string_append(x_254, x_267);
-x_269 = l_IO_println___rarg___closed__1;
+x_269 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_270 = lean_string_append(x_268, x_269);
 x_271 = l_Lean_IR_EmitC_emitMainFn___closed__31;
 x_272 = lean_string_append(x_270, x_271);
@@ -3471,7 +3471,7 @@ x_220 = l_Lean_IR_EmitC_emitMainFn___closed__3;
 x_221 = lean_string_append(x_219, x_220);
 x_222 = lean_string_append(x_215, x_221);
 lean_dec(x_221);
-x_223 = l_IO_println___rarg___closed__1;
+x_223 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_224 = lean_string_append(x_222, x_223);
 x_238 = l_Lean_IR_EmitC_emitMainFn___closed__11;
 x_239 = l_List_forM___main___at_Lean_IR_EmitC_emitMainFn___spec__2(x_238, x_1, x_224);
@@ -4094,7 +4094,7 @@ lean_inc(x_8);
 lean_dec(x_6);
 x_9 = l_Lean_IR_EmitC_emitFileHeader___closed__1;
 x_10 = lean_string_append(x_8, x_9);
-x_11 = l_IO_println___rarg___closed__1;
+x_11 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_12 = lean_string_append(x_10, x_11);
 x_13 = l_System_FilePath_dirName___closed__1;
 x_14 = l_Lean_Name_toStringWithSep___main(x_13, x_7);
@@ -4765,7 +4765,7 @@ x_16 = lean_string_append(x_14, x_15);
 lean_dec(x_15);
 x_17 = l_Option_HasRepr___rarg___closed__3;
 x_18 = lean_string_append(x_16, x_17);
-x_19 = l_IO_println___rarg___closed__1;
+x_19 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_20 = lean_string_append(x_18, x_19);
 lean_inc(x_1);
 lean_inc(x_7);
@@ -4867,7 +4867,7 @@ x_17 = lean_string_append(x_15, x_16);
 lean_dec(x_16);
 x_18 = l___private_Init_Util_1__mkPanicMessage___closed__2;
 x_19 = lean_string_append(x_17, x_18);
-x_20 = l_IO_println___rarg___closed__1;
+x_20 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_21 = lean_string_append(x_19, x_20);
 lean_inc(x_1);
 lean_inc(x_4);
@@ -4919,7 +4919,7 @@ lean_inc(x_31);
 lean_dec(x_10);
 x_32 = l_Array_forMAux___main___at_Lean_IR_EmitC_emitCase___spec__1___closed__1;
 x_33 = lean_string_append(x_5, x_32);
-x_34 = l_IO_println___rarg___closed__1;
+x_34 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_35 = lean_string_append(x_33, x_34);
 lean_inc(x_1);
 lean_inc(x_4);
@@ -4998,7 +4998,7 @@ lean_inc(x_11);
 lean_dec(x_10);
 x_12 = l_Lean_IR_EmitC_emitCase___closed__2;
 x_13 = lean_string_append(x_11, x_12);
-x_14 = l_IO_println___rarg___closed__1;
+x_14 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_15 = lean_string_append(x_13, x_14);
 x_16 = l_Lean_IR_ensureHasDefault(x_4);
 x_17 = lean_unsigned_to_nat(0u);
@@ -5204,7 +5204,7 @@ x_19 = lean_string_append(x_17, x_18);
 lean_dec(x_18);
 x_20 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_21 = lean_string_append(x_19, x_20);
-x_22 = l_IO_println___rarg___closed__1;
+x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_23 = lean_string_append(x_21, x_22);
 x_24 = lean_box(0);
 x_25 = lean_alloc_ctor(0, 2, 0);
@@ -5218,7 +5218,7 @@ lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean
 lean_dec(x_2);
 x_26 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_27 = lean_string_append(x_15, x_26);
-x_28 = l_IO_println___rarg___closed__1;
+x_28 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_29 = lean_string_append(x_27, x_28);
 x_30 = lean_box(0);
 x_31 = lean_alloc_ctor(0, 2, 0);
@@ -5285,7 +5285,7 @@ x_19 = lean_string_append(x_17, x_18);
 lean_dec(x_18);
 x_20 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_21 = lean_string_append(x_19, x_20);
-x_22 = l_IO_println___rarg___closed__1;
+x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_23 = lean_string_append(x_21, x_22);
 x_24 = lean_box(0);
 x_25 = lean_alloc_ctor(0, 2, 0);
@@ -5299,7 +5299,7 @@ lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean
 lean_dec(x_2);
 x_26 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_27 = lean_string_append(x_15, x_26);
-x_28 = l_IO_println___rarg___closed__1;
+x_28 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_29 = lean_string_append(x_27, x_28);
 x_30 = lean_box(0);
 x_31 = lean_alloc_ctor(0, 2, 0);
@@ -5327,7 +5327,7 @@ x_40 = lean_string_append(x_38, x_39);
 lean_dec(x_39);
 x_41 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_42 = lean_string_append(x_40, x_41);
-x_43 = l_IO_println___rarg___closed__1;
+x_43 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_44 = lean_string_append(x_42, x_43);
 x_45 = lean_box(0);
 x_46 = lean_alloc_ctor(0, 2, 0);
@@ -5341,7 +5341,7 @@ lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean
 lean_dec(x_2);
 x_47 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_48 = lean_string_append(x_36, x_47);
-x_49 = l_IO_println___rarg___closed__1;
+x_49 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_50 = lean_string_append(x_48, x_49);
 x_51 = lean_box(0);
 x_52 = lean_alloc_ctor(0, 2, 0);
@@ -5385,7 +5385,7 @@ x_9 = lean_string_append(x_5, x_8);
 lean_dec(x_8);
 x_10 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_11 = lean_string_append(x_9, x_10);
-x_12 = l_IO_println___rarg___closed__1;
+x_12 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_13 = lean_string_append(x_11, x_12);
 x_14 = lean_box(0);
 x_15 = lean_alloc_ctor(0, 2, 0);
@@ -5430,7 +5430,7 @@ x_14 = lean_string_append(x_12, x_13);
 lean_dec(x_13);
 x_15 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_16 = lean_string_append(x_14, x_15);
-x_17 = l_IO_println___rarg___closed__1;
+x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_18 = lean_string_append(x_16, x_17);
 x_19 = lean_box(0);
 x_20 = lean_alloc_ctor(0, 2, 0);
@@ -5484,7 +5484,7 @@ x_20 = lean_ctor_get(x_17, 0);
 lean_dec(x_20);
 x_21 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_22 = lean_string_append(x_19, x_21);
-x_23 = l_IO_println___rarg___closed__1;
+x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_24 = lean_string_append(x_22, x_23);
 x_25 = lean_box(0);
 lean_ctor_set(x_17, 1, x_24);
@@ -5499,7 +5499,7 @@ lean_inc(x_26);
 lean_dec(x_17);
 x_27 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_28 = lean_string_append(x_26, x_27);
-x_29 = l_IO_println___rarg___closed__1;
+x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_30 = lean_string_append(x_28, x_29);
 x_31 = lean_box(0);
 x_32 = lean_alloc_ctor(0, 2, 0);
@@ -5631,7 +5631,7 @@ x_19 = lean_string_append(x_16, x_18);
 lean_dec(x_18);
 x_20 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_21 = lean_string_append(x_19, x_20);
-x_22 = l_IO_println___rarg___closed__1;
+x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_23 = lean_string_append(x_21, x_22);
 x_24 = lean_box(0);
 x_25 = lean_alloc_ctor(0, 2, 0);
@@ -5790,7 +5790,7 @@ x_24 = lean_string_append(x_21, x_23);
 lean_dec(x_23);
 x_25 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_26 = lean_string_append(x_24, x_25);
-x_27 = l_IO_println___rarg___closed__1;
+x_27 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_28 = lean_string_append(x_26, x_27);
 x_29 = lean_box(0);
 lean_ctor_set(x_17, 1, x_28);
@@ -5811,7 +5811,7 @@ x_34 = lean_string_append(x_31, x_33);
 lean_dec(x_33);
 x_35 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_36 = lean_string_append(x_34, x_35);
-x_37 = l_IO_println___rarg___closed__1;
+x_37 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_38 = lean_string_append(x_36, x_37);
 x_39 = lean_box(0);
 x_40 = lean_alloc_ctor(0, 2, 0);
@@ -5877,7 +5877,7 @@ lean_inc(x_25);
 lean_dec(x_24);
 x_26 = l_Lean_IR_formatFnBody___main___closed__1;
 x_27 = lean_string_append(x_25, x_26);
-x_28 = l_IO_println___rarg___closed__1;
+x_28 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_29 = lean_string_append(x_27, x_28);
 x_4 = x_10;
 x_6 = x_29;
@@ -5965,7 +5965,7 @@ x_22 = lean_string_append(x_18, x_21);
 lean_dec(x_21);
 x_23 = l_Lean_IR_formatFnBody___main___closed__1;
 x_24 = lean_string_append(x_22, x_23);
-x_25 = l_IO_println___rarg___closed__1;
+x_25 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_26 = lean_string_append(x_24, x_25);
 x_27 = lean_box(0);
 lean_ctor_set(x_13, 1, x_26);
@@ -5988,7 +5988,7 @@ x_34 = lean_string_append(x_30, x_33);
 lean_dec(x_33);
 x_35 = l_Lean_IR_formatFnBody___main___closed__1;
 x_36 = lean_string_append(x_34, x_35);
-x_37 = l_IO_println___rarg___closed__1;
+x_37 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_38 = lean_string_append(x_36, x_37);
 x_39 = lean_box(0);
 x_40 = lean_alloc_ctor(0, 2, 0);
@@ -6049,7 +6049,7 @@ x_56 = lean_string_append(x_52, x_55);
 lean_dec(x_55);
 x_57 = l_Lean_IR_formatFnBody___main___closed__1;
 x_58 = lean_string_append(x_56, x_57);
-x_59 = l_IO_println___rarg___closed__1;
+x_59 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_60 = lean_string_append(x_58, x_59);
 x_61 = lean_box(0);
 if (lean_is_scalar(x_50)) {
@@ -6348,7 +6348,7 @@ x_20 = lean_ctor_get(x_17, 0);
 lean_dec(x_20);
 x_21 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_22 = lean_string_append(x_19, x_21);
-x_23 = l_IO_println___rarg___closed__1;
+x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_24 = lean_string_append(x_22, x_23);
 x_25 = lean_box(0);
 lean_ctor_set(x_17, 1, x_24);
@@ -6363,7 +6363,7 @@ lean_inc(x_26);
 lean_dec(x_17);
 x_27 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_28 = lean_string_append(x_26, x_27);
-x_29 = l_IO_println___rarg___closed__1;
+x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_30 = lean_string_append(x_28, x_29);
 x_31 = lean_box(0);
 x_32 = lean_alloc_ctor(0, 2, 0);
@@ -6422,7 +6422,7 @@ lean_inc(x_27);
 lean_dec(x_26);
 x_28 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_29 = lean_string_append(x_27, x_28);
-x_30 = l_IO_println___rarg___closed__1;
+x_30 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_31 = lean_string_append(x_29, x_30);
 x_4 = x_10;
 x_6 = x_31;
@@ -6560,7 +6560,7 @@ x_30 = lean_string_append(x_27, x_29);
 lean_dec(x_29);
 x_31 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_32 = lean_string_append(x_30, x_31);
-x_33 = l_IO_println___rarg___closed__1;
+x_33 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_34 = lean_string_append(x_32, x_33);
 x_35 = lean_box(0);
 lean_ctor_set(x_6, 1, x_34);
@@ -6639,7 +6639,7 @@ x_57 = lean_string_append(x_54, x_56);
 lean_dec(x_56);
 x_58 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_59 = lean_string_append(x_57, x_58);
-x_60 = l_IO_println___rarg___closed__1;
+x_60 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_61 = lean_string_append(x_59, x_60);
 x_62 = lean_box(0);
 x_63 = lean_alloc_ctor(0, 2, 0);
@@ -6695,7 +6695,7 @@ x_18 = lean_string_append(x_16, x_17);
 lean_dec(x_17);
 x_19 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_20 = lean_string_append(x_18, x_19);
-x_21 = l_IO_println___rarg___closed__1;
+x_21 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_22 = lean_string_append(x_20, x_21);
 x_3 = x_9;
 x_5 = x_22;
@@ -6758,7 +6758,7 @@ lean_dec(x_8);
 x_11 = lean_string_append(x_7, x_10);
 x_12 = l_Lean_IR_EmitC_emitReset___closed__2;
 x_13 = lean_string_append(x_11, x_12);
-x_14 = l_IO_println___rarg___closed__1;
+x_14 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_15 = lean_string_append(x_13, x_14);
 lean_inc(x_2);
 x_16 = l_Nat_forMAux___main___at_Lean_IR_EmitC_emitReset___spec__1(x_10, x_2, x_2, x_4, x_15);
@@ -6876,7 +6876,7 @@ lean_dec(x_10);
 x_13 = lean_string_append(x_9, x_12);
 x_14 = l_Lean_IR_EmitC_emitReset___closed__2;
 x_15 = lean_string_append(x_13, x_14);
-x_16 = l_IO_println___rarg___closed__1;
+x_16 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_17 = lean_string_append(x_15, x_16);
 x_18 = l_String_Iterator_HasRepr___closed__2;
 x_19 = lean_string_append(x_17, x_18);
@@ -6991,7 +6991,7 @@ x_19 = lean_string_append(x_17, x_18);
 lean_dec(x_18);
 x_20 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_21 = lean_string_append(x_19, x_20);
-x_22 = l_IO_println___rarg___closed__1;
+x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_23 = lean_string_append(x_21, x_22);
 x_24 = lean_box(0);
 lean_ctor_set(x_6, 1, x_23);
@@ -7019,7 +7019,7 @@ x_35 = lean_string_append(x_33, x_34);
 lean_dec(x_34);
 x_36 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_37 = lean_string_append(x_35, x_36);
-x_38 = l_IO_println___rarg___closed__1;
+x_38 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_39 = lean_string_append(x_37, x_38);
 x_40 = lean_box(0);
 x_41 = lean_alloc_ctor(0, 2, 0);
@@ -7073,7 +7073,7 @@ x_19 = lean_string_append(x_17, x_18);
 lean_dec(x_18);
 x_20 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_21 = lean_string_append(x_19, x_20);
-x_22 = l_IO_println___rarg___closed__1;
+x_22 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_23 = lean_string_append(x_21, x_22);
 x_24 = lean_box(0);
 lean_ctor_set(x_6, 1, x_23);
@@ -7101,7 +7101,7 @@ x_35 = lean_string_append(x_33, x_34);
 lean_dec(x_34);
 x_36 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_37 = lean_string_append(x_35, x_36);
-x_38 = l_IO_println___rarg___closed__1;
+x_38 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_39 = lean_string_append(x_37, x_38);
 x_40 = lean_box(0);
 x_41 = lean_alloc_ctor(0, 2, 0);
@@ -7286,7 +7286,7 @@ x_20 = lean_ctor_get(x_17, 0);
 lean_dec(x_20);
 x_21 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_22 = lean_string_append(x_19, x_21);
-x_23 = l_IO_println___rarg___closed__1;
+x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_24 = lean_string_append(x_22, x_23);
 x_25 = lean_box(0);
 lean_ctor_set(x_17, 1, x_24);
@@ -7301,7 +7301,7 @@ lean_inc(x_26);
 lean_dec(x_17);
 x_27 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_28 = lean_string_append(x_26, x_27);
-x_29 = l_IO_println___rarg___closed__1;
+x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_30 = lean_string_append(x_28, x_29);
 x_31 = lean_box(0);
 x_32 = lean_alloc_ctor(0, 2, 0);
@@ -7481,7 +7481,7 @@ x_14 = lean_ctor_get(x_11, 0);
 lean_dec(x_14);
 x_15 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_16 = lean_string_append(x_13, x_15);
-x_17 = l_IO_println___rarg___closed__1;
+x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_18 = lean_string_append(x_16, x_17);
 x_19 = lean_box(0);
 lean_ctor_set(x_11, 1, x_18);
@@ -7496,7 +7496,7 @@ lean_inc(x_20);
 lean_dec(x_11);
 x_21 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_22 = lean_string_append(x_20, x_21);
-x_23 = l_IO_println___rarg___closed__1;
+x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_24 = lean_string_append(x_22, x_23);
 x_25 = lean_box(0);
 x_26 = lean_alloc_ctor(0, 2, 0);
@@ -7582,7 +7582,7 @@ x_24 = lean_string_append(x_6, x_23);
 lean_dec(x_23);
 x_25 = l_Lean_IR_formatFnBody___main___closed__1;
 x_26 = lean_string_append(x_24, x_25);
-x_27 = l_IO_println___rarg___closed__1;
+x_27 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_28 = lean_string_append(x_26, x_27);
 x_29 = lean_box(0);
 x_30 = lean_alloc_ctor(0, 2, 0);
@@ -7675,7 +7675,7 @@ if (x_17 == 0)
 lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; 
 x_18 = l_Lean_IR_formatFnBody___main___closed__1;
 x_19 = lean_string_append(x_13, x_18);
-x_20 = l_IO_println___rarg___closed__1;
+x_20 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_21 = lean_string_append(x_19, x_20);
 x_22 = lean_box(0);
 lean_ctor_set(x_11, 1, x_21);
@@ -7700,7 +7700,7 @@ x_29 = l_Option_HasRepr___rarg___closed__3;
 x_30 = lean_string_append(x_27, x_29);
 x_31 = l_Lean_IR_formatFnBody___main___closed__1;
 x_32 = lean_string_append(x_30, x_31);
-x_33 = l_IO_println___rarg___closed__1;
+x_33 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_34 = lean_string_append(x_32, x_33);
 x_35 = lean_box(0);
 lean_ctor_set(x_25, 1, x_34);
@@ -7717,7 +7717,7 @@ x_37 = l_Option_HasRepr___rarg___closed__3;
 x_38 = lean_string_append(x_36, x_37);
 x_39 = l_Lean_IR_formatFnBody___main___closed__1;
 x_40 = lean_string_append(x_38, x_39);
-x_41 = l_IO_println___rarg___closed__1;
+x_41 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_42 = lean_string_append(x_40, x_41);
 x_43 = lean_box(0);
 x_44 = lean_alloc_ctor(0, 2, 0);
@@ -7742,7 +7742,7 @@ if (x_48 == 0)
 lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; 
 x_49 = l_Lean_IR_formatFnBody___main___closed__1;
 x_50 = lean_string_append(x_45, x_49);
-x_51 = l_IO_println___rarg___closed__1;
+x_51 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_52 = lean_string_append(x_50, x_51);
 x_53 = lean_box(0);
 x_54 = lean_alloc_ctor(0, 2, 0);
@@ -7770,7 +7770,7 @@ x_60 = l_Option_HasRepr___rarg___closed__3;
 x_61 = lean_string_append(x_58, x_60);
 x_62 = l_Lean_IR_formatFnBody___main___closed__1;
 x_63 = lean_string_append(x_61, x_62);
-x_64 = l_IO_println___rarg___closed__1;
+x_64 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_65 = lean_string_append(x_63, x_64);
 x_66 = lean_box(0);
 if (lean_is_scalar(x_59)) {
@@ -7905,7 +7905,7 @@ lean_inc(x_27);
 lean_dec(x_26);
 x_28 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_29 = lean_string_append(x_27, x_28);
-x_30 = l_IO_println___rarg___closed__1;
+x_30 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_31 = lean_string_append(x_29, x_30);
 x_4 = x_10;
 x_6 = x_31;
@@ -7986,7 +7986,7 @@ x_25 = lean_string_append(x_22, x_24);
 lean_dec(x_24);
 x_26 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_27 = lean_string_append(x_25, x_26);
-x_28 = l_IO_println___rarg___closed__1;
+x_28 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_29 = lean_string_append(x_27, x_28);
 lean_inc(x_23);
 x_30 = l_Nat_forMAux___main___at_Lean_IR_EmitC_emitPartialApp___spec__1(x_1, x_3, x_23, x_23, x_4, x_29);
@@ -8144,7 +8144,7 @@ x_26 = lean_ctor_get(x_23, 0);
 lean_dec(x_26);
 x_27 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_28 = lean_string_append(x_25, x_27);
-x_29 = l_IO_println___rarg___closed__1;
+x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_30 = lean_string_append(x_28, x_29);
 x_31 = lean_box(0);
 lean_ctor_set(x_23, 1, x_30);
@@ -8159,7 +8159,7 @@ lean_inc(x_32);
 lean_dec(x_23);
 x_33 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_34 = lean_string_append(x_32, x_33);
-x_35 = l_IO_println___rarg___closed__1;
+x_35 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_36 = lean_string_append(x_34, x_35);
 x_37 = lean_box(0);
 x_38 = lean_alloc_ctor(0, 2, 0);
@@ -8179,7 +8179,7 @@ lean_inc(x_42);
 lean_dec(x_41);
 x_43 = l_Lean_IR_EmitC_emitApp___closed__3;
 x_44 = lean_string_append(x_42, x_43);
-x_45 = l_IO_println___rarg___closed__1;
+x_45 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_46 = lean_string_append(x_44, x_45);
 x_47 = l_Lean_IR_EmitC_emitLhs(x_1, x_4, x_46);
 x_48 = !lean_is_exclusive(x_47);
@@ -8382,7 +8382,7 @@ x_17 = lean_string_append(x_13, x_16);
 lean_dec(x_16);
 x_18 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_19 = lean_string_append(x_17, x_18);
-x_20 = l_IO_println___rarg___closed__1;
+x_20 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_21 = lean_string_append(x_19, x_20);
 x_22 = lean_box(0);
 lean_ctor_set(x_8, 1, x_21);
@@ -8405,7 +8405,7 @@ x_29 = lean_string_append(x_25, x_28);
 lean_dec(x_28);
 x_30 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_31 = lean_string_append(x_29, x_30);
-x_32 = l_IO_println___rarg___closed__1;
+x_32 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_33 = lean_string_append(x_31, x_32);
 x_34 = lean_box(0);
 x_35 = lean_alloc_ctor(0, 2, 0);
@@ -8573,7 +8573,7 @@ x_12 = lean_string_append(x_8, x_11);
 lean_dec(x_11);
 x_13 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_14 = lean_string_append(x_12, x_13);
-x_15 = l_IO_println___rarg___closed__1;
+x_15 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_16 = lean_string_append(x_14, x_15);
 x_17 = lean_box(0);
 x_18 = lean_alloc_ctor(0, 2, 0);
@@ -8623,7 +8623,7 @@ x_14 = lean_string_append(x_10, x_13);
 lean_dec(x_13);
 x_15 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_16 = lean_string_append(x_14, x_15);
-x_17 = l_IO_println___rarg___closed__1;
+x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_18 = lean_string_append(x_16, x_17);
 x_19 = lean_box(0);
 lean_ctor_set(x_5, 1, x_18);
@@ -8646,7 +8646,7 @@ x_26 = lean_string_append(x_22, x_25);
 lean_dec(x_25);
 x_27 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_28 = lean_string_append(x_26, x_27);
-x_29 = l_IO_println___rarg___closed__1;
+x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_30 = lean_string_append(x_28, x_29);
 x_31 = lean_box(0);
 x_32 = lean_alloc_ctor(0, 2, 0);
@@ -8695,7 +8695,7 @@ x_14 = lean_string_append(x_10, x_13);
 lean_dec(x_13);
 x_15 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_16 = lean_string_append(x_14, x_15);
-x_17 = l_IO_println___rarg___closed__1;
+x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_18 = lean_string_append(x_16, x_17);
 x_19 = lean_box(0);
 lean_ctor_set(x_5, 1, x_18);
@@ -8718,7 +8718,7 @@ x_26 = lean_string_append(x_22, x_25);
 lean_dec(x_25);
 x_27 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_28 = lean_string_append(x_26, x_27);
-x_29 = l_IO_println___rarg___closed__1;
+x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_30 = lean_string_append(x_28, x_29);
 x_31 = lean_box(0);
 x_32 = lean_alloc_ctor(0, 2, 0);
@@ -9037,7 +9037,7 @@ x_12 = lean_ctor_get(x_9, 0);
 lean_dec(x_12);
 x_13 = l_Lean_IR_formatFnBody___main___closed__1;
 x_14 = lean_string_append(x_11, x_13);
-x_15 = l_IO_println___rarg___closed__1;
+x_15 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_16 = lean_string_append(x_14, x_15);
 x_17 = lean_box(0);
 lean_ctor_set(x_9, 1, x_16);
@@ -9052,7 +9052,7 @@ lean_inc(x_18);
 lean_dec(x_9);
 x_19 = l_Lean_IR_formatFnBody___main___closed__1;
 x_20 = lean_string_append(x_18, x_19);
-x_21 = l_IO_println___rarg___closed__1;
+x_21 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_22 = lean_string_append(x_20, x_21);
 x_23 = lean_box(0);
 x_24 = lean_alloc_ctor(0, 2, 0);
@@ -9082,7 +9082,7 @@ x_32 = lean_string_append(x_30, x_31);
 lean_dec(x_31);
 x_33 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_34 = lean_string_append(x_32, x_33);
-x_35 = l_IO_println___rarg___closed__1;
+x_35 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_36 = lean_string_append(x_34, x_35);
 x_37 = lean_box(0);
 lean_ctor_set(x_6, 1, x_36);
@@ -9106,7 +9106,7 @@ x_43 = lean_string_append(x_41, x_42);
 lean_dec(x_42);
 x_44 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_45 = lean_string_append(x_43, x_44);
-x_46 = l_IO_println___rarg___closed__1;
+x_46 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_47 = lean_string_append(x_45, x_46);
 x_48 = lean_box(0);
 x_49 = lean_alloc_ctor(0, 2, 0);
@@ -9585,7 +9585,7 @@ lean_inc(x_26);
 lean_dec(x_25);
 x_27 = l_Lean_IR_formatFnBody___main___closed__1;
 x_28 = lean_string_append(x_26, x_27);
-x_29 = l_IO_println___rarg___closed__1;
+x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_30 = lean_string_append(x_28, x_29);
 x_4 = x_10;
 x_6 = x_30;
@@ -9662,7 +9662,7 @@ lean_inc(x_28);
 lean_dec(x_27);
 x_29 = l_Lean_IR_formatFnBody___main___closed__1;
 x_30 = lean_string_append(x_28, x_29);
-x_31 = l_IO_println___rarg___closed__1;
+x_31 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_32 = lean_string_append(x_30, x_31);
 x_4 = x_10;
 x_6 = x_32;
@@ -9737,7 +9737,7 @@ x_26 = lean_string_append(x_24, x_25);
 lean_dec(x_25);
 x_27 = l_Lean_IR_formatFnBody___main___closed__1;
 x_28 = lean_string_append(x_26, x_27);
-x_29 = l_IO_println___rarg___closed__1;
+x_29 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_30 = lean_string_append(x_28, x_29);
 x_4 = x_10;
 x_6 = x_30;
@@ -9829,7 +9829,7 @@ x_15 = lean_ctor_get(x_12, 0);
 lean_dec(x_15);
 x_16 = l_Lean_IR_EmitC_emitTailCall___closed__3;
 x_17 = lean_string_append(x_14, x_16);
-x_18 = l_IO_println___rarg___closed__1;
+x_18 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_19 = lean_string_append(x_17, x_18);
 x_20 = lean_box(0);
 lean_ctor_set(x_12, 1, x_19);
@@ -9844,7 +9844,7 @@ lean_inc(x_21);
 lean_dec(x_12);
 x_22 = l_Lean_IR_EmitC_emitTailCall___closed__3;
 x_23 = lean_string_append(x_21, x_22);
-x_24 = l_IO_println___rarg___closed__1;
+x_24 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_25 = lean_string_append(x_23, x_24);
 x_26 = lean_box(0);
 x_27 = lean_alloc_ctor(0, 2, 0);
@@ -9859,7 +9859,7 @@ lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean
 lean_dec(x_7);
 x_28 = l_addParenHeuristic___closed__1;
 x_29 = lean_string_append(x_3, x_28);
-x_30 = l_IO_println___rarg___closed__1;
+x_30 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_31 = lean_string_append(x_29, x_30);
 lean_inc(x_6);
 x_32 = l_Nat_forMAux___main___at_Lean_IR_EmitC_emitTailCall___spec__2(x_4, x_5, x_6, x_6, x_2, x_31);
@@ -10301,7 +10301,7 @@ x_91 = lean_ctor_get(x_88, 0);
 lean_dec(x_91);
 x_92 = l_Lean_IR_formatFnBody___main___closed__1;
 x_93 = lean_string_append(x_90, x_92);
-x_94 = l_IO_println___rarg___closed__1;
+x_94 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_95 = lean_string_append(x_93, x_94);
 x_96 = lean_box(0);
 lean_ctor_set(x_88, 1, x_95);
@@ -10316,7 +10316,7 @@ lean_inc(x_97);
 lean_dec(x_88);
 x_98 = l_Lean_IR_formatFnBody___main___closed__1;
 x_99 = lean_string_append(x_97, x_98);
-x_100 = l_IO_println___rarg___closed__1;
+x_100 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_101 = lean_string_append(x_99, x_100);
 x_102 = lean_box(0);
 x_103 = lean_alloc_ctor(0, 2, 0);
@@ -10346,7 +10346,7 @@ lean_dec(x_3);
 lean_dec(x_1);
 x_107 = l_Lean_IR_EmitC_emitBlock___main___closed__2;
 x_108 = lean_string_append(x_4, x_107);
-x_109 = l_IO_println___rarg___closed__1;
+x_109 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_110 = lean_string_append(x_108, x_109);
 x_111 = lean_box(0);
 x_112 = lean_alloc_ctor(0, 2, 0);
@@ -10387,7 +10387,7 @@ x_18 = lean_string_append(x_4, x_17);
 lean_dec(x_17);
 x_19 = l___private_Init_Util_1__mkPanicMessage___closed__2;
 x_20 = lean_string_append(x_18, x_19);
-x_21 = l_IO_println___rarg___closed__1;
+x_21 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_22 = lean_string_append(x_20, x_21);
 lean_inc(x_1);
 lean_inc(x_3);
@@ -10485,7 +10485,7 @@ _start:
 lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; 
 x_4 = l_addParenHeuristic___closed__1;
 x_5 = lean_string_append(x_3, x_4);
-x_6 = l_IO_println___rarg___closed__1;
+x_6 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_7 = lean_string_append(x_5, x_6);
 x_8 = 0;
 lean_inc(x_1);
@@ -10764,7 +10764,7 @@ x_24 = lean_string_append(x_22, x_23);
 lean_dec(x_23);
 x_25 = l_Nat_forMAux___main___at_Lean_IR_EmitC_emitDeclAux___spec__1___closed__3;
 x_26 = lean_string_append(x_24, x_25);
-x_27 = l_IO_println___rarg___closed__1;
+x_27 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_28 = lean_string_append(x_26, x_27);
 x_3 = x_9;
 x_5 = x_28;
@@ -11049,7 +11049,7 @@ block_105:
 lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; 
 x_30 = l_Lean_IR_EmitC_emitDeclAux___closed__1;
 x_31 = lean_string_append(x_29, x_30);
-x_32 = l_IO_println___rarg___closed__1;
+x_32 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_33 = lean_string_append(x_31, x_32);
 x_34 = l_Lean_closureMaxArgs;
 x_35 = lean_nat_dec_lt(x_34, x_28);
@@ -11426,7 +11426,7 @@ block_206:
 lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; uint8_t x_154; 
 x_149 = l_Lean_IR_EmitC_emitDeclAux___closed__1;
 x_150 = lean_string_append(x_148, x_149);
-x_151 = l_IO_println___rarg___closed__1;
+x_151 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_152 = lean_string_append(x_150, x_151);
 x_153 = l_Lean_closureMaxArgs;
 x_154 = lean_nat_dec_lt(x_153, x_147);
@@ -11915,7 +11915,7 @@ x_14 = lean_ctor_get(x_11, 0);
 lean_dec(x_14);
 x_15 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_16 = lean_string_append(x_13, x_15);
-x_17 = l_IO_println___rarg___closed__1;
+x_17 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_18 = lean_string_append(x_16, x_17);
 x_19 = lean_box(0);
 lean_ctor_set(x_11, 1, x_18);
@@ -11930,7 +11930,7 @@ lean_inc(x_20);
 lean_dec(x_11);
 x_21 = l_Lean_IR_EmitC_emitInc___closed__1;
 x_22 = lean_string_append(x_20, x_21);
-x_23 = l_IO_println___rarg___closed__1;
+x_23 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_24 = lean_string_append(x_22, x_23);
 x_25 = lean_box(0);
 x_26 = lean_alloc_ctor(0, 2, 0);
@@ -12059,7 +12059,7 @@ lean_inc(x_21);
 lean_dec(x_20);
 x_22 = l_Lean_IR_EmitC_emitDeclInit___closed__1;
 x_23 = lean_string_append(x_21, x_22);
-x_24 = l_IO_println___rarg___closed__1;
+x_24 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_25 = lean_string_append(x_23, x_24);
 x_26 = l_Lean_IR_EmitC_emitMarkPersistent(x_1, x_8, x_2, x_25);
 return x_26;
@@ -12129,7 +12129,7 @@ lean_inc(x_39);
 lean_dec(x_38);
 x_40 = l_Lean_IR_EmitC_emitMainFn___closed__3;
 x_41 = lean_string_append(x_39, x_40);
-x_42 = l_IO_println___rarg___closed__1;
+x_42 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_43 = lean_string_append(x_41, x_42);
 x_44 = l_Lean_IR_EmitC_emitDeclInit___closed__2;
 x_45 = lean_string_append(x_43, x_44);
@@ -12273,7 +12273,7 @@ x_83 = lean_ctor_get(x_80, 0);
 lean_dec(x_83);
 x_84 = l_Lean_IR_EmitC_emitMainFn___closed__3;
 x_85 = lean_string_append(x_82, x_84);
-x_86 = l_IO_println___rarg___closed__1;
+x_86 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_87 = lean_string_append(x_85, x_86);
 x_88 = l_Lean_IR_EmitC_emitDeclInit___closed__2;
 x_89 = lean_string_append(x_87, x_88);
@@ -12294,7 +12294,7 @@ lean_inc(x_95);
 lean_dec(x_80);
 x_96 = l_Lean_IR_EmitC_emitMainFn___closed__3;
 x_97 = lean_string_append(x_95, x_96);
-x_98 = l_IO_println___rarg___closed__1;
+x_98 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_99 = lean_string_append(x_97, x_98);
 x_100 = l_Lean_IR_EmitC_emitDeclInit___closed__2;
 x_101 = lean_string_append(x_99, x_100);
@@ -12392,7 +12392,7 @@ lean_inc(x_128);
 lean_dec(x_127);
 x_129 = l_Lean_IR_EmitC_emitDeclInit___closed__1;
 x_130 = lean_string_append(x_128, x_129);
-x_131 = l_IO_println___rarg___closed__1;
+x_131 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_132 = lean_string_append(x_130, x_131);
 x_133 = l_Lean_IR_EmitC_emitMarkPersistent(x_1, x_114, x_2, x_132);
 return x_133;
@@ -12466,7 +12466,7 @@ lean_inc(x_146);
 lean_dec(x_145);
 x_147 = l_Lean_IR_EmitC_emitMainFn___closed__3;
 x_148 = lean_string_append(x_146, x_147);
-x_149 = l_IO_println___rarg___closed__1;
+x_149 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_150 = lean_string_append(x_148, x_149);
 x_151 = l_Lean_IR_EmitC_emitDeclInit___closed__2;
 x_152 = lean_string_append(x_150, x_151);
@@ -12610,7 +12610,7 @@ if (lean_is_exclusive(x_181)) {
 }
 x_184 = l_Lean_IR_EmitC_emitMainFn___closed__3;
 x_185 = lean_string_append(x_182, x_184);
-x_186 = l_IO_println___rarg___closed__1;
+x_186 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_187 = lean_string_append(x_185, x_186);
 x_188 = l_Lean_IR_EmitC_emitDeclInit___closed__2;
 x_189 = lean_string_append(x_187, x_188);
@@ -12715,7 +12715,7 @@ x_15 = l_Array_forMAux___main___at_Lean_IR_EmitC_emitInitFn___spec__1___closed__
 x_16 = lean_string_append(x_14, x_15);
 x_17 = lean_string_append(x_4, x_16);
 lean_dec(x_16);
-x_18 = l_IO_println___rarg___closed__1;
+x_18 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_19 = lean_string_append(x_17, x_18);
 x_20 = lean_unsigned_to_nat(1u);
 x_21 = lean_nat_add(x_2, x_20);

stage0/stdlib/Init/Lean/Data/Format.c

@@ -82,6 +82,7 @@ lean_object* l_Lean_Format_defWidth;
 lean_object* l_Lean_Format_joinSuffix(lean_object*);
 lean_object* l_Int_repr(lean_object*);
 lean_object* l_Lean_Format_repr___main___closed__13;
+extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1;
 lean_object* l_Lean_Format_pretty___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_Option_format(lean_object*);
 lean_object* l_Lean_Format_repr___main___closed__6;
@@ -124,7 +125,6 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*);
 extern lean_object* l_List_repr___rarg___closed__2;
 lean_object* l_Lean_kvMapHasFormat___closed__1;
 extern lean_object* l_List_reprAux___main___rarg___closed__1;
-extern lean_object* l_IO_println___rarg___closed__1;
 lean_object* l_Lean_formatKVMap(lean_object*);
 lean_object* l_Function_comp___rarg(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_prodHasFormat(lean_object*, lean_object*);
@@ -868,7 +868,7 @@ lean_dec(x_4);
 x_10 = lean_ctor_get(x_5, 0);
 lean_inc(x_10);
 lean_dec(x_5);
-x_11 = l_IO_println___rarg___closed__1;
+x_11 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_12 = lean_string_append(x_3, x_11);
 x_13 = 32;
 lean_inc(x_10);
@@ -3498,7 +3498,7 @@ lean_object* l_String_toFormat(lean_object* x_1) {
 _start:
 {
 lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; 
-x_2 = l_IO_println___rarg___closed__1;
+x_2 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
 x_3 = l_String_splitOn(x_1, x_2);
 x_4 = lean_box(1);
 x_5 = l_Lean_Format_joinSep___main___at_String_toFormat___spec__1(x_3, x_4);

stage0/stdlib/Init/Lean/Elab/Import.c

@@ -32,7 +32,6 @@ lean_object* l_Lean_Elab_parseImports___closed__1;
 lean_object* l_Lean_MessageLog_toList(lean_object*);
 lean_object* l_Lean_Elab_headerToImports___closed__3;
 lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
-lean_object* l_IO_println___at_Lean_HasRepr_HasEval___spec__1(lean_object*, lean_object*);
 lean_object* lean_name_mk_string(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_processHeader___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* lean_print_deps(lean_object*, lean_object*);
@@ -48,6 +47,7 @@ lean_object* l_Lean_Syntax_getPos(lean_object*);
 uint8_t l_Lean_Syntax_isNone(lean_object*);
 lean_object* l_Array_toList___rarg(lean_object*);
 lean_object* l_Lean_Elab_parseImports(lean_object*, lean_object*, lean_object*);
+lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3(lean_object*, lean_object*);
 lean_object* l_List_forM___main___at_Lean_Elab_printDeps___spec__1(lean_object*, lean_object*);
 lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*);
 lean_object* l_Lean_Syntax_asNode(lean_object*);
@@ -1049,7 +1049,7 @@ lean_inc(x_9);
 x_10 = lean_ctor_get(x_8, 1);
 lean_inc(x_10);
 lean_dec(x_8);
-x_11 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_9, x_10);
+x_11 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_9, x_10);
 lean_dec(x_9);
 if (lean_obj_tag(x_11) == 0)
 {

stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c

@@ -25,6 +25,7 @@ lean_object* l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(l
 lean_object* l_Lean_Elab_Tactic_getLocalInsts___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6;
 uint8_t l_PersistentHashMap_contains___at_Lean_Elab_Tactic_addBuiltinTactic___spec__4(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_evalTactic___main___closed__3;
 extern lean_object* l_Lean_Parser_declareBuiltinParser___closed__8;
@@ -55,12 +56,14 @@ lean_object* l_Lean_Elab_Tactic_evalSkip(lean_object*, lean_object*);
 lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalTry___closed__2;
 extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2;
 lean_object* l_Lean_Elab_Tactic_reportUnsolvedGoals(lean_object*, lean_object*, lean_object*, lean_object*);
+extern lean_object* l_Lean_Parser_Tactic_try___elambda__1___closed__1;
 lean_object* l_Lean_Elab_Tactic_trace(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_focus(lean_object*);
 lean_object* l_Lean_Elab_Tactic_getLCtx___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_monadQuotation___closed__2;
 extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1;
+extern lean_object* l_Prod_HasRepr___rarg___closed__1;
 lean_object* l_Lean_Elab_Tactic_evalTry___closed__1;
 lean_object* l_Lean_Elab_Tactic_evalIntro___lambda__2___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_liftMetaM___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@@ -89,6 +92,7 @@ uint8_t l_PersistentHashMap_containsAtAux___main___at_Lean_Parser_mkFreshKindAux
 lean_object* l_Lean_Elab_Tactic_resettingSynthInstanceCacheWhen___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_evalIntro(lean_object*, lean_object*, lean_object*);
 lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalSeq___closed__1;
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9;
 lean_object* l_PersistentHashMap_findAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__3(lean_object*, size_t, lean_object*);
 lean_object* l_Lean_Elab_Tactic_evalCase___closed__3;
 lean_object* l_Lean_Meta_assumption___boxed(lean_object*, lean_object*, lean_object*);
@@ -98,6 +102,7 @@ lean_object* l_Lean_Elab_Tactic_setGoals___boxed(lean_object*, lean_object*, lea
 uint8_t l_Lean_SMap_contains___at_Lean_Elab_Tactic_addBuiltinTactic___spec__1(lean_object*, lean_object*);
 lean_object* lean_string_append(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_getMCtx___boxed(lean_object*);
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4;
 lean_object* l_Lean_Elab_Tactic_getGoals___boxed(lean_object*);
 lean_object* l_PersistentArray_push___rarg(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__2;
@@ -107,8 +112,10 @@ extern lean_object* l_Lean_Parser_Tactic_assumption___elambda__1___closed__2;
 lean_object* l_Lean_Elab_Tactic_withFreshMacroScope(lean_object*);
 lean_object* l_Lean_MetavarContext_renameMVar(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Term_reportUnsolvedGoals___closed__3;
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1(lean_object*, lean_object*, lean_object*);
 lean_object* l_AssocList_find___main___at_Lean_Elab_Tactic_evalTactic___main___spec__6___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_evalTry___lambda__1___closed__4;
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8;
 lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalNestedTacticBlock___closed__2;
 size_t l_USize_shiftRight(size_t, size_t);
 lean_object* l_Lean_Elab_Tactic_resettingSynthInstanceCacheWhen___rarg(uint8_t, lean_object*, lean_object*, lean_object*);
@@ -130,14 +137,18 @@ lean_object* lean_nat_add(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_collectMVars___closed__1;
 lean_object* l_IO_ofExcept___at_Lean_registerClassAttr___spec__1(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__1;
+lean_object* l_Lean_Elab_Tactic_evalRepeat___closed__1;
 lean_object* l_Lean_Elab_Tactic_getMainGoal___closed__2;
+lean_object* l_Lean_Elab_Tactic_evalRepeat(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_monadLog___closed__3;
 extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__1;
 lean_object* l_Lean_Meta_intro(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_tagUntaggedGoals___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 extern lean_object* l_Lean_Meta_Exception_toMessageData___closed__45;
 lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCase___closed__2;
+lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3;
 lean_object* l_Lean_Syntax_getTailWithInfo___main(lean_object*);
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5;
 lean_object* l_List_findM_x3f___main___at_Lean_Elab_Tactic_evalCase___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Array_isEqvAux___main___at_Lean_Elab_Tactic_withMVarContext___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_getPos___at_Lean_Elab_Tactic_evalTraceState___spec__2(lean_object*, lean_object*, lean_object*);
@@ -230,6 +241,7 @@ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalSkip___closed__1;
 extern lean_object* l_Lean_Parser_Tactic_paren___elambda__1___closed__1;
 lean_object* l_Lean_Elab_Tactic_monadLog___closed__1;
 lean_object* l_Lean_Elab_Term_ensureHasType___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1;
 lean_object* l_Lean_Elab_mkElabAttribute___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_save___boxed(lean_object*);
 lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__5;
@@ -256,6 +268,7 @@ extern lean_object* l_Lean_Parser_Tactic_case___elambda__1___closed__2;
 extern lean_object* l_Lean_nullKind___closed__2;
 lean_object* l_Lean_Elab_Tactic_monadLog___lambda__1(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_ParametricAttribute_setParam___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2;
 lean_object* l_Lean_Elab_Tactic_evalTry___lambda__1___closed__3;
 lean_object* l_Lean_Elab_Tactic_evalAssumption___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_liftMetaTactic___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
@@ -264,6 +277,8 @@ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalOrelse___closed__1;
 lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalAssumption(lean_object*);
 lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__3;
 lean_object* l_List_erase___main___at_Lean_Elab_Tactic_evalCase___spec__2(lean_object*, lean_object*);
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1;
+extern lean_object* l_Option_HasRepr___rarg___closed__3;
 lean_object* l_Lean_Elab_Term_traceAtCmdPos___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_throwUnsupportedSyntax(lean_object*);
@@ -275,6 +290,7 @@ lean_object* l_Lean_Elab_goalsToMessageData(lean_object*);
 lean_object* l_Lean_Elab_Term_liftMetaM___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
 uint8_t l_Lean_MetavarContext_isAnonymousMVar(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___lambda__1___closed__4;
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2;
 lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_evalAssumption___lambda__1(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_declareBuiltinTactic___closed__4;
@@ -286,6 +302,7 @@ lean_object* l_Lean_Elab_Tactic_modifyMCtx___boxed(lean_object*, lean_object*, l
 lean_object* l_Lean_Elab_Tactic_evalParen(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_liftMetaTactic(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_evalTactic___main___closed__1;
+extern lean_object* l_Lean_Parser_Tactic_repeat___elambda__1___closed__1;
 extern lean_object* l_Lean_Parser_Tactic_skip___elambda__1___closed__1;
 lean_object* l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed(lean_object*, lean_object*);
 lean_object* l_PersistentHashMap_empty___at_Lean_Elab_Tactic_mkBuiltinTacticTable___spec__3;
@@ -299,6 +316,7 @@ lean_object* l_Lean_nameToExprAux___main(lean_object*);
 lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalSkip___closed__3;
 lean_object* l_Lean_Elab_Tactic_declareBuiltinTactic___closed__1;
 lean_object* l_Lean_Elab_Term_throwError___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
+extern lean_object* l_Lean_Parser_Tactic_repeat___elambda__1___closed__2;
 lean_object* l_Lean_Syntax_getArgs(lean_object*);
 lean_object* l_Lean_Elab_Tactic_monadLog___closed__6;
 lean_object* l_Lean_Elab_Tactic_evalSeq(lean_object*, lean_object*, lean_object*);
@@ -335,11 +353,13 @@ lean_object* l_Lean_SMap_empty___at_Lean_Elab_Tactic_mkBuiltinTacticTable___spec
 lean_object* l_Lean_Elab_Tactic_addBuiltinTactic___closed__1;
 lean_object* l_Lean_Elab_Tactic_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_evalTry___lambda__1___closed__2;
+lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat(lean_object*);
 lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalParen___closed__1;
 lean_object* l_Lean_Elab_Tactic_ensureHasNoMVars(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_List_erase___main___at_Lean_Elab_Tactic_evalCase___spec__2___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Term_instantiateMVars___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_EStateM_Backtrackable___closed__1;
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7;
 lean_object* l_Lean_SMap_empty___at_Lean_Elab_Tactic_mkBuiltinTacticTable___spec__1___closed__2;
 lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_liftTermElabM___rarg(lean_object*, lean_object*, lean_object*);
@@ -365,6 +385,7 @@ lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_ob
 lean_object* l_Lean_Elab_Tactic_evalTraceState___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Elab_Tactic_tacticElabAttribute___closed__3;
 lean_object* l_Lean_Elab_Tactic_evalIntro___lambda__2(lean_object*, lean_object*, lean_object*);
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3;
 lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalNestedTacticBlock(lean_object*);
 lean_object* l_HashMapImp_contains___at_Lean_Elab_Tactic_addBuiltinTactic___spec__2___boxed(lean_object*, lean_object*);
 extern lean_object* l_Lean_Parser_regBuiltinTacticParserAttr___closed__3;
@@ -13297,6 +13318,307 @@ x_5 = l_Lean_Elab_Tactic_addBuiltinTactic(x_2, x_3, x_4, x_1);
 return x_5;
 }
 }
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1() {
+_start:
+{
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = lean_box(0);
+x_2 = l_Lean_Parser_Tactic_try___elambda__1___closed__1;
+x_3 = lean_alloc_ctor(2, 2, 0);
+lean_ctor_set(x_3, 0, x_1);
+lean_ctor_set(x_3, 1, x_2);
+return x_3;
+}
+}
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2() {
+_start:
+{
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = l_Array_empty___closed__1;
+x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1;
+x_3 = lean_array_push(x_1, x_2);
+return x_3;
+}
+}
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3() {
+_start:
+{
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = lean_box(0);
+x_2 = l_Prod_HasRepr___rarg___closed__1;
+x_3 = lean_alloc_ctor(2, 2, 0);
+lean_ctor_set(x_3, 0, x_1);
+lean_ctor_set(x_3, 1, x_2);
+return x_3;
+}
+}
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4() {
+_start:
+{
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = l_Array_empty___closed__1;
+x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3;
+x_3 = lean_array_push(x_1, x_2);
+return x_3;
+}
+}
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5() {
+_start:
+{
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = lean_box(0);
+x_2 = l_Option_HasRepr___rarg___closed__3;
+x_3 = lean_alloc_ctor(2, 2, 0);
+lean_ctor_set(x_3, 0, x_1);
+lean_ctor_set(x_3, 1, x_2);
+return x_3;
+}
+}
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6() {
+_start:
+{
+lean_object* x_1; 
+x_1 = lean_mk_string(";");
+return x_1;
+}
+}
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7() {
+_start:
+{
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = lean_box(0);
+x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6;
+x_3 = lean_alloc_ctor(2, 2, 0);
+lean_ctor_set(x_3, 0, x_1);
+lean_ctor_set(x_3, 1, x_2);
+return x_3;
+}
+}
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8() {
+_start:
+{
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = lean_box(0);
+x_2 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__1;
+x_3 = lean_alloc_ctor(2, 2, 0);
+lean_ctor_set(x_3, 0, x_1);
+lean_ctor_set(x_3, 1, x_2);
+return x_3;
+}
+}
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9() {
+_start:
+{
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = l_Array_empty___closed__1;
+x_2 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8;
+x_3 = lean_array_push(x_1, x_2);
+return x_3;
+}
+}
+lean_object* l_Lean_Elab_Tactic_evalRepeat___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
+_start:
+{
+uint8_t x_4; lean_object* x_69; uint8_t x_70; 
+x_69 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2;
+lean_inc(x_1);
+x_70 = l_Lean_Syntax_isOfKind(x_1, x_69);
+if (x_70 == 0)
+{
+uint8_t x_71; 
+x_71 = 0;
+x_4 = x_71;
+goto block_68;
+}
+else
+{
+lean_object* x_72; lean_object* x_73; lean_object* x_74; uint8_t x_75; 
+x_72 = l_Lean_Syntax_getArgs(x_1);
+x_73 = lean_array_get_size(x_72);
+lean_dec(x_72);
+x_74 = lean_unsigned_to_nat(2u);
+x_75 = lean_nat_dec_eq(x_73, x_74);
+lean_dec(x_73);
+x_4 = x_75;
+goto block_68;
+}
+block_68:
+{
+uint8_t x_5; 
+x_5 = l_coeDecidableEq(x_4);
+if (x_5 == 0)
+{
+lean_object* x_6; 
+lean_dec(x_1);
+x_6 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3);
+return x_6;
+}
+else
+{
+lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; 
+x_7 = lean_unsigned_to_nat(1u);
+x_8 = l_Lean_Syntax_getArg(x_1, x_7);
+lean_dec(x_1);
+x_9 = l_Lean_Elab_Tactic_getCurrMacroScope(x_2, x_3);
+lean_dec(x_2);
+x_10 = !lean_is_exclusive(x_9);
+if (x_10 == 0)
+{
+lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; 
+x_11 = lean_ctor_get(x_9, 0);
+lean_dec(x_11);
+x_12 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4;
+lean_inc(x_8);
+x_13 = lean_array_push(x_12, x_8);
+x_14 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5;
+x_15 = lean_array_push(x_13, x_14);
+x_16 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1;
+x_17 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_17, 0, x_16);
+lean_ctor_set(x_17, 1, x_15);
+x_18 = l_Array_empty___closed__1;
+x_19 = lean_array_push(x_18, x_17);
+x_20 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7;
+x_21 = lean_array_push(x_19, x_20);
+x_22 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9;
+x_23 = lean_array_push(x_22, x_8);
+x_24 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2;
+x_25 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_25, 0, x_24);
+lean_ctor_set(x_25, 1, x_23);
+x_26 = lean_array_push(x_21, x_25);
+x_27 = l_Lean_nullKind___closed__2;
+x_28 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_28, 0, x_27);
+lean_ctor_set(x_28, 1, x_26);
+x_29 = lean_array_push(x_18, x_28);
+x_30 = l_Lean_Parser_Tactic_seq___elambda__1___closed__3;
+x_31 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_31, 0, x_30);
+lean_ctor_set(x_31, 1, x_29);
+x_32 = lean_array_push(x_12, x_31);
+x_33 = lean_array_push(x_32, x_14);
+x_34 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_34, 0, x_16);
+lean_ctor_set(x_34, 1, x_33);
+x_35 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2;
+x_36 = lean_array_push(x_35, x_34);
+x_37 = l_Lean_Parser_Tactic_try___elambda__1___closed__2;
+x_38 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_38, 0, x_37);
+lean_ctor_set(x_38, 1, x_36);
+lean_ctor_set(x_9, 0, x_38);
+return x_9;
+}
+else
+{
+lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; 
+x_39 = lean_ctor_get(x_9, 1);
+lean_inc(x_39);
+lean_dec(x_9);
+x_40 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4;
+lean_inc(x_8);
+x_41 = lean_array_push(x_40, x_8);
+x_42 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5;
+x_43 = lean_array_push(x_41, x_42);
+x_44 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1;
+x_45 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_45, 0, x_44);
+lean_ctor_set(x_45, 1, x_43);
+x_46 = l_Array_empty___closed__1;
+x_47 = lean_array_push(x_46, x_45);
+x_48 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7;
+x_49 = lean_array_push(x_47, x_48);
+x_50 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9;
+x_51 = lean_array_push(x_50, x_8);
+x_52 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2;
+x_53 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_53, 0, x_52);
+lean_ctor_set(x_53, 1, x_51);
+x_54 = lean_array_push(x_49, x_53);
+x_55 = l_Lean_nullKind___closed__2;
+x_56 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_56, 0, x_55);
+lean_ctor_set(x_56, 1, x_54);
+x_57 = lean_array_push(x_46, x_56);
+x_58 = l_Lean_Parser_Tactic_seq___elambda__1___closed__3;
+x_59 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_59, 0, x_58);
+lean_ctor_set(x_59, 1, x_57);
+x_60 = lean_array_push(x_40, x_59);
+x_61 = lean_array_push(x_60, x_42);
+x_62 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_62, 0, x_44);
+lean_ctor_set(x_62, 1, x_61);
+x_63 = l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2;
+x_64 = lean_array_push(x_63, x_62);
+x_65 = l_Lean_Parser_Tactic_try___elambda__1___closed__2;
+x_66 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_66, 0, x_65);
+lean_ctor_set(x_66, 1, x_64);
+x_67 = lean_alloc_ctor(0, 2, 0);
+lean_ctor_set(x_67, 0, x_66);
+lean_ctor_set(x_67, 1, x_39);
+return x_67;
+}
+}
+}
+}
+}
+lean_object* _init_l_Lean_Elab_Tactic_evalRepeat___closed__1() {
+_start:
+{
+lean_object* x_1; 
+x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalRepeat___lambda__1), 3, 0);
+return x_1;
+}
+}
+lean_object* l_Lean_Elab_Tactic_evalRepeat(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
+_start:
+{
+lean_object* x_4; lean_object* x_5; 
+x_4 = l_Lean_Elab_Tactic_evalRepeat___closed__1;
+x_5 = l_Lean_Elab_Tactic_adaptExpander(x_4, x_1, x_2, x_3);
+return x_5;
+}
+}
+lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1() {
+_start:
+{
+lean_object* x_1; 
+x_1 = lean_mk_string("evalRepeat");
+return x_1;
+}
+}
+lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2() {
+_start:
+{
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = l_Lean_Elab_Tactic_declareBuiltinTactic___closed__3;
+x_2 = l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1;
+x_3 = lean_name_mk_string(x_1, x_2);
+return x_3;
+}
+}
+lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3() {
+_start:
+{
+lean_object* x_1; 
+x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalRepeat), 3, 0);
+return x_1;
+}
+}
+lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat(lean_object* x_1) {
+_start:
+{
+lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; 
+x_2 = l_Lean_Parser_Tactic_repeat___elambda__1___closed__2;
+x_3 = l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2;
+x_4 = l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3;
+x_5 = l_Lean_Elab_Tactic_addBuiltinTactic(x_2, x_3, x_4, x_1);
+return x_5;
+}
+}
 lean_object* l_Lean_Elab_Tactic_evalAssumption___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
 _start:
 {
@@ -14903,6 +15225,35 @@ lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalTry___closed__3);
 res = l___regBuiltinTactic_Lean_Elab_Tactic_evalTry(lean_io_mk_world());
 if (lean_io_result_is_error(res)) return res;
 lean_dec_ref(res);
+l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__1);
+l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__2);
+l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__3);
+l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__4);
+l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__5);
+l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__6);
+l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__7);
+l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__8);
+l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9 = _init_l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___lambda__1___closed__9);
+l_Lean_Elab_Tactic_evalRepeat___closed__1 = _init_l_Lean_Elab_Tactic_evalRepeat___closed__1();
+lean_mark_persistent(l_Lean_Elab_Tactic_evalRepeat___closed__1);
+l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1();
+lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__1);
+l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2();
+lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__2);
+l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3();
+lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat___closed__3);
+res = l___regBuiltinTactic_Lean_Elab_Tactic_evalRepeat(lean_io_mk_world());
+if (lean_io_result_is_error(res)) return res;
+lean_dec_ref(res);
 l_Lean_Elab_Tactic_evalAssumption___closed__1 = _init_l_Lean_Elab_Tactic_evalAssumption___closed__1();
 lean_mark_persistent(l_Lean_Elab_Tactic_evalAssumption___closed__1);
 l___regBuiltinTactic_Lean_Elab_Tactic_evalAssumption___closed__1 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalAssumption___closed__1();

stage0/stdlib/Init/Lean/Environment.c

@@ -17,6 +17,7 @@ lean_object* l_HashMapImp_find_x3f___at_Lean_Environment_getModuleIdxFor_x3f___s
 lean_object* l_List_reverse___rarg(lean_object*);
 extern lean_object* l_Lean_Name_toString___closed__1;
 lean_object* lean_get_extension(lean_object*, lean_object*);
+lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5(lean_object*);
 lean_object* lean_array_set(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_isNamespace___boxed(lean_object*, lean_object*);
 lean_object* l_PersistentHashMap_foldlMAux___main___at_Lean_mkModuleData___spec__3___boxed(lean_object*, lean_object*);
@@ -24,10 +25,8 @@ size_t l_USize_add(size_t, size_t);
 lean_object* l_PersistentHashMap_containsAux___main___at_Lean_Environment_contains___spec__4___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerPersistentEnvExtensionUnsafe___spec__2___rarg(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Environment_displayStats___closed__2;
-lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6___boxed(lean_object*);
 lean_object* l_Lean_SimplePersistentEnvExtension_setState___rarg(lean_object*, lean_object*, lean_object*);
 lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensionsRef;
-lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5(lean_object*);
 lean_object* lean_mk_empty_array_with_capacity(lean_object*);
 lean_object* l_PersistentHashMap_find_x3f___at_Lean_Environment_find_x3f___spec__4___boxed(lean_object*, lean_object*);
 lean_object* lean_nat_div(lean_object*, lean_object*);
@@ -36,7 +35,9 @@ lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*,
 lean_object* lean_display_stats(lean_object*, lean_object*);
 lean_object* l_Lean_namespacesExt___elambda__3(lean_object*, lean_object*);
 lean_object* l_Lean_EnvExtension_setState(lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Environment_displayStats___closed__1;
+lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1;
 lean_object* l_Nat_foldAux___main___at_Lean_mkModuleData___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* lean_array_uget(lean_object*, size_t);
 lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__10(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@@ -58,7 +59,6 @@ uint8_t lean_name_eq(lean_object*, lean_object*);
 lean_object* l_Lean_SimplePersistentEnvExtension_getState(lean_object*, lean_object*);
 lean_object* l_Lean_Environment_displayStats___closed__8;
 lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
-lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5___boxed(lean_object*);
 extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2;
 lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Environment_addAux___spec__3(lean_object*, size_t, size_t, lean_object*, lean_object*);
 lean_object* l_HashMapImp_find_x3f___at_Lean_Environment_find_x3f___spec__2___boxed(lean_object*, lean_object*);
@@ -70,6 +70,7 @@ lean_object* l_Lean_registerSimplePersistentEnvExtension___at_Lean_mkTagDeclarat
 uint8_t l_Array_anyRangeMAux___main___at_Lean_registerPersistentEnvExtensionUnsafe___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 uint8_t l_Array_anyRangeMAux___main___at_Lean_mkTagDeclarationExtension___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_importModulesAux(lean_object*, lean_object*, lean_object*);
+lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* lean_environment_set_main_module(lean_object*, lean_object*);
 lean_object* l_Lean_registerEnvExtensionUnsafe(lean_object*);
 lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerCPPExtension___spec__1(lean_object*, lean_object*);
@@ -117,7 +118,6 @@ lean_object* l_Lean_readModuleData___boxed(lean_object*, lean_object*);
 size_t l_USize_shiftRight(size_t, size_t);
 lean_object* l_Lean_Environment_compileDecl___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_PersistentArray_foldlMAux___main___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
-lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3(lean_object*);
 lean_object* l_Lean_regNamespacesExtension___lambda__2(lean_object*);
 lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Environment_addAux___spec__4(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_AssocList_contains___main___at_Lean_Environment_addAux___spec__7___boxed(lean_object*, lean_object*);
@@ -138,10 +138,12 @@ lean_object* l_Lean_mkStateFromImportedEntries___rarg___lambda__1___boxed(lean_o
 lean_object* l_Lean_PersistentEnvExtension_setState(lean_object*, lean_object*, lean_object*);
 lean_object* l_PersistentHashMap_find_x3f___at_Lean_Environment_find_x3f___spec__4(lean_object*, lean_object*);
 lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__1;
+extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1;
 uint8_t l_Lean_Environment_isConstructor(lean_object*, lean_object*);
 lean_object* l_Lean_Environment_displayStats___closed__7;
 lean_object* l_Array_iterateMAux___main___at_Lean_regNamespacesExtension___spec__2(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Environment_displayStats___closed__5;
+lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2;
 lean_object* l_Lean_mkStateFromImportedEntries___at_Lean_regNamespacesExtension___spec__1(lean_object*, lean_object*);
 lean_object* l_AssocList_foldlM___main___at_Lean_importModules___spec__5(lean_object*, lean_object*);
 lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__2(lean_object*, lean_object*, lean_object*);
@@ -153,6 +155,7 @@ lean_object* l_Lean_TagDeclarationExtension_Inhabited;
 extern lean_object* l_Array_HasRepr___rarg___closed__1;
 lean_object* l_Lean_SimplePersistentEnvExtension_getEntries(lean_object*, lean_object*);
 lean_object* l_Lean_EnvExtension_modifyStateUnsafe___rarg(lean_object*, lean_object*, lean_object*);
+lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4(lean_object*);
 lean_object* l_PersistentHashMap_foldlM___at_Lean_mkModuleData___spec__2___boxed(lean_object*, lean_object*);
 lean_object* lean_array_fget(lean_object*, lean_object*);
 lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___lambda__1(lean_object*, lean_object*, lean_object*);
@@ -175,11 +178,11 @@ lean_object* l_Lean_EnvExtension_setStateUnsafe___rarg(lean_object*, lean_object
 lean_object* lean_nat_sub(lean_object*, lean_object*);
 lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Environment_11__finalizePersistentExtensions___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
+lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_EnvExtension_setStateUnsafe(lean_object*);
 lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtension___spec__4(lean_object*, lean_object*);
 lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__2;
 lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Environment_6__mkInitialExtensionStates___spec__1(lean_object*, lean_object*, lean_object*);
-lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6(lean_object*);
 lean_object* l_Array_anyRangeMAux___main___at_Lean_mkTagDeclarationExtension___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_mkEmptyEnvironment___closed__1;
 lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__3(lean_object*, lean_object*);
@@ -188,9 +191,7 @@ lean_object* l_Lean_ModuleData_inhabited___closed__1;
 lean_object* lean_set_extension(lean_object*, lean_object*, lean_object*);
 lean_object* l_Nat_foldAux___main___at_Lean_mkModuleData___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
-lean_object* l_IO_println___at_Lean_HasRepr_HasEval___spec__1(lean_object*, lean_object*);
 lean_object* l_Lean_SimplePersistentEnvExtension_modifyState___rarg___lambda__1(lean_object*, lean_object*);
-lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3___boxed(lean_object*);
 lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
 lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*);
 lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___lambda__2___boxed(lean_object*);
@@ -241,6 +242,7 @@ lean_object* l_Lean_performModifications___boxed(lean_object*, lean_object*, lea
 lean_object* l_Lean_Environment_Inhabited___closed__3;
 lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Array_iterateMAux___main___at_Lean_regNamespacesExtension___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3___boxed(lean_object*, lean_object*);
 lean_object* l_AssocList_contains___main___at_Lean_importModules___spec__2___boxed(lean_object*, lean_object*);
 extern lean_object* l_Lean_Options_empty;
 extern lean_object* l_IO_Error_Inhabited___closed__1;
@@ -248,6 +250,7 @@ lean_object* lean_environment_add(lean_object*, lean_object*);
 lean_object* lean_save_module_data(lean_object*, lean_object*, lean_object*);
 uint8_t l_AssocList_contains___main___at_Lean_importModules___spec__2(lean_object*, lean_object*);
 lean_object* l_Lean_EnvExtension_getState___rarg___boxed(lean_object*, lean_object*);
+lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6___boxed(lean_object*);
 uint8_t lean_environment_quot_init(lean_object*);
 size_t lean_usize_modn(size_t, lean_object*);
 lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
@@ -260,13 +263,12 @@ lean_object* l_Array_iterateMAux___main___at_Lean_regNamespacesExtension___spec_
 lean_object* l_Lean_namespacesExt___elambda__1___boxed(lean_object*);
 lean_object* l_Array_qsortAux___main___at_Lean_mkTagDeclarationExtension___spec__1___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_modListExtension___closed__1;
+lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7(lean_object*);
 uint8_t l_AssocList_contains___main___at_Lean_Environment_addAux___spec__7(lean_object*, lean_object*);
-lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3;
 lean_object* l_Lean_modListExtension___closed__2;
 lean_object* l_Lean_PersistentEnvExtension_modifyState(lean_object*, lean_object*, lean_object*);
 lean_object* l_AssocList_find___main___at_Lean_Environment_find_x3f___spec__3___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_ModuleIdx_inhabited;
-lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_PersistentEnvExtension_getState___rarg___boxed(lean_object*, lean_object*);
 uint32_t lean_environment_trust_level(lean_object*);
 size_t l_USize_mul(size_t, size_t);
@@ -276,6 +278,7 @@ lean_object* l_Lean_registerEnvExtension(lean_object*, lean_object*, lean_object
 lean_object* l_Lean_importModules___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_EnvExtension_Inhabited___rarg(lean_object*);
 lean_object* l_mkHashMapImp___rarg(lean_object*);
+lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5___boxed(lean_object*);
 lean_object* l_Lean_PersistentEnvExtension_getState(lean_object*, lean_object*, lean_object*);
 uint8_t l_PersistentHashMap_containsAtAux___main___at_Lean_Environment_contains___spec__5(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_importModules___closed__1;
@@ -283,7 +286,6 @@ lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtensi
 lean_object* l_Lean_Environment_addDecl___boxed(lean_object*, lean_object*);
 uint8_t l___private_Init_Lean_Environment_12__isNamespaceName___main(lean_object*);
 lean_object* l_RBNode_insert___at_Lean_NameSet_insert___spec__1(lean_object*, lean_object*, lean_object*);
-lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1;
 extern lean_object* l_NonScalar_Inhabited;
 lean_object* l_mkHashMap___at_Lean_Environment_Inhabited___spec__3(lean_object*);
 lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___lambda__1(lean_object*, lean_object*);
@@ -292,11 +294,10 @@ lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3;
 lean_object* l_Lean_ModuleData_inhabited;
 lean_object* l___private_Init_Lean_Environment_12__isNamespaceName___main___boxed(lean_object*);
 extern lean_object* l_Id_Monad;
+lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7___boxed(lean_object*);
 lean_object* l_Lean_SMap_find_x3f_x27___at_Lean_Environment_find_x3f___spec__1(lean_object*, lean_object*);
 lean_object* l_List_toStringAux___main___at_Lean_Environment_displayStats___spec__2___boxed(lean_object*, lean_object*);
-lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2;
 lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__10___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
-lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4(lean_object*);
 lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
 size_t l_USize_land(size_t, size_t);
 lean_object* l_Lean_HasToString___closed__1;
@@ -305,7 +306,6 @@ lean_object* l_Lean_SimplePersistentEnvExtension_getState___rarg(lean_object*, l
 lean_object* l_Lean_mkStateFromImportedEntries___rarg(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_mkEmptyEnvironment___boxed(lean_object*, lean_object*);
 uint8_t l_PersistentHashMap_contains___at_Lean_Environment_contains___spec__3(lean_object*, lean_object*);
-lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_namespacesExt___elambda__2___boxed(lean_object*);
 lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3;
 lean_object* l_Array_anyRangeMAux___main___at_Lean_registerSimplePersistentEnvExtension___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@@ -320,10 +320,12 @@ lean_object* lean_import_modules(lean_object*, uint32_t, lean_object*);
 lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__1;
 lean_object* l_Array_anyRangeMAux___main___at_Lean_registerPersistentEnvExtensionUnsafe___spec__1(lean_object*, lean_object*, lean_object*);
 lean_object* l___private_Init_Lean_Environment_9__getEntriesFor(lean_object*, lean_object*, lean_object*);
+lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4___boxed(lean_object*);
 lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_AssocList_find___main___at_Lean_Environment_find_x3f___spec__3(lean_object*, lean_object*);
 lean_object* lean_environment_main_module(lean_object*);
 lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__4___closed__2;
+lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6(lean_object*);
 uint8_t lean_nat_dec_le(lean_object*, lean_object*);
 uint8_t l_USize_decLe(size_t, size_t);
 lean_object* l_Array_iterateMAux___main___at_Lean_mkModuleData___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@@ -346,11 +348,11 @@ lean_object* l_Array_iterateMAux___main___at_Lean_mkModuleData___spec__5___boxed
 lean_object* l_Lean_EnvExtension_setState___closed__1;
 lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__4;
 lean_object* l___private_Init_Lean_Environment_13__registerNamePrefixes___main(lean_object*, lean_object*);
-lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_EnvExtensionState_inhabited;
 lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__9___closed__1;
 lean_object* l___private_Init_Lean_Environment_9__getEntriesFor___main(lean_object*, lean_object*, lean_object*);
 lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3;
 lean_object* lean_io_ref_reset(lean_object*, lean_object*);
 lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__4___boxed(lean_object*);
 lean_object* l___private_Init_Lean_Environment_11__finalizePersistentExtensions(lean_object*, lean_object*);
@@ -368,10 +370,10 @@ lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Environment_addAux__
 lean_object* l_Lean_regNamespacesExtension___closed__5;
 lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtension___spec__6(lean_object*, lean_object*);
 lean_object* l_Lean_registerPersistentEnvExtensionUnsafe(lean_object*, lean_object*, lean_object*);
+lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*);
 lean_object* l___private_Init_Lean_Environment_9__getEntriesFor___main___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_SMap_find_x3f_x27___at_Lean_Environment_find_x3f___spec__1___boxed(lean_object*, lean_object*);
-lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4___boxed(lean_object*);
 lean_object* l_List_toStringAux___main___at_Lean_Environment_displayStats___spec__2(uint8_t, lean_object*);
 lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_mkTagDeclarationExtension(lean_object*, lean_object*);
@@ -397,6 +399,7 @@ lean_object* lean_io_initializing(lean_object*);
 lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2;
 lean_object* l_Lean_EnvExtension_getStateUnsafe___rarg(lean_object*, lean_object*);
 lean_object* l_Lean_mkStateFromImportedEntries___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3(lean_object*, lean_object*);
 lean_object* l_Array_iterateMAux___main___at_Lean_importModules___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Array_iterateMAux___main___at_Lean_regNamespacesExtension___spec__3(lean_object*, lean_object*, lean_object*, lean_object*);
@@ -423,6 +426,7 @@ lean_object* lean_compile_decl(lean_object*, lean_object*, lean_object*);
 lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*);
 lean_object* l_Lean_modListExtension___elambda__1(lean_object*);
 extern lean_object* l_Nat_Inhabited;
+lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(lean_object*, lean_object*);
 lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_AssocList_foldlM___main___at_Lean_Environment_addAux___spec__10(lean_object*, lean_object*);
 lean_object* l_Array_anyRangeMAux___main___at_Lean_registerPersistentEnvExtensionUnsafe___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@@ -456,7 +460,6 @@ lean_object* lean_uint32_to_nat(uint32_t);
 lean_object* l_ExceptT_Monad___rarg___lambda__8___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__4;
 lean_object* l_Lean_mkTagDeclarationExtension___closed__3;
-lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_regNamespacesExtension___lambda__1(lean_object*);
 lean_object* l_PersistentHashMap_contains___at_Lean_Environment_contains___spec__3___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_regNamespacesExtension___closed__2;
@@ -11311,7 +11314,46 @@ return x_8;
 }
 }
 }
-lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3(lean_object* x_1) {
+lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3(lean_object* x_1, lean_object* x_2) {
+_start:
+{
+lean_object* x_3; 
+x_3 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_1, x_2);
+if (lean_obj_tag(x_3) == 0)
+{
+lean_object* x_4; lean_object* x_5; lean_object* x_6; 
+x_4 = lean_ctor_get(x_3, 1);
+lean_inc(x_4);
+lean_dec(x_3);
+x_5 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
+x_6 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_5, x_4);
+return x_6;
+}
+else
+{
+uint8_t x_7; 
+x_7 = !lean_is_exclusive(x_3);
+if (x_7 == 0)
+{
+return x_3;
+}
+else
+{
+lean_object* x_8; lean_object* x_9; lean_object* x_10; 
+x_8 = lean_ctor_get(x_3, 0);
+x_9 = lean_ctor_get(x_3, 1);
+lean_inc(x_9);
+lean_inc(x_8);
+lean_dec(x_3);
+x_10 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_10, 0, x_8);
+lean_ctor_set(x_10, 1, x_9);
+return x_10;
+}
+}
+}
+}
+lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4(lean_object* x_1) {
 _start:
 {
 lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; 
@@ -11323,7 +11365,7 @@ x_6 = lean_nat_add(x_5, x_4);
 return x_6;
 }
 }
-lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4(lean_object* x_1) {
+lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5(lean_object* x_1) {
 _start:
 {
 lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; 
@@ -11339,7 +11381,7 @@ lean_ctor_set(x_6, 1, x_4);
 return x_6;
 }
 }
-lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6(lean_object* x_1) {
+lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7(lean_object* x_1) {
 _start:
 {
 lean_object* x_2; lean_object* x_3; 
@@ -11348,45 +11390,15 @@ x_3 = lean_array_get_size(x_2);
 return x_3;
 }
 }
-lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5(lean_object* x_1) {
+lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6(lean_object* x_1) {
 _start:
 {
 lean_object* x_2; lean_object* x_3; 
 x_2 = lean_ctor_get(x_1, 0);
-x_3 = l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6(x_2);
+x_3 = l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7(x_2);
 return x_3;
 }
 }
-lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
-_start:
-{
-lean_object* x_6; uint8_t x_7; 
-x_6 = lean_array_get_size(x_3);
-x_7 = lean_nat_dec_lt(x_4, x_6);
-lean_dec(x_6);
-if (x_7 == 0)
-{
-lean_dec(x_4);
-return x_5;
-}
-else
-{
-lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; 
-x_8 = lean_array_fget(x_3, x_4);
-x_9 = lean_array_get_size(x_8);
-lean_dec(x_8);
-x_10 = lean_nat_add(x_5, x_9);
-lean_dec(x_9);
-lean_dec(x_5);
-x_11 = lean_unsigned_to_nat(1u);
-x_12 = lean_nat_add(x_4, x_11);
-lean_dec(x_4);
-x_4 = x_12;
-x_5 = x_10;
-goto _start;
-}
-}
-}
 lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__8(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
 _start:
 {
@@ -11417,7 +11429,37 @@ goto _start;
 }
 }
 }
-lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1() {
+lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
+_start:
+{
+lean_object* x_6; uint8_t x_7; 
+x_6 = lean_array_get_size(x_3);
+x_7 = lean_nat_dec_lt(x_4, x_6);
+lean_dec(x_6);
+if (x_7 == 0)
+{
+lean_dec(x_4);
+return x_5;
+}
+else
+{
+lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; 
+x_8 = lean_array_fget(x_3, x_4);
+x_9 = lean_array_get_size(x_8);
+lean_dec(x_8);
+x_10 = lean_nat_add(x_5, x_9);
+lean_dec(x_9);
+lean_dec(x_5);
+x_11 = lean_unsigned_to_nat(1u);
+x_12 = lean_nat_add(x_4, x_11);
+lean_dec(x_4);
+x_4 = x_12;
+x_5 = x_10;
+goto _start;
+}
+}
+}
+lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1() {
 _start:
 {
 lean_object* x_1; 
@@ -11425,7 +11467,7 @@ x_1 = lean_mk_string("extension '");
 return x_1;
 }
 }
-lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2() {
+lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2() {
 _start:
 {
 lean_object* x_1; 
@@ -11433,7 +11475,7 @@ x_1 = lean_mk_string("  ");
 return x_1;
 }
 }
-lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3() {
+lean_object* _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3() {
 _start:
 {
 lean_object* x_1; 
@@ -11441,7 +11483,7 @@ x_1 = lean_mk_string("  number of imported entries: ");
 return x_1;
 }
 }
-lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
+lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
 _start:
 {
 lean_object* x_5; uint8_t x_6; 
@@ -11466,12 +11508,12 @@ x_10 = lean_ctor_get(x_9, 1);
 lean_inc(x_10);
 x_11 = l_Lean_Name_toString___closed__1;
 x_12 = l_Lean_Name_toStringWithSep___main(x_11, x_10);
-x_13 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1;
+x_13 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1;
 x_14 = lean_string_append(x_13, x_12);
 lean_dec(x_12);
 x_15 = l_Char_HasRepr___closed__1;
 x_16 = lean_string_append(x_14, x_15);
-x_17 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_16, x_4);
+x_17 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_16, x_4);
 lean_dec(x_16);
 if (lean_obj_tag(x_17) == 0)
 {
@@ -11498,10 +11540,10 @@ lean_ctor_set(x_26, 0, x_25);
 lean_ctor_set(x_26, 1, x_23);
 x_27 = l_Lean_Options_empty;
 x_28 = l_Lean_Format_pretty(x_26, x_27);
-x_29 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2;
+x_29 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2;
 x_30 = lean_string_append(x_29, x_28);
 lean_dec(x_28);
-x_31 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_30, x_18);
+x_31 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_30, x_18);
 lean_dec(x_30);
 if (lean_obj_tag(x_31) == 0)
 {
@@ -11513,14 +11555,14 @@ x_33 = lean_ctor_get(x_20, 0);
 lean_inc(x_33);
 lean_dec(x_20);
 x_34 = lean_unsigned_to_nat(0u);
-x_35 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7(x_1, x_9, x_33, x_34, x_34);
+x_35 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__8(x_1, x_9, x_33, x_34, x_34);
 lean_dec(x_33);
 lean_dec(x_9);
 x_36 = l_Nat_repr(x_35);
-x_37 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3;
+x_37 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3;
 x_38 = lean_string_append(x_37, x_36);
 lean_dec(x_36);
-x_39 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_38, x_32);
+x_39 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_38, x_32);
 lean_dec(x_38);
 if (lean_obj_tag(x_39) == 0)
 {
@@ -11593,14 +11635,14 @@ x_52 = lean_ctor_get(x_20, 0);
 lean_inc(x_52);
 lean_dec(x_20);
 x_53 = lean_unsigned_to_nat(0u);
-x_54 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__8(x_1, x_9, x_52, x_53, x_53);
+x_54 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9(x_1, x_9, x_52, x_53, x_53);
 lean_dec(x_52);
 lean_dec(x_9);
 x_55 = l_Nat_repr(x_54);
-x_56 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3;
+x_56 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3;
 x_57 = lean_string_append(x_56, x_55);
 lean_dec(x_55);
-x_58 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_57, x_18);
+x_58 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_57, x_18);
 lean_dec(x_57);
 if (lean_obj_tag(x_58) == 0)
 {
@@ -11771,7 +11813,7 @@ lean_dec(x_17);
 x_20 = l_Lean_Environment_displayStats___closed__1;
 x_21 = lean_string_append(x_20, x_19);
 lean_dec(x_19);
-x_22 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_21, x_6);
+x_22 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_21, x_6);
 lean_dec(x_21);
 if (lean_obj_tag(x_22) == 0)
 {
@@ -11783,7 +11825,7 @@ x_24 = l_Nat_repr(x_13);
 x_25 = l_Lean_Environment_displayStats___closed__2;
 x_26 = lean_string_append(x_25, x_24);
 lean_dec(x_24);
-x_27 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_26, x_23);
+x_27 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_26, x_23);
 lean_dec(x_26);
 if (lean_obj_tag(x_27) == 0)
 {
@@ -11793,12 +11835,12 @@ lean_inc(x_28);
 lean_dec(x_27);
 x_29 = lean_ctor_get(x_1, 1);
 lean_inc(x_29);
-x_30 = l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3(x_29);
+x_30 = l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4(x_29);
 x_31 = l_Nat_repr(x_30);
 x_32 = l_Lean_Environment_displayStats___closed__3;
 x_33 = lean_string_append(x_32, x_31);
 lean_dec(x_31);
-x_34 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_33, x_28);
+x_34 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_33, x_28);
 lean_dec(x_33);
 if (lean_obj_tag(x_34) == 0)
 {
@@ -11806,14 +11848,14 @@ lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean
 x_35 = lean_ctor_get(x_34, 1);
 lean_inc(x_35);
 lean_dec(x_34);
-x_36 = l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4(x_29);
+x_36 = l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5(x_29);
 x_37 = lean_ctor_get(x_36, 0);
 lean_inc(x_37);
 x_38 = l_Nat_repr(x_37);
 x_39 = l_Lean_Environment_displayStats___closed__4;
 x_40 = lean_string_append(x_39, x_38);
 lean_dec(x_38);
-x_41 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_40, x_35);
+x_41 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_40, x_35);
 lean_dec(x_40);
 if (lean_obj_tag(x_41) == 0)
 {
@@ -11828,7 +11870,7 @@ x_44 = l_Nat_repr(x_43);
 x_45 = l_Lean_Environment_displayStats___closed__5;
 x_46 = lean_string_append(x_45, x_44);
 lean_dec(x_44);
-x_47 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_46, x_42);
+x_47 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_46, x_42);
 lean_dec(x_46);
 if (lean_obj_tag(x_47) == 0)
 {
@@ -11836,13 +11878,13 @@ lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean
 x_48 = lean_ctor_get(x_47, 1);
 lean_inc(x_48);
 lean_dec(x_47);
-x_49 = l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5(x_29);
+x_49 = l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6(x_29);
 lean_dec(x_29);
 x_50 = l_Nat_repr(x_49);
 x_51 = l_Lean_Environment_displayStats___closed__6;
 x_52 = lean_string_append(x_51, x_50);
 lean_dec(x_50);
-x_53 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_52, x_48);
+x_53 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_52, x_48);
 lean_dec(x_52);
 if (lean_obj_tag(x_53) == 0)
 {
@@ -11857,7 +11899,7 @@ x_57 = l_Nat_repr(x_56);
 x_58 = l_Lean_Environment_displayStats___closed__7;
 x_59 = lean_string_append(x_58, x_57);
 lean_dec(x_57);
-x_60 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_59, x_54);
+x_60 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_59, x_54);
 lean_dec(x_59);
 if (lean_obj_tag(x_60) == 0)
 {
@@ -11873,7 +11915,7 @@ x_64 = l_Nat_repr(x_63);
 x_65 = l_Lean_Environment_displayStats___closed__8;
 x_66 = lean_string_append(x_65, x_64);
 lean_dec(x_64);
-x_67 = l_IO_println___at_Lean_HasRepr_HasEval___spec__1(x_66, x_61);
+x_67 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_66, x_61);
 lean_dec(x_66);
 if (lean_obj_tag(x_67) == 0)
 {
@@ -11881,7 +11923,7 @@ lean_object* x_68; lean_object* x_69;
 x_68 = lean_ctor_get(x_67, 1);
 lean_inc(x_68);
 lean_dec(x_67);
-x_69 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9(x_1, x_5, x_8, x_68);
+x_69 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10(x_1, x_5, x_8, x_68);
 lean_dec(x_5);
 lean_dec(x_1);
 if (lean_obj_tag(x_69) == 0)
@@ -12179,53 +12221,51 @@ x_4 = l_List_toStringAux___main___at_Lean_Environment_displayStats___spec__2(x_3
 return x_4;
 }
 }
-lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3___boxed(lean_object* x_1) {
+lean_object* l_IO_println___at_Lean_Environment_displayStats___spec__3___boxed(lean_object* x_1, lean_object* x_2) {
+_start:
+{
+lean_object* x_3; 
+x_3 = l_IO_println___at_Lean_Environment_displayStats___spec__3(x_1, x_2);
+lean_dec(x_1);
+return x_3;
+}
+}
+lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4___boxed(lean_object* x_1) {
 _start:
 {
 lean_object* x_2; 
-x_2 = l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3(x_1);
+x_2 = l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__4(x_1);
 lean_dec(x_1);
 return x_2;
 }
 }
-lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4___boxed(lean_object* x_1) {
+lean_object* l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5___boxed(lean_object* x_1) {
 _start:
 {
 lean_object* x_2; 
-x_2 = l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__4(x_1);
+x_2 = l_Lean_SMap_stageSizes___at_Lean_Environment_displayStats___spec__5(x_1);
 lean_dec(x_1);
 return x_2;
 }
 }
-lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6___boxed(lean_object* x_1) {
+lean_object* l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7___boxed(lean_object* x_1) {
 _start:
 {
 lean_object* x_2; 
-x_2 = l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__6(x_1);
+x_2 = l_HashMap_numBuckets___at_Lean_Environment_displayStats___spec__7(x_1);
 lean_dec(x_1);
 return x_2;
 }
 }
-lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5___boxed(lean_object* x_1) {
+lean_object* l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6___boxed(lean_object* x_1) {
 _start:
 {
 lean_object* x_2; 
-x_2 = l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__5(x_1);
+x_2 = l_Lean_SMap_numBuckets___at_Lean_Environment_displayStats___spec__6(x_1);
 lean_dec(x_1);
 return x_2;
 }
 }
-lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
-_start:
-{
-lean_object* x_6; 
-x_6 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__7(x_1, x_2, x_3, x_4, x_5);
-lean_dec(x_3);
-lean_dec(x_2);
-lean_dec(x_1);
-return x_6;
-}
-}
 lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__8___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
 _start:
 {
@@ -12237,11 +12277,22 @@ lean_dec(x_1);
 return x_6;
 }
 }
-lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
+lean_object* l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
+_start:
+{
+lean_object* x_6; 
+x_6 = l_Array_iterateMAux___main___at_Lean_Environment_displayStats___spec__9(x_1, x_2, x_3, x_4, x_5);
+lean_dec(x_3);
+lean_dec(x_2);
+lean_dec(x_1);
+return x_6;
+}
+}
+lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
 _start:
 {
 lean_object* x_5; 
-x_5 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9(x_1, x_2, x_3, x_4);
+x_5 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10(x_1, x_2, x_3, x_4);
 lean_dec(x_2);
 lean_dec(x_1);
 return x_5;
@@ -12480,12 +12531,12 @@ if (lean_io_result_is_error(res)) return res;
 l_Lean_namespacesExt = lean_io_result_get_value(res);
 lean_mark_persistent(l_Lean_namespacesExt);
 lean_dec_ref(res);
-l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1();
-lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__1);
-l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2();
-lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2);
-l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3();
-lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__3);
+l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1();
+lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__1);
+l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2();
+lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2);
+l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3 = _init_l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3();
+lean_mark_persistent(l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__3);
 l_Lean_Environment_displayStats___closed__1 = _init_l_Lean_Environment_displayStats___closed__1();
 lean_mark_persistent(l_Lean_Environment_displayStats___closed__1);
 l_Lean_Environment_displayStats___closed__2 = _init_l_Lean_Environment_displayStats___closed__2();

stage0/stdlib/Init/Lean/Eval.c

@@ -13,15 +13,21 @@
 #ifdef __cplusplus
 extern "C" {
 #endif
+lean_object* l_Lean_MetaIO_monadIO___closed__3;
+extern lean_object* l_EIO_Monad___closed__1;
 lean_object* l_Lean_MetaIO_getOptions(lean_object*, lean_object*);
-lean_object* l_Lean_MetaIO_monadIO(lean_object*);
-lean_object* l_Lean_MetaIO_monadIO___rarg(lean_object*, lean_object*, lean_object*);
-lean_object* l_Lean_MetaIO_monadIO___rarg___boxed(lean_object*, lean_object*, lean_object*);
+lean_object* l_Lean_MetaIO_monadIO___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
+extern lean_object* l_IO_MonadIO;
+lean_object* l_ReaderT_monadIO___rarg(lean_object*, lean_object*);
+lean_object* l_Lean_MetaIO_monadIO;
 lean_object* l_Lean_MetaHasEvalOfHasEval(lean_object*);
 lean_object* l_Lean_MetaIO_getEnv___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_MetaHasEvalOfHasEval___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l_Lean_MetaIO_monadIO___closed__1;
+lean_object* l_Lean_MetaIO_monadIO___closed__2;
 lean_object* l_Lean_MetaHasEvalOfHasEval___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_MetaIO_metaHasEval(lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l_Lean_MetaIO_monadIO___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_MetaIO_getOptions___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_MetaIO_getEnv(lean_object*, lean_object*);
 lean_object* l_Lean_MetaHasEvalOfHasEval___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
@@ -103,29 +109,76 @@ x_6 = lean_apply_2(x_3, x_5, x_4);
 return x_6;
 }
 }
-lean_object* l_Lean_MetaIO_monadIO___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
+lean_object* l_Lean_MetaIO_monadIO___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
 _start:
 {
-lean_object* x_4; 
-x_4 = lean_apply_1(x_1, x_3);
-return x_4;
+lean_object* x_5; 
+x_5 = lean_apply_1(x_2, x_4);
+return x_5;
 }
 }
-lean_object* l_Lean_MetaIO_monadIO(lean_object* x_1) {
+lean_object* _init_l_Lean_MetaIO_monadIO___closed__1() {
 _start:
 {
-lean_object* x_2; 
-x_2 = lean_alloc_closure((void*)(l_Lean_MetaIO_monadIO___rarg___boxed), 3, 0);
-return x_2;
+lean_object* x_1; lean_object* x_2; lean_object* x_3; 
+x_1 = l_EIO_Monad___closed__1;
+x_2 = l_IO_MonadIO;
+x_3 = l_ReaderT_monadIO___rarg(x_1, x_2);
+return x_3;
 }
 }
-lean_object* l_Lean_MetaIO_monadIO___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
+lean_object* _init_l_Lean_MetaIO_monadIO___closed__2() {
 _start:
 {
-lean_object* x_4; 
-x_4 = l_Lean_MetaIO_monadIO___rarg(x_1, x_2, x_3);
-lean_dec(x_2);
-return x_4;
+lean_object* x_1; 
+x_1 = lean_alloc_closure((void*)(l_Lean_MetaIO_monadIO___lambda__1___boxed), 4, 0);
+return x_1;
+}
+}
+lean_object* _init_l_Lean_MetaIO_monadIO___closed__3() {
+_start:
+{
+lean_object* x_1; uint8_t x_2; 
+x_1 = l_Lean_MetaIO_monadIO___closed__1;
+x_2 = !lean_is_exclusive(x_1);
+if (x_2 == 0)
+{
+lean_object* x_3; lean_object* x_4; 
+x_3 = lean_ctor_get(x_1, 0);
+lean_dec(x_3);
+x_4 = l_Lean_MetaIO_monadIO___closed__2;
+lean_ctor_set(x_1, 0, x_4);
+return x_1;
+}
+else
+{
+lean_object* x_5; lean_object* x_6; lean_object* x_7; 
+x_5 = lean_ctor_get(x_1, 1);
+lean_inc(x_5);
+lean_dec(x_1);
+x_6 = l_Lean_MetaIO_monadIO___closed__2;
+x_7 = lean_alloc_ctor(0, 2, 0);
+lean_ctor_set(x_7, 0, x_6);
+lean_ctor_set(x_7, 1, x_5);
+return x_7;
+}
+}
+}
+lean_object* _init_l_Lean_MetaIO_monadIO() {
+_start:
+{
+lean_object* x_1; 
+x_1 = l_Lean_MetaIO_monadIO___closed__3;
+return x_1;
+}
+}
+lean_object* l_Lean_MetaIO_monadIO___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
+_start:
+{
+lean_object* x_5; 
+x_5 = l_Lean_MetaIO_monadIO___lambda__1(x_1, x_2, x_3, x_4);
+lean_dec(x_3);
+return x_5;
 }
 }
 lean_object* initialize_Init_Control_Reader(lean_object*);
@@ -145,6 +198,14 @@ lean_dec_ref(res);
 res = initialize_Init_Lean_Environment(lean_io_mk_world());
 if (lean_io_result_is_error(res)) return res;
 lean_dec_ref(res);
+l_Lean_MetaIO_monadIO___closed__1 = _init_l_Lean_MetaIO_monadIO___closed__1();
+lean_mark_persistent(l_Lean_MetaIO_monadIO___closed__1);
+l_Lean_MetaIO_monadIO___closed__2 = _init_l_Lean_MetaIO_monadIO___closed__2();
+lean_mark_persistent(l_Lean_MetaIO_monadIO___closed__2);
+l_Lean_MetaIO_monadIO___closed__3 = _init_l_Lean_MetaIO_monadIO___closed__3();
+lean_mark_persistent(l_Lean_MetaIO_monadIO___closed__3);
+l_Lean_MetaIO_monadIO = _init_l_Lean_MetaIO_monadIO();
+lean_mark_persistent(l_Lean_MetaIO_monadIO);
 return lean_mk_io_result(lean_box(0));
 }
 #ifdef __cplusplus

stage0/stdlib/Init/Lean/Meta/Basic.c

@@ -42,7 +42,6 @@ lean_object* l_Lean_Meta_throwBug(lean_object*);
 lean_object* l_Lean_Meta_whnfForall(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_MetavarContext_instantiateMVars(lean_object*, lean_object*);
 lean_object* l_Lean_Meta_dbgTrace___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
-lean_object* lean_io_prim_put_str(lean_object*, lean_object*);
 lean_object* l_Lean_Meta_InfoCacheKey_Inhabited;
 lean_object* l_Lean_Meta_getEnv(lean_object*);
 lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallTelescope___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@@ -139,6 +138,7 @@ lean_object* l_Lean_Meta_TransparencyMode_Hashable___closed__1;
 lean_object* l___private_Init_Lean_Meta_Basic_7__forallMetaTelescopeReducingAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Meta_getEnv___rarg(lean_object*);
 lean_object* l_Lean_MetavarContext_hasAssignableMVar___main(lean_object*, lean_object*);
+extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1;
 lean_object* l_Lean_Meta_getConfig___boxed(lean_object*, lean_object*);
 uint8_t l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 uint8_t lean_metavar_ctx_is_expr_assigned(lean_object*, lean_object*);
@@ -218,7 +218,6 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*);
 lean_object* l_Lean_Meta_metaExt___closed__1;
 lean_object* l_ReaderT_pure___at_Lean_Meta_MetaExtState_inhabited___spec__1(lean_object*);
 lean_object* l_Lean_Meta_InfoCacheKey_HasBeq___boxed(lean_object*, lean_object*);
-extern lean_object* l_IO_println___rarg___closed__1;
 extern lean_object* l_PersistentArray_empty___closed__3;
 lean_object* l_Lean_Meta_lambdaMetaTelescope(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Meta_addContext(lean_object*, lean_object*, lean_object*);
@@ -406,6 +405,7 @@ lean_object* l_Lean_Meta_TransparencyMode_hash___boxed(lean_object*);
 lean_object* l_Lean_Meta_isReadOnlyOrSyntheticOpaqueExprMVar(lean_object*, lean_object*, lean_object*);
 lean_object* l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(lean_object*, lean_object*);
 lean_object* l_Lean_Meta_getMCtx(lean_object*);
 lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l___private_Init_Lean_Meta_Basic_2__getTraceState(lean_object*);
@@ -47339,7 +47339,7 @@ _start:
 lean_object* x_3; lean_object* x_4; lean_object* x_5; 
 x_3 = l_Lean_Options_empty;
 x_4 = l_Lean_Format_pretty(x_1, x_3);
-x_5 = lean_io_prim_put_str(x_4, x_2);
+x_5 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_4, x_2);
 lean_dec(x_4);
 return x_5;
 }
@@ -47355,8 +47355,8 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6;
 x_4 = lean_ctor_get(x_3, 1);
 lean_inc(x_4);
 lean_dec(x_3);
-x_5 = l_IO_println___rarg___closed__1;
-x_6 = lean_io_prim_put_str(x_5, x_4);
+x_5 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
+x_6 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_5, x_4);
 return x_6;
 }
 else

stage0/stdlib/Init/Lean/Parser/Module.c

@@ -17,14 +17,15 @@ lean_object* l_Lean_Parser_Module_import___elambda__1___closed__5;
 extern lean_object* l_Lean_Parser_manyAux___main___closed__1;
 lean_object* l_IO_print___at___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___spec__4(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*);
+lean_object* l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_mkParserContext(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_import___closed__8;
+lean_object* lean_io_prim_handle_get_line(lean_object*, lean_object*);
 lean_object* lean_io_timeit(lean_object*, lean_object*, lean_object*);
+lean_object* lean_io_prim_handle_is_eof(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_import___closed__4;
 lean_object* l_unreachable_x21___rarg(lean_object*);
 extern lean_object* l_Lean_nullKind;
-lean_object* l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1___boxed(lean_object*, lean_object*);
-lean_object* lean_io_prim_put_str(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_parseHeader(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_ModuleParserState_inhabited___closed__1;
 lean_object* l_Lean_Parser_testModuleParser___closed__2;
@@ -59,6 +60,7 @@ extern lean_object* l_String_splitAux___main___closed__1;
 lean_object* l___private_Init_Lean_Parser_Module_4__testModuleParserAux___main(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_header___elambda__1___closed__3;
 lean_object* l_Lean_Parser_parseFile(lean_object*, lean_object*, lean_object*);
+lean_object* l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2(lean_object*, uint8_t, uint8_t, lean_object*);
 extern lean_object* l_Lean_mkAppStx___closed__4;
 lean_object* l_Lean_Parser_ParserState_mkErrorsAt(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_testModuleParser___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*);
@@ -68,9 +70,9 @@ lean_object* l_Lean_Parser_Module_import___elambda__1___closed__13;
 lean_object* lean_nat_add(lean_object*, lean_object*);
 lean_object* l___private_Init_Lean_Parser_Module_2__mkEOI(lean_object*);
 lean_object* l_Lean_Parser_Module_prelude___closed__4;
-lean_object* l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_header___elambda__1___closed__1;
 lean_object* l___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
+extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1;
 lean_object* l_Lean_Parser_initCacheForInput(lean_object*);
 lean_object* l_Lean_Parser_Module_import___elambda__1___closed__4;
 lean_object* l_Lean_Parser_parseFileAux___main___closed__2;
@@ -88,6 +90,7 @@ lean_object* l___private_Init_Lean_Parser_Module_4__testModuleParserAux___boxed(
 lean_object* l_EStateM_bind___rarg(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_noFirstTokenInfo(lean_object*);
 lean_object* l_PersistentArray_forM___at___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___spec__6___boxed(lean_object*, lean_object*, lean_object*);
+lean_object* l_IO_readFile___at_Lean_Parser_parseFile___spec__1(lean_object*, uint8_t, lean_object*);
 lean_object* l_Lean_Parser_Module_header___closed__1;
 lean_object* l_Lean_Parser_whitespace___main(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_optionaInfo(lean_object*);
@@ -97,6 +100,7 @@ lean_object* l_Lean_Syntax_updateLeading(lean_object*);
 lean_object* lean_io_realpath(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_testModuleParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_parseCommand___main(lean_object*, lean_object*, lean_object*, lean_object*);
+lean_object* l_IO_Prim_fopenFlags(uint8_t, uint8_t);
 extern lean_object* l_Char_HasRepr___closed__1;
 lean_object* l_IO_print___at___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___spec__2(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_header___closed__6;
@@ -104,7 +108,6 @@ lean_object* l_Lean_Parser_orelseInfo(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__10;
 lean_object* l_Lean_Parser_testModuleParser___closed__1;
 lean_object* lean_name_mk_string(lean_object*, lean_object*);
-extern lean_object* l_IO_println___rarg___closed__1;
 extern lean_object* l_PersistentArray_empty___closed__3;
 lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__7;
 lean_object* l_Lean_Parser_addParserTokens(lean_object*, lean_object*);
@@ -139,6 +142,7 @@ lean_object* l_Lean_Parser_Module_updateTokens(lean_object*);
 lean_object* l_Lean_Parser_Module_prelude___closed__3;
 lean_object* l_Lean_Parser_mergeOrElseErrors(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_import___closed__3;
+lean_object* l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3___boxed(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_prelude___closed__1;
 lean_object* l_Lean_Parser_Module_header___closed__7;
 lean_object* l_Lean_Parser_Module_import___closed__7;
@@ -152,8 +156,9 @@ lean_object* l_Lean_Parser_Module_import___elambda__1___closed__7;
 lean_object* l_Lean_Parser_Module_header___closed__3;
 lean_object* l_String_trim(lean_object*);
 lean_object* l___private_Init_Lean_Parser_Module_3__consumeInput(lean_object*, lean_object*);
-lean_object* lean_io_prim_read_text_file(lean_object*, lean_object*);
+lean_object* l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
 uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*);
+lean_object* l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_import___closed__5;
 lean_object* l_Lean_Parser_Module_prelude___elambda__1(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_import___elambda__1___closed__14;
@@ -165,6 +170,7 @@ lean_object* l_Lean_Parser_Module_import___elambda__1___closed__10;
 uint8_t l_PersistentArray_anyM___at_Lean_MessageLog_hasErrors___spec__1(lean_object*);
 lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__3;
 lean_object* l_Lean_Syntax_formatStxAux___main(lean_object*, lean_object*, lean_object*);
+lean_object* l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_import___elambda__1___closed__9;
 lean_object* l_Array_forMAux___main___at___private_Init_Lean_Parser_Module_4__testModuleParserAux___main___spec__10(lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l___private_Init_Lean_Parser_Module_1__mkErrorMessage___boxed(lean_object*, lean_object*, lean_object*);
@@ -172,10 +178,13 @@ lean_object* l_Lean_Parser_ParserState_mkUnexpectedError(lean_object*, lean_obje
 lean_object* l_EStateM_pure___rarg(lean_object*, lean_object*);
 lean_object* l_Lean_Message_toString(lean_object*);
 lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__8;
+lean_object* l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3(lean_object*, lean_object*);
 lean_object* l_Lean_Parser_parseFileAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_import___elambda__1___closed__3;
 uint8_t lean_string_utf8_at_end(lean_object*, lean_object*);
 lean_object* lean_test_module_parser(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*);
+lean_object* lean_io_prim_handle_mk(lean_object*, lean_object*, lean_object*);
+lean_object* l_IO_readFile___at_Lean_Parser_parseFile___spec__1___boxed(lean_object*, lean_object*, lean_object*);
 lean_object* l_Lean_Parser_Module_prelude___elambda__1___closed__4;
 lean_object* l_Lean_Parser_Module_import___elambda__1___closed__6;
 lean_object* l_Lean_Parser_parseCommand(lean_object*, lean_object*, lean_object*, lean_object*);
@@ -1956,7 +1965,7 @@ x_4 = lean_unsigned_to_nat(0u);
 x_5 = l_Lean_Syntax_formatStxAux___main(x_3, x_4, x_1);
 x_6 = l_Lean_Options_empty;
 x_7 = l_Lean_Format_pretty(x_5, x_6);
-x_8 = lean_io_prim_put_str(x_7, x_2);
+x_8 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_7, x_2);
 lean_dec(x_7);
 return x_8;
 }
@@ -1972,8 +1981,8 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6;
 x_4 = lean_ctor_get(x_3, 1);
 lean_inc(x_4);
 lean_dec(x_3);
-x_5 = l_IO_println___rarg___closed__1;
-x_6 = lean_io_prim_put_str(x_5, x_4);
+x_5 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
+x_6 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_5, x_4);
 return x_6;
 }
 else
@@ -2005,7 +2014,7 @@ _start:
 {
 lean_object* x_3; lean_object* x_4; 
 x_3 = l_Lean_Message_toString(x_1);
-x_4 = lean_io_prim_put_str(x_3, x_2);
+x_4 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_3, x_2);
 lean_dec(x_3);
 return x_4;
 }
@@ -2021,8 +2030,8 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6;
 x_4 = lean_ctor_get(x_3, 1);
 lean_inc(x_4);
 lean_dec(x_3);
-x_5 = l_IO_println___rarg___closed__1;
-x_6 = lean_io_prim_put_str(x_5, x_4);
+x_5 = l_IO_FS_Handle_putStrLn___rarg___closed__1;
+x_6 = l___private_Init_System_IO_1__putStr___at_Lean_HasRepr_HasEval___spec__2(x_5, x_4);
 return x_6;
 }
 else
@@ -2902,12 +2911,216 @@ x_7 = l_Lean_Parser_parseFileAux___main(x_1, x_2, x_3, x_4, x_5, x_6);
 return x_7;
 }
 }
-lean_object* l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1(lean_object* x_1, lean_object* x_2) {
+lean_object* l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2(lean_object* x_1, uint8_t x_2, uint8_t x_3, lean_object* x_4) {
 _start:
 {
-lean_object* x_3; 
-x_3 = lean_io_prim_read_text_file(x_1, x_2);
-return x_3;
+lean_object* x_5; lean_object* x_6; 
+x_5 = l_IO_Prim_fopenFlags(x_2, x_3);
+x_6 = lean_io_prim_handle_mk(x_1, x_5, x_4);
+lean_dec(x_5);
+return x_6;
+}
+}
+lean_object* l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
+_start:
+{
+lean_object* x_4; 
+x_4 = lean_io_prim_handle_is_eof(x_1, x_3);
+if (lean_obj_tag(x_4) == 0)
+{
+lean_object* x_5; uint8_t x_6; 
+x_5 = lean_ctor_get(x_4, 0);
+lean_inc(x_5);
+x_6 = lean_unbox(x_5);
+lean_dec(x_5);
+if (x_6 == 0)
+{
+lean_object* x_7; lean_object* x_8; 
+x_7 = lean_ctor_get(x_4, 1);
+lean_inc(x_7);
+lean_dec(x_4);
+x_8 = lean_io_prim_handle_get_line(x_1, x_7);
+if (lean_obj_tag(x_8) == 0)
+{
+lean_object* x_9; lean_object* x_10; lean_object* x_11; 
+x_9 = lean_ctor_get(x_8, 0);
+lean_inc(x_9);
+x_10 = lean_ctor_get(x_8, 1);
+lean_inc(x_10);
+lean_dec(x_8);
+x_11 = lean_string_append(x_2, x_9);
+lean_dec(x_9);
+x_2 = x_11;
+x_3 = x_10;
+goto _start;
+}
+else
+{
+uint8_t x_13; 
+lean_dec(x_2);
+x_13 = !lean_is_exclusive(x_8);
+if (x_13 == 0)
+{
+return x_8;
+}
+else
+{
+lean_object* x_14; lean_object* x_15; lean_object* x_16; 
+x_14 = lean_ctor_get(x_8, 0);
+x_15 = lean_ctor_get(x_8, 1);
+lean_inc(x_15);
+lean_inc(x_14);
+lean_dec(x_8);
+x_16 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_16, 0, x_14);
+lean_ctor_set(x_16, 1, x_15);
+return x_16;
+}
+}
+}
+else
+{
+uint8_t x_17; 
+x_17 = !lean_is_exclusive(x_4);
+if (x_17 == 0)
+{
+lean_object* x_18; 
+x_18 = lean_ctor_get(x_4, 0);
+lean_dec(x_18);
+lean_ctor_set(x_4, 0, x_2);
+return x_4;
+}
+else
+{
+lean_object* x_19; lean_object* x_20; 
+x_19 = lean_ctor_get(x_4, 1);
+lean_inc(x_19);
+lean_dec(x_4);
+x_20 = lean_alloc_ctor(0, 2, 0);
+lean_ctor_set(x_20, 0, x_2);
+lean_ctor_set(x_20, 1, x_19);
+return x_20;
+}
+}
+}
+else
+{
+uint8_t x_21; 
+lean_dec(x_2);
+x_21 = !lean_is_exclusive(x_4);
+if (x_21 == 0)
+{
+return x_4;
+}
+else
+{
+lean_object* x_22; lean_object* x_23; lean_object* x_24; 
+x_22 = lean_ctor_get(x_4, 0);
+x_23 = lean_ctor_get(x_4, 1);
+lean_inc(x_23);
+lean_inc(x_22);
+lean_dec(x_4);
+x_24 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_24, 0, x_22);
+lean_ctor_set(x_24, 1, x_23);
+return x_24;
+}
+}
+}
+}
+lean_object* l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3(lean_object* x_1, lean_object* x_2) {
+_start:
+{
+lean_object* x_3; lean_object* x_4; 
+x_3 = l_String_splitAux___main___closed__1;
+x_4 = l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(x_1, x_3, x_2);
+return x_4;
+}
+}
+lean_object* l_IO_readFile___at_Lean_Parser_parseFile___spec__1(lean_object* x_1, uint8_t x_2, lean_object* x_3) {
+_start:
+{
+uint8_t x_4; lean_object* x_5; 
+x_4 = 0;
+x_5 = l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2(x_1, x_4, x_2, x_3);
+if (lean_obj_tag(x_5) == 0)
+{
+lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; 
+x_6 = lean_ctor_get(x_5, 0);
+lean_inc(x_6);
+x_7 = lean_ctor_get(x_5, 1);
+lean_inc(x_7);
+lean_dec(x_5);
+x_8 = lean_mk_string("");
+x_9 = l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(x_6, x_8, x_7);
+lean_dec(x_6);
+if (lean_obj_tag(x_9) == 0)
+{
+uint8_t x_10; 
+x_10 = !lean_is_exclusive(x_9);
+if (x_10 == 0)
+{
+return x_9;
+}
+else
+{
+lean_object* x_11; lean_object* x_12; lean_object* x_13; 
+x_11 = lean_ctor_get(x_9, 0);
+x_12 = lean_ctor_get(x_9, 1);
+lean_inc(x_12);
+lean_inc(x_11);
+lean_dec(x_9);
+x_13 = lean_alloc_ctor(0, 2, 0);
+lean_ctor_set(x_13, 0, x_11);
+lean_ctor_set(x_13, 1, x_12);
+return x_13;
+}
+}
+else
+{
+uint8_t x_14; 
+x_14 = !lean_is_exclusive(x_9);
+if (x_14 == 0)
+{
+return x_9;
+}
+else
+{
+lean_object* x_15; lean_object* x_16; lean_object* x_17; 
+x_15 = lean_ctor_get(x_9, 0);
+x_16 = lean_ctor_get(x_9, 1);
+lean_inc(x_16);
+lean_inc(x_15);
+lean_dec(x_9);
+x_17 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_17, 0, x_15);
+lean_ctor_set(x_17, 1, x_16);
+return x_17;
+}
+}
+}
+else
+{
+uint8_t x_18; 
+x_18 = !lean_is_exclusive(x_5);
+if (x_18 == 0)
+{
+return x_5;
+}
+else
+{
+lean_object* x_19; lean_object* x_20; lean_object* x_21; 
+x_19 = lean_ctor_get(x_5, 0);
+x_20 = lean_ctor_get(x_5, 1);
+lean_inc(x_20);
+lean_inc(x_19);
+lean_dec(x_5);
+x_21 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_21, 0, x_19);
+lean_ctor_set(x_21, 1, x_20);
+return x_21;
+}
+}
 }
 }
 lean_object* l_Lean_Parser_parseFile(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
@@ -2917,99 +3130,133 @@ lean_object* x_4;
 x_4 = lean_io_realpath(x_2, x_3);
 if (lean_obj_tag(x_4) == 0)
 {
-lean_object* x_5; lean_object* x_6; lean_object* x_7; 
+lean_object* x_5; lean_object* x_6; uint8_t x_7; lean_object* x_8; 
 x_5 = lean_ctor_get(x_4, 0);
 lean_inc(x_5);
 x_6 = lean_ctor_get(x_4, 1);
 lean_inc(x_6);
 lean_dec(x_4);
-x_7 = lean_io_prim_read_text_file(x_5, x_6);
-if (lean_obj_tag(x_7) == 0)
+x_7 = 0;
+x_8 = l_IO_readFile___at_Lean_Parser_parseFile___spec__1(x_5, x_7, x_6);
+if (lean_obj_tag(x_8) == 0)
 {
-lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; 
-x_8 = lean_ctor_get(x_7, 0);
-lean_inc(x_8);
-x_9 = lean_ctor_get(x_7, 1);
+lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; 
+x_9 = lean_ctor_get(x_8, 0);
 lean_inc(x_9);
-lean_dec(x_7);
-x_10 = l_Lean_Parser_mkInputContext(x_8, x_5);
+x_10 = lean_ctor_get(x_8, 1);
 lean_inc(x_10);
+lean_dec(x_8);
+x_11 = l_Lean_Parser_mkInputContext(x_9, x_5);
+lean_inc(x_11);
 lean_inc(x_1);
-x_11 = l_Lean_Parser_parseHeader(x_1, x_10);
-x_12 = lean_ctor_get(x_11, 1);
-lean_inc(x_12);
-x_13 = lean_ctor_get(x_11, 0);
+x_12 = l_Lean_Parser_parseHeader(x_1, x_11);
+x_13 = lean_ctor_get(x_12, 1);
 lean_inc(x_13);
-lean_dec(x_11);
 x_14 = lean_ctor_get(x_12, 0);
 lean_inc(x_14);
-x_15 = lean_ctor_get(x_12, 1);
-lean_inc(x_15);
 lean_dec(x_12);
-x_16 = l_Lean_mkOptionalNode___closed__2;
-x_17 = lean_array_push(x_16, x_13);
-x_18 = l_Lean_Parser_parseFileAux___main(x_1, x_10, x_14, x_15, x_17, x_9);
-return x_18;
+x_15 = lean_ctor_get(x_13, 0);
+lean_inc(x_15);
+x_16 = lean_ctor_get(x_13, 1);
+lean_inc(x_16);
+lean_dec(x_13);
+x_17 = l_Lean_mkOptionalNode___closed__2;
+x_18 = lean_array_push(x_17, x_14);
+x_19 = l_Lean_Parser_parseFileAux___main(x_1, x_11, x_15, x_16, x_18, x_10);
+return x_19;
 }
 else
 {
-uint8_t x_19; 
+uint8_t x_20; 
 lean_dec(x_5);
 lean_dec(x_1);
-x_19 = !lean_is_exclusive(x_7);
-if (x_19 == 0)
+x_20 = !lean_is_exclusive(x_8);
+if (x_20 == 0)
 {
-return x_7;
+return x_8;
 }
 else
 {
-lean_object* x_20; lean_object* x_21; lean_object* x_22; 
-x_20 = lean_ctor_get(x_7, 0);
-x_21 = lean_ctor_get(x_7, 1);
+lean_object* x_21; lean_object* x_22; lean_object* x_23; 
+x_21 = lean_ctor_get(x_8, 0);
+x_22 = lean_ctor_get(x_8, 1);
+lean_inc(x_22);
 lean_inc(x_21);
-lean_inc(x_20);
-lean_dec(x_7);
-x_22 = lean_alloc_ctor(1, 2, 0);
-lean_ctor_set(x_22, 0, x_20);
-lean_ctor_set(x_22, 1, x_21);
-return x_22;
+lean_dec(x_8);
+x_23 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_23, 0, x_21);
+lean_ctor_set(x_23, 1, x_22);
+return x_23;
 }
 }
 }
 else
 {
-uint8_t x_23; 
+uint8_t x_24; 
 lean_dec(x_1);
-x_23 = !lean_is_exclusive(x_4);
-if (x_23 == 0)
+x_24 = !lean_is_exclusive(x_4);
+if (x_24 == 0)
 {
 return x_4;
 }
 else
 {
-lean_object* x_24; lean_object* x_25; lean_object* x_26; 
-x_24 = lean_ctor_get(x_4, 0);
-x_25 = lean_ctor_get(x_4, 1);
+lean_object* x_25; lean_object* x_26; lean_object* x_27; 
+x_25 = lean_ctor_get(x_4, 0);
+x_26 = lean_ctor_get(x_4, 1);
+lean_inc(x_26);
 lean_inc(x_25);
-lean_inc(x_24);
 lean_dec(x_4);
-x_26 = lean_alloc_ctor(1, 2, 0);
-lean_ctor_set(x_26, 0, x_24);
-lean_ctor_set(x_26, 1, x_25);
-return x_26;
+x_27 = lean_alloc_ctor(1, 2, 0);
+lean_ctor_set(x_27, 0, x_25);
+lean_ctor_set(x_27, 1, x_26);
+return x_27;
 }
 }
 }
 }
-lean_object* l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1___boxed(lean_object* x_1, lean_object* x_2) {
+lean_object* l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
+_start:
+{
+uint8_t x_5; uint8_t x_6; lean_object* x_7; 
+x_5 = lean_unbox(x_2);
+lean_dec(x_2);
+x_6 = lean_unbox(x_3);
+lean_dec(x_3);
+x_7 = l_IO_FS_Handle_mk___at_Lean_Parser_parseFile___spec__2(x_1, x_5, x_6, x_4);
+lean_dec(x_1);
+return x_7;
+}
+}
+lean_object* l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
+_start:
+{
+lean_object* x_4; 
+x_4 = l_IO_Prim_iterate___main___at_Lean_Parser_parseFile___spec__4(x_1, x_2, x_3);
+lean_dec(x_1);
+return x_4;
+}
+}
+lean_object* l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3___boxed(lean_object* x_1, lean_object* x_2) {
 _start:
 {
 lean_object* x_3; 
-x_3 = l_IO_readTextFile___at_Lean_Parser_parseFile___spec__1(x_1, x_2);
+x_3 = l_IO_FS_Handle_readToEnd___at_Lean_Parser_parseFile___spec__3(x_1, x_2);
 lean_dec(x_1);
 return x_3;
 }
 }
+lean_object* l_IO_readFile___at_Lean_Parser_parseFile___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
+_start:
+{
+uint8_t x_4; lean_object* x_5; 
+x_4 = lean_unbox(x_2);
+lean_dec(x_2);
+x_5 = l_IO_readFile___at_Lean_Parser_parseFile___spec__1(x_1, x_4, x_3);
+lean_dec(x_1);
+return x_5;
+}
+}
 lean_object* initialize_Init_Lean_Message(lean_object*);
 lean_object* initialize_Init_Lean_Parser_Command(lean_object*);
 static bool _G_initialized = false;

stage0/stdlib/Init/Lean/Parser/Transform.c

@@ -23,6 +23,7 @@ lean_object* l_Lean_Syntax_setTailInfo(lean_object*, lean_object*);
 lean_object* lean_string_utf8_extract(lean_object*, lean_object*, lean_object*);
 lean_object* lean_string_utf8_byte_size(lean_object*);
 lean_object* lean_nat_add(lean_object*, lean_object*);
+extern lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2;
 lean_object* lean_array_fget(lean_object*, lean_object*);
 uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
 lean_object* l_Lean_Syntax_removeParen___boxed(lean_object*);
@@ -35,7 +36,6 @@ lean_object* l_Lean_SourceInfo_truncateTrailing(lean_object*);
 extern lean_object* l_Lean_mkAppStx___closed__6;
 lean_object* l_Lean_Syntax_manyToSepBy(lean_object*, lean_object*);
 lean_object* l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(lean_object*);
-extern lean_object* l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2;
 extern lean_object* l_Option_HasRepr___rarg___closed__3;
 extern lean_object* l_Lean_Syntax_inhabited;
 lean_object* l_Lean_Syntax_getNumArgs(lean_object*);
@@ -342,7 +342,7 @@ x_31 = lean_string_utf8_extract(x_28, x_29, x_30);
 lean_dec(x_30);
 lean_dec(x_29);
 lean_dec(x_28);
-x_32 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2;
+x_32 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2;
 x_33 = lean_string_append(x_31, x_32);
 x_34 = !lean_is_exclusive(x_27);
 if (x_34 == 0)
@@ -415,7 +415,7 @@ x_57 = lean_string_utf8_extract(x_54, x_55, x_56);
 lean_dec(x_56);
 lean_dec(x_55);
 lean_dec(x_54);
-x_58 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2;
+x_58 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2;
 x_59 = lean_string_append(x_57, x_58);
 x_60 = lean_ctor_get(x_53, 0);
 lean_inc(x_60);
@@ -491,7 +491,7 @@ x_79 = lean_string_utf8_extract(x_76, x_77, x_78);
 lean_dec(x_78);
 lean_dec(x_77);
 lean_dec(x_76);
-x_80 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__9___closed__2;
+x_80 = l_Array_forMAux___main___at_Lean_Environment_displayStats___spec__10___closed__2;
 x_81 = lean_string_append(x_79, x_80);
 x_82 = lean_ctor_get(x_75, 0);
 lean_inc(x_82);