function s=tostring(a)
	if a.extra==1
		s=sprintf('first(%s)',tostring(a.base));
	else
		s=sprintf('first(%s,%d)',tostring(a.base),a.extra);
	end
