#!/usr/bin/perl -w

use strict;
use warnings;
use English;
use FileHandle;

use Exception;

my $input = shift;

my $count = 0;

my $largest_cons1 = 0;
my $largest_cons2 = 0;
my $largest_cons3 = 0;
my $largest_cons4 = 0;
my $largest_cons5 = 0;

open(FILE, "$input") || die "ERROR: Unable to open input file: $!\n";

while(<FILE>)
{
    my @data = split(/\s+/, $_);

    $count++;

    my $pos = $data[1];
    my $cons1 = $data[2];
    my $cons2 = $data[3];
    my $cons3 = $data[4];
    my $cons4 = $data[5];
    my $cons5 = $data[6];

   if($count < 5)
   {
      
      if($cons1 > $largest_cons1)
       {
	   $largest_cons1 = $cons1;
       }

      
        if($cons2 > $largest_cons2)
       {
	   $largest_cons2 = $cons2;

       }

        if($cons3 > $largest_cons3)
       {
	   $largest_cons3 = $cons3;

       }

        if($cons4 > $largest_cons4)
       {
	   $largest_cons4 = $cons4;

       }

        if($cons5 > $largest_cons5)
       {
	   $largest_cons5 = $cons5;

       }


   }

    
    print "$pos $largest_cons1 $largest_cons2 $largest_cons3 $largest_cons4 $largest_cons5\n";
}