micro

fun micro(): Long(source)

floor(p * 1_000_000), by long division, so nothing overflows.