sub read_record {
    my ($in) = @_;
    
    if (my $line = <$in>) {
	chomp $line;
	my ($head, $data) = split /\s*[.]\s+[+]\s+[.0]\s*/, $line, 2;
	
	return [split(/\s+/, $head // '')], $data;
    }
    else {
	return;
    }
}