#!/usr/bin/perl

use strict;
use warnings;

use Pairwise;
use blib;

open my $f, "../tests/input" or die $!;
my ($number, @distance) = Pairwise::pairwise($f);
my @ids = splice @distance, 0, $number;

print "$number, @ids, @distance\n";