2>r 2r> 2r@
sieve.forth