: (again) ( start-n action-quot -- ) over [ [ dup , call( n quot -- x ) ] keep (again) ] [ 2drop ] if ; : again ( start-n action-quot -- list ) [ (again) ] { } make ;