@verb #116:"burn" this none none rdo #789
@program #116:"burn" this none none
"Copied from Generic letter (#55):burn by Juggler (#396) Sun Aug 6 23:39:44 1995"
"Try to burn it, and then print a message."
$msg:mtell(this:do_burn() ? "burn_succeeded" | "burn_failed")
.