add Ecrit.m