one fable-low hijack cell
pair factor / forth
envelope code_pipe_pipe
ordering BA
effort low
Code-flavored OR operator — '{X} || {Y}'
verdictpicked forth (second-offered)
· classifierB
· tiernone
response (200 chars)
It looks like you might want a **factorization program in Forth**. Here's a simple one that prints the prime factors of a number:
```forth
: factor ( n -- )
2
begin
2dup dup * >= over
neighbors