#!/usr/bin/perl -s

use warnings;
use strict;

use Conclave::Utils::OTK;

our $program; # default
our $problem;
my $pkgid = shift;

my $type = 'program';
$type = 'problem' if $problem;

unless ($pkgid) {
  print "Usage: conc-otk-dot [-program|-problem] <pkgid>\n" and exit;
}

my $onto = Conclave::Utils::OTK->new($pkgid, $type);

print $onto->draw_graph;