#!/bin/perl

use warnings;
use strict;

use Cwd;

my $cwd = Cwd::cwd();
$cwd =~ /(\w+)$/;

print(`processing-java --run --force --output="./output" --sketch="../$1"`);