2 sub rd ($) { my ($l)=@_; my $v; read(STDIN,$v,$l)==$l or die; return $v; }
4 $number= rd(4); $number= unpack "V", $number;
5 for ($i=0; $i<$number; $i++) {
6 for ($fi=0; $fi<4; $fi++) {
7 printf " %5d %d ", $i,$fi;
8 foreach $coord (qw(x y z)) {
9 $float= rd(4); $float= unpack "f", $float;
10 printf " %s=%15g", $coord, $float;