#!/usr/bin/perl
sub rd ($) { my ($l)=@_; my $v; read(STDIN,$v,$l)==$l or die; return $v; }
$hdr= rd(80);
$number= rd(4);  $number= unpack "V", $number;
for ($i=0; $i<$number; $i++) {
    for ($fi=0; $fi<4; $fi++) {
	printf " %5d %d ", $i,$fi;
	foreach $coord (qw(x y z)) {
	    $float= rd(4);  $float= unpack "f", $float;
	    printf "    %s=%15g", $coord, $float;
	}
	print "\n";
    }
    rd(2);
    
}