FUNCTION:  partitions[standptn] - print partition in standard form
 
CALLING SEQUENCE:  standptn(ptn)
 
PARAMETERS:    ptn -  partition (list of nondecreasing positive integers)
                   -  
 
GLOBAL VARIABLES: NONE                

SYNOPSIS:  
   prints a ptn in standard form
                    
EXAMPLES:  
                    
> with(partitions):
> ptn:=[1,1,2,2,2,5,6,8,8];
                       ptn := [1, 1, 2, 2, 2, 5, 6, 8, 8]

> standptn(ptn);
                       8 + 8 + 6 + 5 + 2 + 2 + 2 + 1 + 1

DISCUSSION:  
                    
SEE ALSO:  printptns