perl -E 'say unpack "%b*", pack "j", -1'