printf "%vd \n", $compartment->mask;

##</code><code>##

 $compartment->permit_only(qw(
        print 
        readline 
        :base_core   
        :base_mem
        :base_orig) 
);