a[5]=e=2**50 $[a[i={6..99}]+=a[j=i-{1..6}]/6,b[i]+=(b[j]+e)/6] read while read n do printf %b $[b={!(a=a[n+5])?n*(a=3)+5:b[n+5],b%a*10+{A..L}},b/a] e-12\\n done