msgStacktraced :: HasCallStack => String -> IO ()
msgStacktraced msg = putStrLn (msg ++ "\n" ++ prettyCallStack callStack)
for (var e : currentThread().getStackTrace())
out.println(e);
cluck 'print this message and a full stack track';
for frame in inspect.stack():
print(frame)
let bt = Backtrace::new();
println!("{:?}", bt);