perl -e '$_=<<ROTATOR;
01
01
01
00

00
01
01
01

00
00
01
11

00
00
10
11

00
10
10
10

10
10
10
00

11
10
00
00

11
01
00
00
ROTATOR
s/\b(0|1)(0|1)\n(0|1)(0|1)\n(0|1)(0|1)\n(0|1)(0|1)(\n\n)?/0b$8$7$6$4$2$5$3$1\n/g;
foreach (split /\n/) {
    printf "\\x{%x}", 0x2800 + eval($_);
}'