{
    local $\ = $/;
    for (@ARGV) {
        $_ = unpack 'B*',
                    pack 'N', $_;
        s/^(?:0{8})*([01]{8,})/$1/g;
        print;
    }
}