perl -E 'say log(~0)/log(2)'