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