sub fib {my $n = shift; $n <= 1 ? $n : $n + fib($n - 1)}
    sub fac {my $n = shift; $n <= 1 ?  1 : $n * fac($n - 1)}
    my $var = fib(3) + fac(4);