my @nr = split (/\s+/, $_[0]);
	print ($#nr+1, " params \n");