传送门
感觉很像FFT的过程的说……
先来考虑\(b\)如何转化成\(c\)，那么只要通过它的逆过程就可以了
首先，我们称“魔法”为比较两个数的字典序，记\(x=a_0\)，那么把\(b\)数组每\(x\)个分为一组，在每组里面，\(b_i\%x\)的值都是递增的，也就是说对于同一组里面的每一对\(i<j\)，\(i\)的字典序都小于\(j\)的字典序。根据代码，\(c[j]\)最终的值是所有\(i\leq j\)且\(i\)的字典序小于等于\(j\)的所有\(b[i]\)之和。排除掉\(j\)自己，就是所有比它小且字典序比它小的\(b[i]\)之和
如果\(i\)的字典序小于\(j\)的字典序，那么就要\(c[j]+=b[i]\)，那么设其中一组为\([l,r]\)，我们从左到右枚举\(i\in[l,r-1]\)，并令\(b[i+1]+=b[i]\)，因为这相当于是一个前缀和的过程，所以对于每一个\(b[i]\)，它都加上了所有\(b[j](j<i)\)
字典序第一维不同的情况考虑完了，那么考虑第一维相同而第二维不同，令\(y=a_0\times a_1\)，然后每\(y\)个分为一组，那么对于同一组里\(i\)和\(i-x\)是第一维相同而第二维不同的，所以\(b[i]\)要加上\(b[i-x]\)。
那么只考虑第二维会不会漏掉第一维的情况？比方说在第一次分组时，\(j\)位于第\(2\)组，\(i\)为与第\(1\)组，且\(i\)的字典序比\(j\)小，\(i\)就没有加上去。实际上不会有这样的情况，因为我们第一次分组时已经前缀和过了，所以此时\(b[i]\)的值肯定已经加到\(b[j-x]\)中了，所以不会出现漏减的情况
综上，要令\(b\)变为\(c\)，记\(sum_i\)为\(a_i\)的前缀积，我们要依次枚举\(sum_i\)，分组后在内部从左到右枚举，令每个\(b[j]\)加上\(b[j-sum_{i-1}]\)
于是要令\(c\)变为\(b\)，只要将这个过程反过来就可以了，只要倒着枚举前缀积，从右往左枚举\(j\)，令每个\(c[j]\)减去\(c[j-sum_{i-1}]\)即可
//minamoto
#include<bits/stdc++.h>
#define R register
#define ll long long
#define fp(i,a,b) for(R int i=a,I=b+1;i<I;++i)
#define fd(i,a,b) for(R int i=a,I=b-1;i>I;--i)
#define go(u) for(int i=head[u],v=e[i].v;i;i=e[i].nx,v=e[i].v)
using namespace std;
char buf[1<<21],*p1=buf,*p2=buf;
inline char getc(){return p1==p2&&(p2=(p1=buf)+fread(buf,1,1<<21,stdin),p1==p2)?EOF:*p1++;}
ll read(){R ll res,f=1;R char ch;while((ch=getc())>'9'||ch<'0')(ch=='-')&&(f=-1);for(res=ch-'0';(ch=getc())>='0'&&ch<='9';res=res*10+ch-'0');return res*f;
}
char sr[1<<21],z[20];int C=-1,Z=0;
inline void Ot(){fwrite(sr,1,C+1,stdout),C=-1;}
void print(R int x){if(C>1<<20)Ot();if(x<0)sr[++C]='-',x=-x;while(z[++Z]=x%10+48,x/=10);while(sr[++C]=z[Z],--Z);sr[++C]=' ';
}
const int N=1e6+5,M=1e4+5;
int a[M],b[N],las[N],tmp[N],st[N];ll c[N];
int n,m,top,tt;
void out(){print(n),sr[C]='\n';fp(i,0,n-1)print(a[i]);sr[C]='\n';print(m),sr[C]='\n';fp(i,0,m-1)print(c[i]);sr[C]='\n';
}
int main(){
// freopen("testdata.in","r",stdin);n=read();fp(i,0,n-1)a[i]=read();m=read();fp(i,0,m-1)c[i]=read();st[++top]=1;for(R int i=0;i<n&&1ll*st[top]*a[i]<=m;++i)if(a[i]!=1)++top,st[top]=st[top-1]*a[i];st[++top]=m+1;for(R int mid=st[top];top>1;mid=st[--top]){for(R int i=0;i<m;i+=mid){int j=min(i+st[top]-1,m-1);while(j>=i+st[top-1])c[j]-=c[j-st[top-1]],--j;}}out();return Ot(),0;
}