use warnings;
use strict;

##</code><code>##

use Data::Dumper;
my ($contact) = Denali::Contact->find(contact_id => 1);
print Dumper($contact);

##</code><code>##

find_cycle($contact);

##</code><code>##

print STDOUT find_cycle($contact);