Prime Number Program In Tcl quiing