<>=~$";sub f{my$d=$_%-$';local$_=($_-$d)/$';$_&&&f;print$d}f,print$/for<>