#!/usr/local/bin/perl

if (-d 'test') {
    print 1;
}
else {
    print 0;
}