#!/usr/bin/perl

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

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