sub calculate { return 1 if $_[0]==1; 
                       return (8**($_[0]-1) + 
                                   calculate($_[0]-1))
       }