bash $ diff <( perl -E 'say int( log(2**$_) / log(2) ) for 1 .. 2**10' ) <( seq 1 $(( 2**10 )) )