#define f(x)i]*x**3+3*(1-x)*x*x*a[i+
var a:array[byte]of comp;i,j:byte;begin
for i:=1to 8do read(a[i]);for j:=0to 10do for i:=1to 2do
write(a[f((1-j/10))2]+a[6+f((j/10))4]:0:0,("
")[i])end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).