#247 Create a procedure with default arguments in tcl

An example of a procedure with procedure with default arguments is

proc add {a {b 2000} } {
  return [expr $a+$b]
}
puts [add 22 10]
puts [add 22]

Result:

32
2022