9 lines
241 B
Text
9 lines
241 B
Text
import Init.Lean.Parser
|
|
|
|
def main : List String → IO Unit
|
|
| [fname, n] => do
|
|
env ← Lean.mkEmptyEnvironment;
|
|
n.toNat.forM $ fun _ =>
|
|
Lean.Parser.parseFile env fname *> pure ();
|
|
pure ()
|
|
| _ => throw $ IO.userError "give file"
|