// Header File
// Created 29/03/2020; 19:38:04

char *seqb_(long *vard,long st,long ed,int ste,char **dest,long (*pf)(void)) 
 {
 long i;char *ptr;
 i=0;
 ptr=malloc((ed-st)/ste+1);
 if(ptr==0) {return 0;}
 for(*vard=st;*vard!=ed;*vard+=ste)
 {
 ptr[i]=(char)(*pf)();
 i++;
 }
 ptr[i]=(*pf)();
 *dest=ptr;
 return ptr;
 }
 
 char *seqw_(long *vard,long st,long ed,int ste,int **dest,long (*pf)(void)) 
 {
 long i;int *ptr;
 i=0; ptr=0;
 ptr=malloc(2*((ed-st)/ste+1));
 if(ptr==0) {return 0;}
 for(*vard=st;*vard!=ed;*vard+=ste)
 {
 ptr[i]=(int)((*pf)());
 i++;
 }
 ptr[i]=(int)((*pf)());
 *dest=ptr;
 return ptr;
 }
 
  char *seql_(long *vard,long st,long ed,int ste,long **dest,long (*pf)(void)) 
 {
 long i;long *ptr;
 i=0;
 ptr=malloc(4*((ed-st)/ste+1));
 if(ptr==0) {return 0;}
 for(*vard=st;*vard!=ed;*vard+=ste)
 {
 ptr[i]=(long)(*pf)();
 i++;
 }
 ptr[i]=(long)((*pf)());
 *dest=ptr;
 return ptr;
 }