r per.out c , tfort