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