#!/usr/bin/perl


while (<>)
{
   last if (/^\s*\d+\s+\d+/);
   print $_;
}

do 
{
 printf ("%d %d %d\n",$1,$2,$3) if (/\s*(\d+)\s+(-?\d+.\d+.+)\s+(-?\d+.\d+.+)/) ;
# print $_;
 exit() if (/EOF/);
} while (<>);