pStateU.diploma('mathmatics',1961) <- pBob
 pStateU.diploma('zoology',1955) <- pJoe
 pStateU.diploma('psychology',1962) <- pMaryann
 pStateU.foundingAlumni <- pStateU.diploma(_,Year:[1963,1961,1960])