#!/usr/bin/perl

$filenameA = $ARGV[0];
$filenameB = $ARGV[1];
$filenameOut = $ARGV[2];

open $FILEA, "< $filenameA";
open $FILEB, "< $filenameB";

open $OUTFILE, "> $filenameOut";

while(<$FILEA>) {
	
	#Remove end of line past space and add /1
	chomp $_;
	$_ =~ s/\s.+$//;
	print $OUTFILE $_ . "/1\n";
	$_ = <$FILEA>;
	print $OUTFILE $_; 
	$_ = <$FILEA>;
	print $OUTFILE "+\n";
	$_ = <$FILEA>;
	print $OUTFILE $_; 

	$_ = <$FILEB>;
	#Remove end of line past space and add /2
	chomp $_;
	$_ =~ s/\s.+$//;
	print $OUTFILE $_ . "/2\n";
	$_ = <$FILEB>;
	print $OUTFILE $_;
	$_ = <$FILEB>;
	print $OUTFILE "+\n";
	$_ = <$FILEB>;
	print $OUTFILE $_;
}