if {![exists -proc progressbar]} {
	proc progressbar {percent} {
		set pos [expr 118 - $percent / 100.0 * 118]
		return "<img src=/img/percentimage.png
		    alt=\"$percent%\" class=progress
		    style=\"background-position: -${pos}px 0;\">"
	}
}