JS1k: The JavaScript code golfing competition

u="charCodeAt",n=le="length";f = 'object';v='fillText';sl='slice';w = 'width' , h = 'height';c[w] = 900,c[h] = 1200;function sch(a,b){var c=[],d=0,e=1;if(a[le]==0){throw "("}for(d=0;d<a[le];d=d+1){if(a[d][u](0)<=32){e=1}else if(a[d]==")"){Q=d;if(b)return c;else throw ")"}else if(a[d]=="("){c.push(sch(a[sl](d+1),1));d+=Q+1;e=1}else if(e){c.push(a[d]);e=0}else{c[c[le]-1]+=a[d]}}return c}dEX=function(e,d,b){if(typeof e!=f){e=[e]}d.beginPath();d.font="22px monospace";dER(e,d,b,0);d.closePath();d.stroke()};dER=function(a,b,d,e){if(a[le]===0)return;var s=c[w]/2-2+e*80,u=100+20*d;b[v](a[0],s,u);a[sl](1).forEach(function(h,i){var j=s+80*(i+1-a[le]/2);if(i==a[le]-2){j-=8}if(typeof h!=f||h[le]>0){b.moveTo(s,u);b.lineTo(j,u+24)}if(typeof h==f){dER(h,b,d+2,e+i+1-a[le]/2)}else{b[v](h,j,u+44)}})};
S=function(r){a.clearRect(0,0,c[w],c[h]);try{W=prompt('scheme expr?');if(W!=null){return dEX(sch(W,0)[0],a,0)}A='ok men';}catch(F){A='noo ¦ invalid expr : '+F}a.fillText(A,c[w]/2,c[h]/4);}
c.onclick = S;S();

dT0iY2hhckNvZGVBdCIsbj1sZT0ibGVuZ3RoIjtmID0gJ29iamVjdCc7dj0nZmlsbFRleHQnO3NsPSdzbGljZSc7dyA9ICd3aWR0aCcgLCBoID0gJ2hlaWdodCc7Y1t3XSA9IDkwMCxjW2hdID0gMTIwMDtmdW5jdGlvbiBzY2goYSxiKXt2YXIgYz1bXSxkPTAsZT0xO2lmKGFbbGVdPT0wKXt0aHJvdyAiKCJ9Zm9yKGQ9MDtkPGFbbGVdO2Q9ZCsxKXtpZihhW2RdW3VdKDApPD0zMil7ZT0xfWVsc2UgaWYoYVtkXT09IikiKXtRPWQ7aWYoYilyZXR1cm4gYztlbHNlIHRocm93ICIpIn1lbHNlIGlmKGFbZF09PSIoIil7Yy5wdXNoKHNjaChhW3NsXShkKzEpLDEpKTtkKz1RKzE7ZT0xfWVsc2UgaWYoZSl7Yy5wdXNoKGFbZF0pO2U9MH1lbHNle2NbY1tsZV0tMV0rPWFbZF19fXJldHVybiBjfWRFWD1mdW5jdGlvbihlLGQsYil7aWYodHlwZW9mIGUhPWYpe2U9W2VdfWQuYmVnaW5QYXRoKCk7ZC5mb250PSIyMnB4IG1vbm9zcGFjZSI7ZEVSKGUsZCxiLDApO2QuY2xvc2VQYXRoKCk7ZC5zdHJva2UoKX07ZEVSPWZ1bmN0aW9uKGEsYixkLGUpe2lmKGFbbGVdPT09MClyZXR1cm47dmFyIHM9Y1t3XS8yLTIrZSo4MCx1PTEwMCsyMCpkO2Jbdl0oYVswXSxzLHUpO2Fbc2xdKDEpLmZvckVhY2goZnVuY3Rpb24oaCxpKXt2YXIgaj1zKzgwKihpKzEtYVtsZV0vMik7aWYoaT09YVtsZV0tMil7ai09OH1pZih0eXBlb2YgaCE9Znx8aFtsZV0+MCl7Yi5tb3ZlVG8ocyx1KTtiLmxpbmVUbyhqLHUrMjQpfWlmKHR5cGVvZiBoPT1mKXtkRVIoaCxiLGQrMixlK2krMS1hW2xlXS8yKX1lbHNle2Jbdl0oaCxqLHUrNDQpfX0pfTsNClM9ZnVuY3Rpb24ocil7YS5jbGVhclJlY3QoMCwwLGNbd10sY1toXSk7dHJ5e1c9cHJvbXB0KCdzY2hlbWUgZXhwcj8nKTtpZihXIT1udWxsKXtyZXR1cm4gZEVYKHNjaChXLDApWzBdLGEsMCl9QT0nb2sgbWVuJzt9Y2F0Y2goRil7QT0nbm9vIMKmIGludmFsaWQgZXhwciA6ICcrRn1hLmZpbGxUZXh0KEEsY1t3XS8yLGNbaF0vNCk7fQ0KYy5vbmNsaWNrID0gUztTKCk7

Original source not submitted