#Procedure whose default variable is set 1
#This script will increment the variable with the given amount of increment if provided.
#if optional increment value is not provided, it will increment by 1
proc increment { var {increment 1} } {
return [expr $var+$increment]
}