print $parties[ rand @parties ];