sub round_to_nearest {
    my ($n, $scale) = @_;
    int(($n + $scale/2)/$scale) * $scale;
}