#!/usr/bin/perl

my $negcheck = $ARGV[0];
my $tricheck = $ARGV[1];
my $equality = $ARGV[2];
my $symmetry = $ARGV[3];

if ($negcheck == 1) { $negpart = "negcheck-1"; }
elsif ($negcheck == 2) { $negpart = "negcheck-2"; }
else { $negpart = ""; }

if ($tricheck == 1) { $tripart = "triangle-inequality-1" }
elsif ($tricheck == 2) { $tripart = "triangle-inequality-2" }
else { $tripart = ""; }

if ($equality == 1) { $eqpart = "="; }
else { $eqpart = "eq"; }

if ($symmetry == 1) { $sympart = "symmetric"; }
else { $sympart = "asymmetric"; }

$cmd = "cat front $negpart $tripart $sympart-$eqpart back > tri.$negcheck$tricheck$equality$symmetry.ss";

print $cmd . "\n";
system($cmd);