Mine

proc putnow2 { text } {
	append text "\n"
	putdccraw 0 [string length $text] $text
}
proc ::putquick {text {option ""}} {
	::bc::put putnow $text $option
}