: iy 7
y 8
* floor - ;
: ix 7
x 8
* floor - ;
: .
swap 2
* + ;
: line
swap 2 ix
** / floor 2
mod swap iy
= * swap + 0
;
0 0
0 . 0 . 0 . 1 . 1 . 0 . 0 . 0 . 0 line
0 . 0 . 1 . 1 . 1 . 1 . 0 . 0 . 1 line
0 . 1 . 1 . 1 . 1 . 1 . 1 . 0 . 2 line
1 . 1 . 0 . 1 . 1 . 0 . 1 . 1 . 3 line
1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 4 line
0 . 0 . 1 . 0 . 0 . 1 . 0 . 0 . 5 line
0 . 1 . 0 . 1 . 1 . 0 . 1 . 0 . 6 line
1 . 0 . 1 . 0 . 0 . 1 . 0 . 1 . 7 line
drop dup