-1 variable f
1 variable v

: e
at 42 emit
;

: r
v @
*
swap
f @
*
9
+
swap
12
+
e
;

: k
10 0
do
0
i
r
loop

10 0
do
i
0
r
loop

8 0
do
i
dup
f @
*
9
+
swap
v @
*
12
+
e
loop

4 1 r
5 2 r
7 1 r
8 2 r

6 5 r
7 5 r

1 4 r
2 5 r
1 7 r
2 8 r

5 6 r
5 7 r
;

: p
4 0
do
k
-1 f !
-1 v !
k
1 f !
-1 v !
k
1 f !
1 v !
k
loop
vis
;
