sub faster {
    return 0 unless $_[0];
    @_ = ($_[0] - 1);
    &faster;
}