my $Gore = new USA::President;

HASSLE: while ($Gore->still_losing) {
    $Gore->legal_manoeuvres;
      if ($Gore->Clinton_timed_out) {last HASSLE}
 }

print $Gore->inauguration_speech;