sum integrate noun form

On Dec. 1, 2008, Barton Willis wrote:

>Try changing 'sum( 'integrate( f, y, y1, y2), m, m1, m2 ) ) to
 > apply('sum, ['integrate( f, y, y1, y2), m, m1, m2]));
>With that change, I get
 > stosi('integrate( 'sum( x^n, n, 1, 3), x, 0, 1 )); ---->
  >   integrate(x^3,x,0,1)+integrate(x^2,x,0,1)+integrate(x,x,0,1)

Hi Barton,
I failed to be clear about what I am trying to get out of this
program.

what I want is istosi( 'integrate( 'sum( x^n, n, 1, 3), x, 0, 1 ) ) ---->>

            'sum( 'integrate( x^n, n, 1, 3), x, 0, 1 ),

(a double noun form).

Ted

>>----------------------
>>code and run:
>>-----------------------------------------------
>>(%i1) display2d : false$
>>(%i2) istosi(e) := block( [sums, y, y1, y2,
>>               f, m, m1, m2],
>>  sums : first(e), display(sums),
>>  y : second(e), display(y),
>>  y1 : third(e), display(y1),
>>  y2 : fourth(e), display(y2),
>>  f : first(sums), display(f),
>>  m : second(sums), display(m),
>>  m1 : third(sums), display(m1),
>>  m2 : fourth(sums), display(m2),
>>  'sum( 'integrate( f, y, y1, y2), m, m1, m2 ) )$
>>
>>  (%i3) e : 'integrate( 'sum( x^n, n, 1, 3), x, 0, 1 )$
>>
>> (%i4) istosi(e);
>> sums = 'sum(x^n,n,1,3)
>> y = x
>> y1 = 0
>> y2 = 1
>> f = x^n
>> m = n
>> m1 = 1
>> m2 = 3
>> (%o4) 3*'integrate(x^n,x,0,1)
>>------------------------------------------
>>
>>Any cures available?
>>
>>Ted Woollett