let f n p =
let rec aux r p q =
if p = 0 then r else aux (r + p) ((p + q) / n) ((p + q) mod n)
in aux 0 p 0
bGV0IGYgbiBwID0KCWxldCByZWMgYXV4IHIgcCBxID0gCgkJaWYgcCA9IDAgdGhlbiByIGVsc2UgYXV4IChyICsgcCkgKChwICsgcSkgLyBuKSAoKHAgKyBxKSBtb2QgbikKCWluIGF1eCAwIHAgMApsZXQgKCkgPSBwcmludF9pbnQgQEAgZiAzIDUK