JS1k: The JavaScript code golfing competition

_='d(b+="<F>body{marg:0 ^_family:CouriK}#o{_size:42;21m;di@lay:le-block}#i{ovKflow:^paddg:2height:351}v{cQor:d}F` click=p()>Play`c N=o>.cp N=i>WelRto 
z..>Z!a> This is a @eed adg toQ @id by Sprz ($3.5milB It\'s fRand open sourcR 
ghub.//Z>GHub.a>-
.>";e=Uh=l=Ja)	8>?a:11>?EX3X3):E7l(7)	a.trim(BplaD/(YV([A-Z-V/g,"$1 $2"B@l(/\\s+/BduDJc){for(j=k=(X1)/2|U0<=j;j--)if(/[aeiou[jV){k=j;bak}t=12U6<t/4~dexOf(",")t/2/Y)1.5*t	14<||7<Xk?h(l(c))):[[c,k,t]V}},[]p=f=U(e=!e)&&g(g=w=h(i.%xtC%nt)[f++]||p(o=Array(8-Bjo("&nb@;").E)+"<q[]+"q.+1e&&setTimeo9(g,w[2]p(
<a=falsRhf=//functi(a,c){length<br>ZQmeis%rsliD c%n%dable0px;	turn onwNth:&&(t+=inrew[1]ethos+w[0]]/.%st(c.nKHTMLpx sQNa.ccat(bordK:);itcom)};><)+"- "+</%te9ut@spB).Dce(E0,FstyleJwh(KerNidQolRe U0;V])X-Y[.?!^a9o;_ft-`b9tqv>"60';for(Y in $='q`_^YXVURQNKJFEDB@9%	
')with(_.split($[Y]))_=join(pop());eval(_)

Xz0nZCgZYhUrPSI8Rj5ib2R5e39tYXJnDzowIF5fZmFtaWx5OkNvdXJpS30jb3tfc2l6ZTo0GDIWOwwyMRBtO2RpQGxheToPbA9lLWJsb2NrfSNpe292S2Zsb3c6XnBhZGQPZzoyCH9oZWlnaHQ6MzUYMRZ9dntjUW9yOhBkfR9GHWAgC2NsaWNrPXAoKT5QbGF5H2AdYyBOPW8+Lh9jHXAHIE49aT5XZWwbUnRvIAF6Ei4FLhs+WhIhH2E+IAQEVGhpcyBpcyBhIEBlZWQgEGFkD2cgdG9RIA9AaRBkIGJ5IFNwchp6ICgkMy41bWlsQiAESXRcJ3MgZhBSYW5kIG9wZW4gc291cmNSCyABZxpodWIuGy8FL1oSPkcaSHViLh9hPgQtAQUuGz4FIjtlPVVoPQJsPUphKQk4PgM/YToxMT4DP0VYMx4GWDMpOkU3HmwoBjcpHAlhLnRyaW0oQhBwbGFELyhZVihbQS1aLVYvZywiJDEgJDIiQkBsGigvXFxzKy9CEGR1REpjKXtmb3Ioaj1rPShYMSkvMnxVMDw9ajtqLS0paWYoL1thZWlvdRRbalYpe2s9ajtiEGFrfXQ9MTJVNjwDDnQvNBl+D2RleE9mKCIsIikOdC8yGS9ZFCkOMS41KnQZCTE0PAN8fDc8WGs/F2gobChjKSkpOhdbW2Msayx0XVZ9fSxbXRxwPQJmPVUoZT0hZSkmJmcoHGc9Anc9aChpLiV4dEMLJW50KVtmKytdfHxwKBlvFT1BcnJheSg4LRFCam8PKCImbmJAOyIpEy5FESkrIjxxWxFdKyIfcS4GESsxGWUmJnNldFRpbWVvOShnLHdbMl0ccCgZATxhBz1mYWxzUmgQZj0vLwJmdW5jdGkLKGEsYyl7A2xlbmd0aAQ8YnI+BVpRbWVpcyVyBnNsaUQHIGMLJW4lZBphYmxlCDBweDsJEHR1cm4gC29uDHdOdGg6DiYmKHQrPQ9pbhByZRF3WzFdEmV0aG9zEyt3WzBdFF0vLiVzdChjFS4PbktIVE1MFnB4IHNRThdhLmMLY2F0KBgIYm9yZEs6GSk7Gml0G2NvbRwpfTsdPgQEPB4pKyItICIrHzwvJXRlOXV0QHNwQikuRGNlKEUGMCxGc3R5bGVKAncaaChLZXJOaWRRb2xSZSBVMDtWXSlYAy1ZWy4/IV5hOW87X2YLdC1gYjl0C3F2PiITfww2MAgnO2ZvcihZIGluICQ9J39xYF9eWVhWVVJRTktKRkVEQkA5JR8eHRwbGhkYFxYVFBMSERAPDgwLCQgHBgUEAwIBJyl3aXRoKF8uc3BsaXQoJFtZXSkpXz1qb2luKHBvcCgpKTtldmFsKF8p

d()
b.innerHTML += "<style>body{width:600px;margin:0 auto;font-family:Courier}#o{font-size:40px;border:2px solid;width:21rem;display:inline-block}#i{overflow:auto;padding:20px;width:600px;height:350px;border:1px solid}v{color:red}</style><br><br><button onclick=p()>Play</button><br><br><c id=o>.</c><br><br><p contenteditable id=i>Welcome to <a contenteditable=false href=//zethos.Zolmeister.com>Zethos!</a> <br><br>This is a speed reading tool inspired by Spritz ($3.5mil). <br>It's free and open source on <a contenteditable=false href=//github.com/Zolmeister/Zethos>GitHub.</a><br>-<a contenteditable=false href=//Zolmeister.com>Zolmeister";

var playing,index,loop,parse,focus,hyphenate,str,words;
parse = function(words, str) {
  // Logic
  // strings will be broken out into words
  // find the focus point of the word
  // if, when the word is shifted to its focus point
  //   one end prodtrudes from either end more than 7 chars
  //   re-run parser after hyphenating the words
  
  // focus point
  // start in middle of word (default focus point)
  // move left until you hit a vowel, then stop
  
  // hyphenating
  //    if <= 7 chars
  //      return self
  //    if <= 10
  //    return x, {3}
  //    if <= 14 chars
  //    return {7},{7}
  //    else
  //    return {7},hyphenated{x}
  
  hyphenate = function(words, str) {
    with(words)
    return length < 8 ? words : length < 11 ? slice(0,length - 3)+'- '+slice(length-3) : slice(0,7)+'- '+hyphenate(slice(7))
  }
  
  // return 2d array with word and focus point
  return words.trim().replace(/([.?!])([A-Z-])/g, '$1 $2').split(/\s+/).reduce(function(words, str) {
    with(str) {
      // focus point
      for(j=focus=(length-1)/2|0;j>=0;j--)
        if (/[aeiou]/.test(str[j])) {
          focus = j
          break
        }
      
      t = 60000/500 // 500 wpm
        
      if (length > 6)
        t += t/4
        
      if (~indexOf(','))
        t += t/2
        
      if(/[.?!]/.test(str))
        t+= t*1.5
      
      return length > 14 || length - focus > 7 ? words.concat(parse(hyphenate(str))) : words.concat([[str, focus, t]])
    }
  }, [])
}

p = function(words,str) {
  index = 0
  playing = !playing
  playing && loop()
}

loop = function(words,str) {
  w = parse(i.textContent)[index++] || p()
  o.innerHTML = Array(8 - w[1]).join('&nbsp;')+w[0].slice(0,w[1])+'<v>'+w[0][w[1]]+'</v>'+w[0].slice(w[1]+1)
  playing && setTimeout(loop, w[2])
}

p()