#!/usr/bin/env perl

use strict;
use warnings;

use Math::Trig;
use Data::Dumper;

BEGIN {
  push @INC, '..'
}

use Manticore::Num::ContinuedFraction;

my $pi = Manticore::Num::ContinuedFraction->new(7.25);

#print $pi->child();
#
#print Data::Dumper::Dumper($pi);

my $c = $pi->firstk(25);

print "[[ @$c ]]\n";