sub proto {
		my $p=shift;
		$p->{proto}=$_[0] if @_;
		$p->{proto};
	}