#!/usr/bin/perl

$x1 = $ARGV[0]+5;
$y1 = $ARGV[1]+5;
$x2 = $ARGV[0]-5;
$y2 = $ARGV[1]-5;

print "7,$x1,$y1,$x2,$y2,$ARGV[4],$ARGV[5],$ARGV[6]\n";
