\ http://c...content-available-to-author-only...e.com/a/85291/34718
variable S utime S !
: L lshift xor ;
: R S @ dup 13 L dup 17 rshift xor dup 5 L dup S ! 6 mod ;
: f
33 0 DO R LOOP
1 -5 DO
33 0 DO
I PICK J + 0< 1+ IF ." =" ELSE SPACE THEN
LOOP CR
LOOP
; f
XCBodHRwOi8vYy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5jb20vYS84NTI5MS8zNDcxOAoKdmFyaWFibGUgUyB1dGltZSBTICEKOiBMIGxzaGlmdCB4b3IgOwo6IFIgUyBAIGR1cCAxMyBMIGR1cCAxNyByc2hpZnQgeG9yIGR1cCA1IEwgZHVwIFMgISA2IG1vZCA7CjogZgozMyAwIERPIFIgTE9PUAoxIC01IERPCjMzIDAgRE8KSSBQSUNLIEogKyAwPCAxKyBJRiAuIiA9IiBFTFNFIFNQQUNFIFRIRU4KTE9PUCBDUgpMT09QCjsgZg==