
proc init_output {} {
	 global _outhandle
	 set _outhandle [open [output_file] w]
	 echo "HANDLE $_outhandle"
}

proc clear_output {} {
	 global _outhandle
	 close $_outhandle
}

proc >> { {text ""} } {
	 global _outhandle
	 puts $_outhandle $text
}

proc >>> {text} {
	 global _outhandle
	 puts -nonewline $_outhandle $text
}

proc set_marker args {
	 global defaults
	 set defaults(begin_marker) [lindex $args 0]
	 if { [llength  $args] == 2 } {
    	 set defaults(end_marker) [lindex $args 1]
	 } else {
    	 set defaults(end_marker) [lindex $args 0]
	 }   
}


