a=fgetl(0);while a disp(a);a=[abs(diff(a+0))+48,""];end