zeck(1019377012345) = 956722026041 + 53316291173 + 7778742049 + 1134903170 + 267914296 + 102334155 + 39088169 + 14930352 + 514229 + 196418 + 46368 + 17711 + 6765 + 987 + 377 + 55 + 21 + 8 + 1

##</code><code>##

my @zeck = zeck($ARGV[0]);
print 'zeck(',  $ARGV[0], ') = ', join(' + ', @zeck), "\n";

sub zeck
{
    return $_[0] if is_fibonnacci($_[0]);

    my $count = 0;
    my $prev  = 0;
    my $curr  = 0;

    while (($curr = fibonnacci($count)) < $_[0])
    {
        $prev = $curr;
        $count++;
    }

    return ($prev, zeck($_[0] - $prev));
}