set a 5
set b 10
switch 1 "
  [expr $a < $b] {puts first}
  [expr 1 + 2] {puts second}
  [expr 2 + 3] {puts third}
  default {puts none}
"