       module module1
       newfile star.pcalc.out
       stock=0
       list % stock=stock+pc_star(pcalc1.b4\*~stock_%)
       write "Stocks = pc_calc(stock,I)"
       mutual=0
       list % mutual=mutual+pc_star(pcalc1.b4\*~mutual_%)
       write "mutuals = pc_calc(mutual,I)"
       end
