RosettaCodeData/Task/User-input-Text/Tcl/user-input-text-2.tcl

if {![string is integer -strict $num]} then { ...do something here...}