FUNCTION :  eta[cuspmake] - computes a set of inequivalent cusps for GAMMA[0](N)
                

CALLING SEQUENCE : cuspmake(N) 
                    

PARAMETERS :   N  -  postive integer

GLOBAL VARIABLES : none

SYNOPSIS :   cuspmake(N) returns a set of inequivalent cusps for
             GAMMA[0](N) 

EXAMPLES :   

> with(ETA):
> cuspmake(56);
                         /   1  1  1  1  1   1   1 \ 
                        { 0, -, -, -, -, --, --, -- }
                         \   2  4  7  8  14  28  56/ 
> nops(%);
                                      8


DISCUSSION :
   GAMMA[0](56) has 8 cusps.

SEE ALSO :  
  cuspord, cuspORD, cuspORDS, cuspORDSnotoo, printcuspords, printcuspORDS