Evaluated +t math {^(.+?)$} { if { [catch {expr %%1} result] == 0 } { return $result } }