sub leonardo {
    my $n = shift;
    $n <= 1 || leonardo ($n - 2) + leonardo ($n - 1) + 1
+;
    }