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

use Data::Dumper::Concise;
use Music::Intervals;

my @notes = @ARGV ? @ARGV : qw(C E G);

my $m = Music::Intervals->new(
    notes    => \@notes,
    justin   => 1,
    equalt   => 1,
    chords   => 1,
    cents    => 1,
    interval => 1,
    freqs    => 1,
    prime    => 1,
    integer  => 1,
);
$m->process;
print Dumper
    $m->chord_names,
    $m->natural_frequencies,
    $m->natural_intervals,
    $m->natural_cents,
    $m->natural_prime_factors,
    $m->eq_tempered_frequencies,
    $m->eq_tempered_intervals,
    $m->eq_tempered_cents,
    $m->integer_notation,
;
