FUNCTION :  qseries[prodmake] - Convert a q-series into an infinite product      
    
CALLING SEQUENCE :  prodmake(f,q,T)
    
PARAMETERS :   f    - q-series
               T  - positive integers 
   
SYNOPSIS :   
   
 prodmake(f,q,T) converts the q-series f into an infinite product          
                          T  
 that agrees with f to O(q ).  
   
   
EXAMPLES :   
   
> with(qseries);

-----------------------------------------------------------------------------
> tripleprod(q,q^5,30);

   216    172    133    99    70    46    27    13    4            7    18    34
- q    + q    - q    + q   - q   + q   - q   + q   - q  + 1 - q + q  - q   + q

        55    81    112    148    189
     - q   + q   - q    + q    - q
-----------------------------------------------------------------------------
> prodmake(%,q,50);

                 4        5        6        9        10        11        14
   (1 - q) (1 - q ) (1 - q ) (1 - q ) (1 - q ) (1 - q  ) (1 - q  ) (1 - q  )

             15        16        19        20        21        24        25
       (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  )

             26        29        30        31        34        35        36
       (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  )

             39        40        41        44        45        46        49
       (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  ) (1 - q  )
-----------------------------------------------------------------------------
  
SEE  ALSO :