#!/usr/bin/perl

use warnings;
use Capsule;

my $p=Capsule->new;
my $q=Capsule->new;
my $r=Capsule->new;

Capsule::equation(1, $p, 1, $q, -3);
Capsule::equation(1, $q, 1, $r, -4);
Capsule::equation(1, $r, 1, $p, -5);

print "p=", $p->value, "\n";
print "q=", $q->value, "\n";
print "r=", $r->value, "\n";