global mom_holder_step_length mom_holder_number_of_steps mom_total_holder_length
set i 0
set mom_total_holder_length 0
while { $i < $mom_holder_number_of_steps } {
set mom_total_holder_length [expr $mom_total_holder_length + $mom_holder_step_length($i)]
incr i
}