proc suma {a b} {
  expr {$a+$b}
}