sub readfile {
	my $OP ;
	open FS, $_[0] ;
	while (<FS>) {$OP .= $_}
	close FS ;
	return $OP ;
}

##</code><code>##

sub readlines {
	open FS, $_[0] ;
	my (@OP) = <FS> ;
	close FS ;
	return (@OP) ;
}