# Perl, <s>139</s> <s>137</s> 135 bytes
```perl
sub p{print"@_
"}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}p g$_,(55)x3 for 0..7;map{@v=(g$_,89,34,0)x2;p@v[$_..$_+2]for 0..2}0..3
```
[try it online](https://tio.run/##K0gtyjH9/7@4NEmhoLqgKDOvRMkhnkupFiSQXq2hUqFp6xBvnZtYUK0SH60SH6ulYairYaKlUmFnpxKvZqSpWWuop2dcW6CQrhKvo2FqqllhrJCWX6RgoKdnDtbmUGarAZKzsNQxNtEx0Kwwsi5wKAMapaenEq9tFAtVbFQLJIz//wcA)