#!/usr/bin/perl

$max_edges = $ARGV[0];
die if ( $max_edges < 4 || !($max_edges < 100 ) );

for ( $edges = 6; $edges <= $max_edges; ++$edges ) {
    for ( $nodes = 4; 3*$nodes <= 2*$edges; ++$nodes ) {
        if ( 2*$nodes <= $edges + 3 ) {
            system( "plantri -a -p -c3 -m3 -e$edges $nodes 2>/dev/null" );
        } else {
            $dnodes = $edges + 2 - $nodes;
            system( "plantri -a -p -d -c3 -m3 -e$edges $dnodes 2>/dev/null" );
        }
    }
}
