# subroutine name: readstruct
# Input: file name
# Returns: data structure, which is read from file specified by $filename,
# previously created with writestruct
sub readstruct {
	my ($filename) = @_;
	return &text2struct(${&sysreaddata($filename)});
}