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