sum.cuad<-
function(x)
{
	sum(unlist(x^2))
}
 
 
  s1<-
function(x)
{
	sum(unlist(x>0))
}