Adicionado exemplo de umtliplas escolhas em Tcl