/* bull.c
 * by dave maez - sellout at dharmadevil.com
 * Moose art done by someone else.
 *
 * To compile you need GNU's libgmp (http://gmplib.org/)
 * cc -o bull -lgmp bull.c
 */

#include <stdio.h>
#include <stdlib.h>
#include <gmp.h>

void pbn(unsigned long length, mpz_t num, unsigned long perm[]) {
  unsigned long x,swap,bar;
  mpz_t foo,q,lf;

  mpz_init(foo);
  mpz_init(q);
  mpz_init(lf);
  mpz_set(foo,num);
  for ( x = 0; x < length; x++) perm[x] = x;
  for ( x = length; x > 1; x--) {
    if (!(x & 0xFF)) printf(".");
    mpz_tdiv_qr_ui(foo,q,foo,x);
    bar = mpz_get_ui(q);
    if (bar) {
      swap = perm[length - x];
      perm[length - x] = perm[length - x + bar];
      perm[length - x + bar] = swap;
    }
  }
  mpz_clear(foo);
  mpz_clear(q);
  mpz_clear(lf);
}

#define psbase 36
char pscalar[] = "4e99zqom9s9ne2nefjlqrmrce28daalfgiystcee9hyb96phlimu0zrmyz\
wb97y7ez5oll4c4ptayeno83rjca5xf2f6r7oya5u7p9i58cphoqog4txnkvs6g83bthi95a60zs\
rlpgyyrp0ko9j1qc1uv161qtzec3jg1m6kaiqsbx2dy3qu93i7o48gpgxthxwjmqzfw0cobdsmnr\
6egr9jxhss7o6vki6qmdzy1tttesryqa4yoxzxmxcyum5d523sv2u0zcb6r4j8qnyxi3if67bc9m\
yn5cbg45hw8q0fw927shdvuipbxtd5s8brqrj4ad4k4rg7c234auvd5dmqm60fg21srb8swt32ye\
rtptw7dzwhneo213xjhcan6vopmwy4e9j6k4hzmcdkgpoinw2p3fg421h9skr82u42ulw73b59s6\
0s5pdkavdr47ro2fjnp257ffogp351nzisbwakrea8gaw0863ik6zigaief7z3ybigyzbvjudtp0\
9vyjzqd7sseqbu8v99jryga64vbsu33e2mmkpkogr61341rztro8qcy7zp6afjvr9f1tuyrtnabt\
0dnbmxc1poz6x3orq4c12aivk892czm0ouz6sukqpzbs6ax3xbceneoo081nkewpqqhqf0cb3as6\
5lttm6nstds24l6bxihqhunlyqywxsxaeod3ewhxn9wrntxwhtnhewu5s0u8j4aq6zogqiojotoq\
7o1u0fbjwkua67yisjf3i18qlw928k8k3mbv9folcrvh92rcwqraxiq4yj5qzwjblf6ockacnef6\
nv1aflqx9aqhamf3vxsw9quvdfziz87omsm6jpaqwntgrype6d63yrnr66tzwijwcwgs75rishne\
88mkwzva1tbtf6jmz3ywjh3hui7m1pxwjlejpupon0extifc2ybjj832cc8kkm5phy4sc3ys06ro\
pt9paaasn6oz7sq4t1qlnnd7j6ovwt1l68obzfemuqllowq5zt9yo2pn2qr6a72wy1xc8rhc16pg\
b080i7uuzhu4turwa10sbyc9zxrlhlf0753c3ta7taxmb96otb6ak568bd7wy28q5a1q12jr4znh\
yq2thiye1jc5zbqqjitv35kctqg8zcn4t604q9gjnjd4qjzzx4dqu0j1ot4tzmujkcwipvrii4c9\
24qem3llcq23m4cyjvl2hcu3dal51mcthex8chu3eh6h4s96zn519r09wfeqtcd3f3lniz9a2wv6\
d5w9p0v7n5zzy7zy5eva3m3d4uq9lqsdd0ty16v31np2u5vtp8vqnwes45p2kpc0htwwh0vvg3by\
7xh1cdjmrbtqrx7u5vgtotq4pea8kux8m2lc1dyfg4ux34k0vrylce5r337xdjm4888gj8doyyv8\
eqn5ia88yq9csj2yc78xv69ed3ed8fh92xytrl4xxoxobouep5pju1r44yuzdo68etufdp9zsxvv\
504z3b96s20cx2nysqg38mp4tijly8gpewx5n18lzh5jjs8a1tpky626nzqqvjkblals6i6zak48\
7dn1sbs9lb4insswyg8zg7ncpdy3sosfv9jhhqpjyxucd3fdfljro1n30dscmtxf3ln8oe9kthxt\
5qhm4rzc4pq55uxhc8cc1fsropx1b30ho24p4noz4f4cjv0lbo3whugazl4k8wnphm9sk5bkj7ae\
0nt621chz7lk99wcplagrsb7n4llss6bh7myoov33yvqug0i8ih29ovgtzplodb4zrce5luo3u6y\
gdeedde53ah80v0ujf0bd1in4jji0dtt1u3z8igzddqsw9i2u0n5lb8rx6tueoc9wfqp1hkicoz3\
kylubuwak7yjcns2mfvmza6d1y18uzae7bscbfwg9rbxybc02fbuvpajrs9wd9z5avwtya5arb6u\
y77j2qyvhiltvq6n97j9ic4kioi4e7dy8u4zdqd1pa17oc9fjh3gh9vw59jfrqaf7ruo2pwocss7\
c81h7nclsq2jgiue9l68vktl2klsds0c0nomjy7rgih5s28aypq0jl28a18kegqxvo0fxvcyabu5\
l38xncg21sv0gzf03bt63gyqcxiv6wle870r525kw6ookmdquj3nv1s1uh3zowu16hcd1sdtdrpm\
5xato7ylb793kwcx4y6vhol0yk73tuwh4egcvtuo9vq815acc4ehvo1hglch1tw4a36gjmapj5fd\
zkqxt4vs5i93lkwdxea06uer73stmtsyt4v8gjlr6o2bykksrr20c94plu1s8c0k4bhffhi1oyv5\
n9xll0vk80enlcrbjslo10od29umoewwhjlkked3bqg4lf5nhxfnpsu6vj3xhnzkf9f3y8t49d6p\
98g4xek7fy95uo5uidi8gev24vwversbuzeut8kgzukron14acpt6xnzn0vkpdw9093tehbtrenk\
xx88qf3luc0wd6349kd2u992s0lqtppmotctwggw2nov8xqc57a3jr3gpc1800xw7n3p2uyki6gh\
fi8g0ki2pjdc28dmw7dhrbbl8gnd0mcnmtxsbrq9e9fj3d40cppzqkuehsy2o88u3tqrq6slrf4k\
tmf7c99pvcbqf8cacdbxpmgzkvnso5lea0u5tsoxqyyf4puuclssibk1svo9f237xtc8zbtnil3o\
ryqbio1b3h5pnhm5hdlq8qcfcyq11t0y60tqs000pc58xrj57g3r5k19mz3sgj9858zno86bh79p\
wd4kkuuinfb4d1bmgt3tj7b2uxkupfnaw9kslmhpo2q03t0mwp31bawozywuhwdwhnb94udt0c2z\
nvigjyww7eo83a53hdg1owfuz59clbie9iekix25qjo2yvdensb1gvtp6wn48wmhfkg5oey9vvm9\
2ahuvss7nhzh5o4cpqqe2siewqgn7eeq9k0qnd3a7no6oqt3z72pj0eqana04neke4f8tnc0s45n\
mcsyseokjolighsufqifbwd1okwhcjre1ygydnpzfxpyt8n0bxwway5bigl86vb1aq5jl4ilkqcc\
7dhms9tdhodihgx97488dp4q9tl08b79od1767msocheaaufv2zk0yrey7jlp88g03cfz5yqfahl\
ocmaoz69bb63iu3toa27gukuv1eabt2r7nhywtr3qsnzticfmwynn4m81uposat9vcxfeigdb193\
ero53gnk8yzfx1thi133w2t87fkx27xl8z1nrcw5i3x6gy74g2oj4bxsk973e39hx8ztgimlh4ad\
jj84zc038ktrzanktkfo32ke0q427lbrta1sxlxpx9c1nm5giwmyjqr7gbxbkgmj1uek0ese2i1f\
2k833deot6j993mvjtwjcaemj4617hoinpfj52043j8miebrv93s07q386xlssoc8yezzrva9k2n\
3uj2jvv8a7hudkl08cv3j9lvgi5l1v0psflpq4pbxqce6bnhqczvotvuw5y93b6zqd4k1r3u790m\
fd1csn2obl3txjyzv805zatco5yjenfn3fsfhgnymdjg7wb07w0lnrdqciujfuk2y69gx30ztcjq\
fhvamuvgpsnms0xsfvrzsmlwszll5iqt7jeuvqbv8u20d0qpem9mf4lmvmqcdmql4rgetuluu5dh\
5idqjn4r03f2sg92tct1et21v6tgd6dg3owwbz88tru2ezaxojeffll2y9lmvsxd6h0itenn75ah\
20126522roynsi4yf4k2fgabjap3e9365i8vo7ftlmeh1etzrduk9gkwpcxsbzxt3x5uljxb6674\
lrpt00ojlb0vggrssyj14u7i6qj5rbi6pda1jpwqhzdu9c8p87ev0iflhryp71we4r9jq4bz8lr8\
newclfezj6sjr7e2q192z2utahiicvbdok888ztofcl9blnlkaplfra7z5t4ekjxs1j3ydx30p7s\
1h3yhojzt9uhd1w5aqjcdjvlen4wfk0w7zmvxtq7di29r7nsrgmk2fg3zb6y9kmhglzualz676y9\
9bbiejnala97rcpw3almcwnhx48g9z46dtwzhucqhpwdbxm1j5v38ky7a9qwncug9ez9qah9rdc5\
5ejq8non0nqitvglno9u88qy6094kw63g99mmba3hbvfu714sofaqq73227jlhn5de0v1z6wa6qf\
nnwibla5uweu49liaz90m5ls0hjhq339nagxc4da4i4lmuzjylqxisewf6ookc9hujha56j54398\
kzc9rbz2g2puxxhsv9txvzysu8di7kwprps4qdz4lcpyts1gscac4n5yz4v0jlvd3mne3cw14eix\
ey2a1b1t5k6msvf83q8ch9iu9r6kbz6mpe1ztmc2k4hpkmtwuibkxjl5br2vyh2uqnj0l4mego5v\
lpur7lvn3ugppbtybtypd58zc12q1m0qgsdkqu0f5mjhh5p45f8cetiqr166o4min1p91i4vb0m6\
lrc4bk54qefvqi93mdwa44ceoypcxtl3dod96i88xqdusdaehgf30odbthwnv4zh7949xlfvzf6h\
n4g0jz7tsa4tsiz1zl6djw8g6lurypjhoy1wxh19xp2itfd1isty9wixp59ssiunvp6s43kmz3rp\
kt2vfmtq7wanc4s37tjd9ok2tvmxhn2670c64mpzn8m14c393p5dadod9se8z701196iqgyfp56p\
8t62oda54s47s4c67bmrxhn0mlpuq34c1mlcmis8s1wuiu578kzrd1ena1zp7k9ucv2skqiqcr32\
crvixfr8s82mycejooobn06af5fdt0t5r83mi3ejegyikbg406pi4vzbf6hfhk0dwuaoxtz3jyvl\
aoy5iynjmklr596gq086eb1w7j24q309k30ypj3cxixehfjxyo9d8lee5pn764n6d4ql51pkgysc\
01sdfiuln94y6rd68k4uyq11wnhxrzty9f4t0p65cilxi3w1mg0ahufi28lv83zslbglb68m03gl\
5z0sd1fqk9l6pbbt042va7ws1nh1azy3rrvagvoueu347bdekxbd6ywdijsfbzg10f5uf41qntyw\
eoh3fvi39hkbyqprqrvt20jivonmf10vodf1qubjtkylq41mcv2us384imreumw0o2fxeuodgyim\
sd3612f06peamp1z0sllbmo1ukelqh6ztxm8cyngig0dzw6jo6r8wxcivdmil63ug382rfma0kct\
4ec2rfrychibuy358cuj1bqdhh898c18pqpemqm8k1kyu79vkyc0s1ps4bay2xtzbocavvu3r7k0\
iik8kyug7v9tbujhz5s6tv4mka9ujdwc4j0fklz8yz8fpyu4zloi32s8ta6i9474ud723p51qlkb\
4q2c6vvvuz8vwqfcdp2c8wihq86myy1ryp85whp3rxfkd6cb7qbtg1choxpi5muvcjrlrxu7tor4\
8291vv33wzy2g1midj366m0wvorunx0zor2pp3382nvw5af68ugqtrqbti0mhl29zx2kk4zn2j7v\
a9foxsyf9mbb5o79874tmulse4knesdexu5uuggpv5f7ext6ilr2g600cogux8lt7k0iv4c12z17\
q3phtxrjcvt1cjon8f62wc52dxjm2380h352r5s4wj1j0hntltc385nootk4rfvufhmmivcndvxs\
j3140d6yqh64944al0hur3ojlt56v7texac222dn2j9xrnkr6qs2btr46xt92ikpv8ileaqeofhh\
4xy0jl37at6n18lnkzay8fxf6i58yg4klmpl1e681vebwkcdqrh1ewtupiuxc4eidzhx71hywfhe\
s8klmpmcmkjqcsv0t96vz9jdwwq37s6ceb1lrotq2mxp0re9j5rwddk7vcnkh4ebjwku50t9b55b\
txh1v1rt25yxv8vxtyi2q2r5d6sxeaxdxzj5hcsvpd11ddsh45ebwdrr5oofbrtzsrsgzwowctc4\
4tz1gnhkex37u0ovv1krqpwq8msiele8cdl8kyarsok2wr14vwfo41x104nzm4t2eg4nvaa2t28y\
3gr3e0qmcmdz1g5ils7ldoe3mlnv8zlm46vx7hba0yu40iwdmkfzlzj9d4ik0zabozh90e9j5el8\
thejzhqdlozr594ugs2v4h2gzc3tk0tzkd02tt0sadtw910m2gk8z3vggtu9sppjrhvqa785eouc\
x1e3sr688ixgzkqelkpr9drb477wha8t9dbgiwbmrdnrp3s5tr6u25gmd82hdu89d3bupt1llwho\
dj0x5yxjvc1z4k7ilwa00sdi8rrpxs8uii6uhss1cgsuz5or2j3md5gi7bg4t8hni660ocv3x9tn\
azcrzol2mbqlb5hcpaz1oyj96n20d66dwdxsbjpbdyk213glm3cgiaan5n8il33admfctu55wwrp\
ljbywaf16gffu7x923b6yxv5jn312a90p3prplo7ziigeqplcgwmx1rp9c0p54jjbhpt2owulgvj\
agtsxanful42uu82uq3sjfnrvklvn0b484lr4o7otg2xg1jmwtg3wf713u6j13vhxf7v2z2tx0gs\
jae6amej78vn643am7zudte3w59c6qcy4ieg4ppff0julh4wir9nfhxi81sns0lmkh38yv7dq9ze\
nrj6y2kfdf21j71sbqbbovk5t5rciryj7uhd6ryli91qzcdcwf36ibm1l7tpdr5hqrbxqr4e3htl\
66mmy2krh6ggwwbhenyd6hqjneqktfezi7thpeftgt3btpqjwd0f54xj0lj5wr3da8ncjkc42nge\
43fv5ls71oxsvsnqvf1lc77re2lpdvw3uu6nf4t1hyg7w5znqp05zitzgbtabn2m27igngcx8w4f\
u5sf4z12ortvua1szgomvi0yusstgvghz3dutqryyzwe477mv2kc6336iqzmn59ihbbhcypqtrdb\
k64af7vqxzsg7b5ljyhcglygeusjlk3ein77n1scoq5shll3tgz045z0u2tgiexhrkjfk485mngo\
eh446ymrw0yga1qhr8ye6j3nb01nfr0pk2h7znnepfqkxuqakj5xwhw4lencllwistz114hc6a12\
1ukrjl7nmeqsjpeigk5ipnck3hd9spjec5cep35mzj2pyonyattqjkvbf51p5ob2ynmxojtaa9rf\
u9tqcoj5a6g4zrg37pg8cayw45nwqi2tndjzxu503qcouj3gvrn1jtaxkkbm17ir173c6lxdzv62\
ftmr0eeryg8zdm4ksre0arkoidorkoczwt61efpkeemdmb86k5o1wqbtz6mca9pit1fa6cpk62iz\
yrupqx8c0vmm51t6dzub957broogd4zyiqb7simx37zpwyac4o64n0rg34cxpvgx9jgvb1pdlh8l\
3m9lwunb88smmkk3awloqwl2vqurgzspvwmip9su0hgw68flwvku7refayuzwh8x663ljgyrwu3f\
1ji7wlro79h66g8khzp118h1uz00f7hppp6kddyvdtpe1lzz9zsun7xp6x9a5xsl1cytt2jnb2b9\
nk6ifaqg5vmyjydn9fl5q923qtcqudf7irlima4aqxcgai24q9tsi2fidrehek4we2po920yes1p\
lf4xsv4p9nu28ctp8bfnl0tt6lz0gr40vw0vq3iz5nepc3ech9cdiddtkht92sclq1w4lndt2w6s\
5k38ku9fdbwgeq6pc4pmrlsyqa6rn77jrdq4zlgjjliyocl9leijxfy9be9u237mlkq45mzjp1vk\
6lkzsd7d3luursrvggc7q3vyfqvrs56mb30k8jgezaot2t4l4lium5209uthe8nskmbm7tmtwowt\
la967r1uc8r90izay273ygfq48maydrfrj7prnphtw2a8sdg4rk1p1peud44dotf1akgm6g3o1ri\
fjys2beid86e01ay3p7vuzpfr4z6prultvkcp3e8b128r3huwjm8z6agl147hua8z39pz7joojxq\
lhg0n0l6lt08ub9nql08s162s9ojotbcha5qd1iawyzrrsgfa2tsmw5gzm1dcsl5vxbo6vxze06l\
kl91wjxirgd4phf2p1ijdh14k8b6yj385sjjxpoed9c3zkzk62bsdo5vwq7sk9whmc62f84hesyz\
my2jkifh2bkbubb35dc5yts7xx0pmdubtxjkcri7lidjjfwk128n0881zekbn4ubmtrynkg1nsad\
1eyk3gb1q55ourz1wgb3i3zlzbth56c0kjwr7z2z4dvb8smtggspql29seg4b3h9z59kqba055ud\
tvduo6t1qvy3cwoy1zjww5tgj995ha2d1iy21fhnyv167ec9btgz8kimw6cexgqosarnd2g2co8l\
3hsjey4z6s51lu77uzsoy4duzp43nacgy4ixub5nw1rxobx19uqt8seyw3fassdtysyw6apbhylo\
h0suyftkmwglftc96dbvvw97t68quro5l3d7vj5p6wjy5oms8it0l4n1nzfxgiaxixz7xcwaj969\
rbrtvwvegxm7dogtmgpx1nhyorhqwf8nogi536dkmmidvikxvlvnwms6qgo0bo3xt3u2okeo7xzf\
7yrkk1pkcz3qpo9zhtr6oo2b3t33alpojjk6v27k4q6ibqiyr6nop8suurhmw1lnjs3g3u45hoyi\
1d8210r7y79t6n8ke4ikxy0tn2auuihe6j4pbovemjczyla5vu1y53zclv9q1n3gn2t8tjjiru4j\
3r64d4b4naqdx0rwvutgio0j2tzqv4yhkd05tnwdmdgq";

#define alen 256
int alpha[alen] = { 0,0,0,0,0,0,0,0,0,0,67,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
    0,0,0,0,1910,5,164,0,1095,0,0,18,0,0,0,0,100,9,83,0,0,1,1,1,8,0,0,2,0,0,
    1,9,45,3,30,176,0,0,0,6,0,0,27,0,0,0,0,0,11,196,0,0,50,0,0,0,0,0,0,0,0,0,
    0,0,0,0,0,6,48,0,1,105,39,0,0,0,38,14,0,0,0,3,13,0,0,0,21,0,0,0,0,0,5,0,
    22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 };

int main () {
  mpz_t ps;
  unsigned long x,y,z;
  size_t length;
  unsigned long *perm;
  char *a;

  printf("Calculating...");
  length = 0;
  for (x=0; x<alen; x++) length += alpha[x];
  a = malloc(length);
  z=0;
  for (x=0;x<alen;x++) {
    for (y=0;y<alpha[x];y++) {
      a[z++] = x;
    }
  }
  perm = malloc(length*sizeof(x));
  mpz_init(ps);
  mpz_set_str(ps,pscalar,psbase);
  pbn(length,ps,perm);
  printf("Done!\n\n");
  for (x=0; x<length; x++) {
    printf("%c",a[perm[x]]);
  }
  printf("\n");
  mpz_clear(ps);
  free(a);
  free(perm);
  return(0);
}