       module module1
       newfile star.pcalc.out
       sum=0
       list % sum=sum+pc_star(pcalc1.b2\*c%)
       write star.pcalc.out "computer + creditcard + chewinggum + car = pc_calc(sum,f)"
       end
