language: Forth (gforth-0.7.0)
date: 538 days 4 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8

: imprime . cr ;
: imprimindo depth 0 do imprime loop ;
: equal begin dup 42 <> while drop repeat drop imprimindo ;
2
3
4
5