#!/usr/bin/env perl
use strict;
use warnings;

use Data::Dumper::Compact qw(ddc);
use Music::Intervals::Numeric;

my @notes = @ARGV ? @ARGV : qw(1/1 3/2);

my $m = Music::Intervals::Numeric->new(notes => \@notes);

print 'Freqs: ',            ddc $m->frequencies;
print 'Intervals: ',        ddc $m->intervals;
print 'Cents: ',            ddc $m->cent_vals;
print 'Prime factor: ',     ddc $m->prime_factor;
