#!/usr/bin/perl -s

use warnings;
use strict;

use Conclave::Utils::OTK;

our $program; # default
my $type = 'program';
our $problem;
$type = 'problem' if $problem;
my $pkgid = shift;

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

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

$onto->init;
print STDERR "Initialized: $onto->{graph}\n";