import Lean

open Lean

def x := 10

unsafe def tst : CoreM Unit := do
let env ← getEnv
IO.println $ env.evalConst Nat {} `x

/-- info: ok: 10 -/
#guard_msgs in
#eval tst

def f (x : Nat) := x + 1

unsafe def tst2 : CoreM Unit := do
let env ← getEnv
let f ←  IO.ofExcept $ env.evalConst (Nat → Nat) {} `f
IO.println $ (f 10)

/-- info: 11 -/
#guard_msgs in
#eval tst2