Posted to tcl by hypnotoad at Fri Dec 14 17:26:44 GMT 2018view pretty

foreach {const val} {
  pi 3.14159265358979323846
  e  2.71828182845904523536
} {
  proc tcl::mathfunc::$const {} [list return $val]
}