#define U(V,X)while(N>=V)S+=X,N-=V;
ll@N;string S;U(720,67)U(360,77)U(180,83)U(30,82)U(6,111)U(1,46);wt(S);