c=: 1 2 1 [ d=: 1 3 3 1
   x=: 2 1 0 _1 _2
  ,.&.>((c pp d);((c pp d)&p. x);(c&p.*d&p.)x)
+--+---+---+
| 1|243|243|
| 5| 32| 32|
|10|  1|  1|
|10|  0|  0|
| 5| _1| _1|
| 1|   |   |
+--+---+---+

   ,.&.>((d&p.D x);(pD d);((pD d)&p. x);(pI d);pD pI d)
+--+-+--+----+-+
|27|3|27|   0|1|
|12|6|12|   1|3|
| 3|3| 3| 1.5|3|
| 0| | 0|   1|1|
| 3| | 3|0.25| |
+--+-+--+----+-+

   ]e=: c(ps pp pd)d
0 _2 _9 _16 _14 _6 _1

   e&p. x
_648 _48 0 0 0

   ((c&p.+d&p.)*(c&p.-d&p.)) x
_648 _48 0 0 0

   f=: c&p.(+*-) d&p.
   f x
_648 _48 0 0 0

   ]g=: pD c pp d
5 20 30 20 5
  
   (g&p. ,: (c&p.*d&p.) D) x
405 80 5 0 5
405 80 5 0 5