fd082fbffa
FossilOrigin-Name: 64bf804f97086c309db9bd87b5daa2cd086566098e5d9b93845c96920420c585
5 lines
100 B
Forth
5 lines
100 B
Forth
~~~
|
|
'Push_and_discard_a_value_1,000,000_times s:put nl
|
|
#1000 [ #1000 [ #1 drop ] times ] times
|
|
~~~
|
|
|