Select Code to Download

sub c {
    my$a=pop;$a==1?1:8**($a-1)+c($a-1)
}

sub c {
    my$a=1;$a+=8**$_ for(1..pop-1);$a
}