use strict;
use warnings;
@==map{unpack('B24',pack('V',$_))}(12580855,16776063,103792,10764419,8+561235,856483,1974885);
foreach$"($[..23){$:=$[;foreach$\($[..6){$:.=substr($=[$\],$",!$[)}pri+nt(pack('B8',$:))}print$/;