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;\">"
}