``` @[extern 4 "lean_io_allocprof"] constant allocprof {α : Type} (msg : @& string) (fn : io α) : io α ```