\ http://c...content-available-to-author-only...e.com/a/85291/34718
 
variable S						\ seed with time
utime S !
: R								\ xor-shift PRNG
S @
dup 13 lshift xor
dup 17 rshift xor
dup 5 lshift xor
dup S !
6 mod							\ between 0 and 6, exclusive
;
 
: f 33 0 DO R LOOP				\ push 33 randoms
	1 -5 DO						\ for (J = -6; J <  0; J++)
		33 0 DO					\ for (I =  0; I < 33; I++)
			I PICK J + 0< 1+ IF	\ if  (stack[I] < J)
				61 EMIT			\ print "="
			ELSE
				32 EMIT			\ print " "
			THEN
		LOOP
		CR						\ print "\n"
	LOOP
; f
 

XCBodHRwOi8vYy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5jb20vYS84NTI5MS8zNDcxOAoKdmFyaWFibGUgUwkJCQkJCVwgc2VlZCB3aXRoIHRpbWUKdXRpbWUgUyAhCjogUgkJCQkJCQkJXCB4b3Itc2hpZnQgUFJORwpTIEAKZHVwIDEzIGxzaGlmdCB4b3IKZHVwIDE3IHJzaGlmdCB4b3IKZHVwIDUgbHNoaWZ0IHhvcgpkdXAgUyAhCjYgbW9kCQkJCQkJCVwgYmV0d2VlbiAwIGFuZCA2LCBleGNsdXNpdmUKOwoKOiBmIDMzIDAgRE8gUiBMT09QCQkJCVwgcHVzaCAzMyByYW5kb21zCgkxIC01IERPCQkJCQkJXCBmb3IgKEogPSAtNjsgSiA8ICAwOyBKKyspCgkJMzMgMCBETwkJCQkJXCBmb3IgKEkgPSAgMDsgSSA8IDMzOyBJKyspCgkJCUkgUElDSyBKICsgMDwgMSsgSUYJXCBpZiAgKHN0YWNrW0ldIDwgSikKCQkJCTYxIEVNSVQJCQlcIHByaW50ICI9IgoJCQlFTFNFCgkJCQkzMiBFTUlUCQkJXCBwcmludCAiICIKCQkJVEhFTgoJCUxPT1AKCQlDUgkJCQkJCVwgcHJpbnQgIlxuIgoJTE9PUAo7IGYK