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