use strict;
use warnings;

use Clue::ByFour;
use Existing::Client;

my $clueX4 = new Clue::ByFour;
my $client = new Existing::Client;

$clueX4->add("rusty nail");
$clueX4->target($client);
for (0..1000) {
    $clueX4->swing();
}