print oct"0b".(reverse unpack B8,chr),$/for 0..255