7 lines
131 B
Raku
7 lines
131 B
Raku
my $buf = "";
|
|
my $v;
|
|
while(1) {
|
|
( $v, $buf ) = read_bits(*STDIN, $buf, 7);
|
|
last if ($buf < 0);
|
|
print pack("C1", $v);
|
|
}
|