hiccup-0.35: include.tcl

proc foreach {vname lst what} {
  set i 0
  while {< $i [llength $lst]} {
    uplevel "set $vname {[lindex $lst $i]}"
    uplevel $what
    incr i
  }
}

proc decr v {
  upvar $v loc
  incr loc -1
}