set place5 [place5 $hand] set clist5 [users list8] set trace5 [lindex [lindex $clist5 [expr {$place5 - 2}]] 1] set raz5 [expr $trace5 - $user(duels)]