3 lines
115 B
Text
3 lines
115 B
Text
: <range> over iota swap * rot + tuck swap <= select ; : tuck swap over ;
|
|
: >>say.(*) . ;
|
|
1 10 2 <range> >>say.
|