FUNCTION :  CUSPSANDWIDMAKE - set of inequivalent cusps for Gamma[1](N)
                              with corresponding widths

PARAMETERS :      N - positive integer

GLOBAL VARIABLES : CUSPMAKEERROR

SYNOPSIS :   Returns a set of inequivalent cusps for Gamma[1](N),
             and corresponding widths.   
             Output has the form [CUSPLIST,WIDTHLIST].
             This proc uses cuspmake1 and cuspwid1.
             In this version cusps are written as fractions
             with the first cusp being oo. If oo is not found
             as a cusp the global var CUSPMAKEERROR = 1.

EXAMPLES :   

> CUSPSANDWIDMAKE1(40);
[[oo, 0, 1/3, 1/7, 1/9, 1/11, 1/13, 1/17, 1/19, 1/2, 1/6, 1/14, 1/18, 1/4, 3/4,
                                          13
    1/12, 7/12, 1/5, 3/5, 2/5, 4/5, 1/15, --, 7/15, 4/15, 1/8, 3/8, 7/8, 5/8,
                                          15
                      13
    1/16, 3/16, 7/16, --, 1/10, 3/10, 7/10, 9/10, 1/20, 3/20, 7/20, 9/20, 3/40,
                      16
                11  13  17  19
    7/40, 9/40, --, --, --, --], [1, 40, 40, 40, 40, 40, 40, 40, 40, 20, 20,
                40  40  40  40
    20, 20, 10, 10, 10, 10, 8, 8, 8, 8, 8, 8, 8, 8, 5, 5, 5, 5, 5, 5, 5, 5, 4,
    4, 4, 4, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1]]

DISCUSSION :

SEE ALSO :  cuspmake1, cuspwid1