unsigned int f_seqs_(long *v_ptr,long start,long end,long step,unsigned char *out_name,unsigned char* (*pf)(void))
{
 long ii;
 unsigned int nbelem,data_dim;
 unsigned char *p_eval;
 HANDLE handle;
 data_dim=4;nbelem=0;
 for(*v_ptr=start;(*v_ptr)!=(end+1);(*v_ptr)+=step)
 {
 	p_eval=(*(pf))();
 	data_dim+=(strlen(p_eval)+3);
 	push_zstr(p_eval); nbelem++;
 }
 
 if(isarchi(out_name)==1) unarchiv(out_name);
 handle=CreateFile_with_specified_size (out_name,data_dim+10);
 if(handle==0){printf("Memory error in seqs()");ngetchx();exit(4);}
 AppendCharToFile(handle,END_TAG);
 //AppendBlockToFile2 (handle, END_TAG,1);
 for(ii=0;ii<nbelem;ii++)
 {
 p_eval=GetStrnArg(top_estack);
 AppendCharToFile(handle,0);
 AppendBlockToFile(handle,p_eval,strlen(p_eval)+1);
 AppendCharToFile(handle,STR_TAG);
 }
 CloseFile_type (handle,LIST_TAG);
 return nbelem;
}

unsigned int f_seqe_(long *v_ptr,long start,long end,long step,unsigned char *out_name,long (*pf)(long))
{
 unsigned char buff[100];
 long value,ii;
 unsigned int nbelem;
 long p_eval;
 HANDLE handle;
 ESI sp1,sp2,sp3;
 nbelem=0;
 for(*v_ptr=start;(*v_ptr)!=(end+1);(*v_ptr)+=step)
 {
 	value=(*(pf))(*v_ptr);
 	//sprintf(buff,"%ld",p_eval);
 	//data_dim+=(strlen(buff)+3);
 	push_longint(value); 
 	nbelem++;
 }
 
 if(isarchi(out_name)==1) unarchiv(out_name);
 handle=CreateFile_with_specified_size (out_name,4+nbelem*6);
 if(handle==0){printf("Memory error in seqe()");ngetchx();exit(4);}

 AppendCharToFile(handle,END_TAG);
 //AppendBlockToFile2 (handle, END_TAG,1);
 for(ii=0;ii<nbelem;ii++)
 {
 	sp2=next_expression_index(top_estack)+1;
	sp3=sp2-1;	//pointe sur la prochaine valeur
 	while(sp2!=(top_estack+1))
	{
		AppendCharToFile(handle,*sp2);
		sp2++;
	}
 	top_estack=sp3;
 }
 CloseFile_type (handle,LIST_TAG);
 return nbelem;

 
 
}