diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,17 @@
 ## Changelog for the `threepenny-gui` package
 
+**0.6.0.1** -- Maintenance release.
+
+* The `ADDR` environment variable is now parsed correctly.
+* Now builds on GHC 7.8 and GHC 7.10
+* The example source code in the `samples` folder has been reorganized and consolidated.
+
+**0.6.0.0** -- Snapshot release.
+
+* The internals of the JavaScript FFI has been reimplemented completely. A new module `Foreign.JavaScript` exports a bare JavaScript FFI in case you want to write a custom GUI framework. However, the module `Graphics.UI.Threepenny` is *not* compatible with it, even though it builds on top of it.
+* The fields of `Config` type for server configuration are now prefixed with `js` instead of `tp`. Example: `jsPort`, `jsStatic`.
+* The functions `loadFile` and `loadDirectory` have been *removed*, as I felt that the `jsStatic` option is sufficient for most use cases.
+
 **0.5.0.0** -- Snapshot release.
 
 * Possibility to specify IP address to bind the server to.
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -2,16 +2,18 @@
 
 Threepenny-gui is a GUI framework written in Haskell that uses the web browser as a display. It's very easy to install. See the
 
-  [**Project homepage**](http://www.haskell.org/haskellwiki/Threepenny-gui)
+  [**Project homepage**](http://wiki.haskell.org/Threepenny-gui)
 
 for more information on what it does and can do for you as a library user.
 
 ## Examples
 
-The library comes with many examples, which can be found in the [samples](https://github.com/HeinrichApfelmus/threepenny-gui/blob/master/samples/) folder. Follow the link for more information on how to run them.
+The library comes with many examples, which can be found in the [samples](https://github.com/HeinrichApfelmus/threepenny-gui/tree/master/samples#readme) folder. Follow the link for more information on how to run them.
 
 ## Technical overview
 
+A program written with Threepenny is essentially a small web server that displays the user interface as a web page to any browser that connects to it.
+
 ### Latency
 
 The frequent communication between browser and server
@@ -56,6 +58,7 @@
 * JP Moresmau
 * Luke Palmer
 * Jens Petersen
+* Jaap van der Plas
 * rnons
 * Michael Snoyman
 * *Steve Bigham*
diff --git a/js/comm.js b/js/comm.js
new file mode 100644
--- /dev/null
+++ b/js/comm.js
@@ -0,0 +1,153 @@
+/* *********************************************************************
+  Client-server communication
+  using WebSockets
+  
+  The function  createWebSocket(receive)  creates a client-server
+  connection. The argument function `receive` is called whenever the client
+  receives a message. The connection object has a single member `send`
+  which can be used to send messages to the server.
+  
+  In Haskell types:
+  
+  createWebSocket :: (JSON -> IO ()) -> IO { send :: JSON -> IO () }
+  
+********************************************************************* */
+Haskell.createWebSocket = function (url0, receive) {
+  var that = {};
+  var url  = 'ws:' + url0.slice(5) + 'websocket';
+  var ws   = new WebSocket(url);
+  
+  // Close WebSocket when the browser window is closed.
+  $(window).unload( function () {
+    ws.close();
+  });
+
+  // Send ping message in regular intervals.
+  // We expect pong messages in return to keep the connection alive.
+  var ping = function () {
+    ws.send("ping");
+    window.setTimeout(ping,2000);
+  };
+  
+  // Start communication when the WebSocket is opened.
+  ws.onopen = function (e) {
+    ping();
+    ws.onmessage = function (msg) {
+      // Haskell.log("WebSocket message: %o",msg);
+      if (msg.data !== "pong") {
+        receive(JSON.parse(msg.data));
+      }
+    };
+    ws.onclose = function (e) {
+      Haskell.log("WebSocket closed: %o", e);
+    };
+    ws.onerror = function (e) {
+      Haskell.log("WebSocket error: %o", e);
+    };
+  };
+  
+  // Send a JSON message to the server
+  that.send = function (json) {
+    ws.send(JSON.stringify(json));
+  };
+  
+  return that;
+};
+
+
+/* *********************************************************************
+  Client-server communication
+  using HTTP
+  
+  WARNING: The following code is untested legacy code.
+  It's only there because there may be a chance we want to resurrect it.
+  
+********************************************************************* */
+
+/* *********************************************************************
+Threepenny.createHTTP = function (receive) {
+  var that;
+  var signal_count = 0;
+  var sessionToken = {};
+  
+  window.setTimeout(function () {
+    waitForEvents();
+  });
+    
+  // Poll instruction from the server.
+  var waitForEvents = function () {
+    console.log("Polling… (%d signals so far)",signal_count);
+    var data = { token: sessionToken };
+    var cmd  = sessionToken != null? 'poll' : 'init';
+    if (cmd === 'init') {
+      data.info = window.location.href;
+    }
+    var req = $.ajax({
+      dataType: 'json',
+      url : cmd,
+      data: data,
+      success: function (events) {
+        if (sessionToken == null) {
+          sessionToken = req.getResponseHeader('Set-Token').match(/[0-9]+/)*1;
+        }
+        console.log("Running event" +(events.length>1?'s':'') +"…")
+        if (events.length) {
+          console.log('Event list:');
+          runMultipleEvents(events);
+        } else {
+          runEvent(events, signalEvent, function(response){
+            maybeReply(response, waitForEvents);
+          });
+        }
+      },
+      error: function(reply) {
+        console.log("Error, waiting...");
+        window.setTimeout(function(){
+          waitForEvents();
+        },5000);
+      }
+    });
+  }
+
+  var runMultipleEvents = function (events){
+    if(events.length == 0) {
+      return waitForEvents();
+    }
+    runEvent(events.shift(), signalEvent, function(response){
+      maybeReply(response, function(){
+        runMultipleEvents(events);
+      });
+    });
+  }
+  
+  // Send an event to the server.
+  var signalEvent = function (value) {
+    signal({ Event: value}, function (){});
+  }
+  
+  // Send a reply to the server if necessary.
+  var maybeReply = function (response, continuation) {
+    if (response != undefined) { signal(response, continuation); }
+    else { continuation(); }
+  }
+  
+  // Send response back to the server.
+  var signal = function signal(signal,continuation) {
+    signal_count++;
+    console.log('Signal: %s',JSON.stringify(signal));
+    $.ajax({
+      dataType: 'json',
+      url:'signal',
+      data: { token: sessionToken, signal: JSON.stringify(signal) },
+      success: function(){
+        continuation();
+      },
+      error: function(reply){
+        console.log("Error: %o",reply);
+      }
+    });
+  }
+  
+  return that;
+};
+********************************************************************* */
diff --git a/js/ffi.js b/js/ffi.js
new file mode 100644
--- /dev/null
+++ b/js/ffi.js
@@ -0,0 +1,117 @@
+/* *********************************************************************
+  Foreign Function Interface (FFI)
+  JavaScript <-> Haskell
+
+  This module implements everything necessary to call JS functions
+  from Haskell and vice versa.
+  
+    * Listen to server and call JS functions on request.
+    * Present Haskell functions as objects that can be called from JS.
+    * StablePtr for JS objects.
+
+********************************************************************* */
+
+// Connect to the Haskell server and initialize the FFI.
+// An optional string argument can be used to specify the server URL.
+Haskell.initFFI = function () {
+  var connection;
+  var url = window.location.href.toString();
+
+  if (arguments[0]) {
+    url = arguments[0]; // take server url from argument
+  }
+
+  /////////////////////////////////////////////////////////////////////
+  // Listen to server and execute JS functions
+  var reply = function (response) {
+    if (response !== undefined) {
+      connection.send(response);
+    }
+  };
+  
+  var receive = function (msg) {
+    Haskell.log("Server message: %o", msg);
+    
+    switch (msg.tag) {
+      case "RunEval" : {
+          eval(msg.contents);
+          reply();
+          break;
+      }
+      case "CallEval" : {
+          var result   = eval(msg.contents);
+          reply({
+            tag      : "Result",
+            contents : result
+          });
+          break;
+      }
+      case "Debug": {
+        Haskell.log("Server debug: %o", msg.contents);
+        reply();
+        break;
+      }
+    }
+  };
+  
+  // Initialize connection to server.
+  connection = Haskell.createWebSocket(url, receive);
+
+  /////////////////////////////////////////////////////////////////////
+  // Calling Haskell functions
+  
+  // An event is a function on the server side that can be called anytime,
+  // but whose execution will be queued.
+  Haskell.newEvent = function (name, args) {
+    var that = function () {
+      var theargs = [];
+      if (args) {
+        theargs = eval(args);
+      } else {
+        for (var i=0; i<arguments.length; i++) {
+          theargs[i] = arguments[i];
+        }
+      }
+
+      reply({
+        tag       : "Event",
+        name      : name,
+        arguments : theargs
+      });
+      // 'args' is a string that contains the name 'arguments'
+      // Evaluating it will perform appropriate marshalling.
+    };
+    return that;
+  };  
+  
+  /////////////////////////////////////////////////////////////////////
+  // Stable Pointers on JavaScript objects
+  //
+  // Warning: We assume that each object can have at most one StablePtr
+  // associated to it. We have to pay attention that we don't 
+  // free a stable pointer twice.
+  var stablePtrs = {};
+  var counter    = 0;
+  
+  var newStablePtr = function (object) {
+    if (object.stablePtr === undefined) {
+      object.stablePtr = counter.toString();
+      stablePtrs[object.stablePtr] = object;
+      counter++;
+    }
+    return object.stablePtr.toString();
+  };
+  
+  Haskell.getStablePtr = function (object) {
+    return (object.stablePtr || newStablePtr(object));
+  };
+  
+  Haskell.deRefStablePtr = function (ptr) {
+    return stablePtrs[ptr];
+  };
+  
+  Haskell.freeStablePtr = function (ptr) {
+    delete stablePtrs[ptr].stablePtr;
+    delete stablePtrs[ptr];
+  };
+};
diff --git a/js/haskell.css b/js/haskell.css
new file mode 100644
--- /dev/null
+++ b/js/haskell.css
@@ -0,0 +1,3 @@
+.table { display: table; }
+.table-row  { display: table-row; }
+.table-cell { display: table-cell; }
diff --git a/js/index.html b/js/index.html
new file mode 100644
--- /dev/null
+++ b/js/index.html
@@ -0,0 +1,13 @@
+<!doctype html>
+<head>
+  <title></title>
+  <link rel="stylesheet" type="text/css" href="haskell.css"/>
+  <script src="haskell.js"></script>
+  <script type="text/javascript" charset="utf-8">
+    Haskell.initFFI();
+  </script>
+</head>
+<body>
+  <noscript>Please enable JavaScript.</noscript>
+</body>
+</html>
diff --git a/js/lib.js b/js/lib.js
new file mode 100644
--- /dev/null
+++ b/js/lib.js
@@ -0,0 +1,111 @@
+/* *********************************************************************
+  Threepenny - JavaScript library
+  
+  Additional JavaScript functions that are available
+  for Threepenny.
+********************************************************************* */
+window.jquery_scrollToBottom = function(el){
+  $(el).scrollTop(el.scrollHeight);
+};
+
+Haskell.map = function (fun, array) {
+  var result = [];
+  for (i=0; i<array.length; i++) {
+    result[i] = fun(array[i]);
+  }
+  return result;
+};
+
+/////////////////////////////////////////////////////////////////////
+// Binding to events
+Haskell.bind = function (el, eventType, fun) {
+  if(eventType === 'livechange') {
+    $(el).livechange(300,function(e){
+      fun([ $(el).val() ]);
+      return true;
+    });
+  } else if(eventType === 'sendvalue') {
+    $(el).sendvalue(function(x){
+      fun(x.toString());
+    });
+  } else if (eventType.match('dragstart|dragenter|dragover|dragleave|drag|drop|dragend')) {
+    $(el).bind(eventType, function(e) {
+      fun( e.originalEvent.dataTransfer
+            ? [e.originalEvent.dataTransfer.getData("dragData")]
+            : [] );
+    });
+  } else if(eventType.match('mousemove|mousedown|mouseup')) {
+    $(el).bind(eventType, function(e) {
+      var offset = $(this).offset();
+      var x      = e.pageX - offset.left;
+      var y      = e.pageY - offset.top;
+      fun([x, y]);
+    });
+  } else if(eventType.match('keydown|keyup')) {
+    $(el).bind(eventType, function(e) {
+      fun(e.keyCode);
+      return true;
+    });
+  } else {
+    $(el).bind(eventType, function(e) {
+      fun(e.which ? [e.which.toString()] : []);
+      return true;
+    });
+  }
+};
+
+
+/////////////////////////////////////////////////////////////////////
+// Canvas API additions.
+// See http://stackoverflow.com/a/9722502/403805 .
+CanvasRenderingContext2D.prototype.clear = 
+  CanvasRenderingContext2D.prototype.clear || function (preserveTransform) {
+    if (preserveTransform) {
+      this.save();
+      this.setTransform(1, 0, 0, 1, 0, 0);
+    }
+    this.clearRect(0, 0, this.canvas.width, this.canvas.height);
+    if (preserveTransform) {
+      this.restore();
+    }           
+};
+
+
+// Sendvalue
+$.fn.sendvalue = function(trigger){
+  $(this).each(function(){
+    var self = this;
+    var el = $(self);
+    el.keydown(function(e){
+      if(e.which == 13) {
+        trigger.call(self,el.val());
+        return false;
+      }
+      else
+        return true;
+    });
+  });
+};
+
+// Livechange
+$.fn.livechange = function(ms,trigger){
+  $(this).each(function(){
+    var self = this;
+    var el = $(self);
+    var last_val;
+    var check = function(){
+      var val = el.val();
+      if(val != last_val)
+        trigger.call(self);
+      last_val = val;
+    };
+    var checker;
+    var restart = function(){
+      clearTimeout(checker);
+      checker = setInterval(check,ms);
+    };
+    restart();
+    el.keypress(restart).change(restart);
+  });
+};
+
diff --git a/js/lib/jquery-cookie.js b/js/lib/jquery-cookie.js
new file mode 100644
--- /dev/null
+++ b/js/lib/jquery-cookie.js
@@ -0,0 +1,56 @@
+/**
+ * jQuery Cookie plugin
+ *
+ * Copyright (c) 2010 Klaus Hartl (stilbuero.de)
+ * Dual licensed under the MIT and GPL licenses:
+ * http://www.opensource.org/licenses/mit-license.php
+ * http://www.gnu.org/licenses/gpl.html
+ *
+ */
+(function($) {
+  $.cookie = function(key, value, options) {
+
+    // key and at least value given, set cookie...
+    if (arguments.length > 1 && (!/Object/.test(Object.prototype.toString.call(value)) || value === null || value === undefined)) {
+      options = $.extend({}, options);
+
+      if (value === null || value === undefined) {
+        options.expires = -1;
+      }
+
+      if (typeof options.expires === 'number') {
+        var days = options.expires, t = options.expires = new Date();
+        t.setDate(t.getDate() + days);
+      }
+
+      value = String(value);
+
+      return (document.cookie = [
+        encodeURIComponent(key), '=', options.raw ? value : encodeURIComponent(value),
+        options.expires ? '; expires=' + options.expires.toUTCString() : '', // use expires attribute, max-age is not supported by IE
+        options.path    ? '; path=' + options.path : '',
+        options.domain  ? '; domain=' + options.domain : '',
+        options.secure  ? '; secure' : ''
+      ].join(''));
+    }
+
+    // key and possibly options given, get cookie...
+    options = value || {};
+    var decode = options.raw ? function(s) { return s; } : decodeURIComponent;
+
+    var pairs = document.cookie.split('; ');
+    for (var i = 0, pair; pair = pairs[i] && pairs[i].split('='); i++) {
+      if (decode(pair[0]) === key) return decode(pair[1] || ''); // IE saves cookies with empty string as "c; ", e.g. without "=" as opposed to EOMB, thus pair[1] may be undefined
+    }
+    return null;
+  };
+
+  $.setSimpleCookie = function(name,value,f) {
+    $.cookie(name,value,{
+      path: '/',
+      expire: 999 // TODO: 
+    });
+    f();
+  };
+  
+})(jQuery);
diff --git a/js/lib/jquery.js b/js/lib/jquery.js
new file mode 100644
--- /dev/null
+++ b/js/lib/jquery.js
@@ -0,0 +1,4 @@
+/*! jQuery v1.7.1 jquery.com | jquery.org/license */
+(function(a,b){function cy(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cv(a){if(!ck[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){cl||(cl=c.createElement("iframe"),cl.frameBorder=cl.width=cl.height=0),b.appendChild(cl);if(!cm||!cl.createElement)cm=(cl.contentWindow||cl.contentDocument).document,cm.write((c.compatMode==="CSS1Compat"?"<!doctype html>":"")+"<html><body>"),cm.close();d=cm.createElement(a),cm.body.appendChild(d),e=f.css(d,"display"),b.removeChild(cl)}ck[a]=e}return ck[a]}function cu(a,b){var c={};f.each(cq.concat.apply([],cq.slice(0,b)),function(){c[this]=a});return c}function ct(){cr=b}function cs(){setTimeout(ct,0);return cr=f.now()}function cj(){try{return new a.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}}function ci(){try{return new a.XMLHttpRequest}catch(b){}}function cc(a,c){a.dataFilter&&(c=a.dataFilter(c,a.dataType));var d=a.dataTypes,e={},g,h,i=d.length,j,k=d[0],l,m,n,o,p;for(g=1;g<i;g++){if(g===1)for(h in a.converters)typeof h=="string"&&(e[h.toLowerCase()]=a.converters[h]);l=k,k=d[g];if(k==="*")k=l;else if(l!=="*"&&l!==k){m=l+" "+k,n=e[m]||e["* "+k];if(!n){p=b;for(o in e){j=o.split(" ");if(j[0]===l||j[0]==="*"){p=e[j[1]+" "+k];if(p){o=e[o],o===!0?n=p:p===!0&&(n=o);break}}}}!n&&!p&&f.error("No conversion from "+m.replace(" "," to ")),n!==!0&&(c=n?n(c):p(o(c)))}}return c}function cb(a,c,d){var e=a.contents,f=a.dataTypes,g=a.responseFields,h,i,j,k;for(i in g)i in d&&(c[g[i]]=d[i]);while(f[0]==="*")f.shift(),h===b&&(h=a.mimeType||c.getResponseHeader("content-type"));if(h)for(i in e)if(e[i]&&e[i].test(h)){f.unshift(i);break}if(f[0]in d)j=f[0];else{for(i in d){if(!f[0]||a.converters[i+" "+f[0]]){j=i;break}k||(k=i)}j=j||k}if(j){j!==f[0]&&f.unshift(j);return d[j]}}function ca(a,b,c,d){if(f.isArray(b))f.each(b,function(b,e){c||bE.test(a)?d(a,e):ca(a+"["+(typeof e=="object"||f.isArray(e)?b:"")+"]",e,c,d)});else if(!c&&b!=null&&typeof b=="object")for(var e in b)ca(a+"["+e+"]",b[e],c,d);else d(a,b)}function b_(a,c){var d,e,g=f.ajaxSettings.flatOptions||{};for(d in c)c[d]!==b&&((g[d]?a:e||(e={}))[d]=c[d]);e&&f.extend(!0,a,e)}function b$(a,c,d,e,f,g){f=f||c.dataTypes[0],g=g||{},g[f]=!0;var h=a[f],i=0,j=h?h.length:0,k=a===bT,l;for(;i<j&&(k||!l);i++)l=h[i](c,d,e),typeof l=="string"&&(!k||g[l]?l=b:(c.dataTypes.unshift(l),l=b$(a,c,d,e,l,g)));(k||!l)&&!g["*"]&&(l=b$(a,c,d,e,"*",g));return l}function bZ(a){return function(b,c){typeof b!="string"&&(c=b,b="*");if(f.isFunction(c)){var d=b.toLowerCase().split(bP),e=0,g=d.length,h,i,j;for(;e<g;e++)h=d[e],j=/^\+/.test(h),j&&(h=h.substr(1)||"*"),i=a[h]=a[h]||[],i[j?"unshift":"push"](c)}}}function bC(a,b,c){var d=b==="width"?a.offsetWidth:a.offsetHeight,e=b==="width"?bx:by,g=0,h=e.length;if(d>0){if(c!=="border")for(;g<h;g++)c||(d-=parseFloat(f.css(a,"padding"+e[g]))||0),c==="margin"?d+=parseFloat(f.css(a,c+e[g]))||0:d-=parseFloat(f.css(a,"border"+e[g]+"Width"))||0;return d+"px"}d=bz(a,b,b);if(d<0||d==null)d=a.style[b]||0;d=parseFloat(d)||0;if(c)for(;g<h;g++)d+=parseFloat(f.css(a,"padding"+e[g]))||0,c!=="padding"&&(d+=parseFloat(f.css(a,"border"+e[g]+"Width"))||0),c==="margin"&&(d+=parseFloat(f.css(a,c+e[g]))||0);return d+"px"}function bp(a,b){b.src?f.ajax({url:b.src,async:!1,dataType:"script"}):f.globalEval((b.text||b.textContent||b.innerHTML||"").replace(bf,"/*$0*/")),b.parentNode&&b.parentNode.removeChild(b)}function bo(a){var b=c.createElement("div");bh.appendChild(b),b.innerHTML=a.outerHTML;return b.firstChild}function bn(a){var b=(a.nodeName||"").toLowerCase();b==="input"?bm(a):b!=="script"&&typeof a.getElementsByTagName!="undefined"&&f.grep(a.getElementsByTagName("input"),bm)}function bm(a){if(a.type==="checkbox"||a.type==="radio")a.defaultChecked=a.checked}function bl(a){return typeof a.getElementsByTagName!="undefined"?a.getElementsByTagName("*"):typeof a.querySelectorAll!="undefined"?a.querySelectorAll("*"):[]}function bk(a,b){var c;if(b.nodeType===1){b.clearAttributes&&b.clearAttributes(),b.mergeAttributes&&b.mergeAttributes(a),c=b.nodeName.toLowerCase();if(c==="object")b.outerHTML=a.outerHTML;else if(c!=="input"||a.type!=="checkbox"&&a.type!=="radio"){if(c==="option")b.selected=a.defaultSelected;else if(c==="input"||c==="textarea")b.defaultValue=a.defaultValue}else a.checked&&(b.defaultChecked=b.checked=a.checked),b.value!==a.value&&(b.value=a.value);b.removeAttribute(f.expando)}}function bj(a,b){if(b.nodeType===1&&!!f.hasData(a)){var c,d,e,g=f._data(a),h=f._data(b,g),i=g.events;if(i){delete h.handle,h.events={};for(c in i)for(d=0,e=i[c].length;d<e;d++)f.event.add(b,c+(i[c][d].namespace?".":"")+i[c][d].namespace,i[c][d],i[c][d].data)}h.data&&(h.data=f.extend({},h.data))}}function bi(a,b){return f.nodeName(a,"table")?a.getElementsByTagName("tbody")[0]||a.appendChild(a.ownerDocument.createElement("tbody")):a}function U(a){var b=V.split("|"),c=a.createDocumentFragment();if(c.createElement)while(b.length)c.createElement(b.pop());return c}function T(a,b,c){b=b||0;if(f.isFunction(b))return f.grep(a,function(a,d){var e=!!b.call(a,d,a);return e===c});if(b.nodeType)return f.grep(a,function(a,d){return a===b===c});if(typeof b=="string"){var d=f.grep(a,function(a){return a.nodeType===1});if(O.test(b))return f.filter(b,d,!c);b=f.filter(b,d)}return f.grep(a,function(a,d){return f.inArray(a,b)>=0===c})}function S(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function K(){return!0}function J(){return!1}function n(a,b,c){var d=b+"defer",e=b+"queue",g=b+"mark",h=f._data(a,d);h&&(c==="queue"||!f._data(a,e))&&(c==="mark"||!f._data(a,g))&&setTimeout(function(){!f._data(a,e)&&!f._data(a,g)&&(f.removeData(a,d,!0),h.fire())},0)}function m(a){for(var b in a){if(b==="data"&&f.isEmptyObject(a[b]))continue;if(b!=="toJSON")return!1}return!0}function l(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(k,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d==="false"?!1:d==="null"?null:f.isNumeric(d)?parseFloat(d):j.test(d)?f.parseJSON(d):d}catch(g){}f.data(a,c,d)}else d=b}return d}function h(a){var b=g[a]={},c,d;a=a.split(/\s+/);for(c=0,d=a.length;c<d;c++)b[a[c]]=!0;return b}var c=a.document,d=a.navigator,e=a.location,f=function(){function J(){if(!e.isReady){try{c.documentElement.doScroll("left")}catch(a){setTimeout(J,1);return}e.ready()}}var e=function(a,b){return new e.fn.init(a,b,h)},f=a.jQuery,g=a.$,h,i=/^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/,j=/\S/,k=/^\s+/,l=/\s+$/,m=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,n=/^[\],:{}\s]*$/,o=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,p=/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,q=/(?:^|:|,)(?:\s*\[)+/g,r=/(webkit)[ \/]([\w.]+)/,s=/(opera)(?:.*version)?[ \/]([\w.]+)/,t=/(msie) ([\w.]+)/,u=/(mozilla)(?:.*? rv:([\w.]+))?/,v=/-([a-z]|[0-9])/ig,w=/^-ms-/,x=function(a,b){return(b+"").toUpperCase()},y=d.userAgent,z,A,B,C=Object.prototype.toString,D=Object.prototype.hasOwnProperty,E=Array.prototype.push,F=Array.prototype.slice,G=String.prototype.trim,H=Array.prototype.indexOf,I={};e.fn=e.prototype={constructor:e,init:function(a,d,f){var g,h,j,k;if(!a)return this;if(a.nodeType){this.context=this[0]=a,this.length=1;return this}if(a==="body"&&!d&&c.body){this.context=c,this[0]=c.body,this.selector=a,this.length=1;return this}if(typeof a=="string"){a.charAt(0)!=="<"||a.charAt(a.length-1)!==">"||a.length<3?g=i.exec(a):g=[null,a,null];if(g&&(g[1]||!d)){if(g[1]){d=d instanceof e?d[0]:d,k=d?d.ownerDocument||d:c,j=m.exec(a),j?e.isPlainObject(d)?(a=[c.createElement(j[1])],e.fn.attr.call(a,d,!0)):a=[k.createElement(j[1])]:(j=e.buildFragment([g[1]],[k]),a=(j.cacheable?e.clone(j.fragment):j.fragment).childNodes);return e.merge(this,a)}h=c.getElementById(g[2]);if(h&&h.parentNode){if(h.id!==g[2])return f.find(a);this.length=1,this[0]=h}this.context=c,this.selector=a;return this}return!d||d.jquery?(d||f).find(a):this.constructor(d).find(a)}if(e.isFunction(a))return f.ready(a);a.selector!==b&&(this.selector=a.selector,this.context=a.context);return e.makeArray(a,this)},selector:"",jquery:"1.7.1",length:0,size:function(){return this.length},toArray:function(){return F.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this[this.length+a]:this[a]},pushStack:function(a,b,c){var d=this.constructor();e.isArray(a)?E.apply(d,a):e.merge(d,a),d.prevObject=this,d.context=this.context,b==="find"?d.selector=this.selector+(this.selector?" ":"")+c:b&&(d.selector=this.selector+"."+b+"("+c+")");return d},each:function(a,b){return e.each(this,a,b)},ready:function(a){e.bindReady(),A.add(a);return this},eq:function(a){a=+a;return a===-1?this.slice(a):this.slice(a,a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(F.apply(this,arguments),"slice",F.call(arguments).join(","))},map:function(a){return this.pushStack(e.map(this,function(b,c){return a.call(b,c,b)}))},end:function(){return this.prevObject||this.constructor(null)},push:E,sort:[].sort,splice:[].splice},e.fn.init.prototype=e.fn,e.extend=e.fn.extend=function(){var a,c,d,f,g,h,i=arguments[0]||{},j=1,k=arguments.length,l=!1;typeof i=="boolean"&&(l=i,i=arguments[1]||{},j=2),typeof i!="object"&&!e.isFunction(i)&&(i={}),k===j&&(i=this,--j);for(;j<k;j++)if((a=arguments[j])!=null)for(c in a){d=i[c],f=a[c];if(i===f)continue;l&&f&&(e.isPlainObject(f)||(g=e.isArray(f)))?(g?(g=!1,h=d&&e.isArray(d)?d:[]):h=d&&e.isPlainObject(d)?d:{},i[c]=e.extend(l,h,f)):f!==b&&(i[c]=f)}return i},e.extend({noConflict:function(b){a.$===e&&(a.$=g),b&&a.jQuery===e&&(a.jQuery=f);return e},isReady:!1,readyWait:1,holdReady:function(a){a?e.readyWait++:e.ready(!0)},ready:function(a){if(a===!0&&!--e.readyWait||a!==!0&&!e.isReady){if(!c.body)return setTimeout(e.ready,1);e.isReady=!0;if(a!==!0&&--e.readyWait>0)return;A.fireWith(c,[e]),e.fn.trigger&&e(c).trigger("ready").off("ready")}},bindReady:function(){if(!A){A=e.Callbacks("once memory");if(c.readyState==="complete")return setTimeout(e.ready,1);if(c.addEventListener)c.addEventListener("DOMContentLoaded",B,!1),a.addEventListener("load",e.ready,!1);else if(c.attachEvent){c.attachEvent("onreadystatechange",B),a.attachEvent("onload",e.ready);var b=!1;try{b=a.frameElement==null}catch(d){}c.documentElement.doScroll&&b&&J()}}},isFunction:function(a){return e.type(a)==="function"},isArray:Array.isArray||function(a){return e.type(a)==="array"},isWindow:function(a){return a&&typeof a=="object"&&"setInterval"in a},isNumeric:function(a){return!isNaN(parseFloat(a))&&isFinite(a)},type:function(a){return a==null?String(a):I[C.call(a)]||"object"},isPlainObject:function(a){if(!a||e.type(a)!=="object"||a.nodeType||e.isWindow(a))return!1;try{if(a.constructor&&!D.call(a,"constructor")&&!D.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}var d;for(d in a);return d===b||D.call(a,d)},isEmptyObject:function(a){for(var b in a)return!1;return!0},error:function(a){throw new Error(a)},parseJSON:function(b){if(typeof b!="string"||!b)return null;b=e.trim(b);if(a.JSON&&a.JSON.parse)return a.JSON.parse(b);if(n.test(b.replace(o,"@").replace(p,"]").replace(q,"")))return(new Function("return "+b))();e.error("Invalid JSON: "+b)},parseXML:function(c){var d,f;try{a.DOMParser?(f=new DOMParser,d=f.parseFromString(c,"text/xml")):(d=new ActiveXObject("Microsoft.XMLDOM"),d.async="false",d.loadXML(c))}catch(g){d=b}(!d||!d.documentElement||d.getElementsByTagName("parsererror").length)&&e.error("Invalid XML: "+c);return d},noop:function(){},globalEval:function(b){b&&j.test(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(w,"ms-").replace(v,x)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,c,d){var f,g=0,h=a.length,i=h===b||e.isFunction(a);if(d){if(i){for(f in a)if(c.apply(a[f],d)===!1)break}else for(;g<h;)if(c.apply(a[g++],d)===!1)break}else if(i){for(f in a)if(c.call(a[f],f,a[f])===!1)break}else for(;g<h;)if(c.call(a[g],g,a[g++])===!1)break;return a},trim:G?function(a){return a==null?"":G.call(a)}:function(a){return a==null?"":(a+"").replace(k,"").replace(l,"")},makeArray:function(a,b){var c=b||[];if(a!=null){var d=e.type(a);a.length==null||d==="string"||d==="function"||d==="regexp"||e.isWindow(a)?E.call(c,a):e.merge(c,a)}return c},inArray:function(a,b,c){var d;if(b){if(H)return H.call(b,a,c);d=b.length,c=c?c<0?Math.max(0,d+c):c:0;for(;c<d;c++)if(c in b&&b[c]===a)return c}return-1},merge:function(a,c){var d=a.length,e=0;if(typeof c.length=="number")for(var f=c.length;e<f;e++)a[d++]=c[e];else while(c[e]!==b)a[d++]=c[e++];a.length=d;return a},grep:function(a,b,c){var d=[],e;c=!!c;for(var f=0,g=a.length;f<g;f++)e=!!b(a[f],f),c!==e&&d.push(a[f]);return d},map:function(a,c,d){var f,g,h=[],i=0,j=a.length,k=a instanceof e||j!==b&&typeof j=="number"&&(j>0&&a[0]&&a[j-1]||j===0||e.isArray(a));if(k)for(;i<j;i++)f=c(a[i],i,d),f!=null&&(h[h.length]=f);else for(g in a)f=c(a[g],g,d),f!=null&&(h[h.length]=f);return h.concat.apply([],h)},guid:1,proxy:function(a,c){if(typeof c=="string"){var d=a[c];c=a,a=d}if(!e.isFunction(a))return b;var f=F.call(arguments,2),g=function(){return a.apply(c,f.concat(F.call(arguments)))};g.guid=a.guid=a.guid||g.guid||e.guid++;return g},access:function(a,c,d,f,g,h){var i=a.length;if(typeof c=="object"){for(var j in c)e.access(a,j,c[j],f,g,d);return a}if(d!==b){f=!h&&f&&e.isFunction(d);for(var k=0;k<i;k++)g(a[k],c,f?d.call(a[k],k,g(a[k],c)):d,h);return a}return i?g(a[0],c):b},now:function(){return(new Date).getTime()},uaMatch:function(a){a=a.toLowerCase();var b=r.exec(a)||s.exec(a)||t.exec(a)||a.indexOf("compatible")<0&&u.exec(a)||[];return{browser:b[1]||"",version:b[2]||"0"}},sub:function(){function a(b,c){return new a.fn.init(b,c)}e.extend(!0,a,this),a.superclass=this,a.fn=a.prototype=this(),a.fn.constructor=a,a.sub=this.sub,a.fn.init=function(d,f){f&&f instanceof e&&!(f instanceof a)&&(f=a(f));return e.fn.init.call(this,d,f,b)},a.fn.init.prototype=a.fn;var b=a(c);return a},browser:{}}),e.each("Boolean Number String Function Array Date RegExp Object".split(" "),function(a,b){I["[object "+b+"]"]=b.toLowerCase()}),z=e.uaMatch(y),z.browser&&(e.browser[z.browser]=!0,e.browser.version=z.version),e.browser.webkit&&(e.browser.safari=!0),j.test(" ")&&(k=/^[\s\xA0]+/,l=/[\s\xA0]+$/),h=e(c),c.addEventListener?B=function(){c.removeEventListener("DOMContentLoaded",B,!1),e.ready()}:c.attachEvent&&(B=function(){c.readyState==="complete"&&(c.detachEvent("onreadystatechange",B),e.ready())});return e}(),g={};f.Callbacks=function(a){a=a?g[a]||h(a):{};var c=[],d=[],e,i,j,k,l,m=function(b){var d,e,g,h,i;for(d=0,e=b.length;d<e;d++)g=b[d],h=f.type(g),h==="array"?m(g):h==="function"&&(!a.unique||!o.has(g))&&c.push(g)},n=function(b,f){f=f||[],e=!a.memory||[b,f],i=!0,l=j||0,j=0,k=c.length;for(;c&&l<k;l++)if(c[l].apply(b,f)===!1&&a.stopOnFalse){e=!0;break}i=!1,c&&(a.once?e===!0?o.disable():c=[]:d&&d.length&&(e=d.shift(),o.fireWith(e[0],e[1])))},o={add:function(){if(c){var a=c.length;m(arguments),i?k=c.length:e&&e!==!0&&(j=a,n(e[0],e[1]))}return this},remove:function(){if(c){var b=arguments,d=0,e=b.length;for(;d<e;d++)for(var f=0;f<c.length;f++)if(b[d]===c[f]){i&&f<=k&&(k--,f<=l&&l--),c.splice(f--,1);if(a.unique)break}}return this},has:function(a){if(c){var b=0,d=c.length;for(;b<d;b++)if(a===c[b])return!0}return!1},empty:function(){c=[];return this},disable:function(){c=d=e=b;return this},disabled:function(){return!c},lock:function(){d=b,(!e||e===!0)&&o.disable();return this},locked:function(){return!d},fireWith:function(b,c){d&&(i?a.once||d.push([b,c]):(!a.once||!e)&&n(b,c));return this},fire:function(){o.fireWith(this,arguments);return this},fired:function(){return!!e}};return o};var i=[].slice;f.extend({Deferred:function(a){var b=f.Callbacks("once memory"),c=f.Callbacks("once memory"),d=f.Callbacks("memory"),e="pending",g={resolve:b,reject:c,notify:d},h={done:b.add,fail:c.add,progress:d.add,state:function(){return e},isResolved:b.fired,isRejected:c.fired,then:function(a,b,c){i.done(a).fail(b).progress(c);return this},always:function(){i.done.apply(i,arguments).fail.apply(i,arguments);return this},pipe:function(a,b,c){return f.Deferred(function(d){f.each({done:[a,"resolve"],fail:[b,"reject"],progress:[c,"notify"]},function(a,b){var c=b[0],e=b[1],g;f.isFunction(c)?i[a](function(){g=c.apply(this,arguments),g&&f.isFunction(g.promise)?g.promise().then(d.resolve,d.reject,d.notify):d[e+"With"](this===i?d:this,[g])}):i[a](d[e])})}).promise()},promise:function(a){if(a==null)a=h;else for(var b in h)a[b]=h[b];return a}},i=h.promise({}),j;for(j in g)i[j]=g[j].fire,i[j+"With"]=g[j].fireWith;i.done(function(){e="resolved"},c.disable,d.lock).fail(function(){e="rejected"},b.disable,d.lock),a&&a.call(i,i);return i},when:function(a){function m(a){return function(b){e[a]=arguments.length>1?i.call(arguments,0):b,j.notifyWith(k,e)}}function l(a){return function(c){b[a]=arguments.length>1?i.call(arguments,0):c,--g||j.resolveWith(j,b)}}var b=i.call(arguments,0),c=0,d=b.length,e=Array(d),g=d,h=d,j=d<=1&&a&&f.isFunction(a.promise)?a:f.Deferred(),k=j.promise();if(d>1){for(;c<d;c++)b[c]&&b[c].promise&&f.isFunction(b[c].promise)?b[c].promise().then(l(c),j.reject,m(c)):--g;g||j.resolveWith(j,b)}else j!==a&&j.resolveWith(j,d?[a]:[]);return k}}),f.support=function(){var b,d,e,g,h,i,j,k,l,m,n,o,p,q=c.createElement("div"),r=c.documentElement;q.setAttribute("className","t"),q.innerHTML="   <link/><table></table><a href='/a' style='top:1px;float:left;opacity:.55;'>a</a><input type='checkbox'/>",d=q.getElementsByTagName("*"),e=q.getElementsByTagName("a")[0];if(!d||!d.length||!e)return{};g=c.createElement("select"),h=g.appendChild(c.createElement("option")),i=q.getElementsByTagName("input")[0],b={leadingWhitespace:q.firstChild.nodeType===3,tbody:!q.getElementsByTagName("tbody").length,htmlSerialize:!!q.getElementsByTagName("link").length,style:/top/.test(e.getAttribute("style")),hrefNormalized:e.getAttribute("href")==="/a",opacity:/^0.55/.test(e.style.opacity),cssFloat:!!e.style.cssFloat,checkOn:i.value==="on",optSelected:h.selected,getSetAttribute:q.className!=="t",enctype:!!c.createElement("form").enctype,html5Clone:c.createElement("nav").cloneNode(!0).outerHTML!=="<:nav></:nav>",submitBubbles:!0,changeBubbles:!0,focusinBubbles:!1,deleteExpando:!0,noCloneEvent:!0,inlineBlockNeedsLayout:!1,shrinkWrapBlocks:!1,reliableMarginRight:!0},i.checked=!0,b.noCloneChecked=i.cloneNode(!0).checked,g.disabled=!0,b.optDisabled=!h.disabled;try{delete q.test}catch(s){b.deleteExpando=!1}!q.addEventListener&&q.attachEvent&&q.fireEvent&&(q.attachEvent("onclick",function(){b.noCloneEvent=!1}),q.cloneNode(!0).fireEvent("onclick")),i=c.createElement("input"),i.value="t",i.setAttribute("type","radio"),b.radioValue=i.value==="t",i.setAttribute("checked","checked"),q.appendChild(i),k=c.createDocumentFragment(),k.appendChild(q.lastChild),b.checkClone=k.cloneNode(!0).cloneNode(!0).lastChild.checked,b.appendChecked=i.checked,k.removeChild(i),k.appendChild(q),q.innerHTML="",a.getComputedStyle&&(j=c.createElement("div"),j.style.width="0",j.style.marginRight="0",q.style.width="2px",q.appendChild(j),b.reliableMarginRight=(parseInt((a.getComputedStyle(j,null)||{marginRight:0}).marginRight,10)||0)===0);if(q.attachEvent)for(o in{submit:1,change:1,focusin:1})n="on"+o,p=n in q,p||(q.setAttribute(n,"return;"),p=typeof q[n]=="function"),b[o+"Bubbles"]=p;k.removeChild(q),k=g=h=j=q=i=null,f(function(){var a,d,e,g,h,i,j,k,m,n,o,r=c.getElementsByTagName("body")[0];!r||(j=1,k="position:absolute;top:0;left:0;width:1px;height:1px;margin:0;",m="visibility:hidden;border:0;",n="style='"+k+"border:5px solid #000;padding:0;'",o="<div "+n+"><div></div></div>"+"<table "+n+" cellpadding='0' cellspacing='0'>"+"<tr><td></td></tr></table>",a=c.createElement("div"),a.style.cssText=m+"width:0;height:0;position:static;top:0;margin-top:"+j+"px",r.insertBefore(a,r.firstChild),q=c.createElement("div"),a.appendChild(q),q.innerHTML="<table><tr><td style='padding:0;border:0;display:none'></td><td>t</td></tr></table>",l=q.getElementsByTagName("td"),p=l[0].offsetHeight===0,l[0].style.display="",l[1].style.display="none",b.reliableHiddenOffsets=p&&l[0].offsetHeight===0,q.innerHTML="",q.style.width=q.style.paddingLeft="1px",f.boxModel=b.boxModel=q.offsetWidth===2,typeof q.style.zoom!="undefined"&&(q.style.display="inline",q.style.zoom=1,b.inlineBlockNeedsLayout=q.offsetWidth===2,q.style.display="",q.innerHTML="<div style='width:4px;'></div>",b.shrinkWrapBlocks=q.offsetWidth!==2),q.style.cssText=k+m,q.innerHTML=o,d=q.firstChild,e=d.firstChild,h=d.nextSibling.firstChild.firstChild,i={doesNotAddBorder:e.offsetTop!==5,doesAddBorderForTableAndCells:h.offsetTop===5},e.style.position="fixed",e.style.top="20px",i.fixedPosition=e.offsetTop===20||e.offsetTop===15,e.style.position=e.style.top="",d.style.overflow="hidden",d.style.position="relative",i.subtractsBorderForOverflowNotVisible=e.offsetTop===-5,i.doesNotIncludeMarginInBodyOffset=r.offsetTop!==j,r.removeChild(a),q=a=null,f.extend(b,i))});return b}();var j=/^(?:\{.*\}|\[.*\])$/,k=/([A-Z])/g;f.extend({cache:{},uuid:0,expando:"jQuery"+(f.fn.jquery+Math.random()).replace(/\D/g,""),noData:{embed:!0,object:"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000",applet:!0},hasData:function(a){a=a.nodeType?f.cache[a[f.expando]]:a[f.expando];return!!a&&!m(a)},data:function(a,c,d,e){if(!!f.acceptData(a)){var g,h,i,j=f.expando,k=typeof c=="string",l=a.nodeType,m=l?f.cache:a,n=l?a[j]:a[j]&&j,o=c==="events";if((!n||!m[n]||!o&&!e&&!m[n].data)&&k&&d===b)return;n||(l?a[j]=n=++f.uuid:n=j),m[n]||(m[n]={},l||(m[n].toJSON=f.noop));if(typeof c=="object"||typeof c=="function")e?m[n]=f.extend(m[n],c):m[n].data=f.extend(m[n].data,c);g=h=m[n],e||(h.data||(h.data={}),h=h.data),d!==b&&(h[f.camelCase(c)]=d);if(o&&!h[c])return g.events;k?(i=h[c],i==null&&(i=h[f.camelCase(c)])):i=h;return i}},removeData:function(a,b,c){if(!!f.acceptData(a)){var d,e,g,h=f.expando,i=a.nodeType,j=i?f.cache:a,k=i?a[h]:h;if(!j[k])return;if(b){d=c?j[k]:j[k].data;if(d){f.isArray(b)||(b in d?b=[b]:(b=f.camelCase(b),b in d?b=[b]:b=b.split(" ")));for(e=0,g=b.length;e<g;e++)delete d[b[e]];if(!(c?m:f.isEmptyObject)(d))return}}if(!c){delete j[k].data;if(!m(j[k]))return}f.support.deleteExpando||!j.setInterval?delete j[k]:j[k]=null,i&&(f.support.deleteExpando?delete a[h]:a.removeAttribute?a.removeAttribute(h):a[h]=null)}},_data:function(a,b,c){return f.data(a,b,c,!0)},acceptData:function(a){if(a.nodeName){var b=f.noData[a.nodeName.toLowerCase()];if(b)return b!==!0&&a.getAttribute("classid")===b}return!0}}),f.fn.extend({data:function(a,c){var d,e,g,h=null;if(typeof a=="undefined"){if(this.length){h=f.data(this[0]);if(this[0].nodeType===1&&!f._data(this[0],"parsedAttrs")){e=this[0].attributes;for(var i=0,j=e.length;i<j;i++)g=e[i].name,g.indexOf("data-")===0&&(g=f.camelCase(g.substring(5)),l(this[0],g,h[g]));f._data(this[0],"parsedAttrs",!0)}}return h}if(typeof a=="object")return this.each(function(){f.data(this,a)});d=a.split("."),d[1]=d[1]?"."+d[1]:"";if(c===b){h=this.triggerHandler("getData"+d[1]+"!",[d[0]]),h===b&&this.length&&(h=f.data(this[0],a),h=l(this[0],a,h));return h===b&&d[1]?this.data(d[0]):h}return this.each(function(){var b=f(this),e=[d[0],c];b.triggerHandler("setData"+d[1]+"!",e),f.data(this,a,c),b.triggerHandler("changeData"+d[1]+"!",e)})},removeData:function(a){return this.each(function(){f.removeData(this,a)})}}),f.extend({_mark:function(a,b){a&&(b=(b||"fx")+"mark",f._data(a,b,(f._data(a,b)||0)+1))},_unmark:function(a,b,c){a!==!0&&(c=b,b=a,a=!1);if(b){c=c||"fx";var d=c+"mark",e=a?0:(f._data(b,d)||1)-1;e?f._data(b,d,e):(f.removeData(b,d,!0),n(b,c,"mark"))}},queue:function(a,b,c){var d;if(a){b=(b||"fx")+"queue",d=f._data(a,b),c&&(!d||f.isArray(c)?d=f._data(a,b,f.makeArray(c)):d.push(c));return d||[]}},dequeue:function(a,b){b=b||"fx";var c=f.queue(a,b),d=c.shift(),e={};d==="inprogress"&&(d=c.shift()),d&&(b==="fx"&&c.unshift("inprogress"),f._data(a,b+".run",e),d.call(a,function(){f.dequeue(a,b)},e)),c.length||(f.removeData(a,b+"queue "+b+".run",!0),n(a,b,"queue"))}}),f.fn.extend({queue:function(a,c){typeof a!="string"&&(c=a,a="fx");if(c===b)return f.queue(this[0],a);return this.each(function(){var b=f.queue(this,a,c);a==="fx"&&b[0]!=="inprogress"&&f.dequeue(this,a)})},dequeue:function(a){return this.each(function(){f.dequeue(this,a)})},delay:function(a,b){a=f.fx?f.fx.speeds[a]||a:a,b=b||"fx";return this.queue(b,function(b,c){var d=setTimeout(b,a);c.stop=function(){clearTimeout(d)}})},clearQueue:function(a){return this.queue(a||"fx",[])},promise:function(a,c){function m(){--h||d.resolveWith(e,[e])}typeof a!="string"&&(c=a,a=b),a=a||"fx";var d=f.Deferred(),e=this,g=e.length,h=1,i=a+"defer",j=a+"queue",k=a+"mark",l;while(g--)if(l=f.data(e[g],i,b,!0)||(f.data(e[g],j,b,!0)||f.data(e[g],k,b,!0))&&f.data(e[g],i,f.Callbacks("once memory"),!0))h++,l.add(m);m();return d.promise()}});var o=/[\n\t\r]/g,p=/\s+/,q=/\r/g,r=/^(?:button|input)$/i,s=/^(?:button|input|object|select|textarea)$/i,t=/^a(?:rea)?$/i,u=/^(?:autofocus|autoplay|async|checked|controls|defer|disabled|hidden|loop|multiple|open|readonly|required|scoped|selected)$/i,v=f.support.getSetAttribute,w,x,y;f.fn.extend({attr:function(a,b){return f.access(this,a,b,!0,f.attr)},removeAttr:function(a){return this.each(function(){f.removeAttr(this,a)})},prop:function(a,b){return f.access(this,a,b,!0,f.prop)},removeProp:function(a){a=f.propFix[a]||a;return this.each(function(){try{this[a]=b,delete this[a]}catch(c){}})},addClass:function(a){var b,c,d,e,g,h,i;if(f.isFunction(a))return this.each(function(b){f(this).addClass(a.call(this,b,this.className))});if(a&&typeof a=="string"){b=a.split(p);for(c=0,d=this.length;c<d;c++){e=this[c];if(e.nodeType===1)if(!e.className&&b.length===1)e.className=a;else{g=" "+e.className+" ";for(h=0,i=b.length;h<i;h++)~g.indexOf(" "+b[h]+" ")||(g+=b[h]+" ");e.className=f.trim(g)}}}return this},removeClass:function(a){var c,d,e,g,h,i,j;if(f.isFunction(a))return this.each(function(b){f(this).removeClass(a.call(this,b,this.className))});if(a&&typeof a=="string"||a===b){c=(a||"").split(p);for(d=0,e=this.length;d<e;d++){g=this[d];if(g.nodeType===1&&g.className)if(a){h=(" "+g.className+" ").replace(o," ");for(i=0,j=c.length;i<j;i++)h=h.replace(" "+c[i]+" "," ");g.className=f.trim(h)}else g.className=""}}return this},toggleClass:function(a,b){var c=typeof a,d=typeof b=="boolean";if(f.isFunction(a))return this.each(function(c){f(this).toggleClass(a.call(this,c,this.className,b),b)});return this.each(function(){if(c==="string"){var e,g=0,h=f(this),i=b,j=a.split(p);while(e=j[g++])i=d?i:!h.hasClass(e),h[i?"addClass":"removeClass"](e)}else if(c==="undefined"||c==="boolean")this.className&&f._data(this,"__className__",this.className),this.className=this.className||a===!1?"":f._data(this,"__className__")||""})},hasClass:function(a){var b=" "+a+" ",c=0,d=this.length;for(;c<d;c++)if(this[c].nodeType===1&&(" "+this[c].className+" ").replace(o," ").indexOf(b)>-1)return!0;return!1},val:function(a){var c,d,e,g=this[0];{if(!!arguments.length){e=f.isFunction(a);return this.each(function(d){var g=f(this),h;if(this.nodeType===1){e?h=a.call(this,d,g.val()):h=a,h==null?h="":typeof h=="number"?h+="":f.isArray(h)&&(h=f.map(h,function(a){return a==null?"":a+""})),c=f.valHooks[this.nodeName.toLowerCase()]||f.valHooks[this.type];if(!c||!("set"in c)||c.set(this,h,"value")===b)this.value=h}})}if(g){c=f.valHooks[g.nodeName.toLowerCase()]||f.valHooks[g.type];if(c&&"get"in c&&(d=c.get(g,"value"))!==b)return d;d=g.value;return typeof d=="string"?d.replace(q,""):d==null?"":d}}}}),f.extend({valHooks:{option:{get:function(a){var b=a.attributes.value;return!b||b.specified?a.value:a.text}},select:{get:function(a){var b,c,d,e,g=a.selectedIndex,h=[],i=a.options,j=a.type==="select-one";if(g<0)return null;c=j?g:0,d=j?g+1:i.length;for(;c<d;c++){e=i[c];if(e.selected&&(f.support.optDisabled?!e.disabled:e.getAttribute("disabled")===null)&&(!e.parentNode.disabled||!f.nodeName(e.parentNode,"optgroup"))){b=f(e).val();if(j)return b;h.push(b)}}if(j&&!h.length&&i.length)return f(i[g]).val();return h},set:function(a,b){var c=f.makeArray(b);f(a).find("option").each(function(){this.selected=f.inArray(f(this).val(),c)>=0}),c.length||(a.selectedIndex=-1);return c}}},attrFn:{val:!0,css:!0,html:!0,text:!0,data:!0,width:!0,height:!0,offset:!0},attr:function(a,c,d,e){var g,h,i,j=a.nodeType;if(!!a&&j!==3&&j!==8&&j!==2){if(e&&c in f.attrFn)return f(a)[c](d);if(typeof a.getAttribute=="undefined")return f.prop(a,c,d);i=j!==1||!f.isXMLDoc(a),i&&(c=c.toLowerCase(),h=f.attrHooks[c]||(u.test(c)?x:w));if(d!==b){if(d===null){f.removeAttr(a,c);return}if(h&&"set"in h&&i&&(g=h.set(a,d,c))!==b)return g;a.setAttribute(c,""+d);return d}if(h&&"get"in h&&i&&(g=h.get(a,c))!==null)return g;g=a.getAttribute(c);return g===null?b:g}},removeAttr:function(a,b){var c,d,e,g,h=0;if(b&&a.nodeType===1){d=b.toLowerCase().split(p),g=d.length;for(;h<g;h++)e=d[h],e&&(c=f.propFix[e]||e,f.attr(a,e,""),a.removeAttribute(v?e:c),u.test(e)&&c in a&&(a[c]=!1))}},attrHooks:{type:{set:function(a,b){if(r.test(a.nodeName)&&a.parentNode)f.error("type property can't be changed");else if(!f.support.radioValue&&b==="radio"&&f.nodeName(a,"input")){var c=a.value;a.setAttribute("type",b),c&&(a.value=c);return b}}},value:{get:function(a,b){if(w&&f.nodeName(a,"button"))return w.get(a,b);return b in a?a.value:null},set:function(a,b,c){if(w&&f.nodeName(a,"button"))return w.set(a,b,c);a.value=b}}},propFix:{tabindex:"tabIndex",readonly:"readOnly","for":"htmlFor","class":"className",maxlength:"maxLength",cellspacing:"cellSpacing",cellpadding:"cellPadding",rowspan:"rowSpan",colspan:"colSpan",usemap:"useMap",frameborder:"frameBorder",contenteditable:"contentEditable"},prop:function(a,c,d){var e,g,h,i=a.nodeType;if(!!a&&i!==3&&i!==8&&i!==2){h=i!==1||!f.isXMLDoc(a),h&&(c=f.propFix[c]||c,g=f.propHooks[c]);return d!==b?g&&"set"in g&&(e=g.set(a,d,c))!==b?e:a[c]=d:g&&"get"in g&&(e=g.get(a,c))!==null?e:a[c]}},propHooks:{tabIndex:{get:function(a){var c=a.getAttributeNode("tabindex");return c&&c.specified?parseInt(c.value,10):s.test(a.nodeName)||t.test(a.nodeName)&&a.href?0:b}}}}),f.attrHooks.tabindex=f.propHooks.tabIndex,x={get:function(a,c){var d,e=f.prop(a,c);return e===!0||typeof e!="boolean"&&(d=a.getAttributeNode(c))&&d.nodeValue!==!1?c.toLowerCase():b},set:function(a,b,c){var d;b===!1?f.removeAttr(a,c):(d=f.propFix[c]||c,d in a&&(a[d]=!0),a.setAttribute(c,c.toLowerCase()));return c}},v||(y={name:!0,id:!0},w=f.valHooks.button={get:function(a,c){var d;d=a.getAttributeNode(c);return d&&(y[c]?d.nodeValue!=="":d.specified)?d.nodeValue:b},set:function(a,b,d){var e=a.getAttributeNode(d);e||(e=c.createAttribute(d),a.setAttributeNode(e));return e.nodeValue=b+""}},f.attrHooks.tabindex.set=w.set,f.each(["width","height"],function(a,b){f.attrHooks[b]=f.extend(f.attrHooks[b],{set:function(a,c){if(c===""){a.setAttribute(b,"auto");return c}}})}),f.attrHooks.contenteditable={get:w.get,set:function(a,b,c){b===""&&(b="false"),w.set(a,b,c)}}),f.support.hrefNormalized||f.each(["href","src","width","height"],function(a,c){f.attrHooks[c]=f.extend(f.attrHooks[c],{get:function(a){var d=a.getAttribute(c,2);return d===null?b:d}})}),f.support.style||(f.attrHooks.style={get:function(a){return a.style.cssText.toLowerCase()||b},set:function(a,b){return a.style.cssText=""+b}}),f.support.optSelected||(f.propHooks.selected=f.extend(f.propHooks.selected,{get:function(a){var b=a.parentNode;b&&(b.selectedIndex,b.parentNode&&b.parentNode.selectedIndex);return null}})),f.support.enctype||(f.propFix.enctype="encoding"),f.support.checkOn||f.each(["radio","checkbox"],function(){f.valHooks[this]={get:function(a){return a.getAttribute("value")===null?"on":a.value}}}),f.each(["radio","checkbox"],function(){f.valHooks[this]=f.extend(f.valHooks[this],{set:function(a,b){if(f.isArray(b))return a.checked=f.inArray(f(a).val(),b)>=0}})});var z=/^(?:textarea|input|select)$/i,A=/^([^\.]*)?(?:\.(.+))?$/,B=/\bhover(\.\S+)?\b/,C=/^key/,D=/^(?:mouse|contextmenu)|click/,E=/^(?:focusinfocus|focusoutblur)$/,F=/^(\w*)(?:#([\w\-]+))?(?:\.([\w\-]+))?$/,G=function(a){var b=F.exec(a);b&&(b[1]=(b[1]||"").toLowerCase(),b[3]=b[3]&&new RegExp("(?:^|\\s)"+b[3]+"(?:\\s|$)"));return b},H=function(a,b){var c=a.attributes||{};return(!b[1]||a.nodeName.toLowerCase()===b[1])&&(!b[2]||(c.id||{}).value===b[2])&&(!b[3]||b[3].test((c["class"]||{}).value))},I=function(a){return f.event.special.hover?a:a.replace(B,"mouseenter$1 mouseleave$1")};
+f.event={add:function(a,c,d,e,g){var h,i,j,k,l,m,n,o,p,q,r,s;if(!(a.nodeType===3||a.nodeType===8||!c||!d||!(h=f._data(a)))){d.handler&&(p=d,d=p.handler),d.guid||(d.guid=f.guid++),j=h.events,j||(h.events=j={}),i=h.handle,i||(h.handle=i=function(a){return typeof f!="undefined"&&(!a||f.event.triggered!==a.type)?f.event.dispatch.apply(i.elem,arguments):b},i.elem=a),c=f.trim(I(c)).split(" ");for(k=0;k<c.length;k++){l=A.exec(c[k])||[],m=l[1],n=(l[2]||"").split(".").sort(),s=f.event.special[m]||{},m=(g?s.delegateType:s.bindType)||m,s=f.event.special[m]||{},o=f.extend({type:m,origType:l[1],data:e,handler:d,guid:d.guid,selector:g,quick:G(g),namespace:n.join(".")},p),r=j[m];if(!r){r=j[m]=[],r.delegateCount=0;if(!s.setup||s.setup.call(a,e,n,i)===!1)a.addEventListener?a.addEventListener(m,i,!1):a.attachEvent&&a.attachEvent("on"+m,i)}s.add&&(s.add.call(a,o),o.handler.guid||(o.handler.guid=d.guid)),g?r.splice(r.delegateCount++,0,o):r.push(o),f.event.global[m]=!0}a=null}},global:{},remove:function(a,b,c,d,e){var g=f.hasData(a)&&f._data(a),h,i,j,k,l,m,n,o,p,q,r,s;if(!!g&&!!(o=g.events)){b=f.trim(I(b||"")).split(" ");for(h=0;h<b.length;h++){i=A.exec(b[h])||[],j=k=i[1],l=i[2];if(!j){for(j in o)f.event.remove(a,j+b[h],c,d,!0);continue}p=f.event.special[j]||{},j=(d?p.delegateType:p.bindType)||j,r=o[j]||[],m=r.length,l=l?new RegExp("(^|\\.)"+l.split(".").sort().join("\\.(?:.*\\.)?")+"(\\.|$)"):null;for(n=0;n<r.length;n++)s=r[n],(e||k===s.origType)&&(!c||c.guid===s.guid)&&(!l||l.test(s.namespace))&&(!d||d===s.selector||d==="**"&&s.selector)&&(r.splice(n--,1),s.selector&&r.delegateCount--,p.remove&&p.remove.call(a,s));r.length===0&&m!==r.length&&((!p.teardown||p.teardown.call(a,l)===!1)&&f.removeEvent(a,j,g.handle),delete o[j])}f.isEmptyObject(o)&&(q=g.handle,q&&(q.elem=null),f.removeData(a,["events","handle"],!0))}},customEvent:{getData:!0,setData:!0,changeData:!0},trigger:function(c,d,e,g){if(!e||e.nodeType!==3&&e.nodeType!==8){var h=c.type||c,i=[],j,k,l,m,n,o,p,q,r,s;if(E.test(h+f.event.triggered))return;h.indexOf("!")>=0&&(h=h.slice(0,-1),k=!0),h.indexOf(".")>=0&&(i=h.split("."),h=i.shift(),i.sort());if((!e||f.event.customEvent[h])&&!f.event.global[h])return;c=typeof c=="object"?c[f.expando]?c:new f.Event(h,c):new f.Event(h),c.type=h,c.isTrigger=!0,c.exclusive=k,c.namespace=i.join("."),c.namespace_re=c.namespace?new RegExp("(^|\\.)"+i.join("\\.(?:.*\\.)?")+"(\\.|$)"):null,o=h.indexOf(":")<0?"on"+h:"";if(!e){j=f.cache;for(l in j)j[l].events&&j[l].events[h]&&f.event.trigger(c,d,j[l].handle.elem,!0);return}c.result=b,c.target||(c.target=e),d=d!=null?f.makeArray(d):[],d.unshift(c),p=f.event.special[h]||{};if(p.trigger&&p.trigger.apply(e,d)===!1)return;r=[[e,p.bindType||h]];if(!g&&!p.noBubble&&!f.isWindow(e)){s=p.delegateType||h,m=E.test(s+h)?e:e.parentNode,n=null;for(;m;m=m.parentNode)r.push([m,s]),n=m;n&&n===e.ownerDocument&&r.push([n.defaultView||n.parentWindow||a,s])}for(l=0;l<r.length&&!c.isPropagationStopped();l++)m=r[l][0],c.type=r[l][1],q=(f._data(m,"events")||{})[c.type]&&f._data(m,"handle"),q&&q.apply(m,d),q=o&&m[o],q&&f.acceptData(m)&&q.apply(m,d)===!1&&c.preventDefault();c.type=h,!g&&!c.isDefaultPrevented()&&(!p._default||p._default.apply(e.ownerDocument,d)===!1)&&(h!=="click"||!f.nodeName(e,"a"))&&f.acceptData(e)&&o&&e[h]&&(h!=="focus"&&h!=="blur"||c.target.offsetWidth!==0)&&!f.isWindow(e)&&(n=e[o],n&&(e[o]=null),f.event.triggered=h,e[h](),f.event.triggered=b,n&&(e[o]=n));return c.result}},dispatch:function(c){c=f.event.fix(c||a.event);var d=(f._data(this,"events")||{})[c.type]||[],e=d.delegateCount,g=[].slice.call(arguments,0),h=!c.exclusive&&!c.namespace,i=[],j,k,l,m,n,o,p,q,r,s,t;g[0]=c,c.delegateTarget=this;if(e&&!c.target.disabled&&(!c.button||c.type!=="click")){m=f(this),m.context=this.ownerDocument||this;for(l=c.target;l!=this;l=l.parentNode||this){o={},q=[],m[0]=l;for(j=0;j<e;j++)r=d[j],s=r.selector,o[s]===b&&(o[s]=r.quick?H(l,r.quick):m.is(s)),o[s]&&q.push(r);q.length&&i.push({elem:l,matches:q})}}d.length>e&&i.push({elem:this,matches:d.slice(e)});for(j=0;j<i.length&&!c.isPropagationStopped();j++){p=i[j],c.currentTarget=p.elem;for(k=0;k<p.matches.length&&!c.isImmediatePropagationStopped();k++){r=p.matches[k];if(h||!c.namespace&&!r.namespace||c.namespace_re&&c.namespace_re.test(r.namespace))c.data=r.data,c.handleObj=r,n=((f.event.special[r.origType]||{}).handle||r.handler).apply(p.elem,g),n!==b&&(c.result=n,n===!1&&(c.preventDefault(),c.stopPropagation()))}}return c.result},props:"attrChange attrName relatedNode srcElement altKey bubbles cancelable ctrlKey currentTarget eventPhase metaKey relatedTarget shiftKey target timeStamp view which".split(" "),fixHooks:{},keyHooks:{props:"char charCode key keyCode".split(" "),filter:function(a,b){a.which==null&&(a.which=b.charCode!=null?b.charCode:b.keyCode);return a}},mouseHooks:{props:"button buttons clientX clientY fromElement offsetX offsetY pageX pageY screenX screenY toElement".split(" "),filter:function(a,d){var e,f,g,h=d.button,i=d.fromElement;a.pageX==null&&d.clientX!=null&&(e=a.target.ownerDocument||c,f=e.documentElement,g=e.body,a.pageX=d.clientX+(f&&f.scrollLeft||g&&g.scrollLeft||0)-(f&&f.clientLeft||g&&g.clientLeft||0),a.pageY=d.clientY+(f&&f.scrollTop||g&&g.scrollTop||0)-(f&&f.clientTop||g&&g.clientTop||0)),!a.relatedTarget&&i&&(a.relatedTarget=i===a.target?d.toElement:i),!a.which&&h!==b&&(a.which=h&1?1:h&2?3:h&4?2:0);return a}},fix:function(a){if(a[f.expando])return a;var d,e,g=a,h=f.event.fixHooks[a.type]||{},i=h.props?this.props.concat(h.props):this.props;a=f.Event(g);for(d=i.length;d;)e=i[--d],a[e]=g[e];a.target||(a.target=g.srcElement||c),a.target.nodeType===3&&(a.target=a.target.parentNode),a.metaKey===b&&(a.metaKey=a.ctrlKey);return h.filter?h.filter(a,g):a},special:{ready:{setup:f.bindReady},load:{noBubble:!0},focus:{delegateType:"focusin"},blur:{delegateType:"focusout"},beforeunload:{setup:function(a,b,c){f.isWindow(this)&&(this.onbeforeunload=c)},teardown:function(a,b){this.onbeforeunload===b&&(this.onbeforeunload=null)}}},simulate:function(a,b,c,d){var e=f.extend(new f.Event,c,{type:a,isSimulated:!0,originalEvent:{}});d?f.event.trigger(e,null,b):f.event.dispatch.call(b,e),e.isDefaultPrevented()&&c.preventDefault()}},f.event.handle=f.event.dispatch,f.removeEvent=c.removeEventListener?function(a,b,c){a.removeEventListener&&a.removeEventListener(b,c,!1)}:function(a,b,c){a.detachEvent&&a.detachEvent("on"+b,c)},f.Event=function(a,b){if(!(this instanceof f.Event))return new f.Event(a,b);a&&a.type?(this.originalEvent=a,this.type=a.type,this.isDefaultPrevented=a.defaultPrevented||a.returnValue===!1||a.getPreventDefault&&a.getPreventDefault()?K:J):this.type=a,b&&f.extend(this,b),this.timeStamp=a&&a.timeStamp||f.now(),this[f.expando]=!0},f.Event.prototype={preventDefault:function(){this.isDefaultPrevented=K;var a=this.originalEvent;!a||(a.preventDefault?a.preventDefault():a.returnValue=!1)},stopPropagation:function(){this.isPropagationStopped=K;var a=this.originalEvent;!a||(a.stopPropagation&&a.stopPropagation(),a.cancelBubble=!0)},stopImmediatePropagation:function(){this.isImmediatePropagationStopped=K,this.stopPropagation()},isDefaultPrevented:J,isPropagationStopped:J,isImmediatePropagationStopped:J},f.each({mouseenter:"mouseover",mouseleave:"mouseout"},function(a,b){f.event.special[a]={delegateType:b,bindType:b,handle:function(a){var c=this,d=a.relatedTarget,e=a.handleObj,g=e.selector,h;if(!d||d!==c&&!f.contains(c,d))a.type=e.origType,h=e.handler.apply(this,arguments),a.type=b;return h}}}),f.support.submitBubbles||(f.event.special.submit={setup:function(){if(f.nodeName(this,"form"))return!1;f.event.add(this,"click._submit keypress._submit",function(a){var c=a.target,d=f.nodeName(c,"input")||f.nodeName(c,"button")?c.form:b;d&&!d._submit_attached&&(f.event.add(d,"submit._submit",function(a){this.parentNode&&!a.isTrigger&&f.event.simulate("submit",this.parentNode,a,!0)}),d._submit_attached=!0)})},teardown:function(){if(f.nodeName(this,"form"))return!1;f.event.remove(this,"._submit")}}),f.support.changeBubbles||(f.event.special.change={setup:function(){if(z.test(this.nodeName)){if(this.type==="checkbox"||this.type==="radio")f.event.add(this,"propertychange._change",function(a){a.originalEvent.propertyName==="checked"&&(this._just_changed=!0)}),f.event.add(this,"click._change",function(a){this._just_changed&&!a.isTrigger&&(this._just_changed=!1,f.event.simulate("change",this,a,!0))});return!1}f.event.add(this,"beforeactivate._change",function(a){var b=a.target;z.test(b.nodeName)&&!b._change_attached&&(f.event.add(b,"change._change",function(a){this.parentNode&&!a.isSimulated&&!a.isTrigger&&f.event.simulate("change",this.parentNode,a,!0)}),b._change_attached=!0)})},handle:function(a){var b=a.target;if(this!==b||a.isSimulated||a.isTrigger||b.type!=="radio"&&b.type!=="checkbox")return a.handleObj.handler.apply(this,arguments)},teardown:function(){f.event.remove(this,"._change");return z.test(this.nodeName)}}),f.support.focusinBubbles||f.each({focus:"focusin",blur:"focusout"},function(a,b){var d=0,e=function(a){f.event.simulate(b,a.target,f.event.fix(a),!0)};f.event.special[b]={setup:function(){d++===0&&c.addEventListener(a,e,!0)},teardown:function(){--d===0&&c.removeEventListener(a,e,!0)}}}),f.fn.extend({on:function(a,c,d,e,g){var h,i;if(typeof a=="object"){typeof c!="string"&&(d=c,c=b);for(i in a)this.on(i,c,d,a[i],g);return this}d==null&&e==null?(e=c,d=c=b):e==null&&(typeof c=="string"?(e=d,d=b):(e=d,d=c,c=b));if(e===!1)e=J;else if(!e)return this;g===1&&(h=e,e=function(a){f().off(a);return h.apply(this,arguments)},e.guid=h.guid||(h.guid=f.guid++));return this.each(function(){f.event.add(this,a,e,d,c)})},one:function(a,b,c,d){return this.on.call(this,a,b,c,d,1)},off:function(a,c,d){if(a&&a.preventDefault&&a.handleObj){var e=a.handleObj;f(a.delegateTarget).off(e.namespace?e.type+"."+e.namespace:e.type,e.selector,e.handler);return this}if(typeof a=="object"){for(var g in a)this.off(g,c,a[g]);return this}if(c===!1||typeof c=="function")d=c,c=b;d===!1&&(d=J);return this.each(function(){f.event.remove(this,a,d,c)})},bind:function(a,b,c){return this.on(a,null,b,c)},unbind:function(a,b){return this.off(a,null,b)},live:function(a,b,c){f(this.context).on(a,this.selector,b,c);return this},die:function(a,b){f(this.context).off(a,this.selector||"**",b);return this},delegate:function(a,b,c,d){return this.on(b,a,c,d)},undelegate:function(a,b,c){return arguments.length==1?this.off(a,"**"):this.off(b,a,c)},trigger:function(a,b){return this.each(function(){f.event.trigger(a,b,this)})},triggerHandler:function(a,b){if(this[0])return f.event.trigger(a,b,this[0],!0)},toggle:function(a){var b=arguments,c=a.guid||f.guid++,d=0,e=function(c){var e=(f._data(this,"lastToggle"+a.guid)||0)%d;f._data(this,"lastToggle"+a.guid,e+1),c.preventDefault();return b[e].apply(this,arguments)||!1};e.guid=c;while(d<b.length)b[d++].guid=c;return this.click(e)},hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)}}),f.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error contextmenu".split(" "),function(a,b){f.fn[b]=function(a,c){c==null&&(c=a,a=null);return arguments.length>0?this.on(b,null,a,c):this.trigger(b)},f.attrFn&&(f.attrFn[b]=!0),C.test(b)&&(f.event.fixHooks[b]=f.event.keyHooks),D.test(b)&&(f.event.fixHooks[b]=f.event.mouseHooks)}),function(){function x(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}if(j.nodeType===1){g||(j[d]=c,j.sizset=h);if(typeof b!="string"){if(j===b){k=!0;break}}else if(m.filter(b,[j]).length>0){k=j;break}}j=j[a]}e[h]=k}}}function w(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}j.nodeType===1&&!g&&(j[d]=c,j.sizset=h);if(j.nodeName.toLowerCase()===b){k=j;break}j=j[a]}e[h]=k}}}var a=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^\[\]]*\]|['"][^'"]*['"]|[^\[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,d="sizcache"+(Math.random()+"").replace(".",""),e=0,g=Object.prototype.toString,h=!1,i=!0,j=/\\/g,k=/\r\n/g,l=/\W/;[0,0].sort(function(){i=!1;return 0});var m=function(b,d,e,f){e=e||[],d=d||c;var h=d;if(d.nodeType!==1&&d.nodeType!==9)return[];if(!b||typeof b!="string")return e;var i,j,k,l,n,q,r,t,u=!0,v=m.isXML(d),w=[],x=b;do{a.exec(""),i=a.exec(x);if(i){x=i[3],w.push(i[1]);if(i[2]){l=i[3];break}}}while(i);if(w.length>1&&p.exec(b))if(w.length===2&&o.relative[w[0]])j=y(w[0]+w[1],d,f);else{j=o.relative[w[0]]?[d]:m(w.shift(),d);while(w.length)b=w.shift(),o.relative[b]&&(b+=w.shift()),j=y(b,j,f)}else{!f&&w.length>1&&d.nodeType===9&&!v&&o.match.ID.test(w[0])&&!o.match.ID.test(w[w.length-1])&&(n=m.find(w.shift(),d,v),d=n.expr?m.filter(n.expr,n.set)[0]:n.set[0]);if(d){n=f?{expr:w.pop(),set:s(f)}:m.find(w.pop(),w.length===1&&(w[0]==="~"||w[0]==="+")&&d.parentNode?d.parentNode:d,v),j=n.expr?m.filter(n.expr,n.set):n.set,w.length>0?k=s(j):u=!1;while(w.length)q=w.pop(),r=q,o.relative[q]?r=w.pop():q="",r==null&&(r=d),o.relative[q](k,r,v)}else k=w=[]}k||(k=j),k||m.error(q||b);if(g.call(k)==="[object Array]")if(!u)e.push.apply(e,k);else if(d&&d.nodeType===1)for(t=0;k[t]!=null;t++)k[t]&&(k[t]===!0||k[t].nodeType===1&&m.contains(d,k[t]))&&e.push(j[t]);else for(t=0;k[t]!=null;t++)k[t]&&k[t].nodeType===1&&e.push(j[t]);else s(k,e);l&&(m(l,h,e,f),m.uniqueSort(e));return e};m.uniqueSort=function(a){if(u){h=i,a.sort(u);if(h)for(var b=1;b<a.length;b++)a[b]===a[b-1]&&a.splice(b--,1)}return a},m.matches=function(a,b){return m(a,null,null,b)},m.matchesSelector=function(a,b){return m(b,null,null,[a]).length>0},m.find=function(a,b,c){var d,e,f,g,h,i;if(!a)return[];for(e=0,f=o.order.length;e<f;e++){h=o.order[e];if(g=o.leftMatch[h].exec(a)){i=g[1],g.splice(1,1);if(i.substr(i.length-1)!=="\\"){g[1]=(g[1]||"").replace(j,""),d=o.find[h](g,b,c);if(d!=null){a=a.replace(o.match[h],"");break}}}}d||(d=typeof b.getElementsByTagName!="undefined"?b.getElementsByTagName("*"):[]);return{set:d,expr:a}},m.filter=function(a,c,d,e){var f,g,h,i,j,k,l,n,p,q=a,r=[],s=c,t=c&&c[0]&&m.isXML(c[0]);while(a&&c.length){for(h in o.filter)if((f=o.leftMatch[h].exec(a))!=null&&f[2]){k=o.filter[h],l=f[1],g=!1,f.splice(1,1);if(l.substr(l.length-1)==="\\")continue;s===r&&(r=[]);if(o.preFilter[h]){f=o.preFilter[h](f,s,d,r,e,t);if(!f)g=i=!0;else if(f===!0)continue}if(f)for(n=0;(j=s[n])!=null;n++)j&&(i=k(j,f,n,s),p=e^i,d&&i!=null?p?g=!0:s[n]=!1:p&&(r.push(j),g=!0));if(i!==b){d||(s=r),a=a.replace(o.match[h],"");if(!g)return[];break}}if(a===q)if(g==null)m.error(a);else break;q=a}return s},m.error=function(a){throw new Error("Syntax error, unrecognized expression: "+a)};var n=m.getText=function(a){var b,c,d=a.nodeType,e="";if(d){if(d===1||d===9){if(typeof a.textContent=="string")return a.textContent;if(typeof a.innerText=="string")return a.innerText.replace(k,"");for(a=a.firstChild;a;a=a.nextSibling)e+=n(a)}else if(d===3||d===4)return a.nodeValue}else for(b=0;c=a[b];b++)c.nodeType!==8&&(e+=n(c));return e},o=m.selectors={order:["ID","NAME","TAG"],match:{ID:/#((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,CLASS:/\.((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,NAME:/\[name=['"]*((?:[\w\u00c0-\uFFFF\-]|\\.)+)['"]*\]/,ATTR:/\[\s*((?:[\w\u00c0-\uFFFF\-]|\\.)+)\s*(?:(\S?=)\s*(?:(['"])(.*?)\3|(#?(?:[\w\u00c0-\uFFFF\-]|\\.)*)|)|)\s*\]/,TAG:/^((?:[\w\u00c0-\uFFFF\*\-]|\\.)+)/,CHILD:/:(only|nth|last|first)-child(?:\(\s*(even|odd|(?:[+\-]?\d+|(?:[+\-]?\d*)?n\s*(?:[+\-]\s*\d+)?))\s*\))?/,POS:/:(nth|eq|gt|lt|first|last|even|odd)(?:\((\d*)\))?(?=[^\-]|$)/,PSEUDO:/:((?:[\w\u00c0-\uFFFF\-]|\\.)+)(?:\((['"]?)((?:\([^\)]+\)|[^\(\)]*)+)\2\))?/},leftMatch:{},attrMap:{"class":"className","for":"htmlFor"},attrHandle:{href:function(a){return a.getAttribute("href")},type:function(a){return a.getAttribute("type")}},relative:{"+":function(a,b){var c=typeof b=="string",d=c&&!l.test(b),e=c&&!d;d&&(b=b.toLowerCase());for(var f=0,g=a.length,h;f<g;f++)if(h=a[f]){while((h=h.previousSibling)&&h.nodeType!==1);a[f]=e||h&&h.nodeName.toLowerCase()===b?h||!1:h===b}e&&m.filter(b,a,!0)},">":function(a,b){var c,d=typeof b=="string",e=0,f=a.length;if(d&&!l.test(b)){b=b.toLowerCase();for(;e<f;e++){c=a[e];if(c){var g=c.parentNode;a[e]=g.nodeName.toLowerCase()===b?g:!1}}}else{for(;e<f;e++)c=a[e],c&&(a[e]=d?c.parentNode:c.parentNode===b);d&&m.filter(b,a,!0)}},"":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("parentNode",b,f,a,d,c)},"~":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("previousSibling",b,f,a,d,c)}},find:{ID:function(a,b,c){if(typeof b.getElementById!="undefined"&&!c){var d=b.getElementById(a[1]);return d&&d.parentNode?[d]:[]}},NAME:function(a,b){if(typeof b.getElementsByName!="undefined"){var c=[],d=b.getElementsByName(a[1]);for(var e=0,f=d.length;e<f;e++)d[e].getAttribute("name")===a[1]&&c.push(d[e]);return c.length===0?null:c}},TAG:function(a,b){if(typeof b.getElementsByTagName!="undefined")return b.getElementsByTagName(a[1])}},preFilter:{CLASS:function(a,b,c,d,e,f){a=" "+a[1].replace(j,"")+" ";if(f)return a;for(var g=0,h;(h=b[g])!=null;g++)h&&(e^(h.className&&(" "+h.className+" ").replace(/[\t\n\r]/g," ").indexOf(a)>=0)?c||d.push(h):c&&(b[g]=!1));return!1},ID:function(a){return a[1].replace(j,"")},TAG:function(a,b){return a[1].replace(j,"").toLowerCase()},CHILD:function(a){if(a[1]==="nth"){a[2]||m.error(a[0]),a[2]=a[2].replace(/^\+|\s*/g,"");var b=/(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2]==="even"&&"2n"||a[2]==="odd"&&"2n+1"||!/\D/.test(a[2])&&"0n+"+a[2]||a[2]);a[2]=b[1]+(b[2]||1)-0,a[3]=b[3]-0}else a[2]&&m.error(a[0]);a[0]=e++;return a},ATTR:function(a,b,c,d,e,f){var g=a[1]=a[1].replace(j,"");!f&&o.attrMap[g]&&(a[1]=o.attrMap[g]),a[4]=(a[4]||a[5]||"").replace(j,""),a[2]==="~="&&(a[4]=" "+a[4]+" ");return a},PSEUDO:function(b,c,d,e,f){if(b[1]==="not")if((a.exec(b[3])||"").length>1||/^\w/.test(b[3]))b[3]=m(b[3],null,null,c);else{var g=m.filter(b[3],c,d,!0^f);d||e.push.apply(e,g);return!1}else if(o.match.POS.test(b[0])||o.match.CHILD.test(b[0]))return!0;return b},POS:function(a){a.unshift(!0);return a}},filters:{enabled:function(a){return a.disabled===!1&&a.type!=="hidden"},disabled:function(a){return a.disabled===!0},checked:function(a){return a.checked===!0},selected:function(a){a.parentNode&&a.parentNode.selectedIndex;return a.selected===!0},parent:function(a){return!!a.firstChild},empty:function(a){return!a.firstChild},has:function(a,b,c){return!!m(c[3],a).length},header:function(a){return/h\d/i.test(a.nodeName)},text:function(a){var b=a.getAttribute("type"),c=a.type;return a.nodeName.toLowerCase()==="input"&&"text"===c&&(b===c||b===null)},radio:function(a){return a.nodeName.toLowerCase()==="input"&&"radio"===a.type},checkbox:function(a){return a.nodeName.toLowerCase()==="input"&&"checkbox"===a.type},file:function(a){return a.nodeName.toLowerCase()==="input"&&"file"===a.type},password:function(a){return a.nodeName.toLowerCase()==="input"&&"password"===a.type},submit:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"submit"===a.type},image:function(a){return a.nodeName.toLowerCase()==="input"&&"image"===a.type},reset:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"reset"===a.type},button:function(a){var b=a.nodeName.toLowerCase();return b==="input"&&"button"===a.type||b==="button"},input:function(a){return/input|select|textarea|button/i.test(a.nodeName)},focus:function(a){return a===a.ownerDocument.activeElement}},setFilters:{first:function(a,b){return b===0},last:function(a,b,c,d){return b===d.length-1},even:function(a,b){return b%2===0},odd:function(a,b){return b%2===1},lt:function(a,b,c){return b<c[3]-0},gt:function(a,b,c){return b>c[3]-0},nth:function(a,b,c){return c[3]-0===b},eq:function(a,b,c){return c[3]-0===b}},filter:{PSEUDO:function(a,b,c,d){var e=b[1],f=o.filters[e];if(f)return f(a,c,b,d);if(e==="contains")return(a.textContent||a.innerText||n([a])||"").indexOf(b[3])>=0;if(e==="not"){var g=b[3];for(var h=0,i=g.length;h<i;h++)if(g[h]===a)return!1;return!0}m.error(e)},CHILD:function(a,b){var c,e,f,g,h,i,j,k=b[1],l=a;switch(k){case"only":case"first":while(l=l.previousSibling)if(l.nodeType===1)return!1;if(k==="first")return!0;l=a;case"last":while(l=l.nextSibling)if(l.nodeType===1)return!1;return!0;case"nth":c=b[2],e=b[3];if(c===1&&e===0)return!0;f=b[0],g=a.parentNode;if(g&&(g[d]!==f||!a.nodeIndex)){i=0;for(l=g.firstChild;l;l=l.nextSibling)l.nodeType===1&&(l.nodeIndex=++i);g[d]=f}j=a.nodeIndex-e;return c===0?j===0:j%c===0&&j/c>=0}},ID:function(a,b){return a.nodeType===1&&a.getAttribute("id")===b},TAG:function(a,b){return b==="*"&&a.nodeType===1||!!a.nodeName&&a.nodeName.toLowerCase()===b},CLASS:function(a,b){return(" "+(a.className||a.getAttribute("class"))+" ").indexOf(b)>-1},ATTR:function(a,b){var c=b[1],d=m.attr?m.attr(a,c):o.attrHandle[c]?o.attrHandle[c](a):a[c]!=null?a[c]:a.getAttribute(c),e=d+"",f=b[2],g=b[4];return d==null?f==="!=":!f&&m.attr?d!=null:f==="="?e===g:f==="*="?e.indexOf(g)>=0:f==="~="?(" "+e+" ").indexOf(g)>=0:g?f==="!="?e!==g:f==="^="?e.indexOf(g)===0:f==="$="?e.substr(e.length-g.length)===g:f==="|="?e===g||e.substr(0,g.length+1)===g+"-":!1:e&&d!==!1},POS:function(a,b,c,d){var e=b[2],f=o.setFilters[e];if(f)return f(a,c,b,d)}}},p=o.match.POS,q=function(a,b){return"\\"+(b-0+1)};for(var r in o.match)o.match[r]=new RegExp(o.match[r].source+/(?![^\[]*\])(?![^\(]*\))/.source),o.leftMatch[r]=new RegExp(/(^(?:.|\r|\n)*?)/.source+o.match[r].source.replace(/\\(\d+)/g,q));var s=function(a,b){a=Array.prototype.slice.call(a,0);if(b){b.push.apply(b,a);return b}return a};try{Array.prototype.slice.call(c.documentElement.childNodes,0)[0].nodeType}catch(t){s=function(a,b){var c=0,d=b||[];if(g.call(a)==="[object Array]")Array.prototype.push.apply(d,a);else if(typeof a.length=="number")for(var e=a.length;c<e;c++)d.push(a[c]);else for(;a[c];c++)d.push(a[c]);return d}}var u,v;c.documentElement.compareDocumentPosition?u=function(a,b){if(a===b){h=!0;return 0}if(!a.compareDocumentPosition||!b.compareDocumentPosition)return a.compareDocumentPosition?-1:1;return a.compareDocumentPosition(b)&4?-1:1}:(u=function(a,b){if(a===b){h=!0;return 0}if(a.sourceIndex&&b.sourceIndex)return a.sourceIndex-b.sourceIndex;var c,d,e=[],f=[],g=a.parentNode,i=b.parentNode,j=g;if(g===i)return v(a,b);if(!g)return-1;if(!i)return 1;while(j)e.unshift(j),j=j.parentNode;j=i;while(j)f.unshift(j),j=j.parentNode;c=e.length,d=f.length;for(var k=0;k<c&&k<d;k++)if(e[k]!==f[k])return v(e[k],f[k]);return k===c?v(a,f[k],-1):v(e[k],b,1)},v=function(a,b,c){if(a===b)return c;var d=a.nextSibling;while(d){if(d===b)return-1;d=d.nextSibling}return 1}),function(){var a=c.createElement("div"),d="script"+(new Date).getTime(),e=c.documentElement;a.innerHTML="<a name='"+d+"'/>",e.insertBefore(a,e.firstChild),c.getElementById(d)&&(o.find.ID=function(a,c,d){if(typeof c.getElementById!="undefined"&&!d){var e=c.getElementById(a[1]);return e?e.id===a[1]||typeof e.getAttributeNode!="undefined"&&e.getAttributeNode("id").nodeValue===a[1]?[e]:b:[]}},o.filter.ID=function(a,b){var c=typeof a.getAttributeNode!="undefined"&&a.getAttributeNode("id");return a.nodeType===1&&c&&c.nodeValue===b}),e.removeChild(a),e=a=null}(),function(){var a=c.createElement("div");a.appendChild(c.createComment("")),a.getElementsByTagName("*").length>0&&(o.find.TAG=function(a,b){var c=b.getElementsByTagName(a[1]);if(a[1]==="*"){var d=[];for(var e=0;c[e];e++)c[e].nodeType===1&&d.push(c[e]);c=d}return c}),a.innerHTML="<a href='#'></a>",a.firstChild&&typeof a.firstChild.getAttribute!="undefined"&&a.firstChild.getAttribute("href")!=="#"&&(o.attrHandle.href=function(a){return a.getAttribute("href",2)}),a=null}(),c.querySelectorAll&&function(){var a=m,b=c.createElement("div"),d="__sizzle__";b.innerHTML="<p class='TEST'></p>";if(!b.querySelectorAll||b.querySelectorAll(".TEST").length!==0){m=function(b,e,f,g){e=e||c;if(!g&&!m.isXML(e)){var h=/^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b);if(h&&(e.nodeType===1||e.nodeType===9)){if(h[1])return s(e.getElementsByTagName(b),f);if(h[2]&&o.find.CLASS&&e.getElementsByClassName)return s(e.getElementsByClassName(h[2]),f)}if(e.nodeType===9){if(b==="body"&&e.body)return s([e.body],f);if(h&&h[3]){var i=e.getElementById(h[3]);if(!i||!i.parentNode)return s([],f);if(i.id===h[3])return s([i],f)}try{return s(e.querySelectorAll(b),f)}catch(j){}}else if(e.nodeType===1&&e.nodeName.toLowerCase()!=="object"){var k=e,l=e.getAttribute("id"),n=l||d,p=e.parentNode,q=/^\s*[+~]/.test(b);l?n=n.replace(/'/g,"\\$&"):e.setAttribute("id",n),q&&p&&(e=e.parentNode);try{if(!q||p)return s(e.querySelectorAll("[id='"+n+"'] "+b),f)}catch(r){}finally{l||k.removeAttribute("id")}}}return a(b,e,f,g)};for(var e in a)m[e]=a[e];b=null}}(),function(){var a=c.documentElement,b=a.matchesSelector||a.mozMatchesSelector||a.webkitMatchesSelector||a.msMatchesSelector;if(b){var d=!b.call(c.createElement("div"),"div"),e=!1;try{b.call(c.documentElement,"[test!='']:sizzle")}catch(f){e=!0}m.matchesSelector=function(a,c){c=c.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!m.isXML(a))try{if(e||!o.match.PSEUDO.test(c)&&!/!=/.test(c)){var f=b.call(a,c);if(f||!d||a.document&&a.document.nodeType!==11)return f}}catch(g){}return m(c,null,null,[a]).length>0}}}(),function(){var a=c.createElement("div");a.innerHTML="<div class='test e'></div><div class='test'></div>";if(!!a.getElementsByClassName&&a.getElementsByClassName("e").length!==0){a.lastChild.className="e";if(a.getElementsByClassName("e").length===1)return;o.order.splice(1,0,"CLASS"),o.find.CLASS=function(a,b,c){if(typeof b.getElementsByClassName!="undefined"&&!c)return b.getElementsByClassName(a[1])},a=null}}(),c.documentElement.contains?m.contains=function(a,b){return a!==b&&(a.contains?a.contains(b):!0)}:c.documentElement.compareDocumentPosition?m.contains=function(a,b){return!!(a.compareDocumentPosition(b)&16)}:m.contains=function(){return!1},m.isXML=function(a){var b=(a?a.ownerDocument||a:0).documentElement;return b?b.nodeName!=="HTML":!1};var y=function(a,b,c){var d,e=[],f="",g=b.nodeType?[b]:b;while(d=o.match.PSEUDO.exec(a))f+=d[0],a=a.replace(o.match.PSEUDO,"");a=o.relative[a]?a+"*":a;for(var h=0,i=g.length;h<i;h++)m(a,g[h],e,c);return m.filter(f,e)};m.attr=f.attr,m.selectors.attrMap={},f.find=m,f.expr=m.selectors,f.expr[":"]=f.expr.filters,f.unique=m.uniqueSort,f.text=m.getText,f.isXMLDoc=m.isXML,f.contains=m.contains}();var L=/Until$/,M=/^(?:parents|prevUntil|prevAll)/,N=/,/,O=/^.[^:#\[\.,]*$/,P=Array.prototype.slice,Q=f.expr.match.POS,R={children:!0,contents:!0,next:!0,prev:!0};f.fn.extend({find:function(a){var b=this,c,d;if(typeof a!="string")return f(a).filter(function(){for(c=0,d=b.length;c<d;c++)if(f.contains(b[c],this))return!0});var e=this.pushStack("","find",a),g,h,i;for(c=0,d=this.length;c<d;c++){g=e.length,f.find(a,this[c],e);if(c>0)for(h=g;h<e.length;h++)for(i=0;i<g;i++)if(e[i]===e[h]){e.splice(h--,1);break}}return e},has:function(a){var b=f(a);return this.filter(function(){for(var a=0,c=b.length;a<c;a++)if(f.contains(this,b[a]))return!0})},not:function(a){return this.pushStack(T(this,a,!1),"not",a)},filter:function(a){return this.pushStack(T(this,a,!0),"filter",a)},is:function(a){return!!a&&(typeof a=="string"?Q.test(a)?f(a,this.context).index(this[0])>=0:f.filter(a,this).length>0:this.filter(a).length>0)},closest:function(a,b){var c=[],d,e,g=this[0];if(f.isArray(a)){var h=1;while(g&&g.ownerDocument&&g!==b){for(d=0;d<a.length;d++)f(g).is(a[d])&&c.push({selector:a[d],elem:g,level:h});g=g.parentNode,h++}return c}var i=Q.test(a)||typeof a!="string"?f(a,b||this.context):0;for(d=0,e=this.length;d<e;d++){g=this[d];while(g){if(i?i.index(g)>-1:f.find.matchesSelector(g,a)){c.push(g);break}g=g.parentNode;if(!g||!g.ownerDocument||g===b||g.nodeType===11)break}}c=c.length>1?f.unique(c):c;return this.pushStack(c,"closest",a)},index:function(a){if(!a)return this[0]&&this[0].parentNode?this.prevAll().length:-1;if(typeof a=="string")return f.inArray(this[0],f(a));return f.inArray(a.jquery?a[0]:a,this)},add:function(a,b){var c=typeof a=="string"?f(a,b):f.makeArray(a&&a.nodeType?[a]:a),d=f.merge(this.get(),c);return this.pushStack(S(c[0])||S(d[0])?d:f.unique(d))},andSelf:function(){return this.add(this.prevObject)}}),f.each({parent:function(a){var b=a.parentNode;return b&&b.nodeType!==11?b:null},parents:function(a){return f.dir(a,"parentNode")},parentsUntil:function(a,b,c){return f.dir(a,"parentNode",c)},next:function(a){return f.nth(a,2,"nextSibling")},prev:function(a){return f.nth(a,2,"previousSibling")},nextAll:function(a){return f.dir(a,"nextSibling")},prevAll:function(a){return f.dir(a,"previousSibling")},nextUntil:function(a,b,c){return f.dir(a,"nextSibling",c)},prevUntil:function(a,b,c){return f.dir(a,"previousSibling",c)},siblings:function(a){return f.sibling(a.parentNode.firstChild,a)},children:function(a){return f.sibling(a.firstChild)},contents:function(a){return f.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:f.makeArray(a.childNodes)}},function(a,b){f.fn[a]=function(c,d){var e=f.map(this,b,c);L.test(a)||(d=c),d&&typeof d=="string"&&(e=f.filter(d,e)),e=this.length>1&&!R[a]?f.unique(e):e,(this.length>1||N.test(d))&&M.test(a)&&(e=e.reverse());return this.pushStack(e,a,P.call(arguments).join(","))}}),f.extend({filter:function(a,b,c){c&&(a=":not("+a+")");return b.length===1?f.find.matchesSelector(b[0],a)?[b[0]]:[]:f.find.matches(a,b)},dir:function(a,c,d){var e=[],g=a[c];while(g&&g.nodeType!==9&&(d===b||g.nodeType!==1||!f(g).is(d)))g.nodeType===1&&e.push(g),g=g[c];return e},nth:function(a,b,c,d){b=b||1;var e=0;for(;a;a=a[c])if(a.nodeType===1&&++e===b)break;return a},sibling:function(a,b){var c=[];for(;a;a=a.nextSibling)a.nodeType===1&&a!==b&&c.push(a);return c}});var V="abbr|article|aside|audio|canvas|datalist|details|figcaption|figure|footer|header|hgroup|mark|meter|nav|output|progress|section|summary|time|video",W=/ jQuery\d+="(?:\d+|null)"/g,X=/^\s+/,Y=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig,Z=/<([\w:]+)/,$=/<tbody/i,_=/<|&#?\w+;/,ba=/<(?:script|style)/i,bb=/<(?:script|object|embed|option|style)/i,bc=new RegExp("<(?:"+V+")","i"),bd=/checked\s*(?:[^=]|=\s*.checked.)/i,be=/\/(java|ecma)script/i,bf=/^\s*<!(?:\[CDATA\[|\-\-)/,bg={option:[1,"<select multiple='multiple'>","</select>"],legend:[1,"<fieldset>","</fieldset>"],thead:[1,"<table>","</table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],col:[2,"<table><tbody></tbody><colgroup>","</colgroup></table>"],area:[1,"<map>","</map>"],_default:[0,"",""]},bh=U(c);bg.optgroup=bg.option,bg.tbody=bg.tfoot=bg.colgroup=bg.caption=bg.thead,bg.th=bg.td,f.support.htmlSerialize||(bg._default=[1,"div<div>","</div>"]),f.fn.extend({text:function(a){if(f.isFunction(a))return this.each(function(b){var c=f(this);c.text(a.call(this,b,c.text()))});if(typeof a!="object"&&a!==b)return this.empty().append((this[0]&&this[0].ownerDocument||c).createTextNode(a));return f.text(this)},wrapAll:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapAll(a.call(this,b))});if(this[0]){var b=f(a,this[0].ownerDocument).eq(0).clone(!0);this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstChild&&a.firstChild.nodeType===1)a=a.firstChild;return a}).append(this)}return this},wrapInner:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapInner(a.call(this,b))});return this.each(function(){var b=f(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){var b=f.isFunction(a);return this.each(function(c){f(this).wrapAll(b?a.call(this,c):a)})},unwrap:function(){return this.parent().each(function(){f.nodeName(this,"body")||f(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.appendChild(a)})},prepend:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this)});if(arguments.length){var a=f.clean(arguments);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,f.clean(arguments));return a}},remove:function(a,b){for(var c=0,d;(d=this[c])!=null;c++)if(!a||f.filter(a,[d]).length)!b&&d.nodeType===1&&(f.cleanData(d.getElementsByTagName("*")),f.cleanData([d])),d.parentNode&&d.parentNode.removeChild(d);return this},empty:function()
+{for(var a=0,b;(b=this[a])!=null;a++){b.nodeType===1&&f.cleanData(b.getElementsByTagName("*"));while(b.firstChild)b.removeChild(b.firstChild)}return this},clone:function(a,b){a=a==null?!1:a,b=b==null?a:b;return this.map(function(){return f.clone(this,a,b)})},html:function(a){if(a===b)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(W,""):null;if(typeof a=="string"&&!ba.test(a)&&(f.support.leadingWhitespace||!X.test(a))&&!bg[(Z.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Y,"<$1></$2>");try{for(var c=0,d=this.length;c<d;c++)this[c].nodeType===1&&(f.cleanData(this[c].getElementsByTagName("*")),this[c].innerHTML=a)}catch(e){this.empty().append(a)}}else f.isFunction(a)?this.each(function(b){var c=f(this);c.html(a.call(this,b,c.html()))}):this.empty().append(a);return this},replaceWith:function(a){if(this[0]&&this[0].parentNode){if(f.isFunction(a))return this.each(function(b){var c=f(this),d=c.html();c.replaceWith(a.call(this,b,d))});typeof a!="string"&&(a=f(a).detach());return this.each(function(){var b=this.nextSibling,c=this.parentNode;f(this).remove(),b?f(b).before(a):f(c).append(a)})}return this.length?this.pushStack(f(f.isFunction(a)?a():a),"replaceWith",a):this},detach:function(a){return this.remove(a,!0)},domManip:function(a,c,d){var e,g,h,i,j=a[0],k=[];if(!f.support.checkClone&&arguments.length===3&&typeof j=="string"&&bd.test(j))return this.each(function(){f(this).domManip(a,c,d,!0)});if(f.isFunction(j))return this.each(function(e){var g=f(this);a[0]=j.call(this,e,c?g.html():b),g.domManip(a,c,d)});if(this[0]){i=j&&j.parentNode,f.support.parentNode&&i&&i.nodeType===11&&i.childNodes.length===this.length?e={fragment:i}:e=f.buildFragment(a,this,k),h=e.fragment,h.childNodes.length===1?g=h=h.firstChild:g=h.firstChild;if(g){c=c&&f.nodeName(g,"tr");for(var l=0,m=this.length,n=m-1;l<m;l++)d.call(c?bi(this[l],g):this[l],e.cacheable||m>1&&l<n?f.clone(h,!0,!0):h)}k.length&&f.each(k,bp)}return this}}),f.buildFragment=function(a,b,d){var e,g,h,i,j=a[0];b&&b[0]&&(i=b[0].ownerDocument||b[0]),i.createDocumentFragment||(i=c),a.length===1&&typeof j=="string"&&j.length<512&&i===c&&j.charAt(0)==="<"&&!bb.test(j)&&(f.support.checkClone||!bd.test(j))&&(f.support.html5Clone||!bc.test(j))&&(g=!0,h=f.fragments[j],h&&h!==1&&(e=h)),e||(e=i.createDocumentFragment(),f.clean(a,i,e,d)),g&&(f.fragments[j]=h?e:1);return{fragment:e,cacheable:g}},f.fragments={},f.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){f.fn[a]=function(c){var d=[],e=f(c),g=this.length===1&&this[0].parentNode;if(g&&g.nodeType===11&&g.childNodes.length===1&&e.length===1){e[b](this[0]);return this}for(var h=0,i=e.length;h<i;h++){var j=(h>0?this.clone(!0):this).get();f(e[h])[b](j),d=d.concat(j)}return this.pushStack(d,a,e.selector)}}),f.extend({clone:function(a,b,c){var d,e,g,h=f.support.html5Clone||!bc.test("<"+a.nodeName)?a.cloneNode(!0):bo(a);if((!f.support.noCloneEvent||!f.support.noCloneChecked)&&(a.nodeType===1||a.nodeType===11)&&!f.isXMLDoc(a)){bk(a,h),d=bl(a),e=bl(h);for(g=0;d[g];++g)e[g]&&bk(d[g],e[g])}if(b){bj(a,h);if(c){d=bl(a),e=bl(h);for(g=0;d[g];++g)bj(d[g],e[g])}}d=e=null;return h},clean:function(a,b,d,e){var g;b=b||c,typeof b.createElement=="undefined"&&(b=b.ownerDocument||b[0]&&b[0].ownerDocument||c);var h=[],i;for(var j=0,k;(k=a[j])!=null;j++){typeof k=="number"&&(k+="");if(!k)continue;if(typeof k=="string")if(!_.test(k))k=b.createTextNode(k);else{k=k.replace(Y,"<$1></$2>");var l=(Z.exec(k)||["",""])[1].toLowerCase(),m=bg[l]||bg._default,n=m[0],o=b.createElement("div");b===c?bh.appendChild(o):U(b).appendChild(o),o.innerHTML=m[1]+k+m[2];while(n--)o=o.lastChild;if(!f.support.tbody){var p=$.test(k),q=l==="table"&&!p?o.firstChild&&o.firstChild.childNodes:m[1]==="<table>"&&!p?o.childNodes:[];for(i=q.length-1;i>=0;--i)f.nodeName(q[i],"tbody")&&!q[i].childNodes.length&&q[i].parentNode.removeChild(q[i])}!f.support.leadingWhitespace&&X.test(k)&&o.insertBefore(b.createTextNode(X.exec(k)[0]),o.firstChild),k=o.childNodes}var r;if(!f.support.appendChecked)if(k[0]&&typeof (r=k.length)=="number")for(i=0;i<r;i++)bn(k[i]);else bn(k);k.nodeType?h.push(k):h=f.merge(h,k)}if(d){g=function(a){return!a.type||be.test(a.type)};for(j=0;h[j];j++)if(e&&f.nodeName(h[j],"script")&&(!h[j].type||h[j].type.toLowerCase()==="text/javascript"))e.push(h[j].parentNode?h[j].parentNode.removeChild(h[j]):h[j]);else{if(h[j].nodeType===1){var s=f.grep(h[j].getElementsByTagName("script"),g);h.splice.apply(h,[j+1,0].concat(s))}d.appendChild(h[j])}}return h},cleanData:function(a){var b,c,d=f.cache,e=f.event.special,g=f.support.deleteExpando;for(var h=0,i;(i=a[h])!=null;h++){if(i.nodeName&&f.noData[i.nodeName.toLowerCase()])continue;c=i[f.expando];if(c){b=d[c];if(b&&b.events){for(var j in b.events)e[j]?f.event.remove(i,j):f.removeEvent(i,j,b.handle);b.handle&&(b.handle.elem=null)}g?delete i[f.expando]:i.removeAttribute&&i.removeAttribute(f.expando),delete d[c]}}}});var bq=/alpha\([^)]*\)/i,br=/opacity=([^)]*)/,bs=/([A-Z]|^ms)/g,bt=/^-?\d+(?:px)?$/i,bu=/^-?\d/,bv=/^([\-+])=([\-+.\de]+)/,bw={position:"absolute",visibility:"hidden",display:"block"},bx=["Left","Right"],by=["Top","Bottom"],bz,bA,bB;f.fn.css=function(a,c){if(arguments.length===2&&c===b)return this;return f.access(this,a,c,!0,function(a,c,d){return d!==b?f.style(a,c,d):f.css(a,c)})},f.extend({cssHooks:{opacity:{get:function(a,b){if(b){var c=bz(a,"opacity","opacity");return c===""?"1":c}return a.style.opacity}}},cssNumber:{fillOpacity:!0,fontWeight:!0,lineHeight:!0,opacity:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{"float":f.support.cssFloat?"cssFloat":"styleFloat"},style:function(a,c,d,e){if(!!a&&a.nodeType!==3&&a.nodeType!==8&&!!a.style){var g,h,i=f.camelCase(c),j=a.style,k=f.cssHooks[i];c=f.cssProps[i]||i;if(d===b){if(k&&"get"in k&&(g=k.get(a,!1,e))!==b)return g;return j[c]}h=typeof d,h==="string"&&(g=bv.exec(d))&&(d=+(g[1]+1)*+g[2]+parseFloat(f.css(a,c)),h="number");if(d==null||h==="number"&&isNaN(d))return;h==="number"&&!f.cssNumber[i]&&(d+="px");if(!k||!("set"in k)||(d=k.set(a,d))!==b)try{j[c]=d}catch(l){}}},css:function(a,c,d){var e,g;c=f.camelCase(c),g=f.cssHooks[c],c=f.cssProps[c]||c,c==="cssFloat"&&(c="float");if(g&&"get"in g&&(e=g.get(a,!0,d))!==b)return e;if(bz)return bz(a,c)},swap:function(a,b,c){var d={};for(var e in b)d[e]=a.style[e],a.style[e]=b[e];c.call(a);for(e in b)a.style[e]=d[e]}}),f.curCSS=f.css,f.each(["height","width"],function(a,b){f.cssHooks[b]={get:function(a,c,d){var e;if(c){if(a.offsetWidth!==0)return bC(a,b,d);f.swap(a,bw,function(){e=bC(a,b,d)});return e}},set:function(a,b){if(!bt.test(b))return b;b=parseFloat(b);if(b>=0)return b+"px"}}}),f.support.opacity||(f.cssHooks.opacity={get:function(a,b){return br.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?parseFloat(RegExp.$1)/100+"":b?"1":""},set:function(a,b){var c=a.style,d=a.currentStyle,e=f.isNumeric(b)?"alpha(opacity="+b*100+")":"",g=d&&d.filter||c.filter||"";c.zoom=1;if(b>=1&&f.trim(g.replace(bq,""))===""){c.removeAttribute("filter");if(d&&!d.filter)return}c.filter=bq.test(g)?g.replace(bq,e):g+" "+e}}),f(function(){f.support.reliableMarginRight||(f.cssHooks.marginRight={get:function(a,b){var c;f.swap(a,{display:"inline-block"},function(){b?c=bz(a,"margin-right","marginRight"):c=a.style.marginRight});return c}})}),c.defaultView&&c.defaultView.getComputedStyle&&(bA=function(a,b){var c,d,e;b=b.replace(bs,"-$1").toLowerCase(),(d=a.ownerDocument.defaultView)&&(e=d.getComputedStyle(a,null))&&(c=e.getPropertyValue(b),c===""&&!f.contains(a.ownerDocument.documentElement,a)&&(c=f.style(a,b)));return c}),c.documentElement.currentStyle&&(bB=function(a,b){var c,d,e,f=a.currentStyle&&a.currentStyle[b],g=a.style;f===null&&g&&(e=g[b])&&(f=e),!bt.test(f)&&bu.test(f)&&(c=g.left,d=a.runtimeStyle&&a.runtimeStyle.left,d&&(a.runtimeStyle.left=a.currentStyle.left),g.left=b==="fontSize"?"1em":f||0,f=g.pixelLeft+"px",g.left=c,d&&(a.runtimeStyle.left=d));return f===""?"auto":f}),bz=bA||bB,f.expr&&f.expr.filters&&(f.expr.filters.hidden=function(a){var b=a.offsetWidth,c=a.offsetHeight;return b===0&&c===0||!f.support.reliableHiddenOffsets&&(a.style&&a.style.display||f.css(a,"display"))==="none"},f.expr.filters.visible=function(a){return!f.expr.filters.hidden(a)});var bD=/%20/g,bE=/\[\]$/,bF=/\r?\n/g,bG=/#.*$/,bH=/^(.*?):[ \t]*([^\r\n]*)\r?$/mg,bI=/^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i,bJ=/^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/,bK=/^(?:GET|HEAD)$/,bL=/^\/\//,bM=/\?/,bN=/<script\b[^<]*(?:(?!<\/script>)<[^<]*)*<\/script>/gi,bO=/^(?:select|textarea)/i,bP=/\s+/,bQ=/([?&])_=[^&]*/,bR=/^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/,bS=f.fn.load,bT={},bU={},bV,bW,bX=["*/"]+["*"];try{bV=e.href}catch(bY){bV=c.createElement("a"),bV.href="",bV=bV.href}bW=bR.exec(bV.toLowerCase())||[],f.fn.extend({load:function(a,c,d){if(typeof a!="string"&&bS)return bS.apply(this,arguments);if(!this.length)return this;var e=a.indexOf(" ");if(e>=0){var g=a.slice(e,a.length);a=a.slice(0,e)}var h="GET";c&&(f.isFunction(c)?(d=c,c=b):typeof c=="object"&&(c=f.param(c,f.ajaxSettings.traditional),h="POST"));var i=this;f.ajax({url:a,type:h,dataType:"html",data:c,complete:function(a,b,c){c=a.responseText,a.isResolved()&&(a.done(function(a){c=a}),i.html(g?f("<div>").append(c.replace(bN,"")).find(g):c)),d&&i.each(d,[c,b,a])}});return this},serialize:function(){return f.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?f.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||bO.test(this.nodeName)||bI.test(this.type))}).map(function(a,b){var c=f(this).val();return c==null?null:f.isArray(c)?f.map(c,function(a,c){return{name:b.name,value:a.replace(bF,"\r\n")}}):{name:b.name,value:c.replace(bF,"\r\n")}}).get()}}),f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),function(a,b){f.fn[b]=function(a){return this.on(b,a)}}),f.each(["get","post"],function(a,c){f[c]=function(a,d,e,g){f.isFunction(d)&&(g=g||e,e=d,d=b);return f.ajax({type:c,url:a,data:d,success:e,dataType:g})}}),f.extend({getScript:function(a,c){return f.get(a,b,c,"script")},getJSON:function(a,b,c){return f.get(a,b,c,"json")},ajaxSetup:function(a,b){b?b_(a,f.ajaxSettings):(b=a,a=f.ajaxSettings),b_(a,b);return a},ajaxSettings:{url:bV,isLocal:bJ.test(bW[1]),global:!0,type:"GET",contentType:"application/x-www-form-urlencoded",processData:!0,async:!0,accepts:{xml:"application/xml, text/xml",html:"text/html",text:"text/plain",json:"application/json, text/javascript","*":bX},contents:{xml:/xml/,html:/html/,json:/json/},responseFields:{xml:"responseXML",text:"responseText"},converters:{"* text":a.String,"text html":!0,"text json":f.parseJSON,"text xml":f.parseXML},flatOptions:{context:!0,url:!0}},ajaxPrefilter:bZ(bT),ajaxTransport:bZ(bU),ajax:function(a,c){function w(a,c,l,m){if(s!==2){s=2,q&&clearTimeout(q),p=b,n=m||"",v.readyState=a>0?4:0;var o,r,u,w=c,x=l?cb(d,v,l):b,y,z;if(a>=200&&a<300||a===304){if(d.ifModified){if(y=v.getResponseHeader("Last-Modified"))f.lastModified[k]=y;if(z=v.getResponseHeader("Etag"))f.etag[k]=z}if(a===304)w="notmodified",o=!0;else try{r=cc(d,x),w="success",o=!0}catch(A){w="parsererror",u=A}}else{u=w;if(!w||a)w="error",a<0&&(a=0)}v.status=a,v.statusText=""+(c||w),o?h.resolveWith(e,[r,w,v]):h.rejectWith(e,[v,w,u]),v.statusCode(j),j=b,t&&g.trigger("ajax"+(o?"Success":"Error"),[v,d,o?r:u]),i.fireWith(e,[v,w]),t&&(g.trigger("ajaxComplete",[v,d]),--f.active||f.event.trigger("ajaxStop"))}}typeof a=="object"&&(c=a,a=b),c=c||{};var d=f.ajaxSetup({},c),e=d.context||d,g=e!==d&&(e.nodeType||e instanceof f)?f(e):f.event,h=f.Deferred(),i=f.Callbacks("once memory"),j=d.statusCode||{},k,l={},m={},n,o,p,q,r,s=0,t,u,v={readyState:0,setRequestHeader:function(a,b){if(!s){var c=a.toLowerCase();a=m[c]=m[c]||a,l[a]=b}return this},getAllResponseHeaders:function(){return s===2?n:null},getResponseHeader:function(a){var c;if(s===2){if(!o){o={};while(c=bH.exec(n))o[c[1].toLowerCase()]=c[2]}c=o[a.toLowerCase()]}return c===b?null:c},overrideMimeType:function(a){s||(d.mimeType=a);return this},abort:function(a){a=a||"abort",p&&p.abort(a),w(0,a);return this}};h.promise(v),v.success=v.done,v.error=v.fail,v.complete=i.add,v.statusCode=function(a){if(a){var b;if(s<2)for(b in a)j[b]=[j[b],a[b]];else b=a[v.status],v.then(b,b)}return this},d.url=((a||d.url)+"").replace(bG,"").replace(bL,bW[1]+"//"),d.dataTypes=f.trim(d.dataType||"*").toLowerCase().split(bP),d.crossDomain==null&&(r=bR.exec(d.url.toLowerCase()),d.crossDomain=!(!r||r[1]==bW[1]&&r[2]==bW[2]&&(r[3]||(r[1]==="http:"?80:443))==(bW[3]||(bW[1]==="http:"?80:443)))),d.data&&d.processData&&typeof d.data!="string"&&(d.data=f.param(d.data,d.traditional)),b$(bT,d,c,v);if(s===2)return!1;t=d.global,d.type=d.type.toUpperCase(),d.hasContent=!bK.test(d.type),t&&f.active++===0&&f.event.trigger("ajaxStart");if(!d.hasContent){d.data&&(d.url+=(bM.test(d.url)?"&":"?")+d.data,delete d.data),k=d.url;if(d.cache===!1){var x=f.now(),y=d.url.replace(bQ,"$1_="+x);d.url=y+(y===d.url?(bM.test(d.url)?"&":"?")+"_="+x:"")}}(d.data&&d.hasContent&&d.contentType!==!1||c.contentType)&&v.setRequestHeader("Content-Type",d.contentType),d.ifModified&&(k=k||d.url,f.lastModified[k]&&v.setRequestHeader("If-Modified-Since",f.lastModified[k]),f.etag[k]&&v.setRequestHeader("If-None-Match",f.etag[k])),v.setRequestHeader("Accept",d.dataTypes[0]&&d.accepts[d.dataTypes[0]]?d.accepts[d.dataTypes[0]]+(d.dataTypes[0]!=="*"?", "+bX+"; q=0.01":""):d.accepts["*"]);for(u in d.headers)v.setRequestHeader(u,d.headers[u]);if(d.beforeSend&&(d.beforeSend.call(e,v,d)===!1||s===2)){v.abort();return!1}for(u in{success:1,error:1,complete:1})v[u](d[u]);p=b$(bU,d,c,v);if(!p)w(-1,"No Transport");else{v.readyState=1,t&&g.trigger("ajaxSend",[v,d]),d.async&&d.timeout>0&&(q=setTimeout(function(){v.abort("timeout")},d.timeout));try{s=1,p.send(l,w)}catch(z){if(s<2)w(-1,z);else throw z}}return v},param:function(a,c){var d=[],e=function(a,b){b=f.isFunction(b)?b():b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};c===b&&(c=f.ajaxSettings.traditional);if(f.isArray(a)||a.jquery&&!f.isPlainObject(a))f.each(a,function(){e(this.name,this.value)});else for(var g in a)ca(g,a[g],c,e);return d.join("&").replace(bD,"+")}}),f.extend({active:0,lastModified:{},etag:{}});var cd=f.now(),ce=/(\=)\?(&|$)|\?\?/i;f.ajaxSetup({jsonp:"callback",jsonpCallback:function(){return f.expando+"_"+cd++}}),f.ajaxPrefilter("json jsonp",function(b,c,d){var e=b.contentType==="application/x-www-form-urlencoded"&&typeof b.data=="string";if(b.dataTypes[0]==="jsonp"||b.jsonp!==!1&&(ce.test(b.url)||e&&ce.test(b.data))){var g,h=b.jsonpCallback=f.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,i=a[h],j=b.url,k=b.data,l="$1"+h+"$2";b.jsonp!==!1&&(j=j.replace(ce,l),b.url===j&&(e&&(k=k.replace(ce,l)),b.data===k&&(j+=(/\?/.test(j)?"&":"?")+b.jsonp+"="+h))),b.url=j,b.data=k,a[h]=function(a){g=[a]},d.always(function(){a[h]=i,g&&f.isFunction(i)&&a[h](g[0])}),b.converters["script json"]=function(){g||f.error(h+" was not called");return g[0]},b.dataTypes[0]="json";return"script"}}),f.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/javascript|ecmascript/},converters:{"text script":function(a){f.globalEval(a);return a}}}),f.ajaxPrefilter("script",function(a){a.cache===b&&(a.cache=!1),a.crossDomain&&(a.type="GET",a.global=!1)}),f.ajaxTransport("script",function(a){if(a.crossDomain){var d,e=c.head||c.getElementsByTagName("head")[0]||c.documentElement;return{send:function(f,g){d=c.createElement("script"),d.async="async",a.scriptCharset&&(d.charset=a.scriptCharset),d.src=a.url,d.onload=d.onreadystatechange=function(a,c){if(c||!d.readyState||/loaded|complete/.test(d.readyState))d.onload=d.onreadystatechange=null,e&&d.parentNode&&e.removeChild(d),d=b,c||g(200,"success")},e.insertBefore(d,e.firstChild)},abort:function(){d&&d.onload(0,1)}}}});var cf=a.ActiveXObject?function(){for(var a in ch)ch[a](0,1)}:!1,cg=0,ch;f.ajaxSettings.xhr=a.ActiveXObject?function(){return!this.isLocal&&ci()||cj()}:ci,function(a){f.extend(f.support,{ajax:!!a,cors:!!a&&"withCredentials"in a})}(f.ajaxSettings.xhr()),f.support.ajax&&f.ajaxTransport(function(c){if(!c.crossDomain||f.support.cors){var d;return{send:function(e,g){var h=c.xhr(),i,j;c.username?h.open(c.type,c.url,c.async,c.username,c.password):h.open(c.type,c.url,c.async);if(c.xhrFields)for(j in c.xhrFields)h[j]=c.xhrFields[j];c.mimeType&&h.overrideMimeType&&h.overrideMimeType(c.mimeType),!c.crossDomain&&!e["X-Requested-With"]&&(e["X-Requested-With"]="XMLHttpRequest");try{for(j in e)h.setRequestHeader(j,e[j])}catch(k){}h.send(c.hasContent&&c.data||null),d=function(a,e){var j,k,l,m,n;try{if(d&&(e||h.readyState===4)){d=b,i&&(h.onreadystatechange=f.noop,cf&&delete ch[i]);if(e)h.readyState!==4&&h.abort();else{j=h.status,l=h.getAllResponseHeaders(),m={},n=h.responseXML,n&&n.documentElement&&(m.xml=n),m.text=h.responseText;try{k=h.statusText}catch(o){k=""}!j&&c.isLocal&&!c.crossDomain?j=m.text?200:404:j===1223&&(j=204)}}}catch(p){e||g(-1,p)}m&&g(j,k,m,l)},!c.async||h.readyState===4?d():(i=++cg,cf&&(ch||(ch={},f(a).unload(cf)),ch[i]=d),h.onreadystatechange=d)},abort:function(){d&&d(0,1)}}}});var ck={},cl,cm,cn=/^(?:toggle|show|hide)$/,co=/^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i,cp,cq=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]],cr;f.fn.extend({show:function(a,b,c){var d,e;if(a||a===0)return this.animate(cu("show",3),a,b,c);for(var g=0,h=this.length;g<h;g++)d=this[g],d.style&&(e=d.style.display,!f._data(d,"olddisplay")&&e==="none"&&(e=d.style.display=""),e===""&&f.css(d,"display")==="none"&&f._data(d,"olddisplay",cv(d.nodeName)));for(g=0;g<h;g++){d=this[g];if(d.style){e=d.style.display;if(e===""||e==="none")d.style.display=f._data(d,"olddisplay")||""}}return this},hide:function(a,b,c){if(a||a===0)return this.animate(cu("hide",3),a,b,c);var d,e,g=0,h=this.length;for(;g<h;g++)d=this[g],d.style&&(e=f.css(d,"display"),e!=="none"&&!f._data(d,"olddisplay")&&f._data(d,"olddisplay",e));for(g=0;g<h;g++)this[g].style&&(this[g].style.display="none");return this},_toggle:f.fn.toggle,toggle:function(a,b,c){var d=typeof a=="boolean";f.isFunction(a)&&f.isFunction(b)?this._toggle.apply(this,arguments):a==null||d?this.each(function(){var b=d?a:f(this).is(":hidden");f(this)[b?"show":"hide"]()}):this.animate(cu("toggle",3),a,b,c);return this},fadeTo:function(a,b,c,d){return this.filter(":hidden").css("opacity",0).show().end().animate({opacity:b},a,c,d)},animate:function(a,b,c,d){function g(){e.queue===!1&&f._mark(this);var b=f.extend({},e),c=this.nodeType===1,d=c&&f(this).is(":hidden"),g,h,i,j,k,l,m,n,o;b.animatedProperties={};for(i in a){g=f.camelCase(i),i!==g&&(a[g]=a[i],delete a[i]),h=a[g],f.isArray(h)?(b.animatedProperties[g]=h[1],h=a[g]=h[0]):b.animatedProperties[g]=b.specialEasing&&b.specialEasing[g]||b.easing||"swing";if(h==="hide"&&d||h==="show"&&!d)return b.complete.call(this);c&&(g==="height"||g==="width")&&(b.overflow=[this.style.overflow,this.style.overflowX,this.style.overflowY],f.css(this,"display")==="inline"&&f.css(this,"float")==="none"&&(!f.support.inlineBlockNeedsLayout||cv(this.nodeName)==="inline"?this.style.display="inline-block":this.style.zoom=1))}b.overflow!=null&&(this.style.overflow="hidden");for(i in a)j=new f.fx(this,b,i),h=a[i],cn.test(h)?(o=f._data(this,"toggle"+i)||(h==="toggle"?d?"show":"hide":0),o?(f._data(this,"toggle"+i,o==="show"?"hide":"show"),j[o]()):j[h]()):(k=co.exec(h),l=j.cur(),k?(m=parseFloat(k[2]),n=k[3]||(f.cssNumber[i]?"":"px"),n!=="px"&&(f.style(this,i,(m||1)+n),l=(m||1)/j.cur()*l,f.style(this,i,l+n)),k[1]&&(m=(k[1]==="-="?-1:1)*m+l),j.custom(l,m,n)):j.custom(l,h,""));return!0}var e=f.speed(b,c,d);if(f.isEmptyObject(a))return this.each(e.complete,[!1]);a=f.extend({},a);return e.queue===!1?this.each(g):this.queue(e.queue,g)},stop:function(a,c,d){typeof a!="string"&&(d=c,c=a,a=b),c&&a!==!1&&this.queue(a||"fx",[]);return this.each(function(){function h(a,b,c){var e=b[c];f.removeData(a,c,!0),e.stop(d)}var b,c=!1,e=f.timers,g=f._data(this);d||f._unmark(!0,this);if(a==null)for(b in g)g[b]&&g[b].stop&&b.indexOf(".run")===b.length-4&&h(this,g,b);else g[b=a+".run"]&&g[b].stop&&h(this,g,b);for(b=e.length;b--;)e[b].elem===this&&(a==null||e[b].queue===a)&&(d?e[b](!0):e[b].saveState(),c=!0,e.splice(b,1));(!d||!c)&&f.dequeue(this,a)})}}),f.each({slideDown:cu("show",1),slideUp:cu("hide",1),slideToggle:cu("toggle",1),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(a,b){f.fn[a]=function(a,c,d){return this.animate(b,a,c,d)}}),f.extend({speed:function(a,b,c){var d=a&&typeof a=="object"?f.extend({},a):{complete:c||!c&&b||f.isFunction(a)&&a,duration:a,easing:c&&b||b&&!f.isFunction(b)&&b};d.duration=f.fx.off?0:typeof d.duration=="number"?d.duration:d.duration in f.fx.speeds?f.fx.speeds[d.duration]:f.fx.speeds._default;if(d.queue==null||d.queue===!0)d.queue="fx";d.old=d.complete,d.complete=function(a){f.isFunction(d.old)&&d.old.call(this),d.queue?f.dequeue(this,d.queue):a!==!1&&f._unmark(this)};return d},easing:{linear:function(a,b,c,d){return c+d*a},swing:function(a,b,c,d){return(-Math.cos(a*Math.PI)/2+.5)*d+c}},timers:[],fx:function(a,b,c){this.options=b,this.elem=a,this.prop=c,b.orig=b.orig||{}}}),f.fx.prototype={update:function(){this.options.step&&this.options.step.call(this.elem,this.now,this),(f.fx.step[this.prop]||f.fx.step._default)(this)},cur:function(){if(this.elem[this.prop]!=null&&(!this.elem.style||this.elem.style[this.prop]==null))return this.elem[this.prop];var a,b=f.css(this.elem,this.prop);return isNaN(a=parseFloat(b))?!b||b==="auto"?0:b:a},custom:function(a,c,d){function h(a){return e.step(a)}var e=this,g=f.fx;this.startTime=cr||cs(),this.end=c,this.now=this.start=a,this.pos=this.state=0,this.unit=d||this.unit||(f.cssNumber[this.prop]?"":"px"),h.queue=this.options.queue,h.elem=this.elem,h.saveState=function(){e.options.hide&&f._data(e.elem,"fxshow"+e.prop)===b&&f._data(e.elem,"fxshow"+e.prop,e.start)},h()&&f.timers.push(h)&&!cp&&(cp=setInterval(g.tick,g.interval))},show:function(){var a=f._data(this.elem,"fxshow"+this.prop);this.options.orig[this.prop]=a||f.style(this.elem,this.prop),this.options.show=!0,a!==b?this.custom(this.cur(),a):this.custom(this.prop==="width"||this.prop==="height"?1:0,this.cur()),f(this.elem).show()},hide:function(){this.options.orig[this.prop]=f._data(this.elem,"fxshow"+this.prop)||f.style(this.elem,this.prop),this.options.hide=!0,this.custom(this.cur(),0)},step:function(a){var b,c,d,e=cr||cs(),g=!0,h=this.elem,i=this.options;if(a||e>=i.duration+this.startTime){this.now=this.end,this.pos=this.state=1,this.update(),i.animatedProperties[this.prop]=!0;for(b in i.animatedProperties)i.animatedProperties[b]!==!0&&(g=!1);if(g){i.overflow!=null&&!f.support.shrinkWrapBlocks&&f.each(["","X","Y"],function(a,b){h.style["overflow"+b]=i.overflow[a]}),i.hide&&f(h).hide();if(i.hide||i.show)for(b in i.animatedProperties)f.style(h,b,i.orig[b]),f.removeData(h,"fxshow"+b,!0),f.removeData(h,"toggle"+b,!0);d=i.complete,d&&(i.complete=!1,d.call(h))}return!1}i.duration==Infinity?this.now=e:(c=e-this.startTime,this.state=c/i.duration,this.pos=f.easing[i.animatedProperties[this.prop]](this.state,c,0,1,i.duration),this.now=this.start+(this.end-this.start)*this.pos),this.update();return!0}},f.extend(f.fx,{tick:function(){var a,b=f.timers,c=0;for(;c<b.length;c++)a=b[c],!a()&&b[c]===a&&b.splice(c--,1);b.length||f.fx.stop()},interval:13,stop:function(){clearInterval(cp),cp=null},speeds:{slow:600,fast:200,_default:400},step:{opacity:function(a){f.style(a.elem,"opacity",a.now)},_default:function(a){a.elem.style&&a.elem.style[a.prop]!=null?a.elem.style[a.prop]=a.now+a.unit:a.elem[a.prop]=a.now}}}),f.each(["width","height"],function(a,b){f.fx.step[b]=function(a){f.style(a.elem,b,Math.max(0,a.now)+a.unit)}}),f.expr&&f.expr.filters&&(f.expr.filters.animated=function(a){return f.grep(f.timers,function(b){return a===b.elem}).length});var cw=/^t(?:able|d|h)$/i,cx=/^(?:body|html)$/i;"getBoundingClientRect"in c.documentElement?f.fn.offset=function(a){var b=this[0],c;if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);try{c=b.getBoundingClientRect()}catch(d){}var e=b.ownerDocument,g=e.documentElement;if(!c||!f.contains(g,b))return c?{top:c.top,left:c.left}:{top:0,left:0};var h=e.body,i=cy(e),j=g.clientTop||h.clientTop||0,k=g.clientLeft||h.clientLeft||0,l=i.pageYOffset||f.support.boxModel&&g.scrollTop||h.scrollTop,m=i.pageXOffset||f.support.boxModel&&g.scrollLeft||h.scrollLeft,n=c.top+l-j,o=c.left+m-k;return{top:n,left:o}}:f.fn.offset=function(a){var b=this[0];if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);var c,d=b.offsetParent,e=b,g=b.ownerDocument,h=g.documentElement,i=g.body,j=g.defaultView,k=j?j.getComputedStyle(b,null):b.currentStyle,l=b.offsetTop,m=b.offsetLeft;while((b=b.parentNode)&&b!==i&&b!==h){if(f.support.fixedPosition&&k.position==="fixed")break;c=j?j.getComputedStyle(b,null):b.currentStyle,l-=b.scrollTop,m-=b.scrollLeft,b===d&&(l+=b.offsetTop,m+=b.offsetLeft,f.support.doesNotAddBorder&&(!f.support.doesAddBorderForTableAndCells||!cw.test(b.nodeName))&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),e=d,d=b.offsetParent),f.support.subtractsBorderForOverflowNotVisible&&c.overflow!=="visible"&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),k=c}if(k.position==="relative"||k.position==="static")l+=i.offsetTop,m+=i.offsetLeft;f.support.fixedPosition&&k.position==="fixed"&&(l+=Math.max(h.scrollTop,i.scrollTop),m+=Math.max(h.scrollLeft,i.scrollLeft));return{top:l,left:m}},f.offset={bodyOffset:function(a){var b=a.offsetTop,c=a.offsetLeft;f.support.doesNotIncludeMarginInBodyOffset&&(b+=parseFloat(f.css(a,"marginTop"))||0,c+=parseFloat(f.css(a,"marginLeft"))||0);return{top:b,left:c}},setOffset:function(a,b,c){var d=f.css(a,"position");d==="static"&&(a.style.position="relative");var e=f(a),g=e.offset(),h=f.css(a,"top"),i=f.css(a,"left"),j=(d==="absolute"||d==="fixed")&&f.inArray("auto",[h,i])>-1,k={},l={},m,n;j?(l=e.position(),m=l.top,n=l.left):(m=parseFloat(h)||0,n=parseFloat(i)||0),f.isFunction(b)&&(b=b.call(a,c,g)),b.top!=null&&(k.top=b.top-g.top+m),b.left!=null&&(k.left=b.left-g.left+n),"using"in b?b.using.call(a,k):e.css(k)}},f.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),c=this.offset(),d=cx.test(b[0].nodeName)?{top:0,left:0}:b.offset();c.top-=parseFloat(f.css(a,"marginTop"))||0,c.left-=parseFloat(f.css(a,"marginLeft"))||0,d.top+=parseFloat(f.css(b[0],"borderTopWidth"))||0,d.left+=parseFloat(f.css(b[0],"borderLeftWidth"))||0;return{top:c.top-d.top,left:c.left-d.left}},offsetParent:function(){return this.map(function(){var a=this.offsetParent||c.body;while(a&&!cx.test(a.nodeName)&&f.css(a,"position")==="static")a=a.offsetParent;return a})}}),f.each(["Left","Top"],function(a,c){var d="scroll"+c;f.fn[d]=function(c){var e,g;if(c===b){e=this[0];if(!e)return null;g=cy(e);return g?"pageXOffset"in g?g[a?"pageYOffset":"pageXOffset"]:f.support.boxModel&&g.document.documentElement[d]||g.document.body[d]:e[d]}return this.each(function(){g=cy(this),g?g.scrollTo(a?f(g).scrollLeft():c,a?c:f(g).scrollTop()):this[d]=c})}}),f.each(["Height","Width"],function(a,c){var d=c.toLowerCase();f.fn["inner"+c]=function(){var a=this[0];return a?a.style?parseFloat(f.css(a,d,"padding")):this[d]():null},f.fn["outer"+c]=function(a){var b=this[0];return b?b.style?parseFloat(f.css(b,d,a?"margin":"border")):this[d]():null},f.fn[d]=function(a){var e=this[0];if(!e)return a==null?null:this;if(f.isFunction(a))return this.each(function(b){var c=f(this);c[d](a.call(this,b,c[d]()))});if(f.isWindow(e)){var g=e.document.documentElement["client"+c],h=e.document.body;return e.document.compatMode==="CSS1Compat"&&g||h&&h["client"+c]||g}if(e.nodeType===9)return Math.max(e.documentElement["client"+c],e.body["scroll"+c],e.documentElement["scroll"+c],e.body["offset"+c],e.documentElement["offset"+c]);if(a===b){var i=f.css(e,d),j=parseFloat(i);return f.isNumeric(j)?j:i}return this.css(d,typeof a=="string"?a:a+"px")}}),a.jQuery=a.$=f,typeof define=="function"&&define.amd&&define.amd.jQuery&&define("jquery",[],function(){return f})})(window);
diff --git a/js/log.js b/js/log.js
new file mode 100644
--- /dev/null
+++ b/js/log.js
@@ -0,0 +1,12 @@
+/* *********************************************************************
+  Logging utilities
+********************************************************************* */
+Haskell.log = function () {
+  if ($.cookie('Haskell.log.enabled') === "true") {
+    window.console.log.apply(window.console, arguments);
+  }
+};
+
+Haskell.log.enable = function (bool) {
+  $.cookie('Haskell.log.enabled', bool.toString());
+};
diff --git a/samples/BarTab.hs b/samples/BarTab.hs
--- a/samples/BarTab.hs
+++ b/samples/BarTab.hs
@@ -27,7 +27,7 @@
     -- functionality
     let
         displayTotal = void $ do
-            xs <- getValuesList =<< liftIO (readIORef inputs)
+            xs <- mapM (get value) =<< liftIO (readIORef inputs)
             element elResult # set text (showNumber . sum $ map readNumber xs)
         
         redoLayout :: UI ()
diff --git a/samples/Buttons.hs b/samples/Buttons.hs
--- a/samples/Buttons.hs
+++ b/samples/Buttons.hs
@@ -13,7 +13,7 @@
 main :: IO ()
 main = do
     static <- getStaticDir
-    startGUI defaultConfig { tpStatic = Just static } setup
+    startGUI defaultConfig { jsStatic = Just static } setup
 
 setup :: Window -> UI ()
 setup w = void $ do
diff --git a/samples/Canvas.hs b/samples/Canvas.hs
new file mode 100644
--- /dev/null
+++ b/samples/Canvas.hs
@@ -0,0 +1,104 @@
+import Control.Monad
+
+import Paths
+
+import qualified Graphics.UI.Threepenny as UI
+import Graphics.UI.Threepenny.Core
+
+
+{-----------------------------------------------------------------------------
+    Main
+------------------------------------------------------------------------------}
+main :: IO ()
+main = do
+    static <- getStaticDir
+    startGUI defaultConfig { jsStatic = Just static } setup
+
+canvasSize = 400
+
+setup :: Window -> UI ()
+setup window = do
+    return window # set title "Canvas - Examples"
+
+    canvas <- UI.canvas
+        # set UI.height canvasSize
+        # set UI.width  canvasSize
+        # set style [("border", "solid black 1px"), ("background", "#eee")]
+
+    drawRects <- UI.button #+ [string "Add some rectangles."]
+    drawText  <- UI.button #+ [string "Add text."]
+    drawImage <- UI.button #+ [string "Add image."]
+    drawPie   <- UI.button #+ [string "Must have pie!"]
+    clear     <- UI.button #+ [string "Clear the canvas."]
+
+    getBody window #+
+        [ column [element canvas]
+        , element drawRects, element drawText, element drawImage
+        , element drawPie  , element clear
+        ]
+
+    on UI.click clear $ const $
+        canvas # UI.clearCanvas
+
+    -- draw a pie chart
+    on UI.click drawPie $ const $ do
+        let
+            center = (fromIntegral canvasSize / 2, fromIntegral (canvasSize+30) / 2)
+            radius = 100
+
+            drawSlice start end color = do
+                canvas # set' UI.fillStyle (UI.htmlColor color)
+                canvas # set' UI.strokeStyle "white"
+                canvas # UI.beginPath
+                canvas # UI.arc center radius start end
+                canvas # UI.lineTo center
+                canvas # UI.closePath
+                canvas # UI.fill
+                canvas # UI.stroke
+
+            radian angle = angle * pi / 180
+
+            normalizeAngles xs = map (\(x,y) -> (360 * x/total,y)) xs
+                where total = sum $ map fst xs
+
+            pieData = normalizeAngles
+                [ (100, "#1f77b4")
+                , (45, "#ff7f0e")
+                , (80, "#2ca02c")
+                , (10, "#d62728")
+                , (105,"#9467bd")
+                , (20, "#8c564b")
+                ]
+
+        foldM (\start (delta, col) -> do
+            let end = start+delta
+            drawSlice (radian start) (radian end) col
+            return end) 0 pieData
+
+    -- draw some rectangles
+    on UI.click drawRects $ const $ do
+        let rects = [ (20 , 130, 15, 120, "teal")
+                    , (345, 110, 15, 90, "lightblue")
+                    , (220, 360, 95, 15, "teal")
+                    ]
+
+        forM_ rects $ \(x,y,w,h,color) -> do
+            canvas # set' UI.fillStyle (UI.htmlColor color)
+            canvas # UI.fillRect (x,y) w h
+
+    -- draw some text
+    on UI.click drawText $ const $ do
+        return canvas
+            # set UI.textFont    "30px sans-serif"
+            # set UI.strokeStyle "gray"
+            # set UI.fillStyle   (UI.htmlColor "black")
+
+        canvas # UI.strokeText "is awesome" (141,61)
+        canvas # UI.fillText   "is awesome" (140,60)
+
+    -- draw the haskell logo
+    img <- UI.img # set UI.src "static/haskell-logo.png"
+
+    on UI.click drawImage $ const $ do
+        canvas # UI.drawImage img (60,20)
+
diff --git a/samples/Chat.hs b/samples/Chat.hs
--- a/samples/Chat.hs
+++ b/samples/Chat.hs
@@ -22,8 +22,8 @@
     static   <- getStaticDir
     messages <- Chan.newChan
     startGUI defaultConfig
-        { tpCustomHTML = Just "chat.html"
-        , tpStatic     = Just static
+        { jsCustomHTML = Just "chat.html"
+        , jsStatic     = Just static
         } $ setup messages
 
 type Message = (UTCTime, String, String)
@@ -57,8 +57,7 @@
 receiveMessages w msgs messageArea = do
     messages <- Chan.getChanContents msgs
     forM_ messages $ \msg -> do
-        atomic w $ runUI w $ do
-          -- FIXME: withWindow  should include a call to  atomic ?
+        runUI w $ do
           element messageArea #+ [mkMessage msg]
           UI.scrollToBottom messageArea
 
diff --git a/samples/DragNDropExample.hs b/samples/DragNDropExample.hs
--- a/samples/DragNDropExample.hs
+++ b/samples/DragNDropExample.hs
@@ -14,7 +14,7 @@
 main :: IO ()
 main = do
     static <- getStaticDir
-    startGUI defaultConfig { tpStatic = Just static } setup
+    startGUI defaultConfig { jsStatic = Just static } setup
 
 setup :: Window -> UI ()
 setup w = void $ do
diff --git a/samples/DrumMachine.hs b/samples/DrumMachine.hs
--- a/samples/DrumMachine.hs
+++ b/samples/DrumMachine.hs
@@ -22,15 +22,15 @@
 
 instruments = words "kick snare hihat"
 
-loadInstrumentSample name = do
-    static <- liftIO $ getStaticDir
-    loadFile "audio/wav" (static </> name <.> "wav")
+loadInstrumentSample name = return $ "static/" ++ name ++ ".wav"
 
 {-----------------------------------------------------------------------------
     Main
 ------------------------------------------------------------------------------}
 main :: IO ()
-main = startGUI defaultConfig setup
+main = do
+    static <- getStaticDir
+    startGUI defaultConfig { jsStatic = Just static } setup
 
 setup :: Window -> UI ()
 setup w = void $ do
@@ -81,8 +81,9 @@
     let play box = do
             checked <- get UI.checked box
             when checked $ do
-                audioStop elAudio -- just in case the sound is already playing
-                audioPlay elAudio
+                runFunction $ ffi "%1.pause()" elAudio
+                runFunction $ ffi "%1.currentTime = 0" elAudio 
+                runFunction $ ffi "%1.play()" elAudio
         beats    = map play . concat $ elCheckboxes
         elGroups = [UI.span #. "bar" #+ map element bar | bar <- elCheckboxes]
     
diff --git a/samples/MissingDollars.hs b/samples/MissingDollars.hs
deleted file mode 100644
--- a/samples/MissingDollars.hs
+++ /dev/null
@@ -1,131 +0,0 @@
-import Control.Monad
-import Safe
-
-import Paths
-
-import qualified Graphics.UI.Threepenny as UI
-import Graphics.UI.Threepenny.Core
-
-{-----------------------------------------------------------------------------
-    Missing Dollars
-------------------------------------------------------------------------------}
-main :: IO ()
-main = do
-    static <- getStaticDir
-    startGUI defaultConfig { tpStatic = Just static } setup
-
-
-setup :: Window -> UI ()
-setup w = void $ do
-    return w # set title "Missing Dollars"
-    UI.addStyleSheet w "missing-dollars.css"
-    
-    (headerView,headerMe) <- mkHeader
-    riddle                <- mkMissingDollarRiddle headerMe
-    let layout = [element headerView] ++ riddle ++ attributionSource        
-    getBody w #+ [UI.div #. "wrap" #+ layout]
-
-
-mkHeader :: UI (Element, Element)
-mkHeader = do
-    headerMe <- string "..."
-    view     <- UI.h1   #+ [string "The ", element headerMe, string " Dollars"]
-    return (view, headerMe)
-
-attributionSource :: [UI Element]
-attributionSource =
-    [ UI.p #+
-        [ UI.anchor #. "view-source" # set UI.href urlSource
-            #+ [string "View source code"]
-        ]
-    , UI.p #+
-        [ string "Originally by "
-        , UI.anchor # set UI.href urlAttribution #+ [string "Albert Lai"]
-        ]
-    ]
-  where
-    urlSource      = samplesURL ++ "MissingDollars.hs"
-    urlAttribution = "http://www.vex.net/~trebla/humour/missing_dollar.html"
-
-
-mkMissingDollarRiddle :: Element -> UI [UI Element]
-mkMissingDollarRiddle headerMe = do
-    -- declare input and display values
-    (hotelOut : hotelCost : hotelHold : _)
-        <- sequence . replicate 3 $
-            UI.input # set (attr "size") "3" # set (attr "type") "text"
-
-    (hotelChange : hotelRet     : hotelBal : hotelPocket :
-     hotelBal2   : hotelPocket2 : hotelSum : hotelMe     : _)
-        <- sequence . replicate 8 $ UI.span
-    
-    -- update procedure
-    let updateDisplay out cost hold = do
-        let change = out - cost
-            ret    = change - hold
-            bal    = out - ret
-            sum    = bal + hold
-            diff   = sum - out
-        element hotelOut     # set value (show out)
-        element hotelCost    # set value (show cost)
-        element hotelHold    # set value (show hold)
-        element hotelChange  # set text  (show change)
-        element hotelRet     # set text  (show ret)
-        element hotelBal     # set text  (show bal)
-        element hotelPocket  # set text  (show hold)
-        element hotelBal2    # set text  (show bal)
-        element hotelPocket2 # set text  (show hold)
-        element hotelSum     # set text  (show sum)
-        
-        if diff >= 0
-           then do element hotelMe  # set text ("extra $" ++ show diff ++ " come from")
-                   element headerMe # set text "Extra"
-           else do element hotelMe  # set text ("missing $" ++ show (-diff) ++ " go")
-                   element headerMe # set text "Missing"
-        return ()
-    
-    -- initialize values
-    updateDisplay 30 25 2
-    
-    -- calculate button
-    calculate <- UI.button #+ [string "Calculate"]
-    on UI.click calculate $ \_ -> do
-        result <- mapM readMay `liftM` getValuesList [hotelOut,hotelCost,hotelHold]
-        case result of
-            Just [getout,getcost,gethold] -> updateDisplay getout getcost gethold
-            _ -> return ()
-    
-    return $
-        [ UI.h2 #+ [string "The Guests, The Bellhop, And The Pizza"]
-        , UI.p  #+
-            [ string "Three guests went to a hotel and gave $"
-            , element hotelOut
-            , string " to the bellhop to buy pizza. The pizza cost only $"
-            , element hotelCost
-            , string ". Of the $"
-            , element hotelChange
-            , string " change, the bellhop kept $"
-            , element hotelHold
-            , string " to himself and returned $"
-            , element hotelRet
-            , string " to the guests."
-            ]
-        , UI.p  #+
-            [ string "So the guests spent $"
-            , element hotelBal
-            , string ", and the bellhop pocketed $"
-            , element hotelPocket
-            , string ". Now "
-            , string "$"
-            , element hotelBal2
-            , string "+$"
-            , element hotelPocket2
-            , string "=$"
-            , element hotelSum
-            , string ". Where did the "
-            , element hotelMe
-            , string "?"
-            ]
-        , element calculate
-        ]    
-
diff --git a/samples/Paths.hs b/samples/Paths.hs
--- a/samples/Paths.hs
+++ b/samples/Paths.hs
@@ -9,18 +9,18 @@
 import qualified Paths_threepenny_gui (getDataDir)
 
 getStaticDir :: IO FilePath
-getStaticDir = (</> "wwwroot") `liftM` Paths_threepenny_gui.getDataDir
+getStaticDir = (</> "samples/static") `liftM` Paths_threepenny_gui.getDataDir
 
 #elif defined(FPCOMPLETE)
 
 getStaticDir :: IO FilePath
-getStaticDir = return "wwwroot"
+getStaticDir = return "samples/static"
 
 #else
 -- using GHCi
 
 getStaticDir :: IO FilePath
-getStaticDir = return "../wwwroot/"
+getStaticDir = return "static"
 
 #endif
 
diff --git a/samples/README.md b/samples/README.md
--- a/samples/README.md
+++ b/samples/README.md
@@ -1,28 +1,29 @@
 ## Examples
 
-This folder contains the code examples for the Threepenny-GUI library.
+This folder contains the code examples for the Threepenny GUI library.
 
-Run run the examples, use the provided `runhaskell` and `ghci` scripts:
+To run the examples, you can (but don't have to) use the provided `runhaskell` and `ghci` scripts:
 
     cd samples
     ./runhaskell Chat.hs
 
-The scripts take care of setting up the necessary paths. However, they assume that you have set up a *[cabal sandbox][] in the project root folder*.
+(The scripts check whether there is a [cabal sandbox][] in the parent directory and uses this instead of the global package database; this is very useful for me as a library author)
 
+After you have started an example in this way, open your web browser and point it to the address [http://localhost:8023](http://localhost:8023). Enjoy!
+
   [cabal sandbox]: http://coldwa.st/e/blog/2013-08-20-Cabal-sandbox.html
 
 Here a description of the currently maintained examples. The others are probably experimental or bitrotted.
 
 * [BarTab.hs](BarTab.hs) — Dynamic creation of widgets.
 * [Buttons.hs](Buttons.hs) — Simple buttons to click on.
+* [Canvas.hs](Canvas.hs) — Graphics using the HTML 5 canvas element.
 * [Chat.hs](Chat.hs) — Multi-user chat.
 * [CRUD.hs](CRUD.hs) — A CRUD example showcasing functional reactice programming (FRP).
 * [CurrencyConverter.hs](CurrencyConverter.hs) — Simple demonstration of two reactive input elements.
 * [DragNDropExample.hs](DragNDropExample.hs) — Simple drag'N'drop demo.
 * [DrumMachine.hs](DrumMachine.hs) — Specify rhythm by activating and deactivating checkboxes.
 * [FadeInFadeOut.hs](FadeInFadeOut.hs) — Calling Haskell functions from the browser.
-* [MissingDollars.hs](MissingDollars.hs) — Text with configurable values.
+* [GetElementsBy.hs](GetElementsBy.hs) — Get elements by tag name or ID.
 * [Mouse.hs](Mouse.hs) — Test of the `mousemove` event.
-* [Pie.hs](Pie.hs) — Draws a pie chart using the HTML 5 canvas element.
 * [Svg.hs](Svg.hs) — Test of the SVG elements.
-* [UseWords.hs](UseWords.hs)  — Text with configurable words. (Apologies for the male-centric story.)
diff --git a/samples/UseWords.hs b/samples/UseWords.hs
deleted file mode 100644
--- a/samples/UseWords.hs
+++ /dev/null
@@ -1,98 +0,0 @@
-{-# LANGUAGE ViewPatterns #-}
-
-import Control.Applicative hiding ((<|>),many)
-import Control.Monad
-import Control.Arrow (second)
-import Data.Maybe
-import Text.Parsec
-import System.FilePath ((</>))
-
-import qualified Graphics.UI.Threepenny as UI
-import Graphics.UI.Threepenny.Core hiding (string, (<|>), many)
-import Paths
-
-{-----------------------------------------------------------------------------
-    GUI
-------------------------------------------------------------------------------}
-main :: IO ()
-main = do
-    static <- getStaticDir
-    startGUI defaultConfig { tpStatic = Just static } setup
-
-
-setup :: Window -> UI ()
-setup w = do
-    filename <- liftIO $ fmap (</> "and-then-haskell.txt") getStaticDir 
-    andthen  <- liftIO $ readFile filename
-    case parts filename andthen of
-        Left parseerror -> debug $ show parseerror
-        Right parts     -> void $ do
-            UI.addStyleSheet w "use-words.css"
-
-            let (header, Prelude.drop 2 -> rest) = splitAt 3 parts            
-            
-            (views1, vars1) <- renderParts header
-            (views2, vars2) <- renderParts rest
-            varChoices      <- mapM (renderVarChoice (vars1 ++ vars2)) vars
-        
-            getBody w #+
-                [ viewSource
-                , UI.div #. "wrap" #+ (
-                    [ UI.div #. "header" #+ map element views1
-                    , UI.ul  #. "vars"   #+ map element varChoices
-                    ]
-                    ++ map element views2 )
-                ]
-            
-type VariableViews = [(Name, Element)]
-
-renderVarChoice :: VariableViews -> Variable -> UI Element
-renderVarChoice views (label,(name,def)) = do
-    input <- UI.input #. "var-value" # set value def
-    
-    on (domEvent "livechange") input $ \(EventData xs) -> do
-        let s = concat $ catMaybes xs
-        forM_ (filter ((==name).fst) views) $ \(_,el) -> do
-            element el # set text s
-    
-    UI.li #+ [UI.string (label ++ ":"), element input]
-
-renderParts :: [Part] -> UI ([Element], VariableViews)
-renderParts parts = do
-    views <- mapM renderPart parts
-    let variables = [(var, view) | (Ref var, view) <- zip parts views]
-    return (views, variables)
-
-renderPart :: Part -> UI Element
-renderPart (Text str) = UI.div #. "text" #+ [UI.string str]
-renderPart (Ref  var) = UI.div #. "var"
-    # maybe (set text $ "{" ++ var ++ "}") (either (set html) (set text))
-            (lookup var templatevars)
-
-viewSource :: UI Element
-viewSource = UI.p #+
-    [UI.anchor #. "view-source" # set UI.href url #+ [UI.string "View source code"]]
-    where
-    url = samplesURL ++ "UseWords.hs"
-
-{-----------------------------------------------------------------------------
-    Parsing
-------------------------------------------------------------------------------}
-type Name     = String
-type Variable = (String, (Name, String))
-
-templatevars = map (second Right . snd) vars ++ map (second Left) exts
-
-vars :: [Variable]
-vars = [("Favourite technology",("favourite-language","Haskell"))
-       ,("Technology used at work",("work-language","Python"))
-       ,("Cool forum",("bar","LtU"))
-       ,("Particular to technology",("particular-stuff","monads"))]
-exts = [("br","<br><br>")]
-
-data Part = Text String | Ref String deriving Show
-
-parts :: SourceName -> String -> Either ParseError [Part]
-parts = parse (many (ref <|> text)) where
-    text = Text <$> many1 (notFollowedBy (string "{") *> anyChar)
-    ref  = Ref  <$> (string "{" *> many1 (noneOf "}") <* (string "}"))
diff --git a/samples/static/chat.html b/samples/static/chat.html
new file mode 100644
--- /dev/null
+++ b/samples/static/chat.html
@@ -0,0 +1,16 @@
+<!doctype html>
+<head>
+  <title>Chat</title>
+  <link rel="stylesheet" type="text/css" href="static/css/chat.css"/>
+  <link href='http://fonts.googleapis.com/css?family=Fredericka+the+Great'
+  rel='stylesheet' type='text/css'>
+  <link href='http://fonts.googleapis.com/css?family=Annie+Use+Your+Telescope' rel='stylesheet' type='text/css'>
+  <script src="haskell.js"></script>
+  <script type="text/javascript" charset="utf-8">
+    Haskell.initFFI();
+  </script>
+</head>
+<body>
+  <noscript>Please enable JavaScript.</noscript>
+</body>
+</html>
diff --git a/samples/static/css/DragNDropExample.css b/samples/static/css/DragNDropExample.css
new file mode 100644
--- /dev/null
+++ b/samples/static/css/DragNDropExample.css
@@ -0,0 +1,18 @@
+.box-drag {
+    position: absolute;
+    top   : 20px;
+    border: 1px solid gray;
+    width : 90px;
+    height: 2ex;
+    text-align: center;
+    padding: 1ex;
+}
+
+.box-drop {
+    position: absolute;
+    top   : 100px;
+    width : 100px;
+    height: 2.2ex;
+    text-align: center;
+    padding: 1ex;
+}
diff --git a/samples/static/css/buttons.css b/samples/static/css/buttons.css
new file mode 100644
--- /dev/null
+++ b/samples/static/css/buttons.css
@@ -0,0 +1,52 @@
+body {
+  background: #333;
+  color: #ccc;
+  font-family: ubuntu, sans-serif;
+  font-size: 14px;
+  background: url(stripes-bg.png);
+  padding-top: 1em;
+  text-shadow: #000 3px 1px 3px;
+}
+.wrap {
+  width: 40em;
+  margin: auto;
+}
+.buttons-list {
+  color: #aaa;
+}
+.button {
+  cursor: pointer;
+  color: #acc2a1;
+  text-decoration: underline;
+}
+a {
+  color: #acc2a1;
+}
+button, input {
+  border: 0;
+  color: #ccc;
+  padding: 0.3em;
+  border-radius:0.3em;
+  box-shadow: #191919 2px 1px 2px;
+}
+input {
+  background: #292929;
+  width: 2em;
+}
+button:focus,input:focus {
+  background: #222;
+}
+button {
+  background: #444;
+}
+h1 {
+  font-size: 4em;
+  margin: 0;
+  padding-bottom: 0.2em;
+}
+h2 {
+  margin-top: 1.3em;
+  padding-bottom: 0em;
+  margin-bottom:0;
+}
+.view-source { float: right }
diff --git a/samples/static/css/chat.css b/samples/static/css/chat.css
new file mode 100644
--- /dev/null
+++ b/samples/static/css/chat.css
@@ -0,0 +1,106 @@
+body {
+  background: #333;
+  color: #ccc;
+  font-family: 'Annie Use Your Telescope';
+  font-size: 26px;
+  text-shadow: #000 3px 1px 3px;
+  padding:0;
+  margin:0;
+  background: url(wood-bg.png) #333;
+}
+.header {
+  font-family: 'Fredericka the Great', cursive;
+  font-size: 50px;
+  color: #ad1c43;
+  float: left;
+  padding: 10px 20px;
+  position:absolute;
+  z-index:2;
+}
+.message-area {
+  clear:both;
+  padding: 20px;
+  color: #fff;
+  position: absolute;
+  top: 1em;
+  right:0;
+  left:0;
+  bottom:10%;
+  overflow: auto;
+}
+.gradient {
+  background: url(fade.png) repeat-x;
+  position:absolute;
+  top:0;
+  height: 150px;
+  left:0;
+  right:0;
+  z-index:1;
+}
+.send-area {
+  z-index:0;
+  position:fixed;
+  top:90%;
+  left:0;
+  right:0;
+  bottom:0;
+  background:#fff;
+}
+.send-textarea {
+  padding: 0.25em;
+  border:0;
+  position: absolute;
+  left:0;
+  width:100%;
+  bottom:0;
+  top:-1px;
+  font-family: 'Annie Use Your Telescope';
+  font-size: 25px;
+  background: #111;
+  color: #999;
+}
+.message {
+  margin-top: 1em;
+  border-top: 0.1em dotted #333;
+}
+.message .timestamp {
+  color: #888;
+  font-size: 15px;
+  display: inline;
+  float: right;
+}
+.message .name {
+  display: inline-block;
+  font-size: 18px;
+  font-style: italic;
+  float:left;
+}
+.message .content {
+  display:block;
+  clear:both;
+}
+.name-area {
+  position: absolute;
+  top: 20px;
+  right: 20px;
+  z-index: 3;
+}
+.name-input {
+  background: #111;
+  border: 0;
+  border-radius: 0.3em;
+  font-family: 'Annie Use Your Telescope';
+  color: #777;
+  font-size: 20px;
+  padding-left: 0.2em;
+}
+.name-input:focus,.send-textarea:focus {
+  background: #333;
+}
+.view-source {
+  position: absolute;
+  z-index: 4;
+  right: 20px;
+  color: #555;
+  top: 100px;
+}
diff --git a/samples/static/css/fade.png b/samples/static/css/fade.png
new file mode 100644
Binary files /dev/null and b/samples/static/css/fade.png differ
diff --git a/samples/static/css/stripes-bg.png b/samples/static/css/stripes-bg.png
new file mode 100644
Binary files /dev/null and b/samples/static/css/stripes-bg.png differ
diff --git a/samples/static/css/wood-bg.png b/samples/static/css/wood-bg.png
new file mode 100644
Binary files /dev/null and b/samples/static/css/wood-bg.png differ
diff --git a/samples/static/haskell-logo.png b/samples/static/haskell-logo.png
new file mode 100644
Binary files /dev/null and b/samples/static/haskell-logo.png differ
diff --git a/samples/static/hihat.wav b/samples/static/hihat.wav
new file mode 100644
Binary files /dev/null and b/samples/static/hihat.wav differ
diff --git a/samples/static/kick.wav b/samples/static/kick.wav
new file mode 100644
Binary files /dev/null and b/samples/static/kick.wav differ
diff --git a/samples/static/snare.wav b/samples/static/snare.wav
new file mode 100644
Binary files /dev/null and b/samples/static/snare.wav differ
diff --git a/src/Control/Concurrent/Chan/Extra.hs b/src/Control/Concurrent/Chan/Extra.hs
deleted file mode 100644
--- a/src/Control/Concurrent/Chan/Extra.hs
+++ /dev/null
@@ -1,22 +0,0 @@
--- | Extra utilities for chans.
-
-module Control.Concurrent.Chan.Extra
-  (readAvailableChan)
-  where
-
-import Control.Concurrent.Chan
-
-readAvailableChan :: Chan a -> IO [a]
-readAvailableChan chan = do
-  v <- readChan chan
-  vs <- rest
-  return (v:vs)
-
-  where
-    rest = do
-      empty <- isEmptyChan chan
-      if empty
-         then return []
-         else do v <- readChan chan
-                 vs <- rest
-                 return (v:vs)
diff --git a/src/Control/Concurrent/Delay.hs b/src/Control/Concurrent/Delay.hs
deleted file mode 100644
--- a/src/Control/Concurrent/Delay.hs
+++ /dev/null
@@ -1,17 +0,0 @@
--- | Delay a thread for n seconds or minutes.
-
-module Control.Concurrent.Delay
-  (delaySeconds
-  ,delayMinutes)
-  where
-
-import Control.Concurrent
-
--- | Delay the current thread for at least n seconds.
-delaySeconds :: Integer -> IO ()
-delaySeconds 0 = return ()
-delaySeconds n = do threadDelay (1000 * 1000); delaySeconds (n-1)
-
--- | Delay the current thread for at least n minutes.
-delayMinutes :: Integer -> IO ()
-delayMinutes = delaySeconds . (*60)
diff --git a/src/Foreign/Coupon.hs b/src/Foreign/Coupon.hs
deleted file mode 100644
--- a/src/Foreign/Coupon.hs
+++ /dev/null
@@ -1,181 +0,0 @@
-{-# LANGUAGE RecordWildCards, CPP #-}
-{-# LANGUAGE MagicHash, UnboxedTuples #-}
-module Foreign.Coupon (
-    -- * Synopsis
-    -- | References to remote objects.
-    -- Offers unique tokens ('Coupon') for communication.
-    -- Supports garbage collection and finalizers.
-    
-    -- * Documentation
-    Coupon,
-    PrizeBooth, newPrizeBooth, lookup,
-    
-    Item, newItem, withItem,
-    addFinalizer, destroy, addReachable, clearReachable,
-    ) where
-
-import Prelude hiding (lookup)
-import Control.Concurrent
-import Control.Monad
-import Control.Exception (evaluate)
-
-import qualified Data.ByteString.Char8 as BS
-import Data.Functor
-import Data.IORef
-import qualified Data.Map as Map
-
-import System.Mem.Weak hiding (addFinalizer)
-import qualified System.Mem.Weak as Weak
-
-import qualified GHC.Base  as GHC
-import qualified GHC.Weak  as GHC
-import qualified GHC.IORef as GHC
-import qualified GHC.STRef as GHC
-
-mkWeakIORefValue :: IORef a -> value -> IO () -> IO (Weak value)
-mkWeakIORefValue r@(GHC.IORef (GHC.STRef r#)) v f = GHC.IO $ \s ->
-  case GHC.mkWeak# r# v f s of (# s1, w #) -> (# s1, GHC.Weak w #)
-
-#if defined(CABAL) || defined(FPCOMPLETE)
-#if MIN_VERSION_base(4,6,0)
-#else
-atomicModifyIORef' = atomicModifyIORef
-#endif
-#endif
-
-debug m = m
--- debug m = return ()
-
-type Map = Map.Map
-
-{-----------------------------------------------------------------------------
-    Types
-------------------------------------------------------------------------------}
--- | Coupons can be used as a proxy for 'Item'.
---
--- The important point is that coupons can be serialized and sent
--- over a remote connection.
---
--- Coupons are in bijection with items:
--- Different coupons will yield different items while
--- the same item will always be associated to the same coupon.
-type Coupon = BS.ByteString
-
--- | Items represent foreign objects.
--- The intended use case is that these objects do not live in RAM,
--- but are only accessible via a remote connection.
--- 
--- The foreign object can be accessed by means of the item data of type @a@.
-type Item a = IORef (ItemData a)
-
-data ItemData a = ItemData
-    { self     :: Weak (Item a)
-    , coupon   :: Coupon
-    , value    :: a
-    , children :: IORef [Weak (Item a)]
-    }
-
-
--- | Remote boothes are a mapping from 'Coupon' to 'Item'.
---
--- Prize boothes are neutral concerning garbage collection,
--- they do not keep items alive.
--- Moreover, items will be deleted from the booth when they are garbage collected.
-data PrizeBooth a = PrizeBooth
-    { bCoupons :: MVar (Map Coupon (Weak (Item a)))
-    , bCounter :: MVar [Integer]
-    }
-
-{-----------------------------------------------------------------------------
-    Booth and Coupons
-------------------------------------------------------------------------------}
--- | Create a new prize booth for creating items and trading coupons.
-newPrizeBooth :: IO (PrizeBooth a)
-newPrizeBooth = do
-    bCounter <- newMVar [0..]
-    bCoupons <- newMVar Map.empty
-    return $ PrizeBooth {..}
-
--- | Take a coupon to the prize booth and maybe you'll get an item for it.
-lookup :: Coupon -> PrizeBooth a -> IO (Maybe (Item a))
-lookup coupon PrizeBooth{..} = do
-    w <- Map.lookup coupon <$> readMVar bCoupons
-    maybe (return Nothing) deRefWeak w
-
--- | Create a new item, which can be exchanged for a coupon
--- at an associated prize booth.
---
--- The item can become unreachable,
--- at which point it will be garbage collected,
--- the finalizers will be run and its
--- coupon ceases to be valid.
-newItem :: PrizeBooth a -> a -> IO (Item a)
-newItem PrizeBooth{..} value = do
-    coupon   <- BS.pack . show <$> modifyMVar bCounter (\(n:ns) -> return (ns,n))
-    children <- newIORef []
-    let self = undefined
-    item     <- newIORef ItemData{..}
-    
-    let finalize = modifyMVar bCoupons $ \m -> return (Map.delete coupon m, ())
-    w <- mkWeakIORef item finalize
-    modifyMVar bCoupons $ \m -> return (Map.insert coupon w m, ())
-    atomicModifyIORef' item $ \itemdata -> (itemdata { self = w }, ())
-    return item
-
-{-----------------------------------------------------------------------------
-    Items
-------------------------------------------------------------------------------}
--- | Perform an action with the item.
--- 
--- While the action is being performed, it is ensured that the item
--- will not be garbage collected
--- and its coupon can be succesfully redeemed at the prize booth.
-withItem :: Item a -> (Coupon -> a -> IO b) -> IO b
-withItem item f = do
-    ItemData{..} <- readIORef item
-    b <- f coupon value
-    touchItem item
-    return b
-
--- | Make Sure that the item in question is alive
--- at the given place in the sequence of IO actions.
-touchItem :: Item a -> IO ()
-touchItem item = item `seq` return ()
-
--- | Destroy an item and run all finalizers for it.
--- Coupons for this item can no longer be redeemed.
-destroy :: Item a -> IO ()
-destroy item = finalize =<< self <$> readIORef item
-
--- | Add a finalizer that is run when the item is garbage collected.
---
--- The coupon cannot be redeemed anymore while the finalizer runs.
-addFinalizer :: Item a -> IO () -> IO ()
-addFinalizer item = void . mkWeakIORef item
-
--- | When dealing with several foreign objects,
--- it is useful to model dependencies between them.
---
--- After this operation, the second 'Item' will be reachable
--- whenever the first one is reachable.
--- For instance, you should call this function when the second foreign object
--- is actually a subobject of the first one.
---
--- Note: It is possible to model dependencies in the @parent@ data,
--- but the 'addReachable' method is preferrable,
--- as it allows all child object to be garbage collected at once.
-addReachable :: Item a -> Item a -> IO ()
-addReachable parent child = do
-    w   <- mkWeakIORefValue parent child $ return ()
-    ref <- children <$> readIORef parent
-    atomicModifyIORef' ref $ \ws -> (w:ws, ())
-
--- | Clear all dependencies.
--- 
--- Reachability of this 'Item' no longer implies reachability
--- of other items, as formerly implied by calls to 'addReachable'.
-clearReachable :: Item a -> IO ()
-clearReachable item = do
-    ref <- children <$> readIORef item
-    xs  <- atomicModifyIORef' ref $ \xs -> ([], xs)
-    mapM_ finalize xs
diff --git a/src/Foreign/JavaScript.hs b/src/Foreign/JavaScript.hs
new file mode 100644
--- /dev/null
+++ b/src/Foreign/JavaScript.hs
@@ -0,0 +1,74 @@
+{-# LANGUAGE RecordWildCards #-}
+module Foreign.JavaScript (
+    -- * Synopsis
+    -- | A JavaScript foreign function interface (FFI).
+    --
+    -- This module implements a web server that communicates with
+    -- a web browser and allows you to execute arbitrary JavaScript code on it.
+    --
+    -- Note: This module is used internally by the "Graphics.UI.Threepenny"
+    -- library, but the types are /not/ compatible.
+    -- Use "Foreign.JavaScript" only if you want to roll your own
+    -- interface to the web browser.
+
+    -- * Server
+    serve, Config(..), defaultConfig,
+    Window, root,
+    
+    -- * JavaScript FFI
+    ToJS(..), FromJS, JSFunction, JSObject,
+    FFI, ffi, runFunction, callFunction,
+    IsHandler, exportHandler, onDisconnect,
+    debug,
+    ) where
+
+import qualified Data.Aeson                   as JSON
+import           Foreign.JavaScript.EventLoop
+import           Foreign.JavaScript.Marshal
+import           Foreign.JavaScript.Server
+import           Foreign.JavaScript.Types
+import           Foreign.RemotePtr            as Foreign
+
+{-----------------------------------------------------------------------------
+    Server
+------------------------------------------------------------------------------}
+-- | Run a "Foreign.JavaScript" server.
+serve
+    :: Config               -- ^ Configuration options.
+    -> (Window -> IO ())    -- ^ Initialization whenever a client connects.
+    -> IO ()
+serve config init = httpComm config (eventLoop init)
+
+{-----------------------------------------------------------------------------
+    JavaScript
+------------------------------------------------------------------------------}
+-- | Run a JavaScript function, but do not wait for a result.
+runFunction :: Window -> JSFunction () -> IO ()
+runFunction w f = runEval w =<< toCode f
+
+-- | Call a JavaScript function and wait for the result.
+callFunction :: Window -> JSFunction a -> IO a
+callFunction w f = do
+    resultJS <- callEval w =<< toCode f
+    marshalResult f w resultJS
+
+-- | Export a Haskell function as an event handler.
+--
+-- The result is a JavaScript @Function@ object that can be called
+-- from JavaScript like a regular function. However,
+-- the corresponding Haskell function will /not/ be run immediately,
+-- rather it will be added to the event queue and processed
+-- like an event. In other words, this the Haskell code is only called
+-- asynchronously.
+--
+-- WARNING: The event handler will be garbage collected unless you
+-- keep a reference to it /on the Haskell side/!
+-- Registering it with a JavaScript function will generally /not/
+-- keep it alive.
+exportHandler :: IsHandler a => Window -> a -> IO JSObject
+exportHandler w f = do
+    g <- newHandler w (handle f w)
+    h <- callFunction w $
+        ffi "Haskell.newEvent(%1,%2)" g (convertArguments f)
+    Foreign.addReachable h g
+    return h
diff --git a/src/Foreign/JavaScript/EventLoop.hs b/src/Foreign/JavaScript/EventLoop.hs
new file mode 100644
--- /dev/null
+++ b/src/Foreign/JavaScript/EventLoop.hs
@@ -0,0 +1,172 @@
+{-# LANGUAGE RecordWildCards, CPP #-}
+{-# LANGUAGE RecursiveDo #-}
+module Foreign.JavaScript.EventLoop (
+    eventLoop,
+    runEval, callEval, debug, onDisconnect,
+    newHandler, fromJSStablePtr,
+    ) where
+
+import           Control.Applicative
+import           Control.Concurrent
+import           Control.Concurrent.Async
+import           Control.Concurrent.STM   as STM
+import           Control.Exception        as E    (finally)
+import           Control.Monad
+import qualified Data.Aeson               as JSON
+import           Data.IORef
+import qualified Data.Map                 as Map
+import qualified Data.Text                as T
+import qualified System.Mem
+
+import Foreign.RemotePtr        as Foreign
+import Foreign.JavaScript.Types
+
+rebug :: IO ()
+#ifdef REBUG
+rebug = System.Mem.performGC
+#else
+rebug = return ()
+#endif
+
+{-----------------------------------------------------------------------------
+    Event Loop
+------------------------------------------------------------------------------}
+-- | Handle a single event
+handleEvent w@(Window{..}) (name, args, consistency) = do
+    mhandler <- Foreign.lookup name wEventHandlers
+    case mhandler of
+        Nothing -> return ()
+        Just f  -> withRemotePtr f (\_ f -> f args)
+
+
+-- | Event loop for a browser window.
+-- Supports concurrent invocations of `runEval` and `callEval`.
+eventLoop :: (Window -> IO void) -> (Comm -> IO ())
+eventLoop init comm = do
+    -- To support concurrent FFI calls, we make three threads.
+    -- The thread `multiplexer` reads from the client and 
+    --   sorts the messages into the appropriate queue.
+    events      <- newTQueueIO
+    results     <- newTQueueIO :: IO (TQueue JSON.Value)
+    -- The thread `handleCalls` executes FFI calls
+    --    from the Haskell side in order.
+    -- The corresponding queue records `TMVar`s in which to put the results.
+    calls       <- newTQueueIO :: IO (TQueue (Maybe (TMVar JSON.Value), ServerMsg))
+    -- The thread `handleEvents` handles client Events in order.
+
+    -- Events will be queued (and labelled `Inconsistent`) whenever
+    -- the server is
+    --    * busy handling an event
+    --    * or waiting for the result of a function call.
+    handling    <- newTVarIO False
+    calling     <- newTVarIO False
+
+    -- FFI calls are made by writing to the `calls` queue.
+    w0 <- newPartialWindow
+    let runEval s = do
+            atomically $ writeTQueue calls (Nothing , RunEval s)
+        callEval s = do
+            ref <- newEmptyTMVarIO
+            atomically $ writeTQueue calls (Just ref, CallEval s)
+            atomically $ takeTMVar ref
+        debug    s = do
+            atomically $ writeServer comm $ Debug s
+
+    -- We also send a separate event when the client disconnects.
+    disconnect <- newTVarIO $ return ()
+    let onDisconnect m = atomically $ writeTVar disconnect m
+    
+    let w = w0 { runEval      = runEval
+               , callEval     = callEval
+               , debug        = debug
+               , onDisconnect = onDisconnect
+               }
+
+    -- The individual threads are as follows:
+    --
+    -- Read client messages and send them to the
+    -- thread that handles events or the thread that handles FFI calls.
+    let multiplexer = do
+            m <- untilJustM $ atomically $ do
+                msg <- readClient comm
+                case msg of
+                    Event x y -> do
+                        b <- (||) <$> readTVar handling <*> readTVar calling
+                        let c = if b then Inconsistent else Consistent
+                        writeTQueue events (x,y,c)
+                        return Nothing
+                    Result x  -> do
+                        writeTQueue results x
+                        return Nothing
+                    Quit      -> Just <$> readTVar disconnect
+            m
+        
+    -- Send FFI calls to client and collect results
+    let handleCalls = forever $ do
+            ref <- atomically $ do
+                (ref, msg) <- readTQueue calls
+                writeTVar calling True
+                writeServer comm msg
+                return ref
+            atomically $ do
+                writeTVar calling False
+                case ref of
+                    Just ref -> do
+                        result <- readTQueue results
+                        putTMVar ref result
+                    Nothing  -> return ()
+    
+    -- Receive events from client and handle them in order.
+    let handleEvents = do
+            init w
+            forever $ do
+                e <- atomically $ do
+                    writeTVar handling True
+                    readTQueue events
+                handleEvent w e
+                rebug
+                atomically $ writeTVar handling False
+
+    -- Foreign.addFinalizer (wRoot w) $ putStrLn "wRoot garbage collected."
+    Foreign.withRemotePtr (wRoot w) $ \_ _ -> do    -- keep root alive
+        E.finally
+            (foldr1 race_ [multiplexer, handleEvents, handleCalls])
+            (commClose comm)
+
+    return ()
+
+-- | Repeat an action until it returns 'Just'. Similar to 'forever'.
+untilJustM :: Monad m => m (Maybe a) -> m a
+untilJustM m = m >>= \x -> case x of
+    Nothing -> untilJustM m
+    Just a  -> return a
+
+{-----------------------------------------------------------------------------
+    Exports, Imports and garbage collection
+------------------------------------------------------------------------------}
+-- | Turn a Haskell function into an event handler.
+newHandler :: Window -> ([JSON.Value] -> IO ()) -> IO HsEvent
+newHandler w@(Window{..}) handler = do
+    coupon <- newCoupon wEventHandlers
+    newRemotePtr coupon (handler . parseArgs) wEventHandlers
+    where
+    fromSuccess (JSON.Success x) = x
+    -- parse a genuine JavaScript array
+    parseArgs x = fromSuccess (JSON.fromJSON x) :: [JSON.Value]
+    -- parse a JavaScript arguments object
+    -- parseArgs x = Map.elems (fromSuccess (JSON.fromJSON x) :: Map.Map String JSON.Value)
+
+
+-- | Convert a stable pointer from JavaScript into a 'JSObject'.
+fromJSStablePtr :: JSON.Value -> Window -> IO JSObject
+fromJSStablePtr js w@(Window{..}) = do
+    let JSON.Success coupon = JSON.fromJSON js
+    mhs <- Foreign.lookup coupon wJSObjects
+    case mhs of
+        Just hs -> return hs
+        Nothing -> do
+            ptr <- newRemotePtr coupon (JSPtr coupon) wJSObjects
+            addFinalizer ptr $
+                runEval ("Haskell.freeStablePtr('" ++ T.unpack coupon ++ "')")
+            return ptr
+
diff --git a/src/Foreign/JavaScript/Include.hs b/src/Foreign/JavaScript/Include.hs
new file mode 100644
--- /dev/null
+++ b/src/Foreign/JavaScript/Include.hs
@@ -0,0 +1,32 @@
+{-# LANGUAGE TemplateHaskell, CPP #-}
+module Foreign.JavaScript.Include (include) where
+ 
+import           Data.Functor
+import qualified Language.Haskell.TH       as TH
+import           Language.Haskell.TH.Quote
+import           System.IO
+
+
+#if defined(SAMPLES)
+root :: FilePath
+root = "../" -- we are running the examples from ghci
+#else
+root :: FilePath
+root = "./"
+#endif
+
+include :: QuasiQuoter
+include = QuasiQuoter
+        { quoteExp  = f             -- only used as an expression,
+        , quotePat  = undefined     -- hence all other use cases undefined
+        , quoteType = undefined
+        , quoteDec  = undefined
+        }
+    where
+    f s = TH.LitE . TH.StringL <$> TH.runIO (readFileUTF8 $ root ++ s)
+
+readFileUTF8 :: FilePath -> IO String
+readFileUTF8 path = do
+    h <- openFile path ReadMode
+    hSetEncoding h utf8
+    hGetContents h
diff --git a/src/Foreign/JavaScript/Marshal.hs b/src/Foreign/JavaScript/Marshal.hs
new file mode 100644
--- /dev/null
+++ b/src/Foreign/JavaScript/Marshal.hs
@@ -0,0 +1,222 @@
+{-# LANGUAGE FlexibleInstances, TypeSynonymInstances, ScopedTypeVariables #-}
+module Foreign.JavaScript.Marshal (
+    ToJS(..), FromJS,
+    FFI, JSFunction, toCode, marshalResult, ffi,
+    IsHandler, convertArguments, handle,
+    ) where
+
+import           Data.Aeson             as JSON
+import qualified Data.Aeson.Encode
+import qualified Data.Aeson.Types       as JSON
+import           Data.Functor                     ((<$>))
+import           Data.List                        (intercalate)
+import qualified Data.Text              as T
+import qualified Data.Text.Lazy
+import qualified Data.Text.Lazy.Builder
+import qualified Data.Vector            as Vector
+import           Safe                             (atMay)
+
+import Foreign.JavaScript.EventLoop (fromJSStablePtr)
+import Foreign.JavaScript.Types
+import Foreign.RemotePtr
+
+{-----------------------------------------------------------------------------
+    Convert Haskell values to JavaScript values
+------------------------------------------------------------------------------}
+-- | JavaScript code snippet.
+newtype JSCode = JSCode { unJSCode :: String }
+    deriving (Eq, Ord, Show)
+
+-- | Helper class for rendering Haskell values as JavaScript expressions.
+class ToJS a where
+    render     :: a   -> IO JSCode
+    renderList :: [a] -> IO JSCode
+
+    renderList xs = do
+        ys <- mapM render xs
+        jsCode $ "[" ++ intercalate "," (map unJSCode ys) ++ "]"
+
+jsCode = return . JSCode
+
+instance ToJS Float      where render   = render . JSON.toJSON
+instance ToJS Double     where render   = render . JSON.toJSON
+instance ToJS Int        where render   = jsCode . show
+instance ToJS Bool       where render b = jsCode $ if b then "true" else "false"
+instance ToJS JSON.Value where render   = jsCode . showJSON
+instance ToJS T.Text     where render   = render . JSON.String
+instance ToJS Char       where
+    render x   = renderList [x]
+    renderList = render . JSON.String . T.pack
+
+instance ToJS a => ToJS [a] where
+    render = renderList
+
+instance ToJS HsEvent    where
+    render x   = render =<< unprotectedGetCoupon x
+instance ToJS JSObject   where
+    render x   = apply1 "Haskell.deRefStablePtr(%1)"
+                 <$> (render =<< unprotectedGetCoupon x)
+
+-- | Show a type in a JSON compatible way.
+showJSON :: ToJSON a => a -> String
+showJSON
+    = Data.Text.Lazy.unpack
+    . Data.Text.Lazy.Builder.toLazyText
+    . Data.Aeson.Encode.encodeToTextBuilder . JSON.toJSON
+
+{-----------------------------------------------------------------------------
+    Convert JavaScript values to Haskell values
+------------------------------------------------------------------------------}
+data FromJS' a = FromJS'
+    { wrapCode :: (JSCode -> JSCode)
+    , marshal  :: Window -> JSON.Value -> IO a
+    }
+
+-- | Helper class for converting JavaScript values to Haskell values.
+class FromJS a where
+    fromJS   :: FromJS' a
+
+-- | Marshal a simple type to Haskell.
+simple :: FromJSON a => (JSCode -> JSCode) -> FromJS' a
+simple f =
+    FromJS' { wrapCode = f , marshal = \_ -> fromSuccessIO . JSON.fromJSON }
+    where
+    fromSuccessIO (JSON.Success a) = return a
+
+instance FromJS String     where fromJS = simple $ apply1 "%1.toString()"
+instance FromJS T.Text     where fromJS = simple $ apply1 "%1.toString()"
+instance FromJS Int        where fromJS = simple id
+instance FromJS Double     where fromJS = simple id
+instance FromJS Float      where fromJS = simple id
+instance FromJS JSON.Value where fromJS = simple id
+
+instance FromJS ()         where
+    fromJS = FromJS' { wrapCode = id, marshal = \_ _ -> return () }
+
+instance FromJS JSObject   where
+    fromJS = FromJS'
+        { wrapCode = apply1 "Haskell.getStablePtr(%1)"
+        , marshal  = \w v -> fromJSStablePtr v w
+        }
+
+-- FIXME: Not sure whether this instance is really a good idea.
+instance FromJS [JSObject] where
+    fromJS = FromJS'
+        { wrapCode = apply1 "Haskell.map(Haskell.getStablePtr, %1)"
+        , marshal  = \w (JSON.Array vs) -> do
+            mapM (\v -> fromJSStablePtr v w) (Vector.toList vs)
+        }
+
+{-----------------------------------------------------------------------------
+    Variable argument JavaScript functions
+------------------------------------------------------------------------------}
+-- | A JavaScript function with a given output type @a@.
+data JSFunction a = JSFunction
+    { code          :: IO JSCode
+      -- ^ Code snippet that implements the function.
+    , marshalResult :: Window -> JSON.Value -> IO a
+      -- ^ Marshal the function result to a Haskell value.
+    }
+
+-- | Change the output type of a 'JSFunction'.
+instance Functor JSFunction where
+    fmap f (JSFunction c m) = JSFunction c (\w v -> fmap f $ m w v)
+
+-- | Render function to a textual representation using JavaScript syntax.
+toCode :: JSFunction a -> IO String
+toCode = fmap unJSCode . code
+
+
+-- | Helper class for making 'ffi' a variable argument function.
+class FFI a where
+    fancy :: ([JSCode] -> IO JSCode) -> a
+
+instance (ToJS a, FFI b) => FFI (a -> b) where
+    fancy f a = fancy $ \xs -> do
+        x <- render a
+        f (x:xs)
+
+instance FromJS b        => FFI (JSFunction b) where
+    fancy f   = JSFunction
+        { code          = wrapCode b <$> f []
+        , marshalResult = marshal b
+        }
+        where b = fromJS
+
+-- | Simple JavaScript FFI with string substitution.
+--
+-- Inspired by the Fay language. <http://fay-lang.org/>
+--
+-- > example :: String -> Int -> JSFunction String
+-- > example = ffi "$(%1).prop('checked',%2)"
+--
+-- The 'ffi' function takes a string argument representing the JavaScript
+-- code to be executed on the client.
+-- Occurrences of the substrings @%1@ to @%9@ will be replaced by
+-- subequent arguments.
+--
+-- Note: Always specify a type signature! The types automate
+-- how values are marshalled between Haskell and JavaScript.
+-- The class instances for the 'FFI' class show which conversions are supported.
+--
+ffi :: FFI a => String -> a
+ffi macro = fancy (return . apply macro)
+
+testFFI :: String -> Int -> JSFunction String
+testFFI = ffi "$(%1).prop('checked',%2)"
+
+{-----------------------------------------------------------------------------
+    Type classes
+------------------------------------------------------------------------------}
+-- | Helper class for exporting Haskell functions to JavaScript
+-- as event handlers.
+class IsHandler a where
+    convertArgs :: a -> Int -> [JSCode]
+    handle      :: a -> Window -> [JSON.Value] -> IO ()
+
+instance (FromJS a, IsHandler b) => IsHandler (a -> b) where
+    convertArgs = convertArgs'
+    handle f = \w (a:as) -> do
+        x <- marshal fromJS w a
+        handle (f x) w as
+
+convertArgs' :: forall a b. (FromJS a, IsHandler b) => (a -> b) -> Int -> [JSCode]
+convertArgs' f n = wrap arg : convertArgs (f x) (n+1)
+    where
+    x    = undefined :: a
+    wrap = wrapCode (fromJS :: FromJS' a)
+    arg  = JSCode $ "arguments[" ++ show n ++ "]"
+
+instance IsHandler (IO ()) where
+    convertArgs _ _ = []
+    handle      m   = \_ _ -> m
+
+-- | Code needed to preconvert arguments on the JavaScript side.
+convertArguments :: IsHandler a => a -> String
+convertArguments f =
+    "[" ++ intercalate "," (map unJSCode $ convertArgs f 0) ++ "]"
+
+
+{-----------------------------------------------------------------------------
+    String utilities
+------------------------------------------------------------------------------}
+-- | String substitution.
+-- Substitute occurences of %1, %2 up to %9 with the argument strings.
+-- The types ensure that the % character has no meaning in the generated output.
+-- 
+-- > apply "%1 and %2" [x,y] = x ++ " and " ++ y
+apply :: String -> [JSCode] -> JSCode
+apply code args = JSCode $ go code
+    where
+    at xs i = maybe (error err) id $ atMay xs i
+    err     = "Graphics.UI.Threepenny.FFI: Too few arguments in FFI call!"
+    argument i = unJSCode (args `at` i)
+    
+    go []         = []
+    go ('%':c:cs) = argument index ++ go cs
+        where index = fromEnum c - fromEnum '1'
+    go (c:cs)     = c : go cs
+
+-- | Apply string substitution that expects a single argument.
+apply1 :: String -> JSCode -> JSCode
+apply1 s x = apply s [x]
diff --git a/src/Foreign/JavaScript/Resources.hs b/src/Foreign/JavaScript/Resources.hs
new file mode 100644
--- /dev/null
+++ b/src/Foreign/JavaScript/Resources.hs
@@ -0,0 +1,24 @@
+{-# LANGUAGE QuasiQuotes #-}
+module Foreign.JavaScript.Resources where
+
+import           Data.Text                          (Text)
+import qualified Data.Text                  as Text
+import           Foreign.JavaScript.Include
+
+
+jsDriverCode :: Text
+jsDriverCode = Text.unlines $ map Text.pack
+    [ [include|js/lib/jquery.js|]
+    , [include|js/lib/jquery-cookie.js|]
+    , "var Haskell = {};"
+    , [include|js/comm.js|]
+    , [include|js/ffi.js|]
+    , [include|js/lib.js|]
+    , [include|js/log.js|]
+    ]
+
+cssDriverCode :: Text
+cssDriverCode = Text.pack [include|js/haskell.css|]
+
+defaultHtmlFile :: Text
+defaultHtmlFile = Text.pack [include|js/index.html|]
diff --git a/src/Foreign/JavaScript/Server.hs b/src/Foreign/JavaScript/Server.hs
new file mode 100644
--- /dev/null
+++ b/src/Foreign/JavaScript/Server.hs
@@ -0,0 +1,126 @@
+{-# LANGUAGE RecordWildCards, OverloadedStrings #-}
+module Foreign.JavaScript.Server (
+    httpComm
+    ) where
+
+-- import general libraries
+import           Control.Concurrent
+import           Control.Concurrent.Async
+import           Control.Concurrent.STM     as STM
+import qualified Control.Exception          as E
+import           Control.Monad
+import           Data.ByteString                    (ByteString)
+import qualified Data.ByteString.Char8      as BS
+import qualified Data.ByteString.Lazy.Char8 as LBS
+import           Data.Text
+import qualified Safe                       as Safe
+import           System.Environment
+import           System.FilePath
+
+-- import web libraries
+import           Data.Aeson                             ((.=))
+import qualified Data.Aeson                    as JSON
+import qualified Network.WebSockets            as WS
+import qualified Network.WebSockets.Snap       as WS
+import           Snap.Core
+import qualified Snap.Http.Server              as Snap
+import           Snap.Util.FileServe
+
+-- import internal modules
+import Foreign.JavaScript.Resources
+import Foreign.JavaScript.Types
+
+{-----------------------------------------------------------------------------
+    HTTP Server using WebSockets
+------------------------------------------------------------------------------}
+-- | Run a HTTP server that creates a 'Comm' channel.
+httpComm :: Config -> (Comm -> IO ()) -> IO ()
+httpComm Config{..} worker = do
+    env <- getEnvironment
+    let portEnv = Safe.readMay =<< Prelude.lookup "PORT" env
+    let addrEnv = fmap BS.pack $ Prelude.lookup "ADDR" env
+    
+    let config = Snap.setPort      (maybe defaultPort id (jsPort `mplus` portEnv))
+               $ Snap.setBind      (maybe defaultAddr id (jsAddr `mplus` addrEnv))
+               $ Snap.setErrorLog  (Snap.ConfigIoLog jsLog)
+               $ Snap.setAccessLog (Snap.ConfigIoLog jsLog)
+               $ Snap.defaultConfig
+    Snap.httpServe config . route $
+        routeResources jsCustomHTML jsStatic
+        ++ routeWebsockets worker
+
+-- | Route the communication between JavaScript and the server
+routeWebsockets :: (Comm -> IO void) -> Routes
+routeWebsockets worker = [("websocket", response)]
+    where
+    response = WS.runWebSocketsSnap $ \ws -> void $ do
+        comm <- communicationFromWebSocket ws
+        worker comm
+        -- error "Foreign.JavaScript: unreachable code path."
+
+-- | Create 'Comm' channel from WebSocket request.
+communicationFromWebSocket :: WS.PendingConnection -> IO Comm
+communicationFromWebSocket request = do
+    connection <- WS.acceptRequest request
+    commIn     <- STM.newTQueueIO   -- outgoing communication
+    commOut    <- STM.newTQueueIO   -- incoming communication
+
+    -- write data to browser
+    let sendData = forever $ do
+            x <- atomically $ STM.readTQueue commOut
+            -- see note [ServerMsg strictness]
+            WS.sendTextData connection . JSON.encode $ x
+
+    -- read data from browser
+    let readData = forever $ do
+            input <- WS.receiveData connection
+            case input of
+                "ping" -> WS.sendTextData connection . LBS.pack $ "pong"
+                "quit" -> E.throw WS.ConnectionClosed
+                input  -> case JSON.decode input of
+                    Just x   -> atomically $ STM.writeTQueue commIn x
+                    Nothing  -> error $
+                        "Foreign.JavaScript: Couldn't parse JSON input"
+                        ++ show input
+    
+    let manageConnection = do
+            withAsync sendData $ \_ -> do
+            Left e <- waitCatch =<< async readData
+            atomically $ STM.writeTQueue commIn $
+                JSON.object [ "tag" .= ("Quit" :: Text) ] -- write Quit event
+            E.throw e
+
+    thread <- forkFinally manageConnection
+        (\_ -> WS.sendClose connection $ LBS.pack "close")
+    let commClose = killThread thread
+
+    return $ Comm {..}
+
+{-----------------------------------------------------------------------------
+    Resources
+------------------------------------------------------------------------------}
+type Routes = [(ByteString, Snap ())]
+
+routeResources :: Maybe FilePath -> Maybe FilePath -> Routes
+routeResources customHTML staticDir =
+    fixHandlers noCache $
+        static ++
+        [("/"            , root)
+        ,("/haskell.js"  , writeTextMime jsDriverCode  "application/javascript")
+        ,("/haskell.css" , writeTextMime cssDriverCode "text/css")
+        ]
+    where
+    fixHandlers f routes = [(a,f b) | (a,b) <- routes]
+    noCache h = modifyResponse (setHeader "Cache-Control" "no-cache") >> h
+    
+    static = maybe [] (\dir -> [("/static", serveDirectory dir)]) staticDir
+    
+    root = case customHTML of
+        Just file -> case staticDir of
+            Just dir -> serveFile (dir </> file)
+            Nothing  -> logError "Foreign.JavaScript: Cannot use jsCustomHTML file without jsStatic"
+        Nothing   -> writeTextMime defaultHtmlFile "text/html"
+
+writeTextMime text mime = do
+    modifyResponse (setHeader "Content-type" mime)
+    writeText text
diff --git a/src/Foreign/JavaScript/Types.hs b/src/Foreign/JavaScript/Types.hs
new file mode 100644
--- /dev/null
+++ b/src/Foreign/JavaScript/Types.hs
@@ -0,0 +1,187 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Foreign.JavaScript.Types where
+
+import           Control.Applicative
+import           Control.Concurrent.STM  as STM
+import           Control.Concurrent.Chan as Chan
+import           Control.Concurrent.MVar
+import           Control.DeepSeq
+import           Data.Aeson              as JSON
+import           Data.ByteString.Char8           (ByteString)
+import qualified Data.ByteString.Char8   as BS   (hPutStrLn)
+import           Data.IORef
+import           Data.Map                as Map
+import           Data.String
+import           Data.Text
+import           System.IO                       (stderr)
+
+import Foreign.RemotePtr
+
+{-----------------------------------------------------------------------------
+    Server Configuration
+------------------------------------------------------------------------------}
+-- | Configuration of a "Foreign.JavaScript" server.
+data Config = Config
+    { jsPort       :: Maybe Int           
+        -- ^ Port number.
+        -- @Nothing@ means that the port number is
+        -- read from the environment variable @PORT@.
+        -- Alternatively, port @8023@ is used if this variable is not set.
+    , jsAddr       :: Maybe ByteString
+        -- ^ Bind address.
+        -- @Nothing@ means that the bind address is
+        -- read from the environment variable @ADDR@.
+        -- Alternatively, address @127.0.0.1@ is
+        -- used if this variable is not set.
+    , jsCustomHTML :: Maybe FilePath
+        -- ^ Custom HTML file to replace the default one.
+    , jsStatic     :: Maybe FilePath
+        -- ^ Directory that is served under @/static@.
+    , jsLog        :: ByteString -> IO ()
+        -- ^ Print a single log message.
+    }
+
+defaultPort :: Int
+defaultPort = 8023
+
+defaultAddr :: ByteString
+defaultAddr = "127.0.0.1"
+
+-- | Default configuration.
+--
+-- Port from environment variable or @8023@,
+-- listening on @localhost@, no custom HTML, no static directory,
+-- logging to stderr.
+defaultConfig :: Config
+defaultConfig = Config
+    { jsPort       = Nothing
+    , jsAddr       = Nothing
+    , jsCustomHTML = Nothing
+    , jsStatic     = Nothing
+    , jsLog        = BS.hPutStrLn stderr
+    }
+
+{-----------------------------------------------------------------------------
+    Communication channel
+------------------------------------------------------------------------------}
+-- | Bidirectional communication channel.
+data Comm = Comm
+    { commIn    :: TQueue JSON.Value
+    , commOut   :: TQueue JSON.Value
+    , commClose :: IO ()
+    }
+
+writeComm :: Comm -> JSON.Value -> STM ()
+writeComm c = STM.writeTQueue (commOut c)
+
+readComm :: Comm -> STM JSON.Value
+readComm c = STM.readTQueue (commIn c)
+
+{-----------------------------------------------------------------------------
+    Communication protocol
+------------------------------------------------------------------------------}
+-- | Messages received from the JavaScript client.
+data ClientMsg
+    = Event Coupon JSON.Value
+    | Result JSON.Value
+    | Quit
+    deriving (Eq, Show)
+
+instance FromJSON ClientMsg where
+    parseJSON (Object msg) = do
+        tag <- msg .: "tag"
+        case (tag :: Text) of
+            "Event" ->
+                Event  <$> (msg .: "name") <*> (msg .: "arguments")
+            "Result" ->
+                Result <$> (msg .: "contents")
+            "Quit"   ->
+                return Quit
+
+readClient :: Comm -> STM ClientMsg
+readClient c = do
+    msg <- readComm c
+    case JSON.fromJSON msg of
+        Error   s -> error $ "Foreign.JavaScript: Error parsing client message " ++ show s
+        Success x -> return x
+
+-- | Messages sent by the Haskell server.
+data ServerMsg
+    = RunEval  String
+    | CallEval String
+    | Debug    String
+    deriving (Eq,Show)
+
+instance NFData ServerMsg where
+    rnf (RunEval   x) = rnf x
+    rnf (CallEval  x) = rnf x
+    rnf (Debug     x) = rnf x
+
+instance ToJSON ServerMsg where
+    toJSON (Debug    x) = object [ "tag" .= t "Debug"   , "contents" .= toJSON x]
+    toJSON (RunEval  x) = object [ "tag" .= t "RunEval" , "contents" .= toJSON x]
+    toJSON (CallEval x) = object [ "tag" .= t "CallEval", "contents" .= toJSON x]
+
+t s = fromString s :: Text
+
+writeServer :: Comm -> ServerMsg -> STM ()
+writeServer c = writeComm c . toJSON . force
+
+{- Note [ServerMsg strictness]
+
+The type `ServerMsg` may contain components that evalute to _|_, and
+an exception will be thrown when we try to send one of those to the browser.
+
+However, we have to make sure that the exception is thrown
+in the thread that constructed the message, not in the thread that
+handles the actual communication with the client. That's why we use
+the function `Control.DeepSeq.force` to make sure that any exception
+is thrown before handing the message over to another thread.
+
+-}
+
+{-----------------------------------------------------------------------------
+    Window & Event Loop
+------------------------------------------------------------------------------}
+data Consistency  = Consistent | Inconsistent
+type Event        = (Coupon, JSON.Value, Consistency)
+
+-- | An event handler that can be passed to the JavaScript client.
+type HsEvent      = RemotePtr (JSON.Value -> IO ())
+
+quit :: Event
+quit = ("quit", JSON.Null, Consistent)
+
+-- | Representation of a browser window.
+data Window = Window
+    { runEval        :: String -> IO ()
+    , callEval       :: String -> IO JSON.Value
+    , debug          :: String -> IO ()
+    -- ^ Send a debug message to the JavaScript console.
+    , onDisconnect   :: IO () -> IO ()
+    -- ^ Register an action to be performed when the client disconnects.
+    , wRoot          :: RemotePtr ()
+    , wEventHandlers :: Vendor (JSON.Value -> IO ())
+    , wJSObjects     :: Vendor JSPtr
+    }
+
+newPartialWindow :: IO Window
+newPartialWindow = do
+    ptr <- newRemotePtr "" () =<< newVendor
+    let nop = const $ return ()
+    Window nop undefined nop nop ptr <$> newVendor <*> newVendor
+
+-- | For the purpose of controlling garbage collection,
+-- every 'Window' as an associated 'RemotePtr' that is alive
+-- as long as the external JavaScript connection is alive.
+root :: Window -> RemotePtr ()
+root = wRoot
+
+{-----------------------------------------------------------------------------
+    Marshalling
+------------------------------------------------------------------------------}
+newtype JSPtr = JSPtr { unsJSPtr :: Coupon }
+
+-- | A mutable JavaScript object.
+type JSObject = RemotePtr JSPtr
+
diff --git a/src/Foreign/RemotePtr.hs b/src/Foreign/RemotePtr.hs
new file mode 100644
--- /dev/null
+++ b/src/Foreign/RemotePtr.hs
@@ -0,0 +1,201 @@
+{-# LANGUAGE RecordWildCards, CPP, ExistentialQuantification #-}
+{-# LANGUAGE MagicHash, UnboxedTuples #-}
+module Foreign.RemotePtr (
+    -- * Synopsis
+    -- | Toolbox for managing remote objects in Haskell.
+    
+    -- * RemotePtr
+    RemotePtr,
+    withRemotePtr, addFinalizer, destroy, addReachable, clearReachable,
+    unprotectedGetCoupon,
+
+    -- * Coupons and Vendors
+    Coupon, newCoupon,
+    Vendor, newVendor, lookup,
+    newRemotePtr,
+    ) where
+
+import Prelude hiding (lookup)
+import Control.Monad
+import           Control.Concurrent
+import qualified Data.Text             as T
+import qualified Data.Map              as Map
+import Data.Functor
+import Data.IORef
+
+import           System.IO.Unsafe         (unsafePerformIO)
+import           System.Mem.Weak          hiding (addFinalizer)
+import qualified System.Mem.Weak  as Weak
+
+import qualified GHC.Base  as GHC
+import qualified GHC.Weak  as GHC
+import qualified GHC.IORef as GHC
+import qualified GHC.STRef as GHC
+
+mkWeakIORefValue :: IORef a -> value -> IO () -> IO (Weak value)
+mkWeakIORefValue r@(GHC.IORef (GHC.STRef r#)) v f = GHC.IO $ \s ->
+  case GHC.mkWeak# r# v f s of (# s1, w #) -> (# s1, GHC.Weak w #)
+
+#if CABAL
+#if MIN_VERSION_base(4,6,0)
+#else
+atomicModifyIORef' = atomicModifyIORef
+#endif
+#endif
+
+type Map = Map.Map
+
+{-----------------------------------------------------------------------------
+    Types
+------------------------------------------------------------------------------}
+-- | A 'Coupon' is a unique identifier.
+-- 
+-- It is a string of alphanumeric ASCII characters and it is intended to
+-- be sent to or received from a remote program.
+--
+-- The data structure 'Vendor' associates 'Coupon's to 'RemotPtr' objects.
+type Coupon = T.Text
+
+
+-- | A 'RemotePtr' is a pointer to a foreign object.
+-- 
+-- Like a 'ForeignPtr', it refers to an object managed by an environment
+-- external to the Haskell runtime.
+-- Likewise, you can assign finalizers to a 'RemotePtr'. The finalizers
+-- will be run when the Haskell runtime garbage collects this value.
+-- They can perform some cleanup operations, like freeing memory.
+--
+-- Unlike a 'ForeignPtr', the object referenced by a 'RemotePtr' is not
+-- necessarily a block of RAM. Instead, it can refer to things like an object
+-- managed by a remote program.
+
+type RemotePtr a = IORef (RemoteData a)
+
+data RemoteData a = RemoteData
+    { self     :: Weak (RemotePtr a)
+    , coupon   :: Coupon
+    , value    :: a
+    , children :: IORef [SomeWeak]
+    }
+
+-- Existentially quantified weak pointer. We only care about its finalizer.
+data SomeWeak = forall a. SomeWeak (Weak a)
+
+-- | A 'Vendor' is a bijective mapping from 'Coupon' to 'RemotePtr'.
+--
+-- Every 'Coupon' has at most one 'RemotePtr' associated to it.
+-- A single 'RemotePtr' will always be associated with the same 'Coupon'.
+
+data Vendor a = Vendor
+    { coupons :: MVar (Map Coupon (Weak (RemotePtr a)))
+    , counter :: MVar [Integer]
+    }
+
+{-----------------------------------------------------------------------------
+    Vendor and Coupons
+------------------------------------------------------------------------------}
+-- | Create a new 'Vendor' for trading 'Coupon's and 'RemotePtr's.
+newVendor :: IO (Vendor a)
+newVendor = do
+    counter <- newMVar [0..]
+    coupons <- newMVar Map.empty
+    return $ Vendor {..}
+
+-- | Take a 'Coupon' to a 'Vendor' and maybe you'll get a 'RemotePtr' for it.
+lookup :: Coupon -> Vendor a -> IO (Maybe (RemotePtr a))
+lookup coupon Vendor{..} = do
+    w <- Map.lookup coupon <$> readMVar coupons
+    maybe (return Nothing) deRefWeak w
+
+-- | Create a new 'Coupon'.
+--
+-- WARNING: This coupon is only unique relative to this 'Vendor'.
+-- There is no guarantee that this 'Coupon' is globally unique,
+-- certainly not on a remote machine.
+newCoupon :: Vendor a -> IO Coupon
+newCoupon Vendor{..} =
+    T.pack . show <$> modifyMVar counter (\(n:ns) -> return (ns,n))
+
+-- | Create a new 'RemotePtr' from a 'Coupon' and register it with a 'Vendor'.
+newRemotePtr :: Coupon -> a -> Vendor a -> IO (RemotePtr a)
+newRemotePtr coupon value Vendor{..} = do
+    children <- newIORef []
+    let self = undefined
+    ptr      <- newIORef RemoteData{..}
+    
+    let finalize = modifyMVar coupons $ \m -> return (Map.delete coupon m, ())
+    w <- mkWeakIORef ptr finalize
+    modifyMVar coupons $ \m -> return (Map.insert coupon w m, ())
+    atomicModifyIORef' ptr $ \itemdata -> (itemdata { self = w }, ())
+    return ptr
+
+{-----------------------------------------------------------------------------
+    RemotePtr
+------------------------------------------------------------------------------}
+-- | Access the data of the 'RemotePtr'.
+-- 
+-- While the action is being performed, it is ensured that the 'RemotePtr'
+-- will not be garbage collected
+-- and its 'Coupon' can be successfully redeemed at the 'Vendor'.
+withRemotePtr :: RemotePtr a -> (Coupon -> a -> IO b) -> IO b
+withRemotePtr ptr f = do
+        RemoteData{..} <- readIORef ptr
+        b <- f coupon value
+        touch ptr
+        return b
+    where
+    -- make sure that the pointer is alive at this point in the code
+    touch ptr = void $ readIORef ptr
+
+-- | Unprotected access the 'Coupon' of a 'RemotePtr'.
+--
+-- Note: There is no guarantee that the 'RemotePtr' is alive
+-- after this operation and that the 'Coupon' can be redeemed at a 'Vendor'.
+-- Most of the time, you should use 'withRemotePtr' instead.
+--
+-- Note: In particular, if you use this with @unsafePerformIO@,
+-- the risk is high that you only refer to the 'RemotePtr' argument via
+-- the result just obtained, and the pointer will be garbage collected.
+unprotectedGetCoupon :: RemotePtr a -> IO Coupon
+unprotectedGetCoupon ptr = coupon <$> readIORef ptr
+
+
+-- | Add a finalizer that is run when the 'RemotePtr' is garbage collected.
+--
+-- The associated coupon cannot be redeemed anymore while the finalizer runs.
+addFinalizer :: RemotePtr a -> IO () -> IO ()
+addFinalizer ptr = void . mkWeakIORef ptr
+-- | FIXME: Is this finalizer really run when 'destroy' is called?
+
+-- | Destroy a 'RemotePtr' and run all finalizers for it.
+-- 'Coupon's for this pointer can no longer be redeemed.
+destroy :: RemotePtr a -> IO ()
+destroy ptr = finalize =<< self <$> readIORef ptr
+
+
+-- | When dealing with several foreign objects,
+-- it is useful to model dependencies between them.
+--
+-- After this operation, the second 'RemotePtr' will be reachable
+-- whenever the first one is reachable.
+-- For instance, you should call this function when the second foreign object
+-- is actually a subobject of the first one.
+--
+-- Note: It is possible to model dependencies in the @parent@ data,
+-- but the 'addReachable' method is preferrable,
+-- as it allows all child object to be garbage collected at once.
+addReachable :: RemotePtr a -> RemotePtr b -> IO ()
+addReachable parent child = do
+    w   <- mkWeakIORefValue parent child $ return ()
+    ref <- children <$> readIORef parent
+    atomicModifyIORef' ref $ \ws -> (SomeWeak w:ws, ())
+
+-- | Clear all dependencies.
+-- 
+-- Reachability of this 'RemotePtr' no longer implies reachability
+-- of other items, as formerly implied by calls to 'addReachable'.
+clearReachable :: RemotePtr a -> IO ()
+clearReachable parent = do
+    ref <- children <$> readIORef parent
+    xs  <- atomicModifyIORef' ref $ \xs -> ([], xs)
+    sequence_ [finalize x | SomeWeak x <- xs]
diff --git a/src/Graphics/UI/Threepenny.hs b/src/Graphics/UI/Threepenny.hs
--- a/src/Graphics/UI/Threepenny.hs
+++ b/src/Graphics/UI/Threepenny.hs
@@ -37,8 +37,6 @@
 For an introduction, see the example below.
 The module "Graphics.UI.Threepenny.Core" contains the main functions.
 
-This project was originally called Ji.
-
 -}
 
 
@@ -56,14 +54,14 @@
 > import qualified Graphics.UI.Threepenny       as UI
 > import           Graphics.UI.Threepenny.Core
 
-We begin by starting a server on port @10000@ using the 'startGUI' function.
+We begin by starting a server on port @8023@ using the 'startGUI' function.
 Additional static content is served from the @../wwwroot@ directory.
 
 > main :: IO ()
 > main = do
 >     startGUI defaultConfig
->         { tpPort       = 10000
->         , tpStatic     = Just "../wwwroot"
+>         { jsPort       = 8023
+>         , jsStatic     = Just "../wwwroot"
 >         } setup
 
 Whenever a browser connects to the server,
@@ -98,10 +96,11 @@
 >     on UI.click button $ const $ do
 >         element button # set UI.text "I have been clicked!"
 
-That's it for a first example!
+That's it! Now, run the program and visit the URL <http://localhost:8023/>
+in your browser to interact with the user interface.
 
 The libary comes with a
-<https://github.com/HeinrichApfelmus/threepenny-gui#examples plethora of additional example code>.
+<https://github.com/HeinrichApfelmus/threepenny-gui/tree/master/samples#readme plethora of additional example code>.
 
 
 -}
diff --git a/src/Graphics/UI/Threepenny/Attributes.hs b/src/Graphics/UI/Threepenny/Attributes.hs
--- a/src/Graphics/UI/Threepenny/Attributes.hs
+++ b/src/Graphics/UI/Threepenny/Attributes.hs
@@ -10,7 +10,7 @@
     background, base, bgcolor, border, bordercolor,
     cellpadding, cellspacing, checked_, class_, clear_, code_, codebase,
     color, cols, colspan, compact, content, coords,
-    enctype, face, frameborder, height, href, hspace, httpequiv,
+    enctype, face, for, frameborder, height, href, hspace, httpequiv,
     id_, ismap, lang, marginheight, marginwidth, maxlength, method, multiple,
     name, nohref, noresize, noshade, nowrap,
     rel, rev, rows, rowspan, rules,
@@ -86,6 +86,7 @@
 coords              =   strAttr "coords"
 enctype             =   strAttr "enctype"
 face                =   strAttr "face"
+for                 =   strAttr "for"
 frameborder         =   intAttr "frameborder"
 height              =   intAttr "height"
 href                =   strAttr "href"
diff --git a/src/Graphics/UI/Threepenny/Core.hs b/src/Graphics/UI/Threepenny/Core.hs
--- a/src/Graphics/UI/Threepenny/Core.hs
+++ b/src/Graphics/UI/Threepenny/Core.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE DeriveDataTypeable, RecordWildCards #-}
-{-# LANGUAGE RecursiveDo #-}
 {-# LANGUAGE FlexibleContexts #-}
 module Graphics.UI.Threepenny.Core (
     -- * Synopsis
@@ -8,7 +6,6 @@
     -- * Server
     -- $server
     Config(..), defaultConfig, startGUI,
-    loadFile, loadDirectory,
     
     -- * UI monad
     -- $ui
@@ -17,14 +14,14 @@
     module Control.Monad.Fix,
     
     -- * Browser Window
-    Window, title, cookies, getRequestLocation,
+    Window, title,
     
     -- * DOM elements
     -- | Create and manipulate DOM elements.
-    Element, mkElement, getWindow, delete, (#+), string,
+    Element, getWindow, mkElement, mkElementNamespace, delete,
+        string,
         getHead, getBody,
-        children, text, html, attr, style, value,
-    getValuesList,
+        (#+), children, text, html, attr, style, value,
     getElementsByTagName, getElementById, getElementsByClassName,
     
     -- * Layout
@@ -34,7 +31,7 @@
     
     -- * Events
     -- | For a list of predefined events, see "Graphics.UI.Threepenny.Events".
-    EventData(..), domEvent, disconnect, on, onEvent, onChanges,
+    EventData, domEvent, unsafeFromJSON, disconnect, on, onEvent, onChanges,
     module Reactive.Threepenny,
     
     -- * Attributes
@@ -52,147 +49,44 @@
     debug,
     ToJS, FFI,
     JSFunction, ffi, runFunction, callFunction,
-    HsFunction, ffiExport,
-    atomic,
+    ffiExport,
     
     -- * Internal and oddball functions
-    fromJQueryProp, toElement,
-    audioPlay, audioStop,
+    fromJQueryProp,
     
     ) where
 
-import Data.Dynamic
-import Data.IORef
-import qualified Data.Map as Map
-import Data.Maybe (listToMaybe)
-import Data.Functor
-import Data.String (fromString)
-
-import Control.Applicative (Applicative)
-import Control.Concurrent.MVar
-import Control.Monad
+import Control.Monad          (forM_, forM, void)
 import Control.Monad.Fix
 import Control.Monad.IO.Class
-import qualified Control.Monad.Trans.RWS.Lazy as Monad
 
-import Network.URI
-import qualified Data.Aeson as JSON
-
-import           Reactive.Threepenny hiding (onChange)
-import qualified Reactive.Threepenny as Reactive
+import qualified Data.Aeson                      as JSON
+import qualified Foreign.JavaScript              as JS
+import qualified Graphics.UI.Threepenny.Internal as Core
+import qualified Reactive.Threepenny             as Reactive
 
-import qualified Graphics.UI.Threepenny.Internal.Driver  as Core
-import           Graphics.UI.Threepenny.Internal.Driver
-    ( getRequestLocation
-    , atomic, )
-import           Graphics.UI.Threepenny.Internal.FFI
-import           Graphics.UI.Threepenny.Internal.Types   as Core
-    ( Window, Config, defaultConfig, Events, EventData
-    , ElementData(..), withElementData,)
+-- exports
+import Foreign.JavaScript                   (Config(..), defaultConfig)
+import Graphics.UI.Threepenny.Internal
+import Reactive.Threepenny                  hiding (onChange)
 
 
-import Graphics.UI.Threepenny.Internal.Types as Core
-    (unprotectedGetElementId, withElementData, ElementData(..))
-
 {-----------------------------------------------------------------------------
     Server
 ------------------------------------------------------------------------------}
 {- $server
 
 To display the user interface, you have to start a server using 'startGUI'.
-Then, visit the URL <http://localhost:10000/> in your browser
-(assuming that you have set the port number to @tpPort=10000@
-in the server configuration).
+Then, visit the URL <http://localhost:8023/> in your browser
+(assuming that you use the default server configuration 'defaultConfig',
+or have set the port number to @jsPort=8023@.)
 
-The server is multithreaded,
-a separate thread is used to communicate with a single browser 'Window'.
-However, each window should only be accessed from a single thread,
-otherwise the behavior will be undefined,
-i.e. you could run an element search and get a click event as a result
-if you don't access each window in a single-threaded fashion.
+The server is multithreaded.
+FFI calls can be made concurrently, but events are handled sequentially.
 
 -}
 
--- | Start server for GUI sessions.
-startGUI
-    :: Config               -- ^ Server configuration.
-    -> (Window -> UI ())    -- ^ Action to run whenever a client browser connects.
-    -> IO ()
-startGUI config handler = Core.serve config (\w -> runUI w $ handler w)
-
-
--- | Make a local file available as a relative URI.
-loadFile
-    :: String     -- ^ MIME type
-    -> FilePath   -- ^ Local path to the file
-    -> UI String  -- ^ Generated URI
-loadFile mime path = askWindow >>= \w -> liftIO $
-    Core.loadFile w (fromString mime) path
-
--- | Make a local directory available as a relative URI.
-loadDirectory :: FilePath -> UI String
-loadDirectory path = askWindow >>= \w -> liftIO $
-    Core.loadDirectory w path
-
-
 {-----------------------------------------------------------------------------
-    UI monad
-------------------------------------------------------------------------------}
-{- |
-
-User interface elements are created and manipulated in the 'UI' monad.
-
-This monad is essentially just a thin wrapper around the familiar 'IO' monad.
-Use the 'liftIO' function to access 'IO' operations like reading
-and writing from files.
-
-There are several subtle reasons why Threepenny
-uses a custom 'UI' monad instead of the standard 'IO' monad:
-
-* More convenience when calling JavaScript.
-The monad keeps track of a browser 'Window' context
-in which JavaScript function calls are executed.
-
-* Recursion for functional reactive programming.
-
--}
-newtype UI a = UI { unUI :: Monad.RWST Window [IO ()] () IO a }
-    deriving (Typeable)
-
-instance Functor UI where
-    fmap f = UI . fmap f . unUI
-
-instance Applicative UI where
-    pure  = return
-    (<*>) = ap
-
-instance Monad UI where
-    return  = UI . return
-    m >>= k = UI $ unUI m >>= unUI . k
-
-instance MonadIO UI where
-    liftIO = UI . liftIO
-
-instance MonadFix UI where
-    mfix f = UI $ mfix (unUI . f)  
-
--- | Execute an 'UI' action in a particular browser window.
--- Also runs all scheduled 'IO' action.
-runUI :: Window -> UI a -> IO a
-runUI window m = do
-    (a, _, actions) <- Monad.runRWST (unUI m) window ()
-    sequence_ actions
-    return a
-
--- | Retrieve current 'Window' context in the 'UI' monad.
-askWindow :: UI Window
-askWindow = UI Monad.ask
-
--- | Schedule an 'IO' action to be run later.
-liftIOLater :: IO () -> UI ()
-liftIOLater x = UI $ Monad.tell [x]
-
-{-----------------------------------------------------------------------------
     Browser window
 ------------------------------------------------------------------------------}
 -- | Title of the client window.
@@ -200,60 +94,24 @@
 title = mkWriteAttr $ \s _ ->
     runFunction $ ffi "document.title = %1;" s
 
--- | Cookies on the client.
-cookies :: ReadAttr Window [(String,String)]
-cookies = mkReadAttr (liftIO . Core.getRequestCookies)
-
 {-----------------------------------------------------------------------------
-    Elements
+    DOM Elements
 ------------------------------------------------------------------------------}
-data Element = Element { eEvents :: Core.Events, toElement :: Core.Element }
-    deriving (Typeable)
-
-fromElement :: Core.Element -> IO Element
-fromElement e = do
-    events <- Core.withElementData e $ \_ x -> return $ elEvents x 
-    return $ Element events e
-
-instance ToJS Element where
-    render = render . toElement
-
--- | Make a new DOM element.
-mkElement
-    :: String           -- ^ Tag name
-    -> UI Element
-mkElement tag = mdo
-    -- create events and initialize them when element becomes Alive
-    let initializeEvent (name,_,handler) = Core.bind name el handler
-    events  <- liftIO $ newEventsNamed initializeEvent
-    
-    window  <- askWindow
-    el      <- liftIO $ Core.newElement window tag events
-    return $ Element events el
-
--- | Retrieve the browser 'Window' in which the element resides.
-getWindow :: Element -> IO Window
-getWindow e = Core.getWindow (toElement e)
-
--- | Delete the given element.
-delete :: Element -> UI ()
-delete = liftIO . Core.delete . toElement
-
 -- | Append DOM elements as children to a given element.
 (#+) :: UI Element -> [UI Element] -> UI Element
 (#+) mx mys = do
     x  <- mx
     ys <- sequence mys
-    liftIO $ mapM_ (Core.appendElementTo (toElement x) . toElement) ys
+    mapM_ (Core.appendChild x) ys
     return x
 
 -- | Child elements of a given element.
 children :: WriteAttr Element [Element]
 children = mkWriteAttr set
     where
-    set xs x = liftIO $ do
-        Core.emptyEl $ toElement x
-        mapM_ (Core.appendElementTo (toElement x) . toElement) xs
+    set xs x = do
+        Core.clearChildren x
+        mapM_ (Core.appendChild x) xs
 
 -- | Child elements of a given element as a HTML string.
 html :: WriteAttr Element String
@@ -278,13 +136,6 @@
     get   el = callFunction $ ffi "$(%1).val()" el
     set v el = runFunction  $ ffi "$(%1).val(%2)" el v
 
--- | Get values from inputs. Blocks. This is faster than many 'getValue' invocations.
-getValuesList
-    :: [Element]   -- ^ A list of elements to get the values of.
-    -> UI [String] -- ^ The list of plain text values.
-getValuesList = mapM (get value)
-    -- TODO: improve this to use Core.getValuesList
-
 -- | Text content of an element.
 text :: WriteAttr Element String
 text = mkWriteAttr $ \s el ->
@@ -294,82 +145,40 @@
 string :: String -> UI Element
 string s = mkElement "span" # set text s
 
-
 -- | Get the head of the page.
 getHead :: Window -> UI Element
-getHead w = liftIO $ fromElement =<< Core.getHead w
+getHead _ = fromJSObject =<< callFunction (ffi "document.head")
 
 -- | Get the body of the page.
 getBody :: Window -> UI Element
-getBody w = liftIO $ fromElement =<< Core.getBody w
+getBody _ = fromJSObject =<< callFunction (ffi "document.body")
 
--- | Get all elements of the given tag name.  Blocks.
+-- | Get all elements of the given tag name.
 getElementsByTagName
     :: Window        -- ^ Browser window
     -> String        -- ^ The tag name.
     -> UI [Element]  -- ^ All elements with that tag name.
-getElementsByTagName window name = liftIO $
-    mapM fromElement =<< Core.getElementsByTagName window name
+getElementsByTagName _ tag =
+    mapM fromJSObject =<< callFunction (ffi "document.getElementsByTagName(%1)" tag)
 
--- | Get an element by a particular ID.  Blocks.
+-- | Get an element by a particular ID.
+--
+-- FIXME: Misleading type, throws a JavaScript exception when element not found.
 getElementById
     :: Window              -- ^ Browser window
     -> String              -- ^ The ID string.
     -> UI (Maybe Element)  -- ^ Element (if any) with given ID.
-getElementById window id = liftIO $
-    fmap listToMaybe $ mapM fromElement =<< Core.getElementsById window [id]
+getElementById _ id = do
+    x <- fromJSObject =<< callFunction (ffi "document.getElementById(%1)" id)
+    return $ Just x
 
--- | Get a list of elements by particular class.  Blocks.
+-- | Get a list of elements by particular class.
 getElementsByClassName
     :: Window        -- ^ Browser window
     -> String        -- ^ The class string.
     -> UI [Element]  -- ^ Elements with given class.
-getElementsByClassName window cls = liftIO $
-    mapM fromElement =<< Core.getElementsByClassName window cls
-
-
-{-----------------------------------------------------------------------------
-    FFI
-------------------------------------------------------------------------------}
--- | Run the given JavaScript function and carry on. Doesn't block.
---
--- The client window uses JavaScript's @eval()@ function to run the code.
-runFunction :: JSFunction () -> UI ()
-runFunction fun = do
-    window <- askWindow
-    liftIO $ Core.runFunction window fun 
-
--- | Run the given JavaScript function and wait for results. Blocks.
---
--- The client window uses JavaScript's @eval()@ function to run the code.
-callFunction :: JSFunction a -> UI a
-callFunction fun = do
-    window <- askWindow
-    liftIO $ Core.callFunction window fun
-
--- | Export the given Haskell function so that it can be called
--- from JavaScript code.
---
--- TODO: At the moment, the function is not garbage collected.
-ffiExport :: IO () -> UI (HsFunction (IO ()))
-ffiExport fun = do
-    window <- askWindow
-    liftIO $ Core.newHsFunction window fun
-
-{-----------------------------------------------------------------------------
-    Oddball
-------------------------------------------------------------------------------}
--- | Print a message on the client console if the client has debugging enabled.
-debug :: String -> UI ()
-debug s = askWindow >>= \w -> liftIO $ Core.debug w s
-
--- | Invoke the JavaScript expression @audioElement.play();@.
-audioPlay :: Element -> UI ()
-audioPlay el = runFunction $ ffi "%1.play()" el
-
--- | Invoke the JavaScript expression @audioElement.stop();@.
-audioStop :: Element -> UI ()
-audioStop el = runFunction $ ffi "prim_audio_stop(%1)" el
+getElementsByClassName window s =
+    mapM fromJSObject =<< callFunction (ffi "document.getElementsByClassName(%1)" s)
 
 {-----------------------------------------------------------------------------
     Layout
@@ -417,26 +226,6 @@
 {-----------------------------------------------------------------------------
     Events
 ------------------------------------------------------------------------------}
--- | Obtain DOM event for a given element.
-domEvent
-    :: String
-        -- ^ Event name. A full list can be found at
-        --   <http://www.w3schools.com/jsref/dom_obj_event.asp>.
-        --   Note that the @on@-prefix is not included,
-        --   the name is @click@ and so on.
-    -> Element          -- ^ Element where the event is to occur.
-    -> Event EventData
-domEvent name (Element events _) = events name
-
-
--- | Event that occurs whenever the client has disconnected,
--- be it by closing the browser window or by exception.
---
--- Note: DOM Elements in the browser window that has been closed
--- can no longer be manipulated.
-disconnect :: Window -> Event ()
-disconnect = Core.disconnect
-
 -- | Convenience function to register 'Event's for 'Element's.
 --
 -- Example usage.
@@ -461,7 +250,6 @@
     window <- askWindow
     liftIO $ Reactive.onChange b (void . runUI window . f)
 
-
 {-----------------------------------------------------------------------------
     Attributes
 ------------------------------------------------------------------------------}
@@ -557,7 +345,7 @@
     get   el = fmap from $ callFunction $ ffi "$(%1).prop(%2)" el name
 
 -- | Turn a JavaScript object property @.prop = ...@ into an attribute.
-fromObjectProperty :: (ToJS a, FFI (JSFunction a)) => String -> Attr Element a
+fromObjectProperty :: (FromJS a, ToJS a, FFI (JSFunction a)) => String -> Attr Element a
 fromObjectProperty name = mkReadWriteAttr get set
     where
     set v el = runFunction  $ ffi ("%1." ++ name ++ " = %2") el v    
@@ -573,7 +361,6 @@
 instance Widget Element where
     getElement = id
 
-
 -- | Convience synonym for 'return' to make elements work well with 'set'.
 -- Also works on 'Widget's.
 --
@@ -587,4 +374,3 @@
 -- | Convience synonym for 'return' to make widgets work well with 'set'.
 widget  :: Widget w => w -> UI w
 widget  = return
-
diff --git a/src/Graphics/UI/Threepenny/DragNDrop.hs b/src/Graphics/UI/Threepenny/DragNDrop.hs
--- a/src/Graphics/UI/Threepenny/DragNDrop.hs
+++ b/src/Graphics/UI/Threepenny/DragNDrop.hs
@@ -70,11 +70,10 @@
 -- Change this to 'Maybe String' instead.
 type DragData = String
 
-
-withDragData = fmap extract
+withDragData = fmap (extract . unsafeFromJSON)
     where
-    extract (EventData [Just s]) = s
-    extract _                    = ""
+    extract [s] = s
+    extract _   = ""
 
 -- | Occurs periodically while the element is being dragged around.
 drag :: Element -> Event DragData
diff --git a/src/Graphics/UI/Threepenny/Elements.hs b/src/Graphics/UI/Threepenny/Elements.hs
--- a/src/Graphics/UI/Threepenny/Elements.hs
+++ b/src/Graphics/UI/Threepenny/Elements.hs
@@ -13,7 +13,7 @@
     dterm, emphasize, fieldset, font, form, frame, frameset,
     h1, h2, h3, h4, h5, h6, header, hr,
     img, image, input, italics,
-    keyboard, legend, li, link, map, meta, noframes, olist, option,
+    keyboard, label, legend, li, link, map, meta, noframes, olist, option,
     p, paragraph, param, pre,
     sample, select, small, source, span, strong, sub, sup,
     table, td, textarea, th, thebase,
@@ -101,6 +101,7 @@
 input               = itag "input"
 italics             =  tag "i"
 keyboard            =  tag "kbd"
+label               =  tag "label"
 legend              =  tag "legend"
 li                  =  tag "li"
 link                =  tag "link"
diff --git a/src/Graphics/UI/Threepenny/Events.hs b/src/Graphics/UI/Threepenny/Events.hs
--- a/src/Graphics/UI/Threepenny/Events.hs
+++ b/src/Graphics/UI/Threepenny/Events.hs
@@ -57,7 +57,8 @@
 mousemove = fmap readCoordinates . domEvent "mousemove"
 
 readCoordinates :: EventData -> (Int,Int)
-readCoordinates (EventData (Just x:Just y:_)) = (read x, read y)
+readCoordinates json = (x,y)
+    where [x,y] = unsafeFromJSON json
 
 -- | Mouse down event.
 -- The mouse coordinates are relative to the element. 
@@ -86,10 +87,8 @@
 
 -- | Key pressed while element has focus.
 keydown :: Element -> Event KeyCode
-keydown = fmap read1  . domEvent "keydown"
+keydown = fmap unsafeFromJSON . domEvent "keydown"
 
 -- | Key released while element has focus.
 keyup :: Element -> Event KeyCode
-keyup   = fmap read1 . domEvent "keyup"
-
-read1 (EventData (Just s:_)) = read s
+keyup   = fmap unsafeFromJSON . domEvent "keyup"
diff --git a/src/Graphics/UI/Threepenny/Internal.hs b/src/Graphics/UI/Threepenny/Internal.hs
new file mode 100644
--- /dev/null
+++ b/src/Graphics/UI/Threepenny/Internal.hs
@@ -0,0 +1,281 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+module Graphics.UI.Threepenny.Internal (
+    -- * Synopsis
+    -- | Internal core:
+    -- 'UI' monad, integrating FRP and JavaScript FFI. garbage collection
+   
+    -- * Documentation
+    Window, disconnect,
+    startGUI,
+    
+    UI, runUI, liftIOLater, askWindow,
+    
+    FFI, FromJS, ToJS, JSFunction, JSObject, ffi,
+    runFunction, callFunction, ffiExport, debug,
+    
+    Element, fromJSObject, getWindow,
+    mkElementNamespace, mkElement, delete, appendChild, clearChildren,
+    
+    EventData, domEvent, unsafeFromJSON,
+    ) where
+
+import           Control.Applicative                   (Applicative)
+import           Control.Monad
+import           Control.Monad.Fix
+import           Control.Monad.IO.Class
+import qualified Control.Monad.Trans.RWS.Lazy as Monad
+import           Data.Dynamic                          (Typeable)
+
+import qualified Data.Aeson              as JSON
+import qualified Foreign.JavaScript      as JS
+import qualified Foreign.RemotePtr       as Foreign
+
+import qualified Reactive.Threepenny     as E
+
+import Foreign.JavaScript hiding (runFunction, callFunction, debug, Window)
+
+{-----------------------------------------------------------------------------
+    Custom Window type
+------------------------------------------------------------------------------}
+-- | The type 'Window' represents a browser window.
+data Window = Window
+    { jsWindow    :: JS.Window  -- JavaScript window
+    , eDisconnect :: E.Event () -- event that happens when client disconnects
+    , wEvents     :: Foreign.Vendor Events -- events associated to 'Element's
+    }
+
+-- | Start server for GUI sessions.
+startGUI
+    :: Config               -- ^ Server configuration.
+    -> (Window -> UI ())    -- ^ Action to run whenever a client browser connects.
+    -> IO ()
+startGUI config init = JS.serve config $ \w -> do
+    -- set up disconnect event
+    (eDisconnect, handleDisconnect) <- E.newEvent
+    JS.onDisconnect w $ handleDisconnect ()
+
+    -- make window
+    wEvents <- Foreign.newVendor
+    let window = Window
+            { jsWindow    = w
+            , eDisconnect = eDisconnect
+            , wEvents     = wEvents
+            }
+
+    -- run initialization
+    runUI window $ init window
+
+-- | Event that occurs whenever the client has disconnected,
+-- be it by closing the browser window or by exception.
+--
+-- Note: DOM Elements in a browser window that has been closed
+-- can no longer be manipulated.
+disconnect :: Window -> E.Event ()
+disconnect = eDisconnect
+
+{-----------------------------------------------------------------------------
+    Elements
+------------------------------------------------------------------------------}
+type Events = String -> E.Event JSON.Value
+
+data Element = Element
+    { toJSObject  :: JS.JSObject -- corresponding JavaScript object
+    , elEvents    :: Events      -- FRP event mapping
+    , elWindow    :: Window      -- Window in which the element was created
+    } deriving (Typeable)
+
+instance ToJS Element where
+    render = render . toJSObject
+
+getWindow :: Element -> IO Window
+getWindow = return . elWindow
+
+-- | Convert JavaScript object into an element.
+--
+-- FIXME: For the purpose of garbage collection, this element
+-- will always be reachable from the root.
+fromJSObject :: JS.JSObject -> UI Element
+fromJSObject el = do
+    window <- askWindow
+    liftIO $ do
+        Foreign.addReachable (JS.root $ jsWindow window) el
+        events <- getEvents el window
+        return $ Element el events window
+
+-- | Add lazy FRP events to a JavaScript object.
+addEvents :: JS.JSObject -> Window -> IO Events
+addEvents el Window{ jsWindow = w, wEvents = wEvents } = do
+    -- Lazily create FRP events whenever they are needed.
+    let initializeEvent (name,_,handler) = do
+            handlerPtr <- JS.exportHandler w handler
+            -- make handler reachable from element
+            Foreign.addReachable el handlerPtr
+            JS.runFunction w $
+                ffi "Haskell.bind(%1,%2,%3)" el name handlerPtr
+
+    events <- E.newEventsNamed initializeEvent
+
+    -- Create new pointer and add reachability.
+    Foreign.withRemotePtr el $ \coupon _ -> do
+        ptr <- Foreign.newRemotePtr coupon events wEvents
+        Foreign.addReachable el ptr
+
+    return events
+
+-- | Lookup or create lazy events for an a JavaScript object.
+getEvents :: JS.JSObject -> Window -> IO Events
+getEvents el window@Window{ wEvents = wEvents } = do
+    Foreign.withRemotePtr el $ \coupon _ -> do
+        mptr <- Foreign.lookup coupon wEvents
+        case mptr of
+            Nothing -> addEvents el window
+            Just p  -> Foreign.withRemotePtr p $ \_ -> return
+
+-- | Events may carry data. At the moment, they may return
+-- a single JSON value, as defined in the "Data.Aeson" module.
+type EventData = JSON.Value
+
+-- | Convert event data to a Haskell value.
+-- Throws an exception when the data cannot be converted.
+unsafeFromJSON :: JSON.FromJSON a => EventData -> a
+unsafeFromJSON x = let JSON.Success y = JSON.fromJSON x in y
+
+-- | Obtain DOM event for a given element.
+domEvent
+    :: String
+        -- ^ Event name. A full list can be found at
+        --   <http://www.w3schools.com/jsref/dom_obj_event.asp>.
+        --   Note that the @on@-prefix is not included,
+        --   the name is @click@ and so on.
+    -> Element          -- ^ Element where the event is to occur.
+    -> E.Event EventData
+domEvent name el = elEvents el name
+
+-- | Make a new DOM element with a given tag name.
+mkElement :: String -> UI Element
+mkElement = mkElementNamespace Nothing
+
+-- | Make a new DOM element with a namespace and a given tag name.
+--
+-- A namespace 'Nothing' corresponds to the default HTML namespace.
+mkElementNamespace :: Maybe String -> String -> UI Element
+mkElementNamespace namespace tag = do
+    window <- askWindow
+    let w = jsWindow window
+    liftIO $ do
+        el <- JS.callFunction w $ case namespace of
+            Nothing -> ffi "document.createElement(%1)" tag
+            Just ns -> ffi "document.createElementNS(%1,%2)" ns tag
+        events <- getEvents el window
+        return $ Element el events window
+
+-- | Delete the given element.
+delete :: Element -> UI ()
+delete el = liftJSWindow $ \w -> do
+    JS.runFunction w $ ffi "$(%1).detach()" el
+    Foreign.destroy $ toJSObject el
+
+-- | Remove all child elements.
+clearChildren :: Element -> UI ()
+clearChildren (Element el _ _) = liftJSWindow $ \w -> do
+    Foreign.withRemotePtr el $ \_ _ -> do
+        Foreign.clearReachable el
+        JS.runFunction w $ ffi "$(%1).contents().detach()" el
+
+-- | Append a child element.
+appendChild :: Element -> Element -> UI ()
+appendChild (Element eParent _ _) (Element eChild _ _) = liftJSWindow $ \w -> do
+    -- FIXME: We have to stop the child being reachable from its
+    -- /previous/ parent.
+    Foreign.addReachable eParent eChild
+    JS.runFunction w $ ffi "$(%1).append($(%2))" eParent eChild
+
+
+{-----------------------------------------------------------------------------
+    UI monad
+------------------------------------------------------------------------------}
+{- |
+
+User interface elements are created and manipulated in the 'UI' monad.
+
+This monad is essentially just a thin wrapper around the familiar 'IO' monad.
+Use the 'liftIO' function to access 'IO' operations like reading
+and writing from files.
+
+There are several subtle reasons why Threepenny
+uses a custom 'UI' monad instead of the standard 'IO' monad:
+
+* More convenience when calling JavaScript.
+The monad keeps track of a browser 'Window' context
+in which JavaScript function calls are executed.
+
+* Recursion for functional reactive programming.
+
+-}
+newtype UI a = UI { unUI :: Monad.RWST Window [IO ()] () IO a }
+    deriving (Typeable)
+
+liftJSWindow :: (JS.Window -> IO a) -> UI a
+liftJSWindow f = askWindow >>= liftIO . f . jsWindow
+
+instance Functor UI where
+    fmap f = UI . fmap f . unUI
+
+instance Applicative UI where
+    pure  = return
+    (<*>) = ap
+
+instance Monad UI where
+    return  = UI . return
+    m >>= k = UI $ unUI m >>= unUI . k
+
+instance MonadIO UI where
+    liftIO = UI . liftIO
+
+instance MonadFix UI where
+    mfix f = UI $ mfix (unUI . f)  
+
+-- | Execute an 'UI' action in a particular browser window.
+-- Also runs all scheduled 'IO' actions.
+runUI :: Window -> UI a -> IO a
+runUI window m = do
+    (a, _, actions) <- Monad.runRWST (unUI m) window ()
+    sequence_ actions
+    return a
+
+-- | Retrieve current 'Window' context in the 'UI' monad.
+askWindow :: UI Window
+askWindow = UI Monad.ask
+
+-- | Schedule an 'IO' action to be run later.
+liftIOLater :: IO () -> UI ()
+liftIOLater x = UI $ Monad.tell [x]
+
+{-----------------------------------------------------------------------------
+    FFI
+------------------------------------------------------------------------------}
+-- | Run the given JavaScript function and carry on. Doesn't block.
+--
+-- The client window uses JavaScript's @eval()@ function to run the code.
+runFunction :: JSFunction () -> UI ()
+runFunction fun = liftJSWindow $ \w -> JS.runFunction w fun
+
+-- | Run the given JavaScript function and wait for results. Blocks.
+--
+-- The client window uses JavaScript's @eval()@ function to run the code.
+callFunction :: JSFunction a -> UI a
+callFunction fun = liftJSWindow $ \w -> JS.callFunction w fun
+
+-- | Export the given Haskell function so that it can be called
+-- from JavaScript code.
+--
+-- FIXME: At the moment, the function is not garbage collected.
+ffiExport :: JS.IsHandler a => a -> UI JSObject
+ffiExport fun = liftJSWindow $ \w -> do
+    handlerPtr <- JS.exportHandler w fun
+    Foreign.addReachable (JS.root w) handlerPtr
+    return handlerPtr
+
+-- | Print a message on the client console if the client has debugging enabled.
+debug :: String -> UI ()
+debug s = liftJSWindow $ \w -> JS.debug w s
diff --git a/src/Graphics/UI/Threepenny/Internal/Driver.hs b/src/Graphics/UI/Threepenny/Internal/Driver.hs
deleted file mode 100644
--- a/src/Graphics/UI/Threepenny/Internal/Driver.hs
+++ /dev/null
@@ -1,682 +0,0 @@
-{-# LANGUAGE CPP, PackageImports #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecursiveDo #-}
-{-# OPTIONS -fno-warn-name-shadowing #-}
-
-module Graphics.UI.Threepenny.Internal.Driver
-  (
-  -- * Synopsis
-  -- | The main internal functionality.
-      
-  -- * Server running
-   serve
-  ,loadFile
-  ,loadDirectory
-
-  -- * Elements
-  ,newElement
-  ,appendElementTo
-  ,emptyEl
-  ,delete
-  
-  -- * Event handling
-  -- $eventhandling
-  ,bind
-  ,disconnect
-  ,module Reactive.Threepenny
- 
-  -- * Querying
-  -- $querying
-  ,getHead
-  ,getBody
-  ,getElementsByTagName
-  ,getElementsById
-  ,getElementsByClassName
-  ,getWindow
-  ,getValuesList
-  ,getRequestCookies
-  ,getRequestLocation
-  
-  -- * Utilities
-  ,debug
-  ,atomic
-
-  -- * JavaScript FFI
-  ,ToJS, FFI, ffi, JSFunction
-  ,runFunction, callFunction
-  ,newHsFunction
-  
-  -- * Types
-  ,Window
-  ,Element
-  ,Config(..)
-  ,EventData(..)
-  ) where
-
-
-
-import           Control.Applicative
-import           Control.Concurrent
-import           Control.Concurrent.Chan.Extra
-import           Control.Concurrent.Delay
-import           Control.DeepSeq
-import qualified Control.Exception
-import           Control.Monad
-import           Control.Monad.IO.Class
-import qualified "MonadCatchIO-transformers" Control.Monad.CatchIO as E
-import           Data.ByteString               (ByteString)
-import           Data.ByteString.UTF8          (toString,fromString)
-import           Data.Map                      (Map)
-import qualified Data.Map                      as M
-import           Data.Maybe
-import           Data.Text                     (Text,pack,unpack)
-import qualified Data.Text                     as Text
-import           Data.Text.Encoding            as Text
-import           Data.Time
-import           Network.URI
-import qualified Network.WebSockets            as WS
-import qualified Network.WebSockets.Snap       as WS
-import qualified Data.Attoparsec.Enumerator    as Atto
-import           Prelude                       hiding (init)
-import           Safe
-import           Snap.Core
-import qualified Snap.Http.Server              as Snap
-import           Snap.Util.FileServe
-import           System.Environment            (getEnvironment)
-import           System.FilePath
-
-import qualified Data.Aeson                    as JSON
-import           Data.Aeson                    (Result(..))
-import qualified Data.ByteString.Lazy.Char8    as LBS
-import           Data.Data
-
-import           Graphics.UI.Threepenny.Internal.Types     as Threepenny
-import           Graphics.UI.Threepenny.Internal.Resources
-import           Graphics.UI.Threepenny.Internal.FFI
-import           Reactive.Threepenny
-
-import qualified Foreign.Coupon as Foreign
-import qualified System.Mem
-
-{-----------------------------------------------------------------------------
-    Import #ifdefs
-------------------------------------------------------------------------------}
-#if defined(CABAL) || defined(FPCOMPLETE)
-#if MIN_VERSION_bytestring(0,10,0)
-fromStrictBS = LBS.fromStrict
-#else
-fromStrictBS = LBS.fromChunks . (:[])
-#endif
-#else
-fromStrictBS = LBS.fromStrict
-#endif
-
-{-----------------------------------------------------------------------------
-    Server and and session management
-------------------------------------------------------------------------------}
-newServerState :: IO ServerState
-newServerState = ServerState 
-    <$> newMVar M.empty
-    <*> newMVar (0,M.empty)
-    <*> newMVar (0,M.empty)
-
--- | Run a TP server with Snap on the specified port and the given
---   worker action.
-serve :: Config -> (Session -> IO ()) -> IO ()
-serve Config{..} worker = do
-    env    <- getEnvironment
-    let portEnv = Safe.readMay =<< Prelude.lookup "PORT" env
-    let addrEnv = Safe.readMay =<< Prelude.lookup "ADDR" env
-    
-    server <- newServerState
-    _      <- forkIO $ custodian 30 (sSessions server)
-    let config = Snap.setPort      (maybe defaultPort id (tpPort `mplus` portEnv))
-               $ Snap.setBind      (maybe defaultAddr id (tpAddr `mplus` addrEnv))
-               $ Snap.setErrorLog  (Snap.ConfigIoLog tpLog)
-               $ Snap.setAccessLog (Snap.ConfigIoLog tpLog)
-               $ Snap.defaultConfig
-    Snap.httpServe config . route $
-        routeResources tpCustomHTML tpStatic server
-        -- ++ routeCommunication worker server
-        ++ routeWebsockets worker server
-
--- | Kill sessions after at least n seconds of disconnectedness.
-custodian :: Integer -> MVar Sessions -> IO ()
-custodian seconds sessions = forever $ do
-  delaySeconds seconds
-  modifyMVar_ sessions $ \sessions -> do
-    killed <- fmap catMaybes $ forM (M.assocs sessions) $ \(key,Session{..}) -> do
-      state <- readMVar sConnectedState
-      case state of
-        Connected -> return Nothing
-        Disconnected time -> do
-          now <- getCurrentTime
-          let dcSeconds = diffUTCTime now time
-          -- session is disconnected for more than  seconds
-          if (dcSeconds > fromIntegral seconds)
-             then do killThread sThreadId
-                     return (Just key)
-             else return Nothing
-    
-    -- remove killed sessions from the map
-    return (M.filterWithKey (\k _ -> not (k `elem` killed)) sessions)
-
--- Run a snap action with the given session.
-withSession :: ServerState -> (Session -> Snap a) -> Snap a
-withSession server cont = do
-    token <- readInput "token"
-    case token of
-        Nothing    -> error $ "Invalid session token format."
-        Just token -> withGivenSession token server cont
-
--- Do something with the session given by its token id.
-withGivenSession :: Integer -> ServerState -> (Session -> Snap a) -> Snap a
-withGivenSession token ServerState{..} cont = do
-    sessions <- liftIO $ withMVar sSessions return
-    case M.lookup token sessions of
-        Nothing      -> error $ "Nonexistant token: " ++ show token
-        Just session -> cont session
-
-{-----------------------------------------------------------------------------
-    Implementation of two-way communication
-    - POST and GET requests
-------------------------------------------------------------------------------}
--- | Route the communication between JavaScript and the server
-routeCommunication :: (Session -> IO a) -> ServerState -> Routes
-routeCommunication worker server =
-    [("/init"   , init worker server)
-    ,("/poll"   , withSession server poll  )
-    ,("/signal" , withSession server signal)
-    ]
-
--- | Make a new session.
-newSession :: ServerState -> (URI,[(String, String)]) -> Integer -> IO Session
-newSession sServerState sStartInfo sToken = do
-    sSignals          <- newChan
-    sInstructions     <- newChan
-    sMutex            <- newMVar ()
-    sEventQuit        <- newEvent
-    sPrizeBooth      <- Foreign.newPrizeBooth
-    let sHeadElement  =  undefined -- filled in later
-    let sBodyElement  =  undefined
-    now               <- getCurrentTime
-    sConnectedState   <- newMVar (Disconnected now)
-    sThreadId         <- myThreadId
-    sClosures         <- newMVar [0..]
-    let session = Session {..}
-    initializeElements session    
-
--- | Make a new session and add it to the server
-createSession :: (Session -> IO void) -> ServerState -> Snap Session
-createSession worker server = do
-    -- uri    <- snapRequestURI
-    let uri = undefined -- FIXME: No URI for WebSocket requests.
-    params <- snapRequestCookies
-    liftIO $ modifyMVar (sSessions server) $ \sessions -> do
-        let newKey = maybe 0 (+1) (lastMay (M.keys sessions))
-        session <- newSession server (uri,params) newKey
-        _       <- forkIO $ void $ worker session >> handleEvents session
-        return (M.insert newKey session sessions, session)
-
--- | Respond to initialization request.
-init :: (Session -> IO void) -> ServerState -> Snap ()
-init worker server = do
-    session <- createSession worker server
-    modifyResponse . setHeader "Set-Token" . fromString . show . sToken $ session
-    poll session
-
-snapRequestURI :: Snap URI
-snapRequestURI = do
-    uri     <- getInput "info"
-    maybe (error ("Unable to parse request URI: " ++ show uri)) return (uri >>= parseURI)
-
-snapRequestCookies :: Snap [(String, String)]
-snapRequestCookies = do
-    cookies <- getsRequest rqCookies
-    return $ flip map cookies $ \Cookie{..} -> (toString cookieName,toString cookieValue)
-
-
--- | Respond to poll requests.
-poll :: Session -> Snap ()
-poll Session{..} = do
-    let
-        setDisconnected = do
-            now <- getCurrentTime
-            modifyMVar_ sConnectedState (const (return (Disconnected now)))
-    
-    instructions <- liftIO $ do
-        modifyMVar_ sConnectedState (const (return Connected))
-        threadId <- myThreadId
-        forkIO $ do
-            delaySeconds $ 60 * 5 -- Force kill after 5 minutes.
-            killThread threadId
-        E.catch (readAvailableChan sInstructions) $ \e -> do
-            -- no instructions available after some time
-            when (e == Control.Exception.ThreadKilled) $ setDisconnected
-            E.throw e
-    
-    writeJson instructions
-
--- | Handle signals sent from the client.
-signal :: Session -> Snap ()
-signal Session{..} = do
-    input <- getParam "signal"
-    let err = error $ "Unable to parse " ++ show input
-    case JSON.decode . LBS.fromChunks . return =<< input of
-        Just    signal -> liftIO $ writeChan sSignals signal
-        Nothing        -> err
-
-{-----------------------------------------------------------------------------
-    Implementation of two-way communication
-    - WebSockets
-------------------------------------------------------------------------------}
--- | Route the communication between JavaScript and the server
-routeWebsockets :: (Session -> IO a) -> ServerState -> Routes
-routeWebsockets worker server =
-    [("websocket", response)]
-    where
-    response = do
-        session <- createSession worker server
-        WS.runWebSocketsSnap (webSocket session)
-        error "Threepenny.Internal.Core: runWebSocketsSnap should never return."
-
-
-webSocket :: Session -> WS.PendingConnection -> IO ()
-webSocket Session{..} request = void $ do
-    connection <- WS.acceptRequest request
-    -- websockets are always connected, don't let the custodian kill you.
-    modifyMVar_ sConnectedState (const (return Connected))
-
-    -- write data (in another thread)
-    sendData <- forkIO . forever $ do
-        x <- readChan sInstructions
-        -- see note [Instruction strictness]
-        WS.sendTextData connection . JSON.encode $ x
-
-    -- read data
-    let readData = do
-            input <- WS.receiveData connection
-            case input of
-                "ping" -> WS.sendTextData connection . LBS.pack $ "pong"
-                "quit" -> E.throw WS.ConnectionClosed
-                input  -> case JSON.decode input of
-                    Just signal -> writeChan sSignals signal
-                    Nothing     -> E.throw $ Atto.ParseError [] $
-                        "Threepenny.Internal.Core: Couldn't parse 'Signal' "
-                        ++ show input
-    
-    forever readData `E.finally`
-        (do
-            killThread sendData             -- kill sending thread when done
-            writeChan sSignals $ Quit ()    -- signal  Quit  event
-        )
-
-{- note [Instruction strictness]
-
-The  Instruction  may contain components that evaluate to _|_.
-An exception will be thrown when we try to send one of those to the browser.
-However, the  WS.sendSink  function is called in a different thread
-than where the faulty instruction was constructed.
-We want to throw an exception in the latter thread.
-Hence, we make sure that the  Instruction  is fully evaluated (deepseq)
-before passing it to the thread that sends it to the web browser.
-
-(Another, probably preferred, solution would be to make the  Instruction
-data type fully strict by default.)
-
--}
-
-
-
-{-----------------------------------------------------------------------------
-    FFI implementation on top of the communication channel
-------------------------------------------------------------------------------}
--- | Atomically execute the given computation in the context of a browser window
-atomic :: Window -> IO a -> IO a
-atomic window@(Session{..}) m = do
-  takeMVar sMutex
-  ret <- m
-  putMVar sMutex ()
-  return ret
-
--- | Send an instruction and read the signal response.
-call :: Session -> Instruction -> (Signal -> IO (Maybe a)) -> IO a
-call session@(Session{..}) instruction withSignal = do
-  -- see note [Instruction strictness]
-  Control.Exception.evaluate $ force instruction
-  takeMVar sMutex
-  writeChan sInstructions instruction
-  newChan <- dupChan sSignals
-  go sMutex newChan
-
-  where
-    go mutex newChan = do
-      signal <- readChan newChan
-      result <- withSignal signal
-      case result of
-        Just signal -> do putMVar mutex ()
-                          return signal
-        Nothing     -> go mutex newChan
-            -- keep reading signals from the duplicated channel
-            -- until the function above succeeds
-
--- Run the given instruction wihtout waiting for a response.
-run :: Session -> Instruction -> IO ()
-run (Session{..}) instruction =
-    writeChan sInstructions $!! instruction  -- see note [Instruction strictness]
-
--- | Run the given JavaScript function and carry on. Doesn't block.
---
--- The client window uses JavaScript's @eval()@ function to run the code.
-runFunction :: Window -> JSFunction () -> IO ()
-runFunction session = run session . RunJSFunction . toCode
-
--- | Run the given JavaScript function and wait for results. Blocks.
---
--- The client window uses JavaScript's @eval()@ function to run the code.
-callFunction :: Window -> JSFunction a -> IO a
-callFunction window jsfunction = 
-    call window (CallJSFunction . toCode $ jsfunction) $ \signal ->
-        case signal of
-            FunctionResult v -> case marshalResult jsfunction window v of
-                Success a -> return $ Just a
-                Error   _ -> return Nothing
-            _ -> return Nothing
-
--- | Package a Haskell function such that it can be called from JavaScript.
---
--- At the moment, we implement this as an event handler that is
--- attached to the @head@ element. In particular, it is not garbage
--- collected as long as the head element is alive.
-newHsFunction
-    :: Window       -- ^ Browser window context
-    -> IO ()        -- ^ Haskell function
-    -> IO (HsFunction (IO ()))
-newHsFunction window@(Session{..}) fun = do
-    cid <- modifyMVar sClosures $ \(x:xs) -> return (xs,x)
-    let eventId = "callback-" ++ show cid
-    attachClosure sHeadElement eventId (const $ fun)
-    return $ HsFunction (unprotectedGetElementId sHeadElement) eventId
-
-
-{-----------------------------------------------------------------------------
-    Snap utilities
-------------------------------------------------------------------------------}
--- Write JSON to output.
-writeJson :: (MonadSnap m, JSON.ToJSON a) => a -> m ()
-writeJson json = do
-    modifyResponse $ setContentType "application/json"
-    writeLBS . JSON.encode $ json
-
--- Get a text input from snap.
-getInput :: (MonadSnap f) => ByteString -> f (Maybe String)
-getInput = fmap (fmap (unpack . Text.decodeUtf8)) . getParam
-
--- Read an input from snap.
-readInput :: (MonadSnap f,Read a) => ByteString -> f (Maybe a)
-readInput = fmap (>>= readMay) . getInput
-
-{-----------------------------------------------------------------------------
-    Resourcse
-------------------------------------------------------------------------------}
-type Routes = [(ByteString, Snap ())]
-
-routeResources :: Maybe FilePath -> Maybe FilePath -> ServerState -> Routes
-routeResources customHTML staticDir server =
-    fixHandlers noCache $
-        static ++
-        [("/"                          , root)
-        ,("/driver/threepenny-gui.js"  , writeText jsDriverCode )
-        ,("/driver/threepenny-gui.css" , writeText cssDriverCode)
-        ,("/file/:name"                ,
-            withFilepath (sFiles server) (flip serveFileAs))
-        ,("/dir/:name"                 ,
-            withFilepath (sDirs  server) (\path _ -> serveDirectory path))
-        ]
-    where
-    fixHandlers f routes = [(a,f b) | (a,b) <- routes]
-    noCache h = modifyResponse (setHeader "Cache-Control" "no-cache") >> h
-    
-    static = maybe [] (\dir -> [("/static", serveDirectory dir)]) staticDir
-    
-    root = case customHTML of
-        Just file -> case staticDir of
-            Just dir -> serveFile (dir </> file)
-            Nothing  -> logError "Graphics.UI.Threepenny: Cannot use tpCustomHTML file without tpStatic"
-        Nothing   -> writeText defaultHtmlFile
-
-
--- Get a filename from a URI
-withFilepath :: MVar Filepaths -> (FilePath -> MimeType -> Snap a) -> Snap a
-withFilepath rDict cont = do
-    mName    <- getParam "name"
-    (_,dict) <- liftIO $ withMVar rDict return
-    case (\key -> M.lookup key dict) =<< mName of
-        Just (path,mimetype) -> cont path mimetype
-        Nothing              -> error $ "File not loaded: " ++ show mName
-
--- FIXME: Serving large files fails with the exception
--- System.SendFile.Darwin: invalid argument (Socket is not connected)
-
-
-newAssociation :: MVar Filepaths -> (FilePath, MimeType) -> IO String
-newAssociation rDict (path,mimetype) = do
-    (old, dict) <- takeMVar rDict
-    let new = old + 1; key = show new ++ takeFileName path
-    putMVar rDict $ (new, M.insert (fromString key) (path,mimetype) dict)
-    return key
-
--- | Begin to serve a local file under an URI.
-loadFile :: Session -> MimeType -> FilePath -> IO String
-loadFile Session{..} mimetype path = do
-    key <- newAssociation (sFiles sServerState) (path,mimetype)
-    return $ "/file/" ++ key
-
--- | Begin to serve a local directory under an URI.
-loadDirectory :: Session -> FilePath -> IO String
-loadDirectory Session{..} path = do
-    key <- newAssociation (sDirs sServerState) (path,"")
-    return $ "/dir/" ++ key
-
-
-{-----------------------------------------------------------------------------
-    Elements
-        Creation, Management, Finalization
-------------------------------------------------------------------------------}
--- | Create a new element of the given tag name.
-newElement :: Window        -- ^ Browser window in which context to create the element
-           -> String        -- ^ The tag name.
-           -> Events        -- ^ Events associated to that element.
-           -> IO Element    -- ^ A tag reference. Non-blocking.
-newElement elSession@(Session{..}) elTagName elEvents = do
-    elHandlers <- newMVar M.empty
-    el         <- Foreign.newItem sPrizeBooth ElementData{..}
-    Foreign.addFinalizer el $ delete el
-        -- FIXME: Do not try to delete elements from the session when
-        -- the session is broken/disconnected already.
-        -- A fix should be part of the  run  function, though.
-    return el
-
--- | Get 'Window' associated to an 'Element'.
-getWindow :: Element -> IO Window
-getWindow e = withElement e $ \_ window -> return window
-
--- | Look up several elements in the browser window.
-lookupElements :: Session -> [ElementId] -> IO [Element]
-lookupElements window = mapM (flip lookupElement window)
-
--- | Append a child element to a parent element. Non-blocking.
-appendElementTo
-    :: Element     -- ^ Parent.
-    -> Element     -- ^ Child.
-    -> IO ()
-appendElementTo eParent eChild =
-    -- TODO: Right now, parent and child need to be from the same session/browser window
-    --       Implement transfer of elements across browser windows
-    withElement eParent $ \parent session ->
-    withElement eChild  $ \child  _       -> do
-        Foreign.addReachable eParent eChild
-        runFunction session $ ffi "$(%1).append($(%2))" parent child
-
--- | Get the head of the page.
-getHead :: Window -> IO Element
-getHead session = return $ sHeadElement session
-
--- | Get the body of the page.
-getBody :: Window -> IO Element
-getBody session = return $ sBodyElement session
-
--- | Empty the given element.
-emptyEl :: Element -> IO ()
-emptyEl el = withElement el $ \elid window -> do
-    Foreign.clearReachable el
-    runFunction window $ ffi "$(%1).contents().detach()" elid
-
--- | Delete the given element.
-delete :: Element -> IO ()
-delete el = withElement el $ \elid window ->
-    run window $ Delete elid
-    -- Note: We want a primitive 'Delete' here, because 
-    -- we do not want the implicit conversion from ElementId to element.
-
-
-{-----------------------------------------------------------------------------
-    Event handling
-------------------------------------------------------------------------------}
-{- $eventhandling
-
-    To bind events to elements, use the 'bind' function.
-
-    To handle DOM events, use the 'handleEvent' function, or the
-    'handleEvents' function which will block forever.
-
-    See the rest of this section for some helpful functions that do
-    common binding, such as clicks, hovers, etc.
--}
-
--- | Handle events signalled from the client.
-handleEvents :: Window -> IO ()
-handleEvents window@(Session{..}) = do
-    signal <- getSignal window
-    case signal of
-        Threepenny.Event elid eventId params -> do
-            handleEvent1 window (elid,eventId,EventData params)
-#ifdef REBUG
-            -- debug garbage collection of elements:
-            System.Mem.performGC
-#endif
-            handleEvents window
-        Quit () -> do
-            snd sEventQuit ()
-            -- do not continue handling events
-        _       -> do
-            handleEvents window
-
--- | Handle a single event.
-handleEvent1 :: Window -> (ElementId, EventId, EventData) -> IO ()
-handleEvent1 window (elid,eventId,params) = do
-    el <- lookupElement elid window
-    withElementData el $ \_ eldata -> do
-        handlers <- readMVar $ elHandlers eldata
-        case M.lookup eventId handlers of
-            Just handler -> handler params
-            Nothing      -> return ()
-
--- Get the latest signal sent from the client.
-getSignal :: Window -> IO Signal
-getSignal (Session{..}) = readChan sSignals
-
--- | Associate a new closure with an element.
-attachClosure :: Element -> EventId -> Handler EventData -> IO () 
-attachClosure el eventId handler = withElementData el $ \_ eldata ->
-    modifyMVar_ (elHandlers eldata) $ return .
-        M.insertWith (\h1 h a -> h1 a >> h a) eventId handler
-
--- | Bind an event handler for a dom event to an 'Element'.
-bind
-    :: EventId              -- ^ The eventType, see any DOM documentation for a list of these.
-    -> Element              -- ^ The element to bind to.
-    -> Handler EventData    -- ^ The event handler to bind.
-    -> IO ()
-bind eventId e handler = withElementData e $ \elid el -> do
-    handlers <- readMVar $ elHandlers el
-    -- register with client if it has never been registered on the server
-    when (not $ eventId `M.member` handlers) $
-        run (elSession el) $ Bind eventId elid
-    -- register with server
-    attachClosure e eventId handler
-
--- | Register event handler that occurs when the client has disconnected.
-disconnect :: Window -> Event ()
-disconnect = fst . sEventQuit
-
--- | Initialize the 'head' and 'body' elements when the session starts.
-initializeElements :: Session -> IO Session
-initializeElements session@(Session{..}) = do
-        sHeadElement <- createElement "head"
-        sBodyElement <- createElement "body"
-        return $ Session{..}
-    where
-    newEvents     e   = newEventsNamed $ \(name,_,handler) -> bind name e handler
-    createElement tag = mdo
-        x <- newElement session tag =<< newEvents x
-        return x
-
-{-----------------------------------------------------------------------------
-    Querying the DOM
-------------------------------------------------------------------------------}
--- $querying
--- 
--- The DOM can be searched for elements of a given name, and nodes can
--- be inspected for their values.
-
--- | Get all elements of the given tag name. Blocks.
-getElementsByTagName :: Window -> String -> IO [Element]
-getElementsByTagName window tag = do
-    elids <- callFunction window $ ffi "document.getElementsByTagName(%1)" tag
-    lookupElements window elids
-
--- | Get a list of elements by particular IDs.  Blocks.
-getElementsById :: Window -> [String] -> IO [Element]
-getElementsById window ids = do
-    elids <- forM ids $ \x ->
-        callFunction window $ ffi "[document.getElementById(%1)]" x
-    lookupElements window $ concat elids
-
--- | Get a list of elements by particular class.  Blocks.
-getElementsByClassName :: Window -> String -> IO [Element]
-getElementsByClassName window cls = do
-    elids <- callFunction window $ ffi "document.getElementsByClassName(%1)" cls
-    lookupElements window elids
-
--- | Get values from inputs. Blocks. This is faster than many @getValue@ invocations.
-getValuesList
-    :: [Element]   -- ^ A list of elements to get the values of.
-    -> IO [String] -- ^ The list of plain text values.
-getValuesList []        = return []
-getValuesList es@(e0:_) = withElement e0 $ \_ window -> do
-    let elids  = map unprotectedGetElementId es
-    call window (GetValues elids) $ \signal ->
-        case signal of
-            Values strs -> return $ Just strs
-            _           -> return Nothing
-
--- | Get the request location.
-getRequestLocation :: Window -> IO URI
-getRequestLocation = return . fst . sStartInfo
-
--- | Get the request cookies.
-getRequestCookies :: Window -> IO [(String,String)]
-getRequestCookies = return . snd . sStartInfo
-
-{-----------------------------------------------------------------------------
-    Utilities
-------------------------------------------------------------------------------}
--- | Send a debug message to the client. The behaviour of the client
---   is unspecified.
-debug
-    :: Window -- ^ Client window
-    -> String -- ^ Some plain text to send to the client.
-    -> IO ()
-debug window = run window . Debug
diff --git a/src/Graphics/UI/Threepenny/Internal/FFI.hs b/src/Graphics/UI/Threepenny/Internal/FFI.hs
deleted file mode 100644
--- a/src/Graphics/UI/Threepenny/Internal/FFI.hs
+++ /dev/null
@@ -1,167 +0,0 @@
-{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
-{-# LANGUAGE DeriveDataTypeable #-}
-module Graphics.UI.Threepenny.Internal.FFI (
-    -- * Synopsis
-    -- | Combinators for creating JavaScript code and marhsalling.
-    
-    -- * Documentation
-    ffi,
-    FFI(..), ToJS(..),
-    JSFunction, HsFunction,
-    
-    showJSON,
-    
-    toCode, marshalResult,
-    ) where
-
-import           Data.Aeson            as JSON
-import qualified Data.Aeson.Types      as JSON
-import qualified Data.Aeson.Encode
-import           Data.ByteString       (ByteString)
-import           Data.Data
-import           Data.Functor
-import           Data.Maybe
-import           Data.String           (fromString)
-import           Data.Text             (Text)
-import qualified Data.Text.Lazy
-import qualified Data.Text.Lazy.Builder
-
-import Safe (atMay)
-
-import Graphics.UI.Threepenny.Internal.Types
-
-{-----------------------------------------------------------------------------
-    Easy, if stupid conversion between String and JSON
-
-    TODO: Use more efficient string types like ByteString, Text, etc.
-------------------------------------------------------------------------------}
-showJSON :: ToJSON a => a -> String
-showJSON
-    = Data.Text.Lazy.unpack
-    . Data.Text.Lazy.Builder.toLazyText
-    . Data.Aeson.Encode.fromValue . JSON.toJSON
-
-{-----------------------------------------------------------------------------
-    JavaScript Code and Foreign Function Interface
-------------------------------------------------------------------------------}
--- | JavaScript code snippet.
-newtype JSCode = JSCode { unJSCode :: String }
-    deriving (Eq, Ord, Show, Data, Typeable)
-
--- | Helper class for rendering Haskell values as JavaScript expressions.
-class ToJS a where
-    render :: a -> JSCode
-
-instance ToJS String     where render   = render . JSON.String . fromString
-instance ToJS Text       where render   = render . JSON.String
-instance ToJS Float      where render   = JSCode . showJSON
-instance ToJS Double     where render   = JSCode . showJSON
-instance ToJS Int        where render   = JSCode . show
-instance ToJS Bool       where render b = JSCode $ if b then "true" else "false"
-instance ToJS JSON.Value where render   = JSCode . showJSON
--- TODO: ByteString instance may be wrong. Only needed for ElementId right now.
-instance ToJS ByteString where render   = JSCode . show
-instance ToJS ElementId  where
-    render (ElementId x) = apply "elidToElement(%1)" [render x]
-instance ToJS Element    where render = render . unprotectedGetElementId
--- Haskell function with no parameters
-instance ToJS (HsFunction (IO ())) where
-    render (HsFunction (ElementId elid) name) =
-        apply "callback(%1,%2)" [render elid, render name]
-
-
--- | A JavaScript function with a given output type @a@.
-data JSFunction a = JSFunction
-    { code    :: JSCode                                  -- ^ code snippet
-    , marshal :: Window -> JSON.Value -> JSON.Parser a
-      -- ^ conversion to Haskell value
-    }
-
--- | Render function to a textual representation using JavaScript syntax.
-toCode :: JSFunction a -> String
-toCode = unJSCode . code
-
--- | Convert function result to a Haskell value.
-marshalResult
-    :: JSFunction a   -- ^ Function that has been executed
-    -> Window         -- ^ Browser context
-    -> JSON.Value     -- ^ JSON representation of the return value 
-    -> JSON.Result a  -- ^ Function result as parsed Haskell value
-marshalResult fun w = JSON.parse (marshal fun w)
-
-instance Functor JSFunction where
-    fmap f = fmapWindow (const f)
-
-fmapWindow :: (Window -> a -> b) -> JSFunction a -> JSFunction b
-fmapWindow f (JSFunction c m) = JSFunction c (\w v -> f w <$> m w v)
-
-fromJSCode :: JSCode -> JSFunction ()
-fromJSCode c = JSFunction { code = c, marshal = \_ _ -> return () }
-
--- | Helper class for making 'ffi' a variable argument function.
-class FFI a where
-    fancy :: ([JSCode] -> JSCode) -> a
-
-instance (ToJS a, FFI b) => FFI (a -> b) where
-    fancy f a = fancy $ f . (render a:)
-
-instance FFI (JSFunction ())          where fancy f = fromJSCode $ f []
-instance FFI (JSFunction String)      where fancy   = mkResult "%1.toString()"
-instance FFI (JSFunction Text)        where fancy   = mkResult "%1.toString()"
-instance FFI (JSFunction JSON.Value)  where fancy   = mkResult "%1"
-instance FFI (JSFunction Int)         where fancy   = mkResult "%1"
-instance FFI (JSFunction Double)      where fancy   = mkResult "%1"
-instance FFI (JSFunction Float)       where fancy   = mkResult "%1"
-instance FFI (JSFunction [ElementId]) where fancy   = mkResult "elementsToElids(%1)"
-
--- FIXME: We need access to IO in order to turn a Coupon into an Element.
-{- 
-instance FFI (JSFunction Element)   where
-    fancy   = fmapWindow (\w elid -> Element elid w) . fancy
--}
-
-mkResult :: FromJSON a => String -> ([JSCode] -> JSCode) -> JSFunction a
-mkResult client f = JSFunction
-    { code    = apply client [f []]
-    , marshal = \w -> parseJSON
-    }
-
--- | Simple JavaScript FFI with string substitution.
---
--- Inspired by the Fay language. <http://fay-lang.org/>
---
--- > example :: String -> Int -> JSFunction String
--- > example = ffi "$(%1).prop('checked',%2)"
---
--- The 'ffi' function takes a string argument representing the JavaScript
--- code to be executed on the client.
--- Occurrences of the substrings @%1@ to @%9@ will be replaced by
--- subequent arguments.
---
--- Note: Always specify a type signature! The types automate
--- how values are marshalled between Haskell and JavaScript.
--- The class instances for the 'FFI' class show which conversions are supported.
---
-ffi :: FFI a => String -> a
-ffi macro = fancy (apply macro)
-
-testFFI :: String -> Int -> JSFunction String
-testFFI = ffi "$(%1).prop('checked',%2)"
-
--- | String substitution.
--- Substitute occurences of %1, %2 up to %9 with the argument strings.
--- The types ensure that the % character has no meaning in the generated output.
--- 
--- > apply "%1 and %2" [x,y] = x ++ " and " ++ y
-apply :: String -> [JSCode] -> JSCode
-apply code args = JSCode $ go code
-    where
-    at xs i = maybe (error err) id $ atMay xs i
-    err     = "Graphics.UI.Threepenny.FFI: Too few arguments in FFI call!"
-    argument i = unJSCode (args `at` i)
-    
-    go []         = []
-    go ('%':c:cs) = argument index ++ go cs
-        where index = fromEnum c - fromEnum '1'
-    go (c:cs)     = c : go cs
-
diff --git a/src/Graphics/UI/Threepenny/Internal/Include.hs b/src/Graphics/UI/Threepenny/Internal/Include.hs
deleted file mode 100644
--- a/src/Graphics/UI/Threepenny/Internal/Include.hs
+++ /dev/null
@@ -1,31 +0,0 @@
-{-# LANGUAGE TemplateHaskell, CPP #-}
-module Graphics.UI.Threepenny.Internal.Include (include) where
- 
-import Data.Functor
-import System.IO
-import qualified Language.Haskell.TH as TH
-import Language.Haskell.TH.Quote
-
-#if defined(CABAL) || defined(FPCOMPLETE)
-root :: FilePath
-root = "src/"
-#else
-root :: FilePath
-root = "../src/" -- running examples from ghci
-#endif
-
-include :: QuasiQuoter
-include = QuasiQuoter
-        { quoteExp  = f             -- only used as an expression,
-        , quotePat  = undefined     -- hence all other use cases undefined
-        , quoteType = undefined
-        , quoteDec  = undefined
-        }
-    where
-    f s = TH.LitE . TH.StringL <$> TH.runIO (readFileUTF8 $ root ++ s)
-
-readFileUTF8 :: FilePath -> IO String
-readFileUTF8 path = do
-    h <- openFile path ReadMode
-    hSetEncoding h utf8
-    hGetContents h
diff --git a/src/Graphics/UI/Threepenny/Internal/Resources.hs b/src/Graphics/UI/Threepenny/Internal/Resources.hs
deleted file mode 100644
--- a/src/Graphics/UI/Threepenny/Internal/Resources.hs
+++ /dev/null
@@ -1,57 +0,0 @@
-{-# LANGUAGE QuasiQuotes, CPP #-}
-module Graphics.UI.Threepenny.Internal.Resources where
-
-import           Data.Text                                       (Text)
-import qualified Data.Text                               as Text
-import           Graphics.UI.Threepenny.Internal.Include
-
-
-jsDriverCode    :: Text
-cssDriverCode   :: Text
-defaultHtmlFile :: Text
-
-
-jsDriverCode = Text.unlines $ map Text.pack
-    [ [include|Graphics/UI/jquery.js|]
-    , [include|Graphics/UI/jquery-cookie.js|]
-    , [include|Graphics/UI/driver.js|]
-    ]
-
-cssDriverCode = Text.pack [include|Graphics/UI/driver.css|]
-
-defaultHtmlFile = Text.pack [include|Graphics/UI/index.html|]
-
-
-{-
--- Disabled code:
--- Do not embed files with executables.
-
-import qualified Data.Text.IO                            as Text
-import           System.FilePath
-import           System.IO.Unsafe
-
-#ifdef CABAL
-import qualified Paths_threepenny_gui
-getDataDir = fmap (</> "src" </> "Graphics" </> "UI") Paths_threepenny_gui.getDataDir
-
-#else
-getDataDir = return $ "Graphics" </> "UI"
-#endif
-
-
-jsDriverCode = unsafePerformIO $
-    readFiles $ words "jquery.js jquery-cookie.js driver.js" 
-
-cssDriverCode = unsafePerformIO $
-    readFiles ["driver.css"]
-
-defaultHtmlFile = unsafePerformIO $
-    readFiles ["index.html"]
-
-readFiles files = do
-    ys <- mapM (Text.readFile . getDataFile) files
-    return $ Text.unlines ys
-
-getDataFile x = unsafePerformIO $ fmap (</> x) getDataDir
-
--}
diff --git a/src/Graphics/UI/Threepenny/Internal/Types.hs b/src/Graphics/UI/Threepenny/Internal/Types.hs
deleted file mode 100644
--- a/src/Graphics/UI/Threepenny/Internal/Types.hs
+++ /dev/null
@@ -1,269 +0,0 @@
-{-# LANGUAGE CPP #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE DeriveDataTypeable #-}
-{-# LANGUAGE OverloadedStrings #-}
-
-module Graphics.UI.Threepenny.Internal.Types where
-
-import Prelude              hiding (init)
-
-import Control.Applicative
-import Control.Concurrent
-import Control.DeepSeq
-import Control.Monad
-import qualified Reactive.Threepenny    as E
-import           Data.ByteString.Char8  (ByteString)
-import qualified Data.ByteString.Char8  as BS
-import Data.Map                         (Map)
-import Data.String                      (fromString)
-import Data.Time
-import Data.Text.Encoding               (encodeUtf8, decodeUtf8)
-
-import Network.URI
-import Data.Data
-import           Data.Aeson             as JSON
-import qualified Data.Aeson.Types       as JSON
-import Data.Text
-
-import System.IO (stderr)
-import System.IO.Unsafe
-
-import qualified Foreign.Coupon as Foreign
-
-{-----------------------------------------------------------------------------
-    Elements and ElementIds
-------------------------------------------------------------------------------}
--- | Reference to an element in the DOM of the client window.
-type Element     = Foreign.Item ElementData
-data ElementData = ElementData
-    { elTagName  :: String          -- element is a <tag>..</tag> element
-    , elSession  :: Session         -- associated browser window
-    , elHandlers :: MVar Handlers   -- event handlers associated with that element
-    , elEvents   :: Events          -- events         associated with that element
-    }
-newtype ElementId = ElementId BS.ByteString
-    deriving (Data,Typeable,Show,Eq,Ord)
-
-instance NFData ElementId where
-    rnf (ElementId x) =
-#if defined(CABAL) || defined(FPCOMPLETE)
-#if MIN_VERSION_bytestring(0, 10, 0)
-        rnf x
-#else
-        BS.length x `seq` ()
-#endif
-#else
-        rnf x
-#endif
-
-type EventId  = String
-type Handlers = Map EventId (E.Handler EventData)
-type Events   = EventId -> E.Event EventData
-
-
--- Marshalling ElementId
-instance ToJSON ElementId where
-    toJSON (ElementId o)  = toJSON $ decodeUtf8 o
-instance FromJSON ElementId where
-    parseJSON (Object v)  = (ElementId . encodeUtf8) <$> v .: "Element"
-    parseJSON _           = mzero
-
-
--- | Perform an action on the element.
--- The element is not garbage collected while the action is run.
-withElementData :: Element -> (ElementId -> ElementData -> IO a) -> IO a
-withElementData e f = Foreign.withItem e $ \coupon el ->
-    let elid = ElementId $ case fromString (elTagName el) of
-            ""     -> coupon
-            "head" -> "head"
-            "body" -> "body" 
-            tag    -> BS.concat ["*",coupon,":",tag]
-    in f elid el
-
--- | Special case of 'withElementData'.
-withElement :: Element -> (ElementId -> Session -> IO b) -> IO b
-withElement e f = withElementData e $ \elid el -> f elid (elSession el)
-
--- | Get 'ElementId' without any guarantee that the element is still alive.
-unprotectedGetElementId :: Element -> ElementId
-unprotectedGetElementId e = unsafePerformIO . withElement e $ \elid _ -> return elid
-
-
--- | Look up an element in the browser window.
-lookupElement :: ElementId -> Session -> IO Element
-lookupElement (ElementId xs) Session{..} = case xs of
-        "head"      -> return sHeadElement
-        "body"      -> return sBodyElement
-        xs          -> maybe (error msg) id <$> Foreign.lookup (coupon xs) sPrizeBooth
-    where
-    coupon xs = if BS.head xs == '*'
-        then BS.takeWhile (/= ':') . BS.tail $ xs
-        else xs
-
-    msg = "Graphics.UI.Threepenny: Fatal error: ElementId " ++ show xs
-        ++ "was garbage collected on the server, but is still present in the browser."
-
-
-{-----------------------------------------------------------------------------
-    Server
-------------------------------------------------------------------------------}
--- | A client session.
-data Session = Session
-  { sSignals        :: Chan Signal
-  , sInstructions   :: Chan Instruction
-  , sMutex          :: MVar ()
-  , sEventQuit      :: (E.Event (), E.Handler ())
-  , sClosures       :: MVar [Integer]
-  , sPrizeBooth     :: Foreign.PrizeBooth ElementData
-  , sHeadElement    :: Element
-  , sBodyElement    :: Element
-  , sToken          :: Integer
-  , sConnectedState :: MVar ConnectedState
-  , sThreadId       :: ThreadId
-  , sStartInfo      :: (URI,[(String,String)])
-  , sServerState    :: ServerState
-  }
-
-type Sessions      = Map Integer Session
-type MimeType      = ByteString
-type Filepaths     = (Integer, Map ByteString (FilePath, MimeType))
-
-data ServerState = ServerState
-    { sSessions :: MVar Sessions
-    , sFiles    :: MVar Filepaths
-    , sDirs     :: MVar Filepaths
-    }
-
-data ConnectedState
-  = Disconnected UTCTime -- ^ The time that the poll disconnected, or
-                         -- the first initial connection time.
-  | Connected            -- ^ The client is connected, we don't care
-                         -- since when.
-  deriving (Show)
-
--- | A Haskell value/function of type 'a',
--- presented in a form that can be called from JavaScript.
-data HsFunction a = HsFunction ElementId EventId
-    deriving (Typeable, Data, Show)
-
-
-{-----------------------------------------------------------------------------
-    Public types
-------------------------------------------------------------------------------}
--- | The client browser window.
-type Window = Session
-
--- | Data from an event. At the moment it is empty.
-data EventData = EventData [Maybe String]
-
--- | Record for configuring the Threepenny GUI server.
-data Config = Config
-    { tpPort       :: Maybe Int           
-        -- ^ Port number.
-        -- @Nothing@ means that the port number is
-        -- read from the environment variable @PORT@.
-        -- Alternatively, port @8023@ is used if this variable is not set.
-    , tpAddr       :: Maybe ByteString
-        -- ^ Bind address.
-        -- @Nothing@ means that the bind address is
-        -- read from the environment variable @ADDR@.
-        -- Alternatively, address @127.0.0.1@ is
-        -- used if this variable is not set.
-    , tpCustomHTML :: Maybe FilePath
-        -- ^ Custom HTML file to replace the default one.
-    , tpStatic     :: Maybe FilePath
-        -- ^ Directory that is served under @/static@.
-    , tpLog        :: ByteString -> IO ()
-        -- ^ Print a single log message.
-    }
-
-defaultPort :: Int
-defaultPort = 8023
-
-defaultAddr :: ByteString
-defaultAddr = "127.0.0.1"
-
--- | Default configuration.
---
--- Port from environment variable or @8023@,
--- no custom HTML, no static directory, logging to stderr.
-defaultConfig :: Config
-defaultConfig = Config
-    { tpPort       = Nothing
-    , tpAddr       = Nothing
-    , tpCustomHTML = Nothing
-    , tpStatic     = Nothing
-    , tpLog        = \s -> BS.hPut stderr s >> BS.hPut stderr "\n"
-    }
-
-
-{-----------------------------------------------------------------------------
-    Communication between client and server
-------------------------------------------------------------------------------}
--- | An instruction that is sent to the client as JSON.
-data Instruction
-  = Debug String
-  | SetToken Integer
-  | Bind EventId ElementId
-  | GetValues [ElementId]
-  | RunJSFunction String
-  | CallJSFunction String
-  | Delete ElementId
-  deriving (Typeable,Data,Show)
-
-instance ToJSON Instruction where
-    toJSON (Debug x)          = object [ "tag" .= ("Debug" :: Text)
-                                       , "contents" .= x]
-    toJSON (SetToken x)       = object [ "tag" .= ("SetToken" :: Text)
-                                       , "contents" .= x]
-    toJSON (Bind x y)         = object [ "tag" .= ("Bind" :: Text)
-                                       , "contents" .= [toJSON x, toJSON y]]
-    toJSON (GetValues xs)     = object [ "tag" .= ("GetValues" :: Text)
-                                       , "contents" .= xs]
-    toJSON (RunJSFunction  x) = object [ "tag" .= ("RunJSFunction" :: Text)
-                                       , "contents" .= x]
-    toJSON (CallJSFunction x) = object [ "tag" .= ("CallJSFunction" :: Text)
-                                       , "contents" .= x]
-    toJSON (Delete x)         = object [ "tag" .= ("Delete" :: Text)
-                                       , "contents" .= x]
-
-instance NFData Instruction where
-    rnf (Debug    x  ) = rnf x
-    rnf (SetToken x  ) = rnf x
-    rnf (Bind     x y) = rnf x `seq` rnf y
-    rnf (GetValues xs) = rnf xs
-    rnf (RunJSFunction  x) = rnf x
-    rnf (CallJSFunction x) = rnf x
-    rnf (Delete x)     = rnf x
-
--- | A signal (mostly events) that are sent from the client to the server.
-data Signal
-  = Quit ()
-  | Event ElementId EventId [Maybe String]
-  | Values [String]
-  | FunctionCallValues [Maybe String]
-  | FunctionResult JSON.Value
-  deriving (Typeable,Show)
-
-instance FromJSON Signal where
-  parseJSON (Object v) = do
-    let quit  = Quit <$> v .: "Quit"
-        event = do
-          e         <- v .: "Event"
-          elid      <- e .: "Element"
-          eventId   <- e .: "EventId"
-          arguments <- e .: "Params"
-          args      <- mapM nullable arguments
-          return $ Event elid eventId args
-        values = Values <$> v .: "Values"
-        fcallvalues = do
-          FunctionCallValues <$> (v .: "FunctionCallValues" >>= mapM nullable)
-        fresult = FunctionResult <$> v .: "FunctionResult"
-    quit <|> event <|> values <|> fcallvalues <|> fresult
-  parseJSON _        = mzero
-
--- | Read a JSON Value that may be null.
-nullable :: FromJSON a => JSON.Value -> JSON.Parser (Maybe a)
-nullable Null = return Nothing
-nullable v    = Just <$> parseJSON v
-
diff --git a/src/Graphics/UI/Threepenny/JQuery.hs b/src/Graphics/UI/Threepenny/JQuery.hs
--- a/src/Graphics/UI/Threepenny/JQuery.hs
+++ b/src/Graphics/UI/Threepenny/JQuery.hs
@@ -1,4 +1,3 @@
-{-# OPTIONS -fno-warn-wrong-do-bind #-}
 module Graphics.UI.Threepenny.JQuery where
 
 import Control.Arrow
@@ -6,12 +5,12 @@
 import Data.Char
 import Data.Default
 import Data.Maybe
-import Graphics.UI.Threepenny.Core
-import qualified Graphics.UI.Threepenny.Internal.Driver as Core
-import qualified Graphics.UI.Threepenny.Internal.Types  as Core
-import Reactive.Threepenny
 
+import Graphics.UI.Threepenny.Core
 
+{-----------------------------------------------------------------------------
+    jQuery utilities
+------------------------------------------------------------------------------}
 data Easing = Swing | Linear
   deriving (Eq,Enum,Show)
 
@@ -31,11 +30,10 @@
     runFunction $ ffi "$(%1).animate({opacity: 0}, %2 * 1, %3, %4)"
         el duration (map toLower (show easing)) callback
 
--- | Do something on return.
+-- | The 'sendValue' event happens whenver the return key is pressed
+-- while the element has focus. Its data is the event value.
 sendValue :: Element -> Event String
-sendValue el = fmap f (domEvent "sendvalue" el)
-    where
-    f (EventData x) = concat . catMaybes $ x
+sendValue = fmap unsafeFromJSON . domEvent "sendvalue"
 
 -- | Focus an element.
 setFocus :: Element -> UI ()
diff --git a/src/Graphics/UI/Threepenny/SVG/Elements.hs b/src/Graphics/UI/Threepenny/SVG/Elements.hs
--- a/src/Graphics/UI/Threepenny/SVG/Elements.hs
+++ b/src/Graphics/UI/Threepenny/SVG/Elements.hs
@@ -35,90 +35,90 @@
     view, vkern,
     ) where
 
-import Prelude ()
-import Graphics.UI.Threepenny.Core (mkElement)
+import Prelude (Maybe(..))
+import Graphics.UI.Threepenny.Core (mkElementNamespace)
 
 
-tag    = mkElement
-itag   = mkElement
+tag    = mkElementNamespace (Just "http://www.w3.org/2000/svg")
+itag   = tag
 
-a                     =  tag "svg:a"
-altGlyph              =  tag "svg:altGlyph"
-altGlyphDef           = itag "svg:altGlyphDef"
-altGlyphItem          = itag "svg:altGlyphItem"
-animate               =  tag "svg:animate"
-animateColor          =  tag "svg:animateColor"
-animateMotion         =  tag "svg:animateMotion"
-animateTransform      = itag "svg:animateTransform"
-circle                = itag "svg:circle"
-clipPath              =  tag "svg:clipPath"
-colorProfile          = itag "svg:colorProfile"
-cursor                = itag "svg:cursor"
-defs                  =  tag "svg:defs"
-desc                  = itag "svg:desc"
-ellipse               =  tag "svg:ellipse"
-feBlend               =  tag "svg:feBlend"
-feColorMatrix         =  tag "svg:feColorMatrix"
-feComponentTransfer   =  tag "svg:feComponentTransfer"
-feComposite           =  tag "svg:feComposite"
-feConvolveMatrix      =  tag "svg:feConvolveMatrix"
-feDiffuseLighting     =  tag "svg:feDiffuseLighting"
-feDisplacementMap     =  tag "svg:feDisplacementMap"
-feDistantLight        = itag "svg:feDistantLight"
-feFlood               =  tag "svg:feFlood"
-feFuncA               = itag "svg:feFuncA"
-feFuncB               = itag "svg:feFuncB"
-feFuncG               = itag "svg:feFuncG"
-feFuncR               = itag "svg:feFuncR"
-feGaussianBlur        =  tag "svg:feGaussianBlur"
-feImage               =  tag "svg:feImage"
-feMerge               =  tag "svg:feMerge"
-feMergeNode           = itag "svg:feMergeNode"
-feMorphology          =  tag "svg:feMorphology"
-feOffset              =  tag "svg:feOffset"
-fePointLight          = itag "svg:fePointLight"
-feSpecularLighting    =  tag "svg:feSpecularLighting"
-feSpotLight           = itag "svg:feSpotLight"
-feTile                =  tag "svg:feTile"
-feTurbulence          =  tag "svg:feTurbulence"
-filter                =  tag "svg:filter"
-font                  =  tag "svg:font"
-font_face             = itag "svg:font-face"
-font_face_format      = itag "svg:font-face-format"
-font_face_name        = itag "svg:font-face-name"
-font_face_srv         = itag "svg:font-face-src"
-font_face_uri         = itag "svg:font-face-uri"
-foreignObject         =  tag "svg:foreignObject"
-g                     =  tag "svg:g"
-glyph                 =  tag "svg:glyph"
-glyphRef              =  tag "svg:glyphRef"
-hkern                 = itag "svg:hkern"
-image                 =  tag "svg:image"
-line                  =  tag "svg:line"
-linearGradient        =  tag "svg:linearGradient"
-marker                =  tag "svg:marker"
-mask                  =  tag "svg:mask"
-metadata              = itag "svg:metadata"
-missing_glyph         =  tag "svg:missing-glyph"
-mpath                 = itag "svg:mpath"
-path                  = itag "svg:path"
-pattern               =  tag "svg:pattern"
-polygon               =  tag "svg:polygon"
-polyline              =  tag "svg:polyline"
-radialGradient        =  tag "svg:radialGradient"
-rect                  =  tag "svg:rect"
-script                = itag "svg:script"
-set                   = itag "svg:set"
-stop                  =  tag "svg:stop"
-style                 = itag "svg:style"
-svg                   =  tag "svg:svg"
-switch                =  tag "svg:switch"
-symbol                =  tag "svg:symbol"
-text                  =  tag "svg:text"
-textPath              =  tag "svg:textPath"
-title                 = itag "svg:title"
-tref                  =  tag "svg:tref"
-tspan                 =  tag "svg:tspan"
-use                   =  tag "svg:use"
-view                  = itag "svg:view"
-vkern                 = itag "svg:vkern"
+a                     =  tag "a"
+altGlyph              =  tag "altGlyph"
+altGlyphDef           = itag "altGlyphDef"
+altGlyphItem          = itag "altGlyphItem"
+animate               =  tag "animate"
+animateColor          =  tag "animateColor"
+animateMotion         =  tag "animateMotion"
+animateTransform      = itag "animateTransform"
+circle                = itag "circle"
+clipPath              =  tag "clipPath"
+colorProfile          = itag "colorProfile"
+cursor                = itag "cursor"
+defs                  =  tag "defs"
+desc                  = itag "desc"
+ellipse               =  tag "ellipse"
+feBlend               =  tag "feBlend"
+feColorMatrix         =  tag "feColorMatrix"
+feComponentTransfer   =  tag "feComponentTransfer"
+feComposite           =  tag "feComposite"
+feConvolveMatrix      =  tag "feConvolveMatrix"
+feDiffuseLighting     =  tag "feDiffuseLighting"
+feDisplacementMap     =  tag "feDisplacementMap"
+feDistantLight        = itag "feDistantLight"
+feFlood               =  tag "feFlood"
+feFuncA               = itag "feFuncA"
+feFuncB               = itag "feFuncB"
+feFuncG               = itag "feFuncG"
+feFuncR               = itag "feFuncR"
+feGaussianBlur        =  tag "feGaussianBlur"
+feImage               =  tag "feImage"
+feMerge               =  tag "feMerge"
+feMergeNode           = itag "feMergeNode"
+feMorphology          =  tag "feMorphology"
+feOffset              =  tag "feOffset"
+fePointLight          = itag "fePointLight"
+feSpecularLighting    =  tag "feSpecularLighting"
+feSpotLight           = itag "feSpotLight"
+feTile                =  tag "feTile"
+feTurbulence          =  tag "feTurbulence"
+filter                =  tag "filter"
+font                  =  tag "font"
+font_face             = itag "font-face"
+font_face_format      = itag "font-face-format"
+font_face_name        = itag "font-face-name"
+font_face_srv         = itag "font-face-src"
+font_face_uri         = itag "font-face-uri"
+foreignObject         =  tag "foreignObject"
+g                     =  tag "g"
+glyph                 =  tag "glyph"
+glyphRef              =  tag "glyphRef"
+hkern                 = itag "hkern"
+image                 =  tag "image"
+line                  =  tag "line"
+linearGradient        =  tag "linearGradient"
+marker                =  tag "marker"
+mask                  =  tag "mask"
+metadata              = itag "metadata"
+missing_glyph         =  tag "missing-glyph"
+mpath                 = itag "mpath"
+path                  = itag "path"
+pattern               =  tag "pattern"
+polygon               =  tag "polygon"
+polyline              =  tag "polyline"
+radialGradient        =  tag "radialGradient"
+rect                  =  tag "rect"
+script                = itag "script"
+set                   = itag "set"
+stop                  =  tag "stop"
+style                 = itag "style"
+svg                   =  tag "svg"
+switch                =  tag "switch"
+symbol                =  tag "symbol"
+text                  =  tag "text"
+textPath              =  tag "textPath"
+title                 = itag "title"
+tref                  =  tag "tref"
+tspan                 =  tag "tspan"
+use                   =  tag "use"
+view                  = itag "view"
+vkern                 = itag "vkern"
diff --git a/src/Graphics/UI/driver.css b/src/Graphics/UI/driver.css
deleted file mode 100644
--- a/src/Graphics/UI/driver.css
+++ /dev/null
@@ -1,3 +0,0 @@
-.table { display: table; }
-.table-row  { display: table-row; }
-.table-cell { display: table-cell; }
diff --git a/src/Graphics/UI/driver.js b/src/Graphics/UI/driver.js
deleted file mode 100644
--- a/src/Graphics/UI/driver.js
+++ /dev/null
@@ -1,403 +0,0 @@
-$.fn.sendvalue = function(trigger){
-  $(this).each(function(){
-    var self = this;
-    var el = $(self);
-    el.keydown(function(e){
-      if(e.which == 13) {
-        trigger.call(self,el.val());
-        return false;
-      }
-      else
-        return true;
-    });
-  });
-};
-
-$.fn.livechange = function(ms,trigger){
-  $(this).each(function(){
-    var self = this;
-    var el = $(self);
-    var last_val;
-    var check = function(){
-      var val = el.val();
-      if(val != last_val)
-        trigger.call(self);
-      last_val = val;
-    };
-    var checker;
-    var restart = function(){
-      clearTimeout(checker);
-      checker = setInterval(check,ms);
-    };
-    restart();
-    el.keypress(restart).change(restart);
-  });
-};
-
-(function(){
-
-  ////////////////////////////////////////////////////////////////////////////////
-  // State
-  var sessionToken = null;
-  var el_table = {};
-  var tp_enable_log = $.cookie('tp_log') == "true";
-  var signal_count = 0;
-
-  document.head = document.head || document.getElementsByTagName('head')[0];
-
-  ////////////////////////////////////////////////////////////////////////////////
-  // Logging
-  window.do_logging = function(x){
-    $.cookie('tp_log',x.toString());
-  };
-
-  function console_log(){
-    if (tp_enable_log) { window.console.log.apply(window.console,arguments); }
-  }
-
-  ////////////////////////////////////////////////////////////////////////////////
-  // Main entry point
-  $(document).ready(function(){
-    // initCommunicationHTTP();
-    initCommunicationWebSockets();
-  });
-
-  ////////////////////////////////////////////////////////////////////////////////
-  // Client-server communication
-  // - GET and POST requests
-  
-  // Initialize communication via HTTP requests.
-  function initCommunicationHTTP() {
-    setTimeout(function(){
-      waitForEvents();
-    })
-  }
-  
-  // Poll instruction from the server.
-  function waitForEvents(){
-    console_log("Polling… (%d signals so far)",signal_count);
-    var data = { token: sessionToken };
-    var cmd = sessionToken != null? 'poll' : 'init';
-    if(cmd == 'init')
-      data.info = window.location.href;
-    var req = $.ajax({
-      dataType: 'json',
-      url: cmd,
-      data: data,
-      success: function(events){
-        if(sessionToken == null) {
-          sessionToken = req.getResponseHeader('Set-Token').match(/[0-9]+/)*1;
-        }
-        console_log("Running event" +(events.length>1?'s':'') +"…")
-        if(events.length){
-          console_log('Event list:');
-          runMultipleEvents(events);
-        } else {
-          runEvent(events, signalEvent, function(response){
-            maybeReply(response, waitForEvents);
-          });
-        }
-      },
-      error: function(reply){
-        console_log("Error, waiting…");
-        setTimeout(function(){
-          waitForEvents();
-        },5000);
-      }
-    });
-  }
-
-  function runMultipleEvents(events){
-    if(events.length == 0) {
-      return waitForEvents();
-    }
-    runEvent(events.shift(), signalEvent, function(response){
-      maybeReply(response, function(){
-        runMultipleEvents(events);
-      });
-    });
-  }
-  
-  // Send an event to the server.
-  function signalEvent(value) {
-    signal({ Event: value}, function (){});
-  }
-  
-  // Send a reply to the server if necessary.
-  function maybeReply(response, continuation) {
-    if (response != undefined) { signal(response, continuation); }
-    else { continuation(); }
-  }
-  
-  // Send response back to the server.
-  function signal(signal,continuation){
-    signal_count++;
-    console_log('Signal: %s',JSON.stringify(signal));
-    $.ajax({
-      dataType: 'json',
-      url:'signal',
-      data: { token: sessionToken, signal: JSON.stringify(signal) },
-      success: function(){
-        continuation();
-      },
-      error: function(reply){
-        console_log("Error: %o",reply);
-      }
-    });
-  }
-  
-  ////////////////////////////////////////////////////////////////////////////////
-  // Client-server communication
-  // - WebSockets
-  
-  // Initialize client-server communication via WebSockets.
-  function initCommunicationWebSockets() {
-    var url = 'ws:' + window.location.href.toString().slice(5) + 'websocket';
-    var ws  = new WebSocket(url);
-    
-    $(window).unload( function () {
-      // Make sure that the WebSocket is closed when the browser window is closed.
-      ws.close();
-    });
-    
-    var sendEvent = function (elid, key, params) {
-      ws.send(JSON.stringify({ Event : 
-          { Element : { Element : elid }
-          , EventId : key
-          , Params  : params
-          }
-        }));
-    }
-    var reply     = function (response) {
-      if (response != undefined)
-        ws.send(JSON.stringify(response));
-    }
-    // Send ping message in regular intervals.
-    // We expect pong messages in return to keep the connection alive.
-    function ping(){
-      ws.send("ping");
-      window.setTimeout(ping,2000);
-    }
-    
-    ws.onopen = function (e){
-      ping();
-      ws.onmessage = function (msg) {
-        // console_log("WebSocket message: %o",msg);
-        if (msg.data != "pong")
-          { runEvent(JSON.parse(msg.data), sendEvent, reply); }
-      }
-      ws.onclose = function (e) {
-        console_log("WebSocket closed: %o", e);
-      }
-      ws.onerror = function (e) {
-        console_log("WebSocket error: %o", e);
-      }
-    }
-  }
-
-
-  ////////////////////////////////////////////////////////////////////////////////
-  // FFI - Execute and reply to commands from the server
-  
-  function runEvent(event,sendEvent,reply){
-    // reply();      -- Continue without replying to the server.
-    // reply(value); -- Send  value  back to the server.
-    // sendEvent     -- Function that sends a message { Event : value } to the server.
-    
-    // FIXME: allow non-zero parameters for the callback function.
-    function callback(elid,name) {
-      return function() { sendEvent(elid,name,[]); };
-    }
-    
-    console_log("Event: %s",JSON.stringify(event));
-    switch(event.tag){
-    case "RunJSFunction": {
-        eval(event.contents);
-        reply();
-        break;
-    }
-    case "CallJSFunction": {
-        var result = eval(event.contents);
-        reply({FunctionResult : result});
-        break;
-    }
-    case "Delete": {
-        deleteElid(event.contents);
-        reply();
-        break;
-    }
-    case "Debug": {
-        if(window.console)
-          console.log("Server debug: %o",event.contents);
-        reply();
-        break;
-    }
-    case "GetValues": {
-        var ids = event.contents;
-        var len = ids.length;
-        var values = [];
-        for(var i = 0; i < len; i++) {
-          values.push($(elidToElement(ids[i])).val());
-        }
-        reply({ Values: values });
-        break;
-    }
-    case "Bind": {
-        var bind        = event.contents;
-        var eventType   = bind[0];
-        var elid        = bind[1];
-        var el          = elidToElement(elid);
-        console_log('event type: ' + eventType);
-        if(eventType == 'livechange') {
-          $(el).livechange(300,function(e){
-            sendEvent(elid,eventType, [$(el).val()]);
-            return true;
-          });
-        } else if(eventType == 'sendvalue') {
-          $(el).sendvalue(function(x){
-            sendEvent(elid,eventType, [x]);
-          });
-        } else if(eventType.match('dragstart|dragenter|dragover|dragleave|drag|drop|dragend')) {
-          $(el).bind(eventType,function(e){
-            sendEvent(elid,eventType,
-                e.originalEvent.dataTransfer
-                    ? [e.originalEvent.dataTransfer.getData("dragData")]
-                    : []
-              );
-            return true;
-          });
-        } else if(eventType.match('mousemove|mousedown|mouseup')) {
-          $(el).bind(eventType,function(e){
-            var offset = $(this).offset();
-            var x      = e.pageX - offset.left;
-            var y      = e.pageY - offset.top;         
-            sendEvent(elid,eventType, [x.toString(), y.toString()]);
-            return true;
-          });
-        } else if(eventType.match('keydown|keyup')) {
-          $(el).bind(eventType,function(e){
-            sendEvent(elid,eventType, [e.keyCode.toString()]);
-            return true;
-          });
-        } else {
-          $(el).bind(eventType,function(e){
-            sendEvent(elid,eventType, e.which ? [e.which.toString()] : []);
-            return true;
-          });
-        }
-        reply();
-        break;
-    }
-    default: reply();
-    }
-  }
-
-  ////////////////////////////////////////////////////////////////////////////////
-  // FFI - marshaling
-
-  // When the server creates elements, it assigns them a string "elid".  
-  // This elidToElement function is used to sync the elids on the server with the 
-  // elids on this client code.  Lookups on elids that do not already exist in the client
-  // table are created and added automatically.
-  function elidToElement(elid){
-    if(elid == 'body')
-      return document.body;
-    else if(elid == 'head')
-      return document.head;
-    else if(elid[0] == '*')
-      return newElement(elid);
-    else
-      throw "Unknown element: " + elid;
-  }
-
-  // Function to leverage the DOM2 createElementNS() function that creates DOM
-  // elements based on tags defined in HTML 5 namespaces. Elements/elids are cached
-  // and returned if subsequently requested. Current implementation supports only 
-  // HTML and SVG namespaces.
-  // TODO: Opportunity to support all HTML 5 namespaces, 
-  //         http://www.w3.org/TR/2011/WD-html5-20110113/namespaces.html
-  function newElement(elid) {
-    var create = elid.split(':');
-    if( create[1] == "svg"){
-      ns    = "http://www.w3.org/2000/svg";
-      tag   = create[2];
-      elid_ = create[0] + ":" + create[2];
-    }
-    else {
-      ns    = "http://www.w3.org/1999/xhtml";
-      tag   = create[1];
-      elid_ = elid;
-    }
-    if(el_table[elid_]) return el_table[elid_];
-    element         = document.createElementNS(ns, tag);
-    element.elid    = elid_;
-    el_table[elid_] = element;
-    return element;
-  }
- 
-  // Get/generate a elid for an element.  This function is used for cases in which the
-  // element is accessed without knowing an elid from the server, such as when the 
-  // element is retrieved by type or html ID attribute.  The element is then added to 
-  // elid lookup table using the new elid.
-  // Note: The mapping between  elids  and  DOM elements  must be bijective.
-  function elementToElid(element){
-    if(element.elid)
-      return element.elid;
-	  else if (element === document.body)
-      return "body";
-	  else if (element === document.head)
-      return "head";
-    else {
-      throw "Element requested, but does not have elid: " + element;
-    }
-  }
-  
-  // plural of the mapping from elements to elids
-  function elementsToElids(elements){
-    var els = [], match;
-    for(var i = 0; i < elements.length; i++) {
-      match = elements[i];
-      if (match != null) {
-        els.push({ Element: elementToElid(match) });
-      }
-    }
-    return els;
-  }
-  
-  // Delete element from the table
-  function deleteElid(elid){
-    var el = el_table[elid];
-    if (el) {
-      $(el).detach(); // Should be detached already, but make sure
-      delete el_table[elid];
-    }
-  }
-
-  ////////////////////////////////////////////////////////////////////////////////
-  // FFI - additional primitive functions
-  
-  window.jquery_scrollToBottom = function(el){
-    $(el).scrollTop(el.scrollHeight);
-  };
-
-  function prim_audio_stop(audio){
-    audio.pause();
-    audio.currentTime = 0;
-  }
-
-  // see http://stackoverflow.com/a/9722502/403805
-  CanvasRenderingContext2D.prototype.clear = 
-    CanvasRenderingContext2D.prototype.clear || function (preserveTransform) {
-      if (preserveTransform) {
-        this.save();
-        this.setTransform(1, 0, 0, 1, 0, 0);
-      }
-
-      this.clearRect(0, 0, this.canvas.width, this.canvas.height);
-
-      if (preserveTransform) {
-        this.restore();
-      }           
-  };
-
-})();
diff --git a/src/Graphics/UI/index.html b/src/Graphics/UI/index.html
deleted file mode 100644
--- a/src/Graphics/UI/index.html
+++ /dev/null
@@ -1,10 +0,0 @@
-<!doctype html>
-<head>
-  <title></title>
-  <script src="driver/threepenny-gui.js"></script>
-  <link rel="stylesheet" type="text/css" href="driver/threepenny-gui.css"/>
-</head>
-<body>
-  <noscript>Please enable JavaScript.</noscript>
-</body>
-</html>
diff --git a/src/Graphics/UI/jquery-cookie.js b/src/Graphics/UI/jquery-cookie.js
deleted file mode 100644
--- a/src/Graphics/UI/jquery-cookie.js
+++ /dev/null
@@ -1,56 +0,0 @@
-/**
- * jQuery Cookie plugin
- *
- * Copyright (c) 2010 Klaus Hartl (stilbuero.de)
- * Dual licensed under the MIT and GPL licenses:
- * http://www.opensource.org/licenses/mit-license.php
- * http://www.gnu.org/licenses/gpl.html
- *
- */
-(function($) {
-  $.cookie = function(key, value, options) {
-
-    // key and at least value given, set cookie...
-    if (arguments.length > 1 && (!/Object/.test(Object.prototype.toString.call(value)) || value === null || value === undefined)) {
-      options = $.extend({}, options);
-
-      if (value === null || value === undefined) {
-        options.expires = -1;
-      }
-
-      if (typeof options.expires === 'number') {
-        var days = options.expires, t = options.expires = new Date();
-        t.setDate(t.getDate() + days);
-      }
-
-      value = String(value);
-
-      return (document.cookie = [
-        encodeURIComponent(key), '=', options.raw ? value : encodeURIComponent(value),
-        options.expires ? '; expires=' + options.expires.toUTCString() : '', // use expires attribute, max-age is not supported by IE
-        options.path    ? '; path=' + options.path : '',
-        options.domain  ? '; domain=' + options.domain : '',
-        options.secure  ? '; secure' : ''
-      ].join(''));
-    }
-
-    // key and possibly options given, get cookie...
-    options = value || {};
-    var decode = options.raw ? function(s) { return s; } : decodeURIComponent;
-
-    var pairs = document.cookie.split('; ');
-    for (var i = 0, pair; pair = pairs[i] && pairs[i].split('='); i++) {
-      if (decode(pair[0]) === key) return decode(pair[1] || ''); // IE saves cookies with empty string as "c; ", e.g. without "=" as opposed to EOMB, thus pair[1] may be undefined
-    }
-    return null;
-  };
-
-  $.setSimpleCookie = function(name,value,f) {
-    $.cookie(name,value,{
-      path: '/',
-      expire: 999 // TODO: 
-    });
-    f();
-  };
-  
-})(jQuery);
diff --git a/src/Graphics/UI/jquery.js b/src/Graphics/UI/jquery.js
deleted file mode 100644
--- a/src/Graphics/UI/jquery.js
+++ /dev/null
@@ -1,4 +0,0 @@
-/*! jQuery v1.7.1 jquery.com | jquery.org/license */
-(function(a,b){function cy(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cv(a){if(!ck[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){cl||(cl=c.createElement("iframe"),cl.frameBorder=cl.width=cl.height=0),b.appendChild(cl);if(!cm||!cl.createElement)cm=(cl.contentWindow||cl.contentDocument).document,cm.write((c.compatMode==="CSS1Compat"?"<!doctype html>":"")+"<html><body>"),cm.close();d=cm.createElement(a),cm.body.appendChild(d),e=f.css(d,"display"),b.removeChild(cl)}ck[a]=e}return ck[a]}function cu(a,b){var c={};f.each(cq.concat.apply([],cq.slice(0,b)),function(){c[this]=a});return c}function ct(){cr=b}function cs(){setTimeout(ct,0);return cr=f.now()}function cj(){try{return new a.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}}function ci(){try{return new a.XMLHttpRequest}catch(b){}}function cc(a,c){a.dataFilter&&(c=a.dataFilter(c,a.dataType));var d=a.dataTypes,e={},g,h,i=d.length,j,k=d[0],l,m,n,o,p;for(g=1;g<i;g++){if(g===1)for(h in a.converters)typeof h=="string"&&(e[h.toLowerCase()]=a.converters[h]);l=k,k=d[g];if(k==="*")k=l;else if(l!=="*"&&l!==k){m=l+" "+k,n=e[m]||e["* "+k];if(!n){p=b;for(o in e){j=o.split(" ");if(j[0]===l||j[0]==="*"){p=e[j[1]+" "+k];if(p){o=e[o],o===!0?n=p:p===!0&&(n=o);break}}}}!n&&!p&&f.error("No conversion from "+m.replace(" "," to ")),n!==!0&&(c=n?n(c):p(o(c)))}}return c}function cb(a,c,d){var e=a.contents,f=a.dataTypes,g=a.responseFields,h,i,j,k;for(i in g)i in d&&(c[g[i]]=d[i]);while(f[0]==="*")f.shift(),h===b&&(h=a.mimeType||c.getResponseHeader("content-type"));if(h)for(i in e)if(e[i]&&e[i].test(h)){f.unshift(i);break}if(f[0]in d)j=f[0];else{for(i in d){if(!f[0]||a.converters[i+" "+f[0]]){j=i;break}k||(k=i)}j=j||k}if(j){j!==f[0]&&f.unshift(j);return d[j]}}function ca(a,b,c,d){if(f.isArray(b))f.each(b,function(b,e){c||bE.test(a)?d(a,e):ca(a+"["+(typeof e=="object"||f.isArray(e)?b:"")+"]",e,c,d)});else if(!c&&b!=null&&typeof b=="object")for(var e in b)ca(a+"["+e+"]",b[e],c,d);else d(a,b)}function b_(a,c){var d,e,g=f.ajaxSettings.flatOptions||{};for(d in c)c[d]!==b&&((g[d]?a:e||(e={}))[d]=c[d]);e&&f.extend(!0,a,e)}function b$(a,c,d,e,f,g){f=f||c.dataTypes[0],g=g||{},g[f]=!0;var h=a[f],i=0,j=h?h.length:0,k=a===bT,l;for(;i<j&&(k||!l);i++)l=h[i](c,d,e),typeof l=="string"&&(!k||g[l]?l=b:(c.dataTypes.unshift(l),l=b$(a,c,d,e,l,g)));(k||!l)&&!g["*"]&&(l=b$(a,c,d,e,"*",g));return l}function bZ(a){return function(b,c){typeof b!="string"&&(c=b,b="*");if(f.isFunction(c)){var d=b.toLowerCase().split(bP),e=0,g=d.length,h,i,j;for(;e<g;e++)h=d[e],j=/^\+/.test(h),j&&(h=h.substr(1)||"*"),i=a[h]=a[h]||[],i[j?"unshift":"push"](c)}}}function bC(a,b,c){var d=b==="width"?a.offsetWidth:a.offsetHeight,e=b==="width"?bx:by,g=0,h=e.length;if(d>0){if(c!=="border")for(;g<h;g++)c||(d-=parseFloat(f.css(a,"padding"+e[g]))||0),c==="margin"?d+=parseFloat(f.css(a,c+e[g]))||0:d-=parseFloat(f.css(a,"border"+e[g]+"Width"))||0;return d+"px"}d=bz(a,b,b);if(d<0||d==null)d=a.style[b]||0;d=parseFloat(d)||0;if(c)for(;g<h;g++)d+=parseFloat(f.css(a,"padding"+e[g]))||0,c!=="padding"&&(d+=parseFloat(f.css(a,"border"+e[g]+"Width"))||0),c==="margin"&&(d+=parseFloat(f.css(a,c+e[g]))||0);return d+"px"}function bp(a,b){b.src?f.ajax({url:b.src,async:!1,dataType:"script"}):f.globalEval((b.text||b.textContent||b.innerHTML||"").replace(bf,"/*$0*/")),b.parentNode&&b.parentNode.removeChild(b)}function bo(a){var b=c.createElement("div");bh.appendChild(b),b.innerHTML=a.outerHTML;return b.firstChild}function bn(a){var b=(a.nodeName||"").toLowerCase();b==="input"?bm(a):b!=="script"&&typeof a.getElementsByTagName!="undefined"&&f.grep(a.getElementsByTagName("input"),bm)}function bm(a){if(a.type==="checkbox"||a.type==="radio")a.defaultChecked=a.checked}function bl(a){return typeof a.getElementsByTagName!="undefined"?a.getElementsByTagName("*"):typeof a.querySelectorAll!="undefined"?a.querySelectorAll("*"):[]}function bk(a,b){var c;if(b.nodeType===1){b.clearAttributes&&b.clearAttributes(),b.mergeAttributes&&b.mergeAttributes(a),c=b.nodeName.toLowerCase();if(c==="object")b.outerHTML=a.outerHTML;else if(c!=="input"||a.type!=="checkbox"&&a.type!=="radio"){if(c==="option")b.selected=a.defaultSelected;else if(c==="input"||c==="textarea")b.defaultValue=a.defaultValue}else a.checked&&(b.defaultChecked=b.checked=a.checked),b.value!==a.value&&(b.value=a.value);b.removeAttribute(f.expando)}}function bj(a,b){if(b.nodeType===1&&!!f.hasData(a)){var c,d,e,g=f._data(a),h=f._data(b,g),i=g.events;if(i){delete h.handle,h.events={};for(c in i)for(d=0,e=i[c].length;d<e;d++)f.event.add(b,c+(i[c][d].namespace?".":"")+i[c][d].namespace,i[c][d],i[c][d].data)}h.data&&(h.data=f.extend({},h.data))}}function bi(a,b){return f.nodeName(a,"table")?a.getElementsByTagName("tbody")[0]||a.appendChild(a.ownerDocument.createElement("tbody")):a}function U(a){var b=V.split("|"),c=a.createDocumentFragment();if(c.createElement)while(b.length)c.createElement(b.pop());return c}function T(a,b,c){b=b||0;if(f.isFunction(b))return f.grep(a,function(a,d){var e=!!b.call(a,d,a);return e===c});if(b.nodeType)return f.grep(a,function(a,d){return a===b===c});if(typeof b=="string"){var d=f.grep(a,function(a){return a.nodeType===1});if(O.test(b))return f.filter(b,d,!c);b=f.filter(b,d)}return f.grep(a,function(a,d){return f.inArray(a,b)>=0===c})}function S(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function K(){return!0}function J(){return!1}function n(a,b,c){var d=b+"defer",e=b+"queue",g=b+"mark",h=f._data(a,d);h&&(c==="queue"||!f._data(a,e))&&(c==="mark"||!f._data(a,g))&&setTimeout(function(){!f._data(a,e)&&!f._data(a,g)&&(f.removeData(a,d,!0),h.fire())},0)}function m(a){for(var b in a){if(b==="data"&&f.isEmptyObject(a[b]))continue;if(b!=="toJSON")return!1}return!0}function l(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(k,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d==="false"?!1:d==="null"?null:f.isNumeric(d)?parseFloat(d):j.test(d)?f.parseJSON(d):d}catch(g){}f.data(a,c,d)}else d=b}return d}function h(a){var b=g[a]={},c,d;a=a.split(/\s+/);for(c=0,d=a.length;c<d;c++)b[a[c]]=!0;return b}var c=a.document,d=a.navigator,e=a.location,f=function(){function J(){if(!e.isReady){try{c.documentElement.doScroll("left")}catch(a){setTimeout(J,1);return}e.ready()}}var e=function(a,b){return new e.fn.init(a,b,h)},f=a.jQuery,g=a.$,h,i=/^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/,j=/\S/,k=/^\s+/,l=/\s+$/,m=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,n=/^[\],:{}\s]*$/,o=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,p=/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,q=/(?:^|:|,)(?:\s*\[)+/g,r=/(webkit)[ \/]([\w.]+)/,s=/(opera)(?:.*version)?[ \/]([\w.]+)/,t=/(msie) ([\w.]+)/,u=/(mozilla)(?:.*? rv:([\w.]+))?/,v=/-([a-z]|[0-9])/ig,w=/^-ms-/,x=function(a,b){return(b+"").toUpperCase()},y=d.userAgent,z,A,B,C=Object.prototype.toString,D=Object.prototype.hasOwnProperty,E=Array.prototype.push,F=Array.prototype.slice,G=String.prototype.trim,H=Array.prototype.indexOf,I={};e.fn=e.prototype={constructor:e,init:function(a,d,f){var g,h,j,k;if(!a)return this;if(a.nodeType){this.context=this[0]=a,this.length=1;return this}if(a==="body"&&!d&&c.body){this.context=c,this[0]=c.body,this.selector=a,this.length=1;return this}if(typeof a=="string"){a.charAt(0)!=="<"||a.charAt(a.length-1)!==">"||a.length<3?g=i.exec(a):g=[null,a,null];if(g&&(g[1]||!d)){if(g[1]){d=d instanceof e?d[0]:d,k=d?d.ownerDocument||d:c,j=m.exec(a),j?e.isPlainObject(d)?(a=[c.createElement(j[1])],e.fn.attr.call(a,d,!0)):a=[k.createElement(j[1])]:(j=e.buildFragment([g[1]],[k]),a=(j.cacheable?e.clone(j.fragment):j.fragment).childNodes);return e.merge(this,a)}h=c.getElementById(g[2]);if(h&&h.parentNode){if(h.id!==g[2])return f.find(a);this.length=1,this[0]=h}this.context=c,this.selector=a;return this}return!d||d.jquery?(d||f).find(a):this.constructor(d).find(a)}if(e.isFunction(a))return f.ready(a);a.selector!==b&&(this.selector=a.selector,this.context=a.context);return e.makeArray(a,this)},selector:"",jquery:"1.7.1",length:0,size:function(){return this.length},toArray:function(){return F.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this[this.length+a]:this[a]},pushStack:function(a,b,c){var d=this.constructor();e.isArray(a)?E.apply(d,a):e.merge(d,a),d.prevObject=this,d.context=this.context,b==="find"?d.selector=this.selector+(this.selector?" ":"")+c:b&&(d.selector=this.selector+"."+b+"("+c+")");return d},each:function(a,b){return e.each(this,a,b)},ready:function(a){e.bindReady(),A.add(a);return this},eq:function(a){a=+a;return a===-1?this.slice(a):this.slice(a,a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(F.apply(this,arguments),"slice",F.call(arguments).join(","))},map:function(a){return this.pushStack(e.map(this,function(b,c){return a.call(b,c,b)}))},end:function(){return this.prevObject||this.constructor(null)},push:E,sort:[].sort,splice:[].splice},e.fn.init.prototype=e.fn,e.extend=e.fn.extend=function(){var a,c,d,f,g,h,i=arguments[0]||{},j=1,k=arguments.length,l=!1;typeof i=="boolean"&&(l=i,i=arguments[1]||{},j=2),typeof i!="object"&&!e.isFunction(i)&&(i={}),k===j&&(i=this,--j);for(;j<k;j++)if((a=arguments[j])!=null)for(c in a){d=i[c],f=a[c];if(i===f)continue;l&&f&&(e.isPlainObject(f)||(g=e.isArray(f)))?(g?(g=!1,h=d&&e.isArray(d)?d:[]):h=d&&e.isPlainObject(d)?d:{},i[c]=e.extend(l,h,f)):f!==b&&(i[c]=f)}return i},e.extend({noConflict:function(b){a.$===e&&(a.$=g),b&&a.jQuery===e&&(a.jQuery=f);return e},isReady:!1,readyWait:1,holdReady:function(a){a?e.readyWait++:e.ready(!0)},ready:function(a){if(a===!0&&!--e.readyWait||a!==!0&&!e.isReady){if(!c.body)return setTimeout(e.ready,1);e.isReady=!0;if(a!==!0&&--e.readyWait>0)return;A.fireWith(c,[e]),e.fn.trigger&&e(c).trigger("ready").off("ready")}},bindReady:function(){if(!A){A=e.Callbacks("once memory");if(c.readyState==="complete")return setTimeout(e.ready,1);if(c.addEventListener)c.addEventListener("DOMContentLoaded",B,!1),a.addEventListener("load",e.ready,!1);else if(c.attachEvent){c.attachEvent("onreadystatechange",B),a.attachEvent("onload",e.ready);var b=!1;try{b=a.frameElement==null}catch(d){}c.documentElement.doScroll&&b&&J()}}},isFunction:function(a){return e.type(a)==="function"},isArray:Array.isArray||function(a){return e.type(a)==="array"},isWindow:function(a){return a&&typeof a=="object"&&"setInterval"in a},isNumeric:function(a){return!isNaN(parseFloat(a))&&isFinite(a)},type:function(a){return a==null?String(a):I[C.call(a)]||"object"},isPlainObject:function(a){if(!a||e.type(a)!=="object"||a.nodeType||e.isWindow(a))return!1;try{if(a.constructor&&!D.call(a,"constructor")&&!D.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}var d;for(d in a);return d===b||D.call(a,d)},isEmptyObject:function(a){for(var b in a)return!1;return!0},error:function(a){throw new Error(a)},parseJSON:function(b){if(typeof b!="string"||!b)return null;b=e.trim(b);if(a.JSON&&a.JSON.parse)return a.JSON.parse(b);if(n.test(b.replace(o,"@").replace(p,"]").replace(q,"")))return(new Function("return "+b))();e.error("Invalid JSON: "+b)},parseXML:function(c){var d,f;try{a.DOMParser?(f=new DOMParser,d=f.parseFromString(c,"text/xml")):(d=new ActiveXObject("Microsoft.XMLDOM"),d.async="false",d.loadXML(c))}catch(g){d=b}(!d||!d.documentElement||d.getElementsByTagName("parsererror").length)&&e.error("Invalid XML: "+c);return d},noop:function(){},globalEval:function(b){b&&j.test(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(w,"ms-").replace(v,x)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,c,d){var f,g=0,h=a.length,i=h===b||e.isFunction(a);if(d){if(i){for(f in a)if(c.apply(a[f],d)===!1)break}else for(;g<h;)if(c.apply(a[g++],d)===!1)break}else if(i){for(f in a)if(c.call(a[f],f,a[f])===!1)break}else for(;g<h;)if(c.call(a[g],g,a[g++])===!1)break;return a},trim:G?function(a){return a==null?"":G.call(a)}:function(a){return a==null?"":(a+"").replace(k,"").replace(l,"")},makeArray:function(a,b){var c=b||[];if(a!=null){var d=e.type(a);a.length==null||d==="string"||d==="function"||d==="regexp"||e.isWindow(a)?E.call(c,a):e.merge(c,a)}return c},inArray:function(a,b,c){var d;if(b){if(H)return H.call(b,a,c);d=b.length,c=c?c<0?Math.max(0,d+c):c:0;for(;c<d;c++)if(c in b&&b[c]===a)return c}return-1},merge:function(a,c){var d=a.length,e=0;if(typeof c.length=="number")for(var f=c.length;e<f;e++)a[d++]=c[e];else while(c[e]!==b)a[d++]=c[e++];a.length=d;return a},grep:function(a,b,c){var d=[],e;c=!!c;for(var f=0,g=a.length;f<g;f++)e=!!b(a[f],f),c!==e&&d.push(a[f]);return d},map:function(a,c,d){var f,g,h=[],i=0,j=a.length,k=a instanceof e||j!==b&&typeof j=="number"&&(j>0&&a[0]&&a[j-1]||j===0||e.isArray(a));if(k)for(;i<j;i++)f=c(a[i],i,d),f!=null&&(h[h.length]=f);else for(g in a)f=c(a[g],g,d),f!=null&&(h[h.length]=f);return h.concat.apply([],h)},guid:1,proxy:function(a,c){if(typeof c=="string"){var d=a[c];c=a,a=d}if(!e.isFunction(a))return b;var f=F.call(arguments,2),g=function(){return a.apply(c,f.concat(F.call(arguments)))};g.guid=a.guid=a.guid||g.guid||e.guid++;return g},access:function(a,c,d,f,g,h){var i=a.length;if(typeof c=="object"){for(var j in c)e.access(a,j,c[j],f,g,d);return a}if(d!==b){f=!h&&f&&e.isFunction(d);for(var k=0;k<i;k++)g(a[k],c,f?d.call(a[k],k,g(a[k],c)):d,h);return a}return i?g(a[0],c):b},now:function(){return(new Date).getTime()},uaMatch:function(a){a=a.toLowerCase();var b=r.exec(a)||s.exec(a)||t.exec(a)||a.indexOf("compatible")<0&&u.exec(a)||[];return{browser:b[1]||"",version:b[2]||"0"}},sub:function(){function a(b,c){return new a.fn.init(b,c)}e.extend(!0,a,this),a.superclass=this,a.fn=a.prototype=this(),a.fn.constructor=a,a.sub=this.sub,a.fn.init=function(d,f){f&&f instanceof e&&!(f instanceof a)&&(f=a(f));return e.fn.init.call(this,d,f,b)},a.fn.init.prototype=a.fn;var b=a(c);return a},browser:{}}),e.each("Boolean Number String Function Array Date RegExp Object".split(" "),function(a,b){I["[object "+b+"]"]=b.toLowerCase()}),z=e.uaMatch(y),z.browser&&(e.browser[z.browser]=!0,e.browser.version=z.version),e.browser.webkit&&(e.browser.safari=!0),j.test(" ")&&(k=/^[\s\xA0]+/,l=/[\s\xA0]+$/),h=e(c),c.addEventListener?B=function(){c.removeEventListener("DOMContentLoaded",B,!1),e.ready()}:c.attachEvent&&(B=function(){c.readyState==="complete"&&(c.detachEvent("onreadystatechange",B),e.ready())});return e}(),g={};f.Callbacks=function(a){a=a?g[a]||h(a):{};var c=[],d=[],e,i,j,k,l,m=function(b){var d,e,g,h,i;for(d=0,e=b.length;d<e;d++)g=b[d],h=f.type(g),h==="array"?m(g):h==="function"&&(!a.unique||!o.has(g))&&c.push(g)},n=function(b,f){f=f||[],e=!a.memory||[b,f],i=!0,l=j||0,j=0,k=c.length;for(;c&&l<k;l++)if(c[l].apply(b,f)===!1&&a.stopOnFalse){e=!0;break}i=!1,c&&(a.once?e===!0?o.disable():c=[]:d&&d.length&&(e=d.shift(),o.fireWith(e[0],e[1])))},o={add:function(){if(c){var a=c.length;m(arguments),i?k=c.length:e&&e!==!0&&(j=a,n(e[0],e[1]))}return this},remove:function(){if(c){var b=arguments,d=0,e=b.length;for(;d<e;d++)for(var f=0;f<c.length;f++)if(b[d]===c[f]){i&&f<=k&&(k--,f<=l&&l--),c.splice(f--,1);if(a.unique)break}}return this},has:function(a){if(c){var b=0,d=c.length;for(;b<d;b++)if(a===c[b])return!0}return!1},empty:function(){c=[];return this},disable:function(){c=d=e=b;return this},disabled:function(){return!c},lock:function(){d=b,(!e||e===!0)&&o.disable();return this},locked:function(){return!d},fireWith:function(b,c){d&&(i?a.once||d.push([b,c]):(!a.once||!e)&&n(b,c));return this},fire:function(){o.fireWith(this,arguments);return this},fired:function(){return!!e}};return o};var i=[].slice;f.extend({Deferred:function(a){var b=f.Callbacks("once memory"),c=f.Callbacks("once memory"),d=f.Callbacks("memory"),e="pending",g={resolve:b,reject:c,notify:d},h={done:b.add,fail:c.add,progress:d.add,state:function(){return e},isResolved:b.fired,isRejected:c.fired,then:function(a,b,c){i.done(a).fail(b).progress(c);return this},always:function(){i.done.apply(i,arguments).fail.apply(i,arguments);return this},pipe:function(a,b,c){return f.Deferred(function(d){f.each({done:[a,"resolve"],fail:[b,"reject"],progress:[c,"notify"]},function(a,b){var c=b[0],e=b[1],g;f.isFunction(c)?i[a](function(){g=c.apply(this,arguments),g&&f.isFunction(g.promise)?g.promise().then(d.resolve,d.reject,d.notify):d[e+"With"](this===i?d:this,[g])}):i[a](d[e])})}).promise()},promise:function(a){if(a==null)a=h;else for(var b in h)a[b]=h[b];return a}},i=h.promise({}),j;for(j in g)i[j]=g[j].fire,i[j+"With"]=g[j].fireWith;i.done(function(){e="resolved"},c.disable,d.lock).fail(function(){e="rejected"},b.disable,d.lock),a&&a.call(i,i);return i},when:function(a){function m(a){return function(b){e[a]=arguments.length>1?i.call(arguments,0):b,j.notifyWith(k,e)}}function l(a){return function(c){b[a]=arguments.length>1?i.call(arguments,0):c,--g||j.resolveWith(j,b)}}var b=i.call(arguments,0),c=0,d=b.length,e=Array(d),g=d,h=d,j=d<=1&&a&&f.isFunction(a.promise)?a:f.Deferred(),k=j.promise();if(d>1){for(;c<d;c++)b[c]&&b[c].promise&&f.isFunction(b[c].promise)?b[c].promise().then(l(c),j.reject,m(c)):--g;g||j.resolveWith(j,b)}else j!==a&&j.resolveWith(j,d?[a]:[]);return k}}),f.support=function(){var b,d,e,g,h,i,j,k,l,m,n,o,p,q=c.createElement("div"),r=c.documentElement;q.setAttribute("className","t"),q.innerHTML="   <link/><table></table><a href='/a' style='top:1px;float:left;opacity:.55;'>a</a><input type='checkbox'/>",d=q.getElementsByTagName("*"),e=q.getElementsByTagName("a")[0];if(!d||!d.length||!e)return{};g=c.createElement("select"),h=g.appendChild(c.createElement("option")),i=q.getElementsByTagName("input")[0],b={leadingWhitespace:q.firstChild.nodeType===3,tbody:!q.getElementsByTagName("tbody").length,htmlSerialize:!!q.getElementsByTagName("link").length,style:/top/.test(e.getAttribute("style")),hrefNormalized:e.getAttribute("href")==="/a",opacity:/^0.55/.test(e.style.opacity),cssFloat:!!e.style.cssFloat,checkOn:i.value==="on",optSelected:h.selected,getSetAttribute:q.className!=="t",enctype:!!c.createElement("form").enctype,html5Clone:c.createElement("nav").cloneNode(!0).outerHTML!=="<:nav></:nav>",submitBubbles:!0,changeBubbles:!0,focusinBubbles:!1,deleteExpando:!0,noCloneEvent:!0,inlineBlockNeedsLayout:!1,shrinkWrapBlocks:!1,reliableMarginRight:!0},i.checked=!0,b.noCloneChecked=i.cloneNode(!0).checked,g.disabled=!0,b.optDisabled=!h.disabled;try{delete q.test}catch(s){b.deleteExpando=!1}!q.addEventListener&&q.attachEvent&&q.fireEvent&&(q.attachEvent("onclick",function(){b.noCloneEvent=!1}),q.cloneNode(!0).fireEvent("onclick")),i=c.createElement("input"),i.value="t",i.setAttribute("type","radio"),b.radioValue=i.value==="t",i.setAttribute("checked","checked"),q.appendChild(i),k=c.createDocumentFragment(),k.appendChild(q.lastChild),b.checkClone=k.cloneNode(!0).cloneNode(!0).lastChild.checked,b.appendChecked=i.checked,k.removeChild(i),k.appendChild(q),q.innerHTML="",a.getComputedStyle&&(j=c.createElement("div"),j.style.width="0",j.style.marginRight="0",q.style.width="2px",q.appendChild(j),b.reliableMarginRight=(parseInt((a.getComputedStyle(j,null)||{marginRight:0}).marginRight,10)||0)===0);if(q.attachEvent)for(o in{submit:1,change:1,focusin:1})n="on"+o,p=n in q,p||(q.setAttribute(n,"return;"),p=typeof q[n]=="function"),b[o+"Bubbles"]=p;k.removeChild(q),k=g=h=j=q=i=null,f(function(){var a,d,e,g,h,i,j,k,m,n,o,r=c.getElementsByTagName("body")[0];!r||(j=1,k="position:absolute;top:0;left:0;width:1px;height:1px;margin:0;",m="visibility:hidden;border:0;",n="style='"+k+"border:5px solid #000;padding:0;'",o="<div "+n+"><div></div></div>"+"<table "+n+" cellpadding='0' cellspacing='0'>"+"<tr><td></td></tr></table>",a=c.createElement("div"),a.style.cssText=m+"width:0;height:0;position:static;top:0;margin-top:"+j+"px",r.insertBefore(a,r.firstChild),q=c.createElement("div"),a.appendChild(q),q.innerHTML="<table><tr><td style='padding:0;border:0;display:none'></td><td>t</td></tr></table>",l=q.getElementsByTagName("td"),p=l[0].offsetHeight===0,l[0].style.display="",l[1].style.display="none",b.reliableHiddenOffsets=p&&l[0].offsetHeight===0,q.innerHTML="",q.style.width=q.style.paddingLeft="1px",f.boxModel=b.boxModel=q.offsetWidth===2,typeof q.style.zoom!="undefined"&&(q.style.display="inline",q.style.zoom=1,b.inlineBlockNeedsLayout=q.offsetWidth===2,q.style.display="",q.innerHTML="<div style='width:4px;'></div>",b.shrinkWrapBlocks=q.offsetWidth!==2),q.style.cssText=k+m,q.innerHTML=o,d=q.firstChild,e=d.firstChild,h=d.nextSibling.firstChild.firstChild,i={doesNotAddBorder:e.offsetTop!==5,doesAddBorderForTableAndCells:h.offsetTop===5},e.style.position="fixed",e.style.top="20px",i.fixedPosition=e.offsetTop===20||e.offsetTop===15,e.style.position=e.style.top="",d.style.overflow="hidden",d.style.position="relative",i.subtractsBorderForOverflowNotVisible=e.offsetTop===-5,i.doesNotIncludeMarginInBodyOffset=r.offsetTop!==j,r.removeChild(a),q=a=null,f.extend(b,i))});return b}();var j=/^(?:\{.*\}|\[.*\])$/,k=/([A-Z])/g;f.extend({cache:{},uuid:0,expando:"jQuery"+(f.fn.jquery+Math.random()).replace(/\D/g,""),noData:{embed:!0,object:"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000",applet:!0},hasData:function(a){a=a.nodeType?f.cache[a[f.expando]]:a[f.expando];return!!a&&!m(a)},data:function(a,c,d,e){if(!!f.acceptData(a)){var g,h,i,j=f.expando,k=typeof c=="string",l=a.nodeType,m=l?f.cache:a,n=l?a[j]:a[j]&&j,o=c==="events";if((!n||!m[n]||!o&&!e&&!m[n].data)&&k&&d===b)return;n||(l?a[j]=n=++f.uuid:n=j),m[n]||(m[n]={},l||(m[n].toJSON=f.noop));if(typeof c=="object"||typeof c=="function")e?m[n]=f.extend(m[n],c):m[n].data=f.extend(m[n].data,c);g=h=m[n],e||(h.data||(h.data={}),h=h.data),d!==b&&(h[f.camelCase(c)]=d);if(o&&!h[c])return g.events;k?(i=h[c],i==null&&(i=h[f.camelCase(c)])):i=h;return i}},removeData:function(a,b,c){if(!!f.acceptData(a)){var d,e,g,h=f.expando,i=a.nodeType,j=i?f.cache:a,k=i?a[h]:h;if(!j[k])return;if(b){d=c?j[k]:j[k].data;if(d){f.isArray(b)||(b in d?b=[b]:(b=f.camelCase(b),b in d?b=[b]:b=b.split(" ")));for(e=0,g=b.length;e<g;e++)delete d[b[e]];if(!(c?m:f.isEmptyObject)(d))return}}if(!c){delete j[k].data;if(!m(j[k]))return}f.support.deleteExpando||!j.setInterval?delete j[k]:j[k]=null,i&&(f.support.deleteExpando?delete a[h]:a.removeAttribute?a.removeAttribute(h):a[h]=null)}},_data:function(a,b,c){return f.data(a,b,c,!0)},acceptData:function(a){if(a.nodeName){var b=f.noData[a.nodeName.toLowerCase()];if(b)return b!==!0&&a.getAttribute("classid")===b}return!0}}),f.fn.extend({data:function(a,c){var d,e,g,h=null;if(typeof a=="undefined"){if(this.length){h=f.data(this[0]);if(this[0].nodeType===1&&!f._data(this[0],"parsedAttrs")){e=this[0].attributes;for(var i=0,j=e.length;i<j;i++)g=e[i].name,g.indexOf("data-")===0&&(g=f.camelCase(g.substring(5)),l(this[0],g,h[g]));f._data(this[0],"parsedAttrs",!0)}}return h}if(typeof a=="object")return this.each(function(){f.data(this,a)});d=a.split("."),d[1]=d[1]?"."+d[1]:"";if(c===b){h=this.triggerHandler("getData"+d[1]+"!",[d[0]]),h===b&&this.length&&(h=f.data(this[0],a),h=l(this[0],a,h));return h===b&&d[1]?this.data(d[0]):h}return this.each(function(){var b=f(this),e=[d[0],c];b.triggerHandler("setData"+d[1]+"!",e),f.data(this,a,c),b.triggerHandler("changeData"+d[1]+"!",e)})},removeData:function(a){return this.each(function(){f.removeData(this,a)})}}),f.extend({_mark:function(a,b){a&&(b=(b||"fx")+"mark",f._data(a,b,(f._data(a,b)||0)+1))},_unmark:function(a,b,c){a!==!0&&(c=b,b=a,a=!1);if(b){c=c||"fx";var d=c+"mark",e=a?0:(f._data(b,d)||1)-1;e?f._data(b,d,e):(f.removeData(b,d,!0),n(b,c,"mark"))}},queue:function(a,b,c){var d;if(a){b=(b||"fx")+"queue",d=f._data(a,b),c&&(!d||f.isArray(c)?d=f._data(a,b,f.makeArray(c)):d.push(c));return d||[]}},dequeue:function(a,b){b=b||"fx";var c=f.queue(a,b),d=c.shift(),e={};d==="inprogress"&&(d=c.shift()),d&&(b==="fx"&&c.unshift("inprogress"),f._data(a,b+".run",e),d.call(a,function(){f.dequeue(a,b)},e)),c.length||(f.removeData(a,b+"queue "+b+".run",!0),n(a,b,"queue"))}}),f.fn.extend({queue:function(a,c){typeof a!="string"&&(c=a,a="fx");if(c===b)return f.queue(this[0],a);return this.each(function(){var b=f.queue(this,a,c);a==="fx"&&b[0]!=="inprogress"&&f.dequeue(this,a)})},dequeue:function(a){return this.each(function(){f.dequeue(this,a)})},delay:function(a,b){a=f.fx?f.fx.speeds[a]||a:a,b=b||"fx";return this.queue(b,function(b,c){var d=setTimeout(b,a);c.stop=function(){clearTimeout(d)}})},clearQueue:function(a){return this.queue(a||"fx",[])},promise:function(a,c){function m(){--h||d.resolveWith(e,[e])}typeof a!="string"&&(c=a,a=b),a=a||"fx";var d=f.Deferred(),e=this,g=e.length,h=1,i=a+"defer",j=a+"queue",k=a+"mark",l;while(g--)if(l=f.data(e[g],i,b,!0)||(f.data(e[g],j,b,!0)||f.data(e[g],k,b,!0))&&f.data(e[g],i,f.Callbacks("once memory"),!0))h++,l.add(m);m();return d.promise()}});var o=/[\n\t\r]/g,p=/\s+/,q=/\r/g,r=/^(?:button|input)$/i,s=/^(?:button|input|object|select|textarea)$/i,t=/^a(?:rea)?$/i,u=/^(?:autofocus|autoplay|async|checked|controls|defer|disabled|hidden|loop|multiple|open|readonly|required|scoped|selected)$/i,v=f.support.getSetAttribute,w,x,y;f.fn.extend({attr:function(a,b){return f.access(this,a,b,!0,f.attr)},removeAttr:function(a){return this.each(function(){f.removeAttr(this,a)})},prop:function(a,b){return f.access(this,a,b,!0,f.prop)},removeProp:function(a){a=f.propFix[a]||a;return this.each(function(){try{this[a]=b,delete this[a]}catch(c){}})},addClass:function(a){var b,c,d,e,g,h,i;if(f.isFunction(a))return this.each(function(b){f(this).addClass(a.call(this,b,this.className))});if(a&&typeof a=="string"){b=a.split(p);for(c=0,d=this.length;c<d;c++){e=this[c];if(e.nodeType===1)if(!e.className&&b.length===1)e.className=a;else{g=" "+e.className+" ";for(h=0,i=b.length;h<i;h++)~g.indexOf(" "+b[h]+" ")||(g+=b[h]+" ");e.className=f.trim(g)}}}return this},removeClass:function(a){var c,d,e,g,h,i,j;if(f.isFunction(a))return this.each(function(b){f(this).removeClass(a.call(this,b,this.className))});if(a&&typeof a=="string"||a===b){c=(a||"").split(p);for(d=0,e=this.length;d<e;d++){g=this[d];if(g.nodeType===1&&g.className)if(a){h=(" "+g.className+" ").replace(o," ");for(i=0,j=c.length;i<j;i++)h=h.replace(" "+c[i]+" "," ");g.className=f.trim(h)}else g.className=""}}return this},toggleClass:function(a,b){var c=typeof a,d=typeof b=="boolean";if(f.isFunction(a))return this.each(function(c){f(this).toggleClass(a.call(this,c,this.className,b),b)});return this.each(function(){if(c==="string"){var e,g=0,h=f(this),i=b,j=a.split(p);while(e=j[g++])i=d?i:!h.hasClass(e),h[i?"addClass":"removeClass"](e)}else if(c==="undefined"||c==="boolean")this.className&&f._data(this,"__className__",this.className),this.className=this.className||a===!1?"":f._data(this,"__className__")||""})},hasClass:function(a){var b=" "+a+" ",c=0,d=this.length;for(;c<d;c++)if(this[c].nodeType===1&&(" "+this[c].className+" ").replace(o," ").indexOf(b)>-1)return!0;return!1},val:function(a){var c,d,e,g=this[0];{if(!!arguments.length){e=f.isFunction(a);return this.each(function(d){var g=f(this),h;if(this.nodeType===1){e?h=a.call(this,d,g.val()):h=a,h==null?h="":typeof h=="number"?h+="":f.isArray(h)&&(h=f.map(h,function(a){return a==null?"":a+""})),c=f.valHooks[this.nodeName.toLowerCase()]||f.valHooks[this.type];if(!c||!("set"in c)||c.set(this,h,"value")===b)this.value=h}})}if(g){c=f.valHooks[g.nodeName.toLowerCase()]||f.valHooks[g.type];if(c&&"get"in c&&(d=c.get(g,"value"))!==b)return d;d=g.value;return typeof d=="string"?d.replace(q,""):d==null?"":d}}}}),f.extend({valHooks:{option:{get:function(a){var b=a.attributes.value;return!b||b.specified?a.value:a.text}},select:{get:function(a){var b,c,d,e,g=a.selectedIndex,h=[],i=a.options,j=a.type==="select-one";if(g<0)return null;c=j?g:0,d=j?g+1:i.length;for(;c<d;c++){e=i[c];if(e.selected&&(f.support.optDisabled?!e.disabled:e.getAttribute("disabled")===null)&&(!e.parentNode.disabled||!f.nodeName(e.parentNode,"optgroup"))){b=f(e).val();if(j)return b;h.push(b)}}if(j&&!h.length&&i.length)return f(i[g]).val();return h},set:function(a,b){var c=f.makeArray(b);f(a).find("option").each(function(){this.selected=f.inArray(f(this).val(),c)>=0}),c.length||(a.selectedIndex=-1);return c}}},attrFn:{val:!0,css:!0,html:!0,text:!0,data:!0,width:!0,height:!0,offset:!0},attr:function(a,c,d,e){var g,h,i,j=a.nodeType;if(!!a&&j!==3&&j!==8&&j!==2){if(e&&c in f.attrFn)return f(a)[c](d);if(typeof a.getAttribute=="undefined")return f.prop(a,c,d);i=j!==1||!f.isXMLDoc(a),i&&(c=c.toLowerCase(),h=f.attrHooks[c]||(u.test(c)?x:w));if(d!==b){if(d===null){f.removeAttr(a,c);return}if(h&&"set"in h&&i&&(g=h.set(a,d,c))!==b)return g;a.setAttribute(c,""+d);return d}if(h&&"get"in h&&i&&(g=h.get(a,c))!==null)return g;g=a.getAttribute(c);return g===null?b:g}},removeAttr:function(a,b){var c,d,e,g,h=0;if(b&&a.nodeType===1){d=b.toLowerCase().split(p),g=d.length;for(;h<g;h++)e=d[h],e&&(c=f.propFix[e]||e,f.attr(a,e,""),a.removeAttribute(v?e:c),u.test(e)&&c in a&&(a[c]=!1))}},attrHooks:{type:{set:function(a,b){if(r.test(a.nodeName)&&a.parentNode)f.error("type property can't be changed");else if(!f.support.radioValue&&b==="radio"&&f.nodeName(a,"input")){var c=a.value;a.setAttribute("type",b),c&&(a.value=c);return b}}},value:{get:function(a,b){if(w&&f.nodeName(a,"button"))return w.get(a,b);return b in a?a.value:null},set:function(a,b,c){if(w&&f.nodeName(a,"button"))return w.set(a,b,c);a.value=b}}},propFix:{tabindex:"tabIndex",readonly:"readOnly","for":"htmlFor","class":"className",maxlength:"maxLength",cellspacing:"cellSpacing",cellpadding:"cellPadding",rowspan:"rowSpan",colspan:"colSpan",usemap:"useMap",frameborder:"frameBorder",contenteditable:"contentEditable"},prop:function(a,c,d){var e,g,h,i=a.nodeType;if(!!a&&i!==3&&i!==8&&i!==2){h=i!==1||!f.isXMLDoc(a),h&&(c=f.propFix[c]||c,g=f.propHooks[c]);return d!==b?g&&"set"in g&&(e=g.set(a,d,c))!==b?e:a[c]=d:g&&"get"in g&&(e=g.get(a,c))!==null?e:a[c]}},propHooks:{tabIndex:{get:function(a){var c=a.getAttributeNode("tabindex");return c&&c.specified?parseInt(c.value,10):s.test(a.nodeName)||t.test(a.nodeName)&&a.href?0:b}}}}),f.attrHooks.tabindex=f.propHooks.tabIndex,x={get:function(a,c){var d,e=f.prop(a,c);return e===!0||typeof e!="boolean"&&(d=a.getAttributeNode(c))&&d.nodeValue!==!1?c.toLowerCase():b},set:function(a,b,c){var d;b===!1?f.removeAttr(a,c):(d=f.propFix[c]||c,d in a&&(a[d]=!0),a.setAttribute(c,c.toLowerCase()));return c}},v||(y={name:!0,id:!0},w=f.valHooks.button={get:function(a,c){var d;d=a.getAttributeNode(c);return d&&(y[c]?d.nodeValue!=="":d.specified)?d.nodeValue:b},set:function(a,b,d){var e=a.getAttributeNode(d);e||(e=c.createAttribute(d),a.setAttributeNode(e));return e.nodeValue=b+""}},f.attrHooks.tabindex.set=w.set,f.each(["width","height"],function(a,b){f.attrHooks[b]=f.extend(f.attrHooks[b],{set:function(a,c){if(c===""){a.setAttribute(b,"auto");return c}}})}),f.attrHooks.contenteditable={get:w.get,set:function(a,b,c){b===""&&(b="false"),w.set(a,b,c)}}),f.support.hrefNormalized||f.each(["href","src","width","height"],function(a,c){f.attrHooks[c]=f.extend(f.attrHooks[c],{get:function(a){var d=a.getAttribute(c,2);return d===null?b:d}})}),f.support.style||(f.attrHooks.style={get:function(a){return a.style.cssText.toLowerCase()||b},set:function(a,b){return a.style.cssText=""+b}}),f.support.optSelected||(f.propHooks.selected=f.extend(f.propHooks.selected,{get:function(a){var b=a.parentNode;b&&(b.selectedIndex,b.parentNode&&b.parentNode.selectedIndex);return null}})),f.support.enctype||(f.propFix.enctype="encoding"),f.support.checkOn||f.each(["radio","checkbox"],function(){f.valHooks[this]={get:function(a){return a.getAttribute("value")===null?"on":a.value}}}),f.each(["radio","checkbox"],function(){f.valHooks[this]=f.extend(f.valHooks[this],{set:function(a,b){if(f.isArray(b))return a.checked=f.inArray(f(a).val(),b)>=0}})});var z=/^(?:textarea|input|select)$/i,A=/^([^\.]*)?(?:\.(.+))?$/,B=/\bhover(\.\S+)?\b/,C=/^key/,D=/^(?:mouse|contextmenu)|click/,E=/^(?:focusinfocus|focusoutblur)$/,F=/^(\w*)(?:#([\w\-]+))?(?:\.([\w\-]+))?$/,G=function(a){var b=F.exec(a);b&&(b[1]=(b[1]||"").toLowerCase(),b[3]=b[3]&&new RegExp("(?:^|\\s)"+b[3]+"(?:\\s|$)"));return b},H=function(a,b){var c=a.attributes||{};return(!b[1]||a.nodeName.toLowerCase()===b[1])&&(!b[2]||(c.id||{}).value===b[2])&&(!b[3]||b[3].test((c["class"]||{}).value))},I=function(a){return f.event.special.hover?a:a.replace(B,"mouseenter$1 mouseleave$1")};
-f.event={add:function(a,c,d,e,g){var h,i,j,k,l,m,n,o,p,q,r,s;if(!(a.nodeType===3||a.nodeType===8||!c||!d||!(h=f._data(a)))){d.handler&&(p=d,d=p.handler),d.guid||(d.guid=f.guid++),j=h.events,j||(h.events=j={}),i=h.handle,i||(h.handle=i=function(a){return typeof f!="undefined"&&(!a||f.event.triggered!==a.type)?f.event.dispatch.apply(i.elem,arguments):b},i.elem=a),c=f.trim(I(c)).split(" ");for(k=0;k<c.length;k++){l=A.exec(c[k])||[],m=l[1],n=(l[2]||"").split(".").sort(),s=f.event.special[m]||{},m=(g?s.delegateType:s.bindType)||m,s=f.event.special[m]||{},o=f.extend({type:m,origType:l[1],data:e,handler:d,guid:d.guid,selector:g,quick:G(g),namespace:n.join(".")},p),r=j[m];if(!r){r=j[m]=[],r.delegateCount=0;if(!s.setup||s.setup.call(a,e,n,i)===!1)a.addEventListener?a.addEventListener(m,i,!1):a.attachEvent&&a.attachEvent("on"+m,i)}s.add&&(s.add.call(a,o),o.handler.guid||(o.handler.guid=d.guid)),g?r.splice(r.delegateCount++,0,o):r.push(o),f.event.global[m]=!0}a=null}},global:{},remove:function(a,b,c,d,e){var g=f.hasData(a)&&f._data(a),h,i,j,k,l,m,n,o,p,q,r,s;if(!!g&&!!(o=g.events)){b=f.trim(I(b||"")).split(" ");for(h=0;h<b.length;h++){i=A.exec(b[h])||[],j=k=i[1],l=i[2];if(!j){for(j in o)f.event.remove(a,j+b[h],c,d,!0);continue}p=f.event.special[j]||{},j=(d?p.delegateType:p.bindType)||j,r=o[j]||[],m=r.length,l=l?new RegExp("(^|\\.)"+l.split(".").sort().join("\\.(?:.*\\.)?")+"(\\.|$)"):null;for(n=0;n<r.length;n++)s=r[n],(e||k===s.origType)&&(!c||c.guid===s.guid)&&(!l||l.test(s.namespace))&&(!d||d===s.selector||d==="**"&&s.selector)&&(r.splice(n--,1),s.selector&&r.delegateCount--,p.remove&&p.remove.call(a,s));r.length===0&&m!==r.length&&((!p.teardown||p.teardown.call(a,l)===!1)&&f.removeEvent(a,j,g.handle),delete o[j])}f.isEmptyObject(o)&&(q=g.handle,q&&(q.elem=null),f.removeData(a,["events","handle"],!0))}},customEvent:{getData:!0,setData:!0,changeData:!0},trigger:function(c,d,e,g){if(!e||e.nodeType!==3&&e.nodeType!==8){var h=c.type||c,i=[],j,k,l,m,n,o,p,q,r,s;if(E.test(h+f.event.triggered))return;h.indexOf("!")>=0&&(h=h.slice(0,-1),k=!0),h.indexOf(".")>=0&&(i=h.split("."),h=i.shift(),i.sort());if((!e||f.event.customEvent[h])&&!f.event.global[h])return;c=typeof c=="object"?c[f.expando]?c:new f.Event(h,c):new f.Event(h),c.type=h,c.isTrigger=!0,c.exclusive=k,c.namespace=i.join("."),c.namespace_re=c.namespace?new RegExp("(^|\\.)"+i.join("\\.(?:.*\\.)?")+"(\\.|$)"):null,o=h.indexOf(":")<0?"on"+h:"";if(!e){j=f.cache;for(l in j)j[l].events&&j[l].events[h]&&f.event.trigger(c,d,j[l].handle.elem,!0);return}c.result=b,c.target||(c.target=e),d=d!=null?f.makeArray(d):[],d.unshift(c),p=f.event.special[h]||{};if(p.trigger&&p.trigger.apply(e,d)===!1)return;r=[[e,p.bindType||h]];if(!g&&!p.noBubble&&!f.isWindow(e)){s=p.delegateType||h,m=E.test(s+h)?e:e.parentNode,n=null;for(;m;m=m.parentNode)r.push([m,s]),n=m;n&&n===e.ownerDocument&&r.push([n.defaultView||n.parentWindow||a,s])}for(l=0;l<r.length&&!c.isPropagationStopped();l++)m=r[l][0],c.type=r[l][1],q=(f._data(m,"events")||{})[c.type]&&f._data(m,"handle"),q&&q.apply(m,d),q=o&&m[o],q&&f.acceptData(m)&&q.apply(m,d)===!1&&c.preventDefault();c.type=h,!g&&!c.isDefaultPrevented()&&(!p._default||p._default.apply(e.ownerDocument,d)===!1)&&(h!=="click"||!f.nodeName(e,"a"))&&f.acceptData(e)&&o&&e[h]&&(h!=="focus"&&h!=="blur"||c.target.offsetWidth!==0)&&!f.isWindow(e)&&(n=e[o],n&&(e[o]=null),f.event.triggered=h,e[h](),f.event.triggered=b,n&&(e[o]=n));return c.result}},dispatch:function(c){c=f.event.fix(c||a.event);var d=(f._data(this,"events")||{})[c.type]||[],e=d.delegateCount,g=[].slice.call(arguments,0),h=!c.exclusive&&!c.namespace,i=[],j,k,l,m,n,o,p,q,r,s,t;g[0]=c,c.delegateTarget=this;if(e&&!c.target.disabled&&(!c.button||c.type!=="click")){m=f(this),m.context=this.ownerDocument||this;for(l=c.target;l!=this;l=l.parentNode||this){o={},q=[],m[0]=l;for(j=0;j<e;j++)r=d[j],s=r.selector,o[s]===b&&(o[s]=r.quick?H(l,r.quick):m.is(s)),o[s]&&q.push(r);q.length&&i.push({elem:l,matches:q})}}d.length>e&&i.push({elem:this,matches:d.slice(e)});for(j=0;j<i.length&&!c.isPropagationStopped();j++){p=i[j],c.currentTarget=p.elem;for(k=0;k<p.matches.length&&!c.isImmediatePropagationStopped();k++){r=p.matches[k];if(h||!c.namespace&&!r.namespace||c.namespace_re&&c.namespace_re.test(r.namespace))c.data=r.data,c.handleObj=r,n=((f.event.special[r.origType]||{}).handle||r.handler).apply(p.elem,g),n!==b&&(c.result=n,n===!1&&(c.preventDefault(),c.stopPropagation()))}}return c.result},props:"attrChange attrName relatedNode srcElement altKey bubbles cancelable ctrlKey currentTarget eventPhase metaKey relatedTarget shiftKey target timeStamp view which".split(" "),fixHooks:{},keyHooks:{props:"char charCode key keyCode".split(" "),filter:function(a,b){a.which==null&&(a.which=b.charCode!=null?b.charCode:b.keyCode);return a}},mouseHooks:{props:"button buttons clientX clientY fromElement offsetX offsetY pageX pageY screenX screenY toElement".split(" "),filter:function(a,d){var e,f,g,h=d.button,i=d.fromElement;a.pageX==null&&d.clientX!=null&&(e=a.target.ownerDocument||c,f=e.documentElement,g=e.body,a.pageX=d.clientX+(f&&f.scrollLeft||g&&g.scrollLeft||0)-(f&&f.clientLeft||g&&g.clientLeft||0),a.pageY=d.clientY+(f&&f.scrollTop||g&&g.scrollTop||0)-(f&&f.clientTop||g&&g.clientTop||0)),!a.relatedTarget&&i&&(a.relatedTarget=i===a.target?d.toElement:i),!a.which&&h!==b&&(a.which=h&1?1:h&2?3:h&4?2:0);return a}},fix:function(a){if(a[f.expando])return a;var d,e,g=a,h=f.event.fixHooks[a.type]||{},i=h.props?this.props.concat(h.props):this.props;a=f.Event(g);for(d=i.length;d;)e=i[--d],a[e]=g[e];a.target||(a.target=g.srcElement||c),a.target.nodeType===3&&(a.target=a.target.parentNode),a.metaKey===b&&(a.metaKey=a.ctrlKey);return h.filter?h.filter(a,g):a},special:{ready:{setup:f.bindReady},load:{noBubble:!0},focus:{delegateType:"focusin"},blur:{delegateType:"focusout"},beforeunload:{setup:function(a,b,c){f.isWindow(this)&&(this.onbeforeunload=c)},teardown:function(a,b){this.onbeforeunload===b&&(this.onbeforeunload=null)}}},simulate:function(a,b,c,d){var e=f.extend(new f.Event,c,{type:a,isSimulated:!0,originalEvent:{}});d?f.event.trigger(e,null,b):f.event.dispatch.call(b,e),e.isDefaultPrevented()&&c.preventDefault()}},f.event.handle=f.event.dispatch,f.removeEvent=c.removeEventListener?function(a,b,c){a.removeEventListener&&a.removeEventListener(b,c,!1)}:function(a,b,c){a.detachEvent&&a.detachEvent("on"+b,c)},f.Event=function(a,b){if(!(this instanceof f.Event))return new f.Event(a,b);a&&a.type?(this.originalEvent=a,this.type=a.type,this.isDefaultPrevented=a.defaultPrevented||a.returnValue===!1||a.getPreventDefault&&a.getPreventDefault()?K:J):this.type=a,b&&f.extend(this,b),this.timeStamp=a&&a.timeStamp||f.now(),this[f.expando]=!0},f.Event.prototype={preventDefault:function(){this.isDefaultPrevented=K;var a=this.originalEvent;!a||(a.preventDefault?a.preventDefault():a.returnValue=!1)},stopPropagation:function(){this.isPropagationStopped=K;var a=this.originalEvent;!a||(a.stopPropagation&&a.stopPropagation(),a.cancelBubble=!0)},stopImmediatePropagation:function(){this.isImmediatePropagationStopped=K,this.stopPropagation()},isDefaultPrevented:J,isPropagationStopped:J,isImmediatePropagationStopped:J},f.each({mouseenter:"mouseover",mouseleave:"mouseout"},function(a,b){f.event.special[a]={delegateType:b,bindType:b,handle:function(a){var c=this,d=a.relatedTarget,e=a.handleObj,g=e.selector,h;if(!d||d!==c&&!f.contains(c,d))a.type=e.origType,h=e.handler.apply(this,arguments),a.type=b;return h}}}),f.support.submitBubbles||(f.event.special.submit={setup:function(){if(f.nodeName(this,"form"))return!1;f.event.add(this,"click._submit keypress._submit",function(a){var c=a.target,d=f.nodeName(c,"input")||f.nodeName(c,"button")?c.form:b;d&&!d._submit_attached&&(f.event.add(d,"submit._submit",function(a){this.parentNode&&!a.isTrigger&&f.event.simulate("submit",this.parentNode,a,!0)}),d._submit_attached=!0)})},teardown:function(){if(f.nodeName(this,"form"))return!1;f.event.remove(this,"._submit")}}),f.support.changeBubbles||(f.event.special.change={setup:function(){if(z.test(this.nodeName)){if(this.type==="checkbox"||this.type==="radio")f.event.add(this,"propertychange._change",function(a){a.originalEvent.propertyName==="checked"&&(this._just_changed=!0)}),f.event.add(this,"click._change",function(a){this._just_changed&&!a.isTrigger&&(this._just_changed=!1,f.event.simulate("change",this,a,!0))});return!1}f.event.add(this,"beforeactivate._change",function(a){var b=a.target;z.test(b.nodeName)&&!b._change_attached&&(f.event.add(b,"change._change",function(a){this.parentNode&&!a.isSimulated&&!a.isTrigger&&f.event.simulate("change",this.parentNode,a,!0)}),b._change_attached=!0)})},handle:function(a){var b=a.target;if(this!==b||a.isSimulated||a.isTrigger||b.type!=="radio"&&b.type!=="checkbox")return a.handleObj.handler.apply(this,arguments)},teardown:function(){f.event.remove(this,"._change");return z.test(this.nodeName)}}),f.support.focusinBubbles||f.each({focus:"focusin",blur:"focusout"},function(a,b){var d=0,e=function(a){f.event.simulate(b,a.target,f.event.fix(a),!0)};f.event.special[b]={setup:function(){d++===0&&c.addEventListener(a,e,!0)},teardown:function(){--d===0&&c.removeEventListener(a,e,!0)}}}),f.fn.extend({on:function(a,c,d,e,g){var h,i;if(typeof a=="object"){typeof c!="string"&&(d=c,c=b);for(i in a)this.on(i,c,d,a[i],g);return this}d==null&&e==null?(e=c,d=c=b):e==null&&(typeof c=="string"?(e=d,d=b):(e=d,d=c,c=b));if(e===!1)e=J;else if(!e)return this;g===1&&(h=e,e=function(a){f().off(a);return h.apply(this,arguments)},e.guid=h.guid||(h.guid=f.guid++));return this.each(function(){f.event.add(this,a,e,d,c)})},one:function(a,b,c,d){return this.on.call(this,a,b,c,d,1)},off:function(a,c,d){if(a&&a.preventDefault&&a.handleObj){var e=a.handleObj;f(a.delegateTarget).off(e.namespace?e.type+"."+e.namespace:e.type,e.selector,e.handler);return this}if(typeof a=="object"){for(var g in a)this.off(g,c,a[g]);return this}if(c===!1||typeof c=="function")d=c,c=b;d===!1&&(d=J);return this.each(function(){f.event.remove(this,a,d,c)})},bind:function(a,b,c){return this.on(a,null,b,c)},unbind:function(a,b){return this.off(a,null,b)},live:function(a,b,c){f(this.context).on(a,this.selector,b,c);return this},die:function(a,b){f(this.context).off(a,this.selector||"**",b);return this},delegate:function(a,b,c,d){return this.on(b,a,c,d)},undelegate:function(a,b,c){return arguments.length==1?this.off(a,"**"):this.off(b,a,c)},trigger:function(a,b){return this.each(function(){f.event.trigger(a,b,this)})},triggerHandler:function(a,b){if(this[0])return f.event.trigger(a,b,this[0],!0)},toggle:function(a){var b=arguments,c=a.guid||f.guid++,d=0,e=function(c){var e=(f._data(this,"lastToggle"+a.guid)||0)%d;f._data(this,"lastToggle"+a.guid,e+1),c.preventDefault();return b[e].apply(this,arguments)||!1};e.guid=c;while(d<b.length)b[d++].guid=c;return this.click(e)},hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)}}),f.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error contextmenu".split(" "),function(a,b){f.fn[b]=function(a,c){c==null&&(c=a,a=null);return arguments.length>0?this.on(b,null,a,c):this.trigger(b)},f.attrFn&&(f.attrFn[b]=!0),C.test(b)&&(f.event.fixHooks[b]=f.event.keyHooks),D.test(b)&&(f.event.fixHooks[b]=f.event.mouseHooks)}),function(){function x(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}if(j.nodeType===1){g||(j[d]=c,j.sizset=h);if(typeof b!="string"){if(j===b){k=!0;break}}else if(m.filter(b,[j]).length>0){k=j;break}}j=j[a]}e[h]=k}}}function w(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}j.nodeType===1&&!g&&(j[d]=c,j.sizset=h);if(j.nodeName.toLowerCase()===b){k=j;break}j=j[a]}e[h]=k}}}var a=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^\[\]]*\]|['"][^'"]*['"]|[^\[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,d="sizcache"+(Math.random()+"").replace(".",""),e=0,g=Object.prototype.toString,h=!1,i=!0,j=/\\/g,k=/\r\n/g,l=/\W/;[0,0].sort(function(){i=!1;return 0});var m=function(b,d,e,f){e=e||[],d=d||c;var h=d;if(d.nodeType!==1&&d.nodeType!==9)return[];if(!b||typeof b!="string")return e;var i,j,k,l,n,q,r,t,u=!0,v=m.isXML(d),w=[],x=b;do{a.exec(""),i=a.exec(x);if(i){x=i[3],w.push(i[1]);if(i[2]){l=i[3];break}}}while(i);if(w.length>1&&p.exec(b))if(w.length===2&&o.relative[w[0]])j=y(w[0]+w[1],d,f);else{j=o.relative[w[0]]?[d]:m(w.shift(),d);while(w.length)b=w.shift(),o.relative[b]&&(b+=w.shift()),j=y(b,j,f)}else{!f&&w.length>1&&d.nodeType===9&&!v&&o.match.ID.test(w[0])&&!o.match.ID.test(w[w.length-1])&&(n=m.find(w.shift(),d,v),d=n.expr?m.filter(n.expr,n.set)[0]:n.set[0]);if(d){n=f?{expr:w.pop(),set:s(f)}:m.find(w.pop(),w.length===1&&(w[0]==="~"||w[0]==="+")&&d.parentNode?d.parentNode:d,v),j=n.expr?m.filter(n.expr,n.set):n.set,w.length>0?k=s(j):u=!1;while(w.length)q=w.pop(),r=q,o.relative[q]?r=w.pop():q="",r==null&&(r=d),o.relative[q](k,r,v)}else k=w=[]}k||(k=j),k||m.error(q||b);if(g.call(k)==="[object Array]")if(!u)e.push.apply(e,k);else if(d&&d.nodeType===1)for(t=0;k[t]!=null;t++)k[t]&&(k[t]===!0||k[t].nodeType===1&&m.contains(d,k[t]))&&e.push(j[t]);else for(t=0;k[t]!=null;t++)k[t]&&k[t].nodeType===1&&e.push(j[t]);else s(k,e);l&&(m(l,h,e,f),m.uniqueSort(e));return e};m.uniqueSort=function(a){if(u){h=i,a.sort(u);if(h)for(var b=1;b<a.length;b++)a[b]===a[b-1]&&a.splice(b--,1)}return a},m.matches=function(a,b){return m(a,null,null,b)},m.matchesSelector=function(a,b){return m(b,null,null,[a]).length>0},m.find=function(a,b,c){var d,e,f,g,h,i;if(!a)return[];for(e=0,f=o.order.length;e<f;e++){h=o.order[e];if(g=o.leftMatch[h].exec(a)){i=g[1],g.splice(1,1);if(i.substr(i.length-1)!=="\\"){g[1]=(g[1]||"").replace(j,""),d=o.find[h](g,b,c);if(d!=null){a=a.replace(o.match[h],"");break}}}}d||(d=typeof b.getElementsByTagName!="undefined"?b.getElementsByTagName("*"):[]);return{set:d,expr:a}},m.filter=function(a,c,d,e){var f,g,h,i,j,k,l,n,p,q=a,r=[],s=c,t=c&&c[0]&&m.isXML(c[0]);while(a&&c.length){for(h in o.filter)if((f=o.leftMatch[h].exec(a))!=null&&f[2]){k=o.filter[h],l=f[1],g=!1,f.splice(1,1);if(l.substr(l.length-1)==="\\")continue;s===r&&(r=[]);if(o.preFilter[h]){f=o.preFilter[h](f,s,d,r,e,t);if(!f)g=i=!0;else if(f===!0)continue}if(f)for(n=0;(j=s[n])!=null;n++)j&&(i=k(j,f,n,s),p=e^i,d&&i!=null?p?g=!0:s[n]=!1:p&&(r.push(j),g=!0));if(i!==b){d||(s=r),a=a.replace(o.match[h],"");if(!g)return[];break}}if(a===q)if(g==null)m.error(a);else break;q=a}return s},m.error=function(a){throw new Error("Syntax error, unrecognized expression: "+a)};var n=m.getText=function(a){var b,c,d=a.nodeType,e="";if(d){if(d===1||d===9){if(typeof a.textContent=="string")return a.textContent;if(typeof a.innerText=="string")return a.innerText.replace(k,"");for(a=a.firstChild;a;a=a.nextSibling)e+=n(a)}else if(d===3||d===4)return a.nodeValue}else for(b=0;c=a[b];b++)c.nodeType!==8&&(e+=n(c));return e},o=m.selectors={order:["ID","NAME","TAG"],match:{ID:/#((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,CLASS:/\.((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,NAME:/\[name=['"]*((?:[\w\u00c0-\uFFFF\-]|\\.)+)['"]*\]/,ATTR:/\[\s*((?:[\w\u00c0-\uFFFF\-]|\\.)+)\s*(?:(\S?=)\s*(?:(['"])(.*?)\3|(#?(?:[\w\u00c0-\uFFFF\-]|\\.)*)|)|)\s*\]/,TAG:/^((?:[\w\u00c0-\uFFFF\*\-]|\\.)+)/,CHILD:/:(only|nth|last|first)-child(?:\(\s*(even|odd|(?:[+\-]?\d+|(?:[+\-]?\d*)?n\s*(?:[+\-]\s*\d+)?))\s*\))?/,POS:/:(nth|eq|gt|lt|first|last|even|odd)(?:\((\d*)\))?(?=[^\-]|$)/,PSEUDO:/:((?:[\w\u00c0-\uFFFF\-]|\\.)+)(?:\((['"]?)((?:\([^\)]+\)|[^\(\)]*)+)\2\))?/},leftMatch:{},attrMap:{"class":"className","for":"htmlFor"},attrHandle:{href:function(a){return a.getAttribute("href")},type:function(a){return a.getAttribute("type")}},relative:{"+":function(a,b){var c=typeof b=="string",d=c&&!l.test(b),e=c&&!d;d&&(b=b.toLowerCase());for(var f=0,g=a.length,h;f<g;f++)if(h=a[f]){while((h=h.previousSibling)&&h.nodeType!==1);a[f]=e||h&&h.nodeName.toLowerCase()===b?h||!1:h===b}e&&m.filter(b,a,!0)},">":function(a,b){var c,d=typeof b=="string",e=0,f=a.length;if(d&&!l.test(b)){b=b.toLowerCase();for(;e<f;e++){c=a[e];if(c){var g=c.parentNode;a[e]=g.nodeName.toLowerCase()===b?g:!1}}}else{for(;e<f;e++)c=a[e],c&&(a[e]=d?c.parentNode:c.parentNode===b);d&&m.filter(b,a,!0)}},"":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("parentNode",b,f,a,d,c)},"~":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("previousSibling",b,f,a,d,c)}},find:{ID:function(a,b,c){if(typeof b.getElementById!="undefined"&&!c){var d=b.getElementById(a[1]);return d&&d.parentNode?[d]:[]}},NAME:function(a,b){if(typeof b.getElementsByName!="undefined"){var c=[],d=b.getElementsByName(a[1]);for(var e=0,f=d.length;e<f;e++)d[e].getAttribute("name")===a[1]&&c.push(d[e]);return c.length===0?null:c}},TAG:function(a,b){if(typeof b.getElementsByTagName!="undefined")return b.getElementsByTagName(a[1])}},preFilter:{CLASS:function(a,b,c,d,e,f){a=" "+a[1].replace(j,"")+" ";if(f)return a;for(var g=0,h;(h=b[g])!=null;g++)h&&(e^(h.className&&(" "+h.className+" ").replace(/[\t\n\r]/g," ").indexOf(a)>=0)?c||d.push(h):c&&(b[g]=!1));return!1},ID:function(a){return a[1].replace(j,"")},TAG:function(a,b){return a[1].replace(j,"").toLowerCase()},CHILD:function(a){if(a[1]==="nth"){a[2]||m.error(a[0]),a[2]=a[2].replace(/^\+|\s*/g,"");var b=/(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2]==="even"&&"2n"||a[2]==="odd"&&"2n+1"||!/\D/.test(a[2])&&"0n+"+a[2]||a[2]);a[2]=b[1]+(b[2]||1)-0,a[3]=b[3]-0}else a[2]&&m.error(a[0]);a[0]=e++;return a},ATTR:function(a,b,c,d,e,f){var g=a[1]=a[1].replace(j,"");!f&&o.attrMap[g]&&(a[1]=o.attrMap[g]),a[4]=(a[4]||a[5]||"").replace(j,""),a[2]==="~="&&(a[4]=" "+a[4]+" ");return a},PSEUDO:function(b,c,d,e,f){if(b[1]==="not")if((a.exec(b[3])||"").length>1||/^\w/.test(b[3]))b[3]=m(b[3],null,null,c);else{var g=m.filter(b[3],c,d,!0^f);d||e.push.apply(e,g);return!1}else if(o.match.POS.test(b[0])||o.match.CHILD.test(b[0]))return!0;return b},POS:function(a){a.unshift(!0);return a}},filters:{enabled:function(a){return a.disabled===!1&&a.type!=="hidden"},disabled:function(a){return a.disabled===!0},checked:function(a){return a.checked===!0},selected:function(a){a.parentNode&&a.parentNode.selectedIndex;return a.selected===!0},parent:function(a){return!!a.firstChild},empty:function(a){return!a.firstChild},has:function(a,b,c){return!!m(c[3],a).length},header:function(a){return/h\d/i.test(a.nodeName)},text:function(a){var b=a.getAttribute("type"),c=a.type;return a.nodeName.toLowerCase()==="input"&&"text"===c&&(b===c||b===null)},radio:function(a){return a.nodeName.toLowerCase()==="input"&&"radio"===a.type},checkbox:function(a){return a.nodeName.toLowerCase()==="input"&&"checkbox"===a.type},file:function(a){return a.nodeName.toLowerCase()==="input"&&"file"===a.type},password:function(a){return a.nodeName.toLowerCase()==="input"&&"password"===a.type},submit:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"submit"===a.type},image:function(a){return a.nodeName.toLowerCase()==="input"&&"image"===a.type},reset:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"reset"===a.type},button:function(a){var b=a.nodeName.toLowerCase();return b==="input"&&"button"===a.type||b==="button"},input:function(a){return/input|select|textarea|button/i.test(a.nodeName)},focus:function(a){return a===a.ownerDocument.activeElement}},setFilters:{first:function(a,b){return b===0},last:function(a,b,c,d){return b===d.length-1},even:function(a,b){return b%2===0},odd:function(a,b){return b%2===1},lt:function(a,b,c){return b<c[3]-0},gt:function(a,b,c){return b>c[3]-0},nth:function(a,b,c){return c[3]-0===b},eq:function(a,b,c){return c[3]-0===b}},filter:{PSEUDO:function(a,b,c,d){var e=b[1],f=o.filters[e];if(f)return f(a,c,b,d);if(e==="contains")return(a.textContent||a.innerText||n([a])||"").indexOf(b[3])>=0;if(e==="not"){var g=b[3];for(var h=0,i=g.length;h<i;h++)if(g[h]===a)return!1;return!0}m.error(e)},CHILD:function(a,b){var c,e,f,g,h,i,j,k=b[1],l=a;switch(k){case"only":case"first":while(l=l.previousSibling)if(l.nodeType===1)return!1;if(k==="first")return!0;l=a;case"last":while(l=l.nextSibling)if(l.nodeType===1)return!1;return!0;case"nth":c=b[2],e=b[3];if(c===1&&e===0)return!0;f=b[0],g=a.parentNode;if(g&&(g[d]!==f||!a.nodeIndex)){i=0;for(l=g.firstChild;l;l=l.nextSibling)l.nodeType===1&&(l.nodeIndex=++i);g[d]=f}j=a.nodeIndex-e;return c===0?j===0:j%c===0&&j/c>=0}},ID:function(a,b){return a.nodeType===1&&a.getAttribute("id")===b},TAG:function(a,b){return b==="*"&&a.nodeType===1||!!a.nodeName&&a.nodeName.toLowerCase()===b},CLASS:function(a,b){return(" "+(a.className||a.getAttribute("class"))+" ").indexOf(b)>-1},ATTR:function(a,b){var c=b[1],d=m.attr?m.attr(a,c):o.attrHandle[c]?o.attrHandle[c](a):a[c]!=null?a[c]:a.getAttribute(c),e=d+"",f=b[2],g=b[4];return d==null?f==="!=":!f&&m.attr?d!=null:f==="="?e===g:f==="*="?e.indexOf(g)>=0:f==="~="?(" "+e+" ").indexOf(g)>=0:g?f==="!="?e!==g:f==="^="?e.indexOf(g)===0:f==="$="?e.substr(e.length-g.length)===g:f==="|="?e===g||e.substr(0,g.length+1)===g+"-":!1:e&&d!==!1},POS:function(a,b,c,d){var e=b[2],f=o.setFilters[e];if(f)return f(a,c,b,d)}}},p=o.match.POS,q=function(a,b){return"\\"+(b-0+1)};for(var r in o.match)o.match[r]=new RegExp(o.match[r].source+/(?![^\[]*\])(?![^\(]*\))/.source),o.leftMatch[r]=new RegExp(/(^(?:.|\r|\n)*?)/.source+o.match[r].source.replace(/\\(\d+)/g,q));var s=function(a,b){a=Array.prototype.slice.call(a,0);if(b){b.push.apply(b,a);return b}return a};try{Array.prototype.slice.call(c.documentElement.childNodes,0)[0].nodeType}catch(t){s=function(a,b){var c=0,d=b||[];if(g.call(a)==="[object Array]")Array.prototype.push.apply(d,a);else if(typeof a.length=="number")for(var e=a.length;c<e;c++)d.push(a[c]);else for(;a[c];c++)d.push(a[c]);return d}}var u,v;c.documentElement.compareDocumentPosition?u=function(a,b){if(a===b){h=!0;return 0}if(!a.compareDocumentPosition||!b.compareDocumentPosition)return a.compareDocumentPosition?-1:1;return a.compareDocumentPosition(b)&4?-1:1}:(u=function(a,b){if(a===b){h=!0;return 0}if(a.sourceIndex&&b.sourceIndex)return a.sourceIndex-b.sourceIndex;var c,d,e=[],f=[],g=a.parentNode,i=b.parentNode,j=g;if(g===i)return v(a,b);if(!g)return-1;if(!i)return 1;while(j)e.unshift(j),j=j.parentNode;j=i;while(j)f.unshift(j),j=j.parentNode;c=e.length,d=f.length;for(var k=0;k<c&&k<d;k++)if(e[k]!==f[k])return v(e[k],f[k]);return k===c?v(a,f[k],-1):v(e[k],b,1)},v=function(a,b,c){if(a===b)return c;var d=a.nextSibling;while(d){if(d===b)return-1;d=d.nextSibling}return 1}),function(){var a=c.createElement("div"),d="script"+(new Date).getTime(),e=c.documentElement;a.innerHTML="<a name='"+d+"'/>",e.insertBefore(a,e.firstChild),c.getElementById(d)&&(o.find.ID=function(a,c,d){if(typeof c.getElementById!="undefined"&&!d){var e=c.getElementById(a[1]);return e?e.id===a[1]||typeof e.getAttributeNode!="undefined"&&e.getAttributeNode("id").nodeValue===a[1]?[e]:b:[]}},o.filter.ID=function(a,b){var c=typeof a.getAttributeNode!="undefined"&&a.getAttributeNode("id");return a.nodeType===1&&c&&c.nodeValue===b}),e.removeChild(a),e=a=null}(),function(){var a=c.createElement("div");a.appendChild(c.createComment("")),a.getElementsByTagName("*").length>0&&(o.find.TAG=function(a,b){var c=b.getElementsByTagName(a[1]);if(a[1]==="*"){var d=[];for(var e=0;c[e];e++)c[e].nodeType===1&&d.push(c[e]);c=d}return c}),a.innerHTML="<a href='#'></a>",a.firstChild&&typeof a.firstChild.getAttribute!="undefined"&&a.firstChild.getAttribute("href")!=="#"&&(o.attrHandle.href=function(a){return a.getAttribute("href",2)}),a=null}(),c.querySelectorAll&&function(){var a=m,b=c.createElement("div"),d="__sizzle__";b.innerHTML="<p class='TEST'></p>";if(!b.querySelectorAll||b.querySelectorAll(".TEST").length!==0){m=function(b,e,f,g){e=e||c;if(!g&&!m.isXML(e)){var h=/^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b);if(h&&(e.nodeType===1||e.nodeType===9)){if(h[1])return s(e.getElementsByTagName(b),f);if(h[2]&&o.find.CLASS&&e.getElementsByClassName)return s(e.getElementsByClassName(h[2]),f)}if(e.nodeType===9){if(b==="body"&&e.body)return s([e.body],f);if(h&&h[3]){var i=e.getElementById(h[3]);if(!i||!i.parentNode)return s([],f);if(i.id===h[3])return s([i],f)}try{return s(e.querySelectorAll(b),f)}catch(j){}}else if(e.nodeType===1&&e.nodeName.toLowerCase()!=="object"){var k=e,l=e.getAttribute("id"),n=l||d,p=e.parentNode,q=/^\s*[+~]/.test(b);l?n=n.replace(/'/g,"\\$&"):e.setAttribute("id",n),q&&p&&(e=e.parentNode);try{if(!q||p)return s(e.querySelectorAll("[id='"+n+"'] "+b),f)}catch(r){}finally{l||k.removeAttribute("id")}}}return a(b,e,f,g)};for(var e in a)m[e]=a[e];b=null}}(),function(){var a=c.documentElement,b=a.matchesSelector||a.mozMatchesSelector||a.webkitMatchesSelector||a.msMatchesSelector;if(b){var d=!b.call(c.createElement("div"),"div"),e=!1;try{b.call(c.documentElement,"[test!='']:sizzle")}catch(f){e=!0}m.matchesSelector=function(a,c){c=c.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!m.isXML(a))try{if(e||!o.match.PSEUDO.test(c)&&!/!=/.test(c)){var f=b.call(a,c);if(f||!d||a.document&&a.document.nodeType!==11)return f}}catch(g){}return m(c,null,null,[a]).length>0}}}(),function(){var a=c.createElement("div");a.innerHTML="<div class='test e'></div><div class='test'></div>";if(!!a.getElementsByClassName&&a.getElementsByClassName("e").length!==0){a.lastChild.className="e";if(a.getElementsByClassName("e").length===1)return;o.order.splice(1,0,"CLASS"),o.find.CLASS=function(a,b,c){if(typeof b.getElementsByClassName!="undefined"&&!c)return b.getElementsByClassName(a[1])},a=null}}(),c.documentElement.contains?m.contains=function(a,b){return a!==b&&(a.contains?a.contains(b):!0)}:c.documentElement.compareDocumentPosition?m.contains=function(a,b){return!!(a.compareDocumentPosition(b)&16)}:m.contains=function(){return!1},m.isXML=function(a){var b=(a?a.ownerDocument||a:0).documentElement;return b?b.nodeName!=="HTML":!1};var y=function(a,b,c){var d,e=[],f="",g=b.nodeType?[b]:b;while(d=o.match.PSEUDO.exec(a))f+=d[0],a=a.replace(o.match.PSEUDO,"");a=o.relative[a]?a+"*":a;for(var h=0,i=g.length;h<i;h++)m(a,g[h],e,c);return m.filter(f,e)};m.attr=f.attr,m.selectors.attrMap={},f.find=m,f.expr=m.selectors,f.expr[":"]=f.expr.filters,f.unique=m.uniqueSort,f.text=m.getText,f.isXMLDoc=m.isXML,f.contains=m.contains}();var L=/Until$/,M=/^(?:parents|prevUntil|prevAll)/,N=/,/,O=/^.[^:#\[\.,]*$/,P=Array.prototype.slice,Q=f.expr.match.POS,R={children:!0,contents:!0,next:!0,prev:!0};f.fn.extend({find:function(a){var b=this,c,d;if(typeof a!="string")return f(a).filter(function(){for(c=0,d=b.length;c<d;c++)if(f.contains(b[c],this))return!0});var e=this.pushStack("","find",a),g,h,i;for(c=0,d=this.length;c<d;c++){g=e.length,f.find(a,this[c],e);if(c>0)for(h=g;h<e.length;h++)for(i=0;i<g;i++)if(e[i]===e[h]){e.splice(h--,1);break}}return e},has:function(a){var b=f(a);return this.filter(function(){for(var a=0,c=b.length;a<c;a++)if(f.contains(this,b[a]))return!0})},not:function(a){return this.pushStack(T(this,a,!1),"not",a)},filter:function(a){return this.pushStack(T(this,a,!0),"filter",a)},is:function(a){return!!a&&(typeof a=="string"?Q.test(a)?f(a,this.context).index(this[0])>=0:f.filter(a,this).length>0:this.filter(a).length>0)},closest:function(a,b){var c=[],d,e,g=this[0];if(f.isArray(a)){var h=1;while(g&&g.ownerDocument&&g!==b){for(d=0;d<a.length;d++)f(g).is(a[d])&&c.push({selector:a[d],elem:g,level:h});g=g.parentNode,h++}return c}var i=Q.test(a)||typeof a!="string"?f(a,b||this.context):0;for(d=0,e=this.length;d<e;d++){g=this[d];while(g){if(i?i.index(g)>-1:f.find.matchesSelector(g,a)){c.push(g);break}g=g.parentNode;if(!g||!g.ownerDocument||g===b||g.nodeType===11)break}}c=c.length>1?f.unique(c):c;return this.pushStack(c,"closest",a)},index:function(a){if(!a)return this[0]&&this[0].parentNode?this.prevAll().length:-1;if(typeof a=="string")return f.inArray(this[0],f(a));return f.inArray(a.jquery?a[0]:a,this)},add:function(a,b){var c=typeof a=="string"?f(a,b):f.makeArray(a&&a.nodeType?[a]:a),d=f.merge(this.get(),c);return this.pushStack(S(c[0])||S(d[0])?d:f.unique(d))},andSelf:function(){return this.add(this.prevObject)}}),f.each({parent:function(a){var b=a.parentNode;return b&&b.nodeType!==11?b:null},parents:function(a){return f.dir(a,"parentNode")},parentsUntil:function(a,b,c){return f.dir(a,"parentNode",c)},next:function(a){return f.nth(a,2,"nextSibling")},prev:function(a){return f.nth(a,2,"previousSibling")},nextAll:function(a){return f.dir(a,"nextSibling")},prevAll:function(a){return f.dir(a,"previousSibling")},nextUntil:function(a,b,c){return f.dir(a,"nextSibling",c)},prevUntil:function(a,b,c){return f.dir(a,"previousSibling",c)},siblings:function(a){return f.sibling(a.parentNode.firstChild,a)},children:function(a){return f.sibling(a.firstChild)},contents:function(a){return f.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:f.makeArray(a.childNodes)}},function(a,b){f.fn[a]=function(c,d){var e=f.map(this,b,c);L.test(a)||(d=c),d&&typeof d=="string"&&(e=f.filter(d,e)),e=this.length>1&&!R[a]?f.unique(e):e,(this.length>1||N.test(d))&&M.test(a)&&(e=e.reverse());return this.pushStack(e,a,P.call(arguments).join(","))}}),f.extend({filter:function(a,b,c){c&&(a=":not("+a+")");return b.length===1?f.find.matchesSelector(b[0],a)?[b[0]]:[]:f.find.matches(a,b)},dir:function(a,c,d){var e=[],g=a[c];while(g&&g.nodeType!==9&&(d===b||g.nodeType!==1||!f(g).is(d)))g.nodeType===1&&e.push(g),g=g[c];return e},nth:function(a,b,c,d){b=b||1;var e=0;for(;a;a=a[c])if(a.nodeType===1&&++e===b)break;return a},sibling:function(a,b){var c=[];for(;a;a=a.nextSibling)a.nodeType===1&&a!==b&&c.push(a);return c}});var V="abbr|article|aside|audio|canvas|datalist|details|figcaption|figure|footer|header|hgroup|mark|meter|nav|output|progress|section|summary|time|video",W=/ jQuery\d+="(?:\d+|null)"/g,X=/^\s+/,Y=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig,Z=/<([\w:]+)/,$=/<tbody/i,_=/<|&#?\w+;/,ba=/<(?:script|style)/i,bb=/<(?:script|object|embed|option|style)/i,bc=new RegExp("<(?:"+V+")","i"),bd=/checked\s*(?:[^=]|=\s*.checked.)/i,be=/\/(java|ecma)script/i,bf=/^\s*<!(?:\[CDATA\[|\-\-)/,bg={option:[1,"<select multiple='multiple'>","</select>"],legend:[1,"<fieldset>","</fieldset>"],thead:[1,"<table>","</table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],col:[2,"<table><tbody></tbody><colgroup>","</colgroup></table>"],area:[1,"<map>","</map>"],_default:[0,"",""]},bh=U(c);bg.optgroup=bg.option,bg.tbody=bg.tfoot=bg.colgroup=bg.caption=bg.thead,bg.th=bg.td,f.support.htmlSerialize||(bg._default=[1,"div<div>","</div>"]),f.fn.extend({text:function(a){if(f.isFunction(a))return this.each(function(b){var c=f(this);c.text(a.call(this,b,c.text()))});if(typeof a!="object"&&a!==b)return this.empty().append((this[0]&&this[0].ownerDocument||c).createTextNode(a));return f.text(this)},wrapAll:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapAll(a.call(this,b))});if(this[0]){var b=f(a,this[0].ownerDocument).eq(0).clone(!0);this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstChild&&a.firstChild.nodeType===1)a=a.firstChild;return a}).append(this)}return this},wrapInner:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapInner(a.call(this,b))});return this.each(function(){var b=f(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){var b=f.isFunction(a);return this.each(function(c){f(this).wrapAll(b?a.call(this,c):a)})},unwrap:function(){return this.parent().each(function(){f.nodeName(this,"body")||f(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.appendChild(a)})},prepend:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this)});if(arguments.length){var a=f.clean(arguments);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,f.clean(arguments));return a}},remove:function(a,b){for(var c=0,d;(d=this[c])!=null;c++)if(!a||f.filter(a,[d]).length)!b&&d.nodeType===1&&(f.cleanData(d.getElementsByTagName("*")),f.cleanData([d])),d.parentNode&&d.parentNode.removeChild(d);return this},empty:function()
-{for(var a=0,b;(b=this[a])!=null;a++){b.nodeType===1&&f.cleanData(b.getElementsByTagName("*"));while(b.firstChild)b.removeChild(b.firstChild)}return this},clone:function(a,b){a=a==null?!1:a,b=b==null?a:b;return this.map(function(){return f.clone(this,a,b)})},html:function(a){if(a===b)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(W,""):null;if(typeof a=="string"&&!ba.test(a)&&(f.support.leadingWhitespace||!X.test(a))&&!bg[(Z.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Y,"<$1></$2>");try{for(var c=0,d=this.length;c<d;c++)this[c].nodeType===1&&(f.cleanData(this[c].getElementsByTagName("*")),this[c].innerHTML=a)}catch(e){this.empty().append(a)}}else f.isFunction(a)?this.each(function(b){var c=f(this);c.html(a.call(this,b,c.html()))}):this.empty().append(a);return this},replaceWith:function(a){if(this[0]&&this[0].parentNode){if(f.isFunction(a))return this.each(function(b){var c=f(this),d=c.html();c.replaceWith(a.call(this,b,d))});typeof a!="string"&&(a=f(a).detach());return this.each(function(){var b=this.nextSibling,c=this.parentNode;f(this).remove(),b?f(b).before(a):f(c).append(a)})}return this.length?this.pushStack(f(f.isFunction(a)?a():a),"replaceWith",a):this},detach:function(a){return this.remove(a,!0)},domManip:function(a,c,d){var e,g,h,i,j=a[0],k=[];if(!f.support.checkClone&&arguments.length===3&&typeof j=="string"&&bd.test(j))return this.each(function(){f(this).domManip(a,c,d,!0)});if(f.isFunction(j))return this.each(function(e){var g=f(this);a[0]=j.call(this,e,c?g.html():b),g.domManip(a,c,d)});if(this[0]){i=j&&j.parentNode,f.support.parentNode&&i&&i.nodeType===11&&i.childNodes.length===this.length?e={fragment:i}:e=f.buildFragment(a,this,k),h=e.fragment,h.childNodes.length===1?g=h=h.firstChild:g=h.firstChild;if(g){c=c&&f.nodeName(g,"tr");for(var l=0,m=this.length,n=m-1;l<m;l++)d.call(c?bi(this[l],g):this[l],e.cacheable||m>1&&l<n?f.clone(h,!0,!0):h)}k.length&&f.each(k,bp)}return this}}),f.buildFragment=function(a,b,d){var e,g,h,i,j=a[0];b&&b[0]&&(i=b[0].ownerDocument||b[0]),i.createDocumentFragment||(i=c),a.length===1&&typeof j=="string"&&j.length<512&&i===c&&j.charAt(0)==="<"&&!bb.test(j)&&(f.support.checkClone||!bd.test(j))&&(f.support.html5Clone||!bc.test(j))&&(g=!0,h=f.fragments[j],h&&h!==1&&(e=h)),e||(e=i.createDocumentFragment(),f.clean(a,i,e,d)),g&&(f.fragments[j]=h?e:1);return{fragment:e,cacheable:g}},f.fragments={},f.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){f.fn[a]=function(c){var d=[],e=f(c),g=this.length===1&&this[0].parentNode;if(g&&g.nodeType===11&&g.childNodes.length===1&&e.length===1){e[b](this[0]);return this}for(var h=0,i=e.length;h<i;h++){var j=(h>0?this.clone(!0):this).get();f(e[h])[b](j),d=d.concat(j)}return this.pushStack(d,a,e.selector)}}),f.extend({clone:function(a,b,c){var d,e,g,h=f.support.html5Clone||!bc.test("<"+a.nodeName)?a.cloneNode(!0):bo(a);if((!f.support.noCloneEvent||!f.support.noCloneChecked)&&(a.nodeType===1||a.nodeType===11)&&!f.isXMLDoc(a)){bk(a,h),d=bl(a),e=bl(h);for(g=0;d[g];++g)e[g]&&bk(d[g],e[g])}if(b){bj(a,h);if(c){d=bl(a),e=bl(h);for(g=0;d[g];++g)bj(d[g],e[g])}}d=e=null;return h},clean:function(a,b,d,e){var g;b=b||c,typeof b.createElement=="undefined"&&(b=b.ownerDocument||b[0]&&b[0].ownerDocument||c);var h=[],i;for(var j=0,k;(k=a[j])!=null;j++){typeof k=="number"&&(k+="");if(!k)continue;if(typeof k=="string")if(!_.test(k))k=b.createTextNode(k);else{k=k.replace(Y,"<$1></$2>");var l=(Z.exec(k)||["",""])[1].toLowerCase(),m=bg[l]||bg._default,n=m[0],o=b.createElement("div");b===c?bh.appendChild(o):U(b).appendChild(o),o.innerHTML=m[1]+k+m[2];while(n--)o=o.lastChild;if(!f.support.tbody){var p=$.test(k),q=l==="table"&&!p?o.firstChild&&o.firstChild.childNodes:m[1]==="<table>"&&!p?o.childNodes:[];for(i=q.length-1;i>=0;--i)f.nodeName(q[i],"tbody")&&!q[i].childNodes.length&&q[i].parentNode.removeChild(q[i])}!f.support.leadingWhitespace&&X.test(k)&&o.insertBefore(b.createTextNode(X.exec(k)[0]),o.firstChild),k=o.childNodes}var r;if(!f.support.appendChecked)if(k[0]&&typeof (r=k.length)=="number")for(i=0;i<r;i++)bn(k[i]);else bn(k);k.nodeType?h.push(k):h=f.merge(h,k)}if(d){g=function(a){return!a.type||be.test(a.type)};for(j=0;h[j];j++)if(e&&f.nodeName(h[j],"script")&&(!h[j].type||h[j].type.toLowerCase()==="text/javascript"))e.push(h[j].parentNode?h[j].parentNode.removeChild(h[j]):h[j]);else{if(h[j].nodeType===1){var s=f.grep(h[j].getElementsByTagName("script"),g);h.splice.apply(h,[j+1,0].concat(s))}d.appendChild(h[j])}}return h},cleanData:function(a){var b,c,d=f.cache,e=f.event.special,g=f.support.deleteExpando;for(var h=0,i;(i=a[h])!=null;h++){if(i.nodeName&&f.noData[i.nodeName.toLowerCase()])continue;c=i[f.expando];if(c){b=d[c];if(b&&b.events){for(var j in b.events)e[j]?f.event.remove(i,j):f.removeEvent(i,j,b.handle);b.handle&&(b.handle.elem=null)}g?delete i[f.expando]:i.removeAttribute&&i.removeAttribute(f.expando),delete d[c]}}}});var bq=/alpha\([^)]*\)/i,br=/opacity=([^)]*)/,bs=/([A-Z]|^ms)/g,bt=/^-?\d+(?:px)?$/i,bu=/^-?\d/,bv=/^([\-+])=([\-+.\de]+)/,bw={position:"absolute",visibility:"hidden",display:"block"},bx=["Left","Right"],by=["Top","Bottom"],bz,bA,bB;f.fn.css=function(a,c){if(arguments.length===2&&c===b)return this;return f.access(this,a,c,!0,function(a,c,d){return d!==b?f.style(a,c,d):f.css(a,c)})},f.extend({cssHooks:{opacity:{get:function(a,b){if(b){var c=bz(a,"opacity","opacity");return c===""?"1":c}return a.style.opacity}}},cssNumber:{fillOpacity:!0,fontWeight:!0,lineHeight:!0,opacity:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{"float":f.support.cssFloat?"cssFloat":"styleFloat"},style:function(a,c,d,e){if(!!a&&a.nodeType!==3&&a.nodeType!==8&&!!a.style){var g,h,i=f.camelCase(c),j=a.style,k=f.cssHooks[i];c=f.cssProps[i]||i;if(d===b){if(k&&"get"in k&&(g=k.get(a,!1,e))!==b)return g;return j[c]}h=typeof d,h==="string"&&(g=bv.exec(d))&&(d=+(g[1]+1)*+g[2]+parseFloat(f.css(a,c)),h="number");if(d==null||h==="number"&&isNaN(d))return;h==="number"&&!f.cssNumber[i]&&(d+="px");if(!k||!("set"in k)||(d=k.set(a,d))!==b)try{j[c]=d}catch(l){}}},css:function(a,c,d){var e,g;c=f.camelCase(c),g=f.cssHooks[c],c=f.cssProps[c]||c,c==="cssFloat"&&(c="float");if(g&&"get"in g&&(e=g.get(a,!0,d))!==b)return e;if(bz)return bz(a,c)},swap:function(a,b,c){var d={};for(var e in b)d[e]=a.style[e],a.style[e]=b[e];c.call(a);for(e in b)a.style[e]=d[e]}}),f.curCSS=f.css,f.each(["height","width"],function(a,b){f.cssHooks[b]={get:function(a,c,d){var e;if(c){if(a.offsetWidth!==0)return bC(a,b,d);f.swap(a,bw,function(){e=bC(a,b,d)});return e}},set:function(a,b){if(!bt.test(b))return b;b=parseFloat(b);if(b>=0)return b+"px"}}}),f.support.opacity||(f.cssHooks.opacity={get:function(a,b){return br.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?parseFloat(RegExp.$1)/100+"":b?"1":""},set:function(a,b){var c=a.style,d=a.currentStyle,e=f.isNumeric(b)?"alpha(opacity="+b*100+")":"",g=d&&d.filter||c.filter||"";c.zoom=1;if(b>=1&&f.trim(g.replace(bq,""))===""){c.removeAttribute("filter");if(d&&!d.filter)return}c.filter=bq.test(g)?g.replace(bq,e):g+" "+e}}),f(function(){f.support.reliableMarginRight||(f.cssHooks.marginRight={get:function(a,b){var c;f.swap(a,{display:"inline-block"},function(){b?c=bz(a,"margin-right","marginRight"):c=a.style.marginRight});return c}})}),c.defaultView&&c.defaultView.getComputedStyle&&(bA=function(a,b){var c,d,e;b=b.replace(bs,"-$1").toLowerCase(),(d=a.ownerDocument.defaultView)&&(e=d.getComputedStyle(a,null))&&(c=e.getPropertyValue(b),c===""&&!f.contains(a.ownerDocument.documentElement,a)&&(c=f.style(a,b)));return c}),c.documentElement.currentStyle&&(bB=function(a,b){var c,d,e,f=a.currentStyle&&a.currentStyle[b],g=a.style;f===null&&g&&(e=g[b])&&(f=e),!bt.test(f)&&bu.test(f)&&(c=g.left,d=a.runtimeStyle&&a.runtimeStyle.left,d&&(a.runtimeStyle.left=a.currentStyle.left),g.left=b==="fontSize"?"1em":f||0,f=g.pixelLeft+"px",g.left=c,d&&(a.runtimeStyle.left=d));return f===""?"auto":f}),bz=bA||bB,f.expr&&f.expr.filters&&(f.expr.filters.hidden=function(a){var b=a.offsetWidth,c=a.offsetHeight;return b===0&&c===0||!f.support.reliableHiddenOffsets&&(a.style&&a.style.display||f.css(a,"display"))==="none"},f.expr.filters.visible=function(a){return!f.expr.filters.hidden(a)});var bD=/%20/g,bE=/\[\]$/,bF=/\r?\n/g,bG=/#.*$/,bH=/^(.*?):[ \t]*([^\r\n]*)\r?$/mg,bI=/^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i,bJ=/^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/,bK=/^(?:GET|HEAD)$/,bL=/^\/\//,bM=/\?/,bN=/<script\b[^<]*(?:(?!<\/script>)<[^<]*)*<\/script>/gi,bO=/^(?:select|textarea)/i,bP=/\s+/,bQ=/([?&])_=[^&]*/,bR=/^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/,bS=f.fn.load,bT={},bU={},bV,bW,bX=["*/"]+["*"];try{bV=e.href}catch(bY){bV=c.createElement("a"),bV.href="",bV=bV.href}bW=bR.exec(bV.toLowerCase())||[],f.fn.extend({load:function(a,c,d){if(typeof a!="string"&&bS)return bS.apply(this,arguments);if(!this.length)return this;var e=a.indexOf(" ");if(e>=0){var g=a.slice(e,a.length);a=a.slice(0,e)}var h="GET";c&&(f.isFunction(c)?(d=c,c=b):typeof c=="object"&&(c=f.param(c,f.ajaxSettings.traditional),h="POST"));var i=this;f.ajax({url:a,type:h,dataType:"html",data:c,complete:function(a,b,c){c=a.responseText,a.isResolved()&&(a.done(function(a){c=a}),i.html(g?f("<div>").append(c.replace(bN,"")).find(g):c)),d&&i.each(d,[c,b,a])}});return this},serialize:function(){return f.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?f.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||bO.test(this.nodeName)||bI.test(this.type))}).map(function(a,b){var c=f(this).val();return c==null?null:f.isArray(c)?f.map(c,function(a,c){return{name:b.name,value:a.replace(bF,"\r\n")}}):{name:b.name,value:c.replace(bF,"\r\n")}}).get()}}),f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),function(a,b){f.fn[b]=function(a){return this.on(b,a)}}),f.each(["get","post"],function(a,c){f[c]=function(a,d,e,g){f.isFunction(d)&&(g=g||e,e=d,d=b);return f.ajax({type:c,url:a,data:d,success:e,dataType:g})}}),f.extend({getScript:function(a,c){return f.get(a,b,c,"script")},getJSON:function(a,b,c){return f.get(a,b,c,"json")},ajaxSetup:function(a,b){b?b_(a,f.ajaxSettings):(b=a,a=f.ajaxSettings),b_(a,b);return a},ajaxSettings:{url:bV,isLocal:bJ.test(bW[1]),global:!0,type:"GET",contentType:"application/x-www-form-urlencoded",processData:!0,async:!0,accepts:{xml:"application/xml, text/xml",html:"text/html",text:"text/plain",json:"application/json, text/javascript","*":bX},contents:{xml:/xml/,html:/html/,json:/json/},responseFields:{xml:"responseXML",text:"responseText"},converters:{"* text":a.String,"text html":!0,"text json":f.parseJSON,"text xml":f.parseXML},flatOptions:{context:!0,url:!0}},ajaxPrefilter:bZ(bT),ajaxTransport:bZ(bU),ajax:function(a,c){function w(a,c,l,m){if(s!==2){s=2,q&&clearTimeout(q),p=b,n=m||"",v.readyState=a>0?4:0;var o,r,u,w=c,x=l?cb(d,v,l):b,y,z;if(a>=200&&a<300||a===304){if(d.ifModified){if(y=v.getResponseHeader("Last-Modified"))f.lastModified[k]=y;if(z=v.getResponseHeader("Etag"))f.etag[k]=z}if(a===304)w="notmodified",o=!0;else try{r=cc(d,x),w="success",o=!0}catch(A){w="parsererror",u=A}}else{u=w;if(!w||a)w="error",a<0&&(a=0)}v.status=a,v.statusText=""+(c||w),o?h.resolveWith(e,[r,w,v]):h.rejectWith(e,[v,w,u]),v.statusCode(j),j=b,t&&g.trigger("ajax"+(o?"Success":"Error"),[v,d,o?r:u]),i.fireWith(e,[v,w]),t&&(g.trigger("ajaxComplete",[v,d]),--f.active||f.event.trigger("ajaxStop"))}}typeof a=="object"&&(c=a,a=b),c=c||{};var d=f.ajaxSetup({},c),e=d.context||d,g=e!==d&&(e.nodeType||e instanceof f)?f(e):f.event,h=f.Deferred(),i=f.Callbacks("once memory"),j=d.statusCode||{},k,l={},m={},n,o,p,q,r,s=0,t,u,v={readyState:0,setRequestHeader:function(a,b){if(!s){var c=a.toLowerCase();a=m[c]=m[c]||a,l[a]=b}return this},getAllResponseHeaders:function(){return s===2?n:null},getResponseHeader:function(a){var c;if(s===2){if(!o){o={};while(c=bH.exec(n))o[c[1].toLowerCase()]=c[2]}c=o[a.toLowerCase()]}return c===b?null:c},overrideMimeType:function(a){s||(d.mimeType=a);return this},abort:function(a){a=a||"abort",p&&p.abort(a),w(0,a);return this}};h.promise(v),v.success=v.done,v.error=v.fail,v.complete=i.add,v.statusCode=function(a){if(a){var b;if(s<2)for(b in a)j[b]=[j[b],a[b]];else b=a[v.status],v.then(b,b)}return this},d.url=((a||d.url)+"").replace(bG,"").replace(bL,bW[1]+"//"),d.dataTypes=f.trim(d.dataType||"*").toLowerCase().split(bP),d.crossDomain==null&&(r=bR.exec(d.url.toLowerCase()),d.crossDomain=!(!r||r[1]==bW[1]&&r[2]==bW[2]&&(r[3]||(r[1]==="http:"?80:443))==(bW[3]||(bW[1]==="http:"?80:443)))),d.data&&d.processData&&typeof d.data!="string"&&(d.data=f.param(d.data,d.traditional)),b$(bT,d,c,v);if(s===2)return!1;t=d.global,d.type=d.type.toUpperCase(),d.hasContent=!bK.test(d.type),t&&f.active++===0&&f.event.trigger("ajaxStart");if(!d.hasContent){d.data&&(d.url+=(bM.test(d.url)?"&":"?")+d.data,delete d.data),k=d.url;if(d.cache===!1){var x=f.now(),y=d.url.replace(bQ,"$1_="+x);d.url=y+(y===d.url?(bM.test(d.url)?"&":"?")+"_="+x:"")}}(d.data&&d.hasContent&&d.contentType!==!1||c.contentType)&&v.setRequestHeader("Content-Type",d.contentType),d.ifModified&&(k=k||d.url,f.lastModified[k]&&v.setRequestHeader("If-Modified-Since",f.lastModified[k]),f.etag[k]&&v.setRequestHeader("If-None-Match",f.etag[k])),v.setRequestHeader("Accept",d.dataTypes[0]&&d.accepts[d.dataTypes[0]]?d.accepts[d.dataTypes[0]]+(d.dataTypes[0]!=="*"?", "+bX+"; q=0.01":""):d.accepts["*"]);for(u in d.headers)v.setRequestHeader(u,d.headers[u]);if(d.beforeSend&&(d.beforeSend.call(e,v,d)===!1||s===2)){v.abort();return!1}for(u in{success:1,error:1,complete:1})v[u](d[u]);p=b$(bU,d,c,v);if(!p)w(-1,"No Transport");else{v.readyState=1,t&&g.trigger("ajaxSend",[v,d]),d.async&&d.timeout>0&&(q=setTimeout(function(){v.abort("timeout")},d.timeout));try{s=1,p.send(l,w)}catch(z){if(s<2)w(-1,z);else throw z}}return v},param:function(a,c){var d=[],e=function(a,b){b=f.isFunction(b)?b():b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};c===b&&(c=f.ajaxSettings.traditional);if(f.isArray(a)||a.jquery&&!f.isPlainObject(a))f.each(a,function(){e(this.name,this.value)});else for(var g in a)ca(g,a[g],c,e);return d.join("&").replace(bD,"+")}}),f.extend({active:0,lastModified:{},etag:{}});var cd=f.now(),ce=/(\=)\?(&|$)|\?\?/i;f.ajaxSetup({jsonp:"callback",jsonpCallback:function(){return f.expando+"_"+cd++}}),f.ajaxPrefilter("json jsonp",function(b,c,d){var e=b.contentType==="application/x-www-form-urlencoded"&&typeof b.data=="string";if(b.dataTypes[0]==="jsonp"||b.jsonp!==!1&&(ce.test(b.url)||e&&ce.test(b.data))){var g,h=b.jsonpCallback=f.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,i=a[h],j=b.url,k=b.data,l="$1"+h+"$2";b.jsonp!==!1&&(j=j.replace(ce,l),b.url===j&&(e&&(k=k.replace(ce,l)),b.data===k&&(j+=(/\?/.test(j)?"&":"?")+b.jsonp+"="+h))),b.url=j,b.data=k,a[h]=function(a){g=[a]},d.always(function(){a[h]=i,g&&f.isFunction(i)&&a[h](g[0])}),b.converters["script json"]=function(){g||f.error(h+" was not called");return g[0]},b.dataTypes[0]="json";return"script"}}),f.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/javascript|ecmascript/},converters:{"text script":function(a){f.globalEval(a);return a}}}),f.ajaxPrefilter("script",function(a){a.cache===b&&(a.cache=!1),a.crossDomain&&(a.type="GET",a.global=!1)}),f.ajaxTransport("script",function(a){if(a.crossDomain){var d,e=c.head||c.getElementsByTagName("head")[0]||c.documentElement;return{send:function(f,g){d=c.createElement("script"),d.async="async",a.scriptCharset&&(d.charset=a.scriptCharset),d.src=a.url,d.onload=d.onreadystatechange=function(a,c){if(c||!d.readyState||/loaded|complete/.test(d.readyState))d.onload=d.onreadystatechange=null,e&&d.parentNode&&e.removeChild(d),d=b,c||g(200,"success")},e.insertBefore(d,e.firstChild)},abort:function(){d&&d.onload(0,1)}}}});var cf=a.ActiveXObject?function(){for(var a in ch)ch[a](0,1)}:!1,cg=0,ch;f.ajaxSettings.xhr=a.ActiveXObject?function(){return!this.isLocal&&ci()||cj()}:ci,function(a){f.extend(f.support,{ajax:!!a,cors:!!a&&"withCredentials"in a})}(f.ajaxSettings.xhr()),f.support.ajax&&f.ajaxTransport(function(c){if(!c.crossDomain||f.support.cors){var d;return{send:function(e,g){var h=c.xhr(),i,j;c.username?h.open(c.type,c.url,c.async,c.username,c.password):h.open(c.type,c.url,c.async);if(c.xhrFields)for(j in c.xhrFields)h[j]=c.xhrFields[j];c.mimeType&&h.overrideMimeType&&h.overrideMimeType(c.mimeType),!c.crossDomain&&!e["X-Requested-With"]&&(e["X-Requested-With"]="XMLHttpRequest");try{for(j in e)h.setRequestHeader(j,e[j])}catch(k){}h.send(c.hasContent&&c.data||null),d=function(a,e){var j,k,l,m,n;try{if(d&&(e||h.readyState===4)){d=b,i&&(h.onreadystatechange=f.noop,cf&&delete ch[i]);if(e)h.readyState!==4&&h.abort();else{j=h.status,l=h.getAllResponseHeaders(),m={},n=h.responseXML,n&&n.documentElement&&(m.xml=n),m.text=h.responseText;try{k=h.statusText}catch(o){k=""}!j&&c.isLocal&&!c.crossDomain?j=m.text?200:404:j===1223&&(j=204)}}}catch(p){e||g(-1,p)}m&&g(j,k,m,l)},!c.async||h.readyState===4?d():(i=++cg,cf&&(ch||(ch={},f(a).unload(cf)),ch[i]=d),h.onreadystatechange=d)},abort:function(){d&&d(0,1)}}}});var ck={},cl,cm,cn=/^(?:toggle|show|hide)$/,co=/^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i,cp,cq=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]],cr;f.fn.extend({show:function(a,b,c){var d,e;if(a||a===0)return this.animate(cu("show",3),a,b,c);for(var g=0,h=this.length;g<h;g++)d=this[g],d.style&&(e=d.style.display,!f._data(d,"olddisplay")&&e==="none"&&(e=d.style.display=""),e===""&&f.css(d,"display")==="none"&&f._data(d,"olddisplay",cv(d.nodeName)));for(g=0;g<h;g++){d=this[g];if(d.style){e=d.style.display;if(e===""||e==="none")d.style.display=f._data(d,"olddisplay")||""}}return this},hide:function(a,b,c){if(a||a===0)return this.animate(cu("hide",3),a,b,c);var d,e,g=0,h=this.length;for(;g<h;g++)d=this[g],d.style&&(e=f.css(d,"display"),e!=="none"&&!f._data(d,"olddisplay")&&f._data(d,"olddisplay",e));for(g=0;g<h;g++)this[g].style&&(this[g].style.display="none");return this},_toggle:f.fn.toggle,toggle:function(a,b,c){var d=typeof a=="boolean";f.isFunction(a)&&f.isFunction(b)?this._toggle.apply(this,arguments):a==null||d?this.each(function(){var b=d?a:f(this).is(":hidden");f(this)[b?"show":"hide"]()}):this.animate(cu("toggle",3),a,b,c);return this},fadeTo:function(a,b,c,d){return this.filter(":hidden").css("opacity",0).show().end().animate({opacity:b},a,c,d)},animate:function(a,b,c,d){function g(){e.queue===!1&&f._mark(this);var b=f.extend({},e),c=this.nodeType===1,d=c&&f(this).is(":hidden"),g,h,i,j,k,l,m,n,o;b.animatedProperties={};for(i in a){g=f.camelCase(i),i!==g&&(a[g]=a[i],delete a[i]),h=a[g],f.isArray(h)?(b.animatedProperties[g]=h[1],h=a[g]=h[0]):b.animatedProperties[g]=b.specialEasing&&b.specialEasing[g]||b.easing||"swing";if(h==="hide"&&d||h==="show"&&!d)return b.complete.call(this);c&&(g==="height"||g==="width")&&(b.overflow=[this.style.overflow,this.style.overflowX,this.style.overflowY],f.css(this,"display")==="inline"&&f.css(this,"float")==="none"&&(!f.support.inlineBlockNeedsLayout||cv(this.nodeName)==="inline"?this.style.display="inline-block":this.style.zoom=1))}b.overflow!=null&&(this.style.overflow="hidden");for(i in a)j=new f.fx(this,b,i),h=a[i],cn.test(h)?(o=f._data(this,"toggle"+i)||(h==="toggle"?d?"show":"hide":0),o?(f._data(this,"toggle"+i,o==="show"?"hide":"show"),j[o]()):j[h]()):(k=co.exec(h),l=j.cur(),k?(m=parseFloat(k[2]),n=k[3]||(f.cssNumber[i]?"":"px"),n!=="px"&&(f.style(this,i,(m||1)+n),l=(m||1)/j.cur()*l,f.style(this,i,l+n)),k[1]&&(m=(k[1]==="-="?-1:1)*m+l),j.custom(l,m,n)):j.custom(l,h,""));return!0}var e=f.speed(b,c,d);if(f.isEmptyObject(a))return this.each(e.complete,[!1]);a=f.extend({},a);return e.queue===!1?this.each(g):this.queue(e.queue,g)},stop:function(a,c,d){typeof a!="string"&&(d=c,c=a,a=b),c&&a!==!1&&this.queue(a||"fx",[]);return this.each(function(){function h(a,b,c){var e=b[c];f.removeData(a,c,!0),e.stop(d)}var b,c=!1,e=f.timers,g=f._data(this);d||f._unmark(!0,this);if(a==null)for(b in g)g[b]&&g[b].stop&&b.indexOf(".run")===b.length-4&&h(this,g,b);else g[b=a+".run"]&&g[b].stop&&h(this,g,b);for(b=e.length;b--;)e[b].elem===this&&(a==null||e[b].queue===a)&&(d?e[b](!0):e[b].saveState(),c=!0,e.splice(b,1));(!d||!c)&&f.dequeue(this,a)})}}),f.each({slideDown:cu("show",1),slideUp:cu("hide",1),slideToggle:cu("toggle",1),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(a,b){f.fn[a]=function(a,c,d){return this.animate(b,a,c,d)}}),f.extend({speed:function(a,b,c){var d=a&&typeof a=="object"?f.extend({},a):{complete:c||!c&&b||f.isFunction(a)&&a,duration:a,easing:c&&b||b&&!f.isFunction(b)&&b};d.duration=f.fx.off?0:typeof d.duration=="number"?d.duration:d.duration in f.fx.speeds?f.fx.speeds[d.duration]:f.fx.speeds._default;if(d.queue==null||d.queue===!0)d.queue="fx";d.old=d.complete,d.complete=function(a){f.isFunction(d.old)&&d.old.call(this),d.queue?f.dequeue(this,d.queue):a!==!1&&f._unmark(this)};return d},easing:{linear:function(a,b,c,d){return c+d*a},swing:function(a,b,c,d){return(-Math.cos(a*Math.PI)/2+.5)*d+c}},timers:[],fx:function(a,b,c){this.options=b,this.elem=a,this.prop=c,b.orig=b.orig||{}}}),f.fx.prototype={update:function(){this.options.step&&this.options.step.call(this.elem,this.now,this),(f.fx.step[this.prop]||f.fx.step._default)(this)},cur:function(){if(this.elem[this.prop]!=null&&(!this.elem.style||this.elem.style[this.prop]==null))return this.elem[this.prop];var a,b=f.css(this.elem,this.prop);return isNaN(a=parseFloat(b))?!b||b==="auto"?0:b:a},custom:function(a,c,d){function h(a){return e.step(a)}var e=this,g=f.fx;this.startTime=cr||cs(),this.end=c,this.now=this.start=a,this.pos=this.state=0,this.unit=d||this.unit||(f.cssNumber[this.prop]?"":"px"),h.queue=this.options.queue,h.elem=this.elem,h.saveState=function(){e.options.hide&&f._data(e.elem,"fxshow"+e.prop)===b&&f._data(e.elem,"fxshow"+e.prop,e.start)},h()&&f.timers.push(h)&&!cp&&(cp=setInterval(g.tick,g.interval))},show:function(){var a=f._data(this.elem,"fxshow"+this.prop);this.options.orig[this.prop]=a||f.style(this.elem,this.prop),this.options.show=!0,a!==b?this.custom(this.cur(),a):this.custom(this.prop==="width"||this.prop==="height"?1:0,this.cur()),f(this.elem).show()},hide:function(){this.options.orig[this.prop]=f._data(this.elem,"fxshow"+this.prop)||f.style(this.elem,this.prop),this.options.hide=!0,this.custom(this.cur(),0)},step:function(a){var b,c,d,e=cr||cs(),g=!0,h=this.elem,i=this.options;if(a||e>=i.duration+this.startTime){this.now=this.end,this.pos=this.state=1,this.update(),i.animatedProperties[this.prop]=!0;for(b in i.animatedProperties)i.animatedProperties[b]!==!0&&(g=!1);if(g){i.overflow!=null&&!f.support.shrinkWrapBlocks&&f.each(["","X","Y"],function(a,b){h.style["overflow"+b]=i.overflow[a]}),i.hide&&f(h).hide();if(i.hide||i.show)for(b in i.animatedProperties)f.style(h,b,i.orig[b]),f.removeData(h,"fxshow"+b,!0),f.removeData(h,"toggle"+b,!0);d=i.complete,d&&(i.complete=!1,d.call(h))}return!1}i.duration==Infinity?this.now=e:(c=e-this.startTime,this.state=c/i.duration,this.pos=f.easing[i.animatedProperties[this.prop]](this.state,c,0,1,i.duration),this.now=this.start+(this.end-this.start)*this.pos),this.update();return!0}},f.extend(f.fx,{tick:function(){var a,b=f.timers,c=0;for(;c<b.length;c++)a=b[c],!a()&&b[c]===a&&b.splice(c--,1);b.length||f.fx.stop()},interval:13,stop:function(){clearInterval(cp),cp=null},speeds:{slow:600,fast:200,_default:400},step:{opacity:function(a){f.style(a.elem,"opacity",a.now)},_default:function(a){a.elem.style&&a.elem.style[a.prop]!=null?a.elem.style[a.prop]=a.now+a.unit:a.elem[a.prop]=a.now}}}),f.each(["width","height"],function(a,b){f.fx.step[b]=function(a){f.style(a.elem,b,Math.max(0,a.now)+a.unit)}}),f.expr&&f.expr.filters&&(f.expr.filters.animated=function(a){return f.grep(f.timers,function(b){return a===b.elem}).length});var cw=/^t(?:able|d|h)$/i,cx=/^(?:body|html)$/i;"getBoundingClientRect"in c.documentElement?f.fn.offset=function(a){var b=this[0],c;if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);try{c=b.getBoundingClientRect()}catch(d){}var e=b.ownerDocument,g=e.documentElement;if(!c||!f.contains(g,b))return c?{top:c.top,left:c.left}:{top:0,left:0};var h=e.body,i=cy(e),j=g.clientTop||h.clientTop||0,k=g.clientLeft||h.clientLeft||0,l=i.pageYOffset||f.support.boxModel&&g.scrollTop||h.scrollTop,m=i.pageXOffset||f.support.boxModel&&g.scrollLeft||h.scrollLeft,n=c.top+l-j,o=c.left+m-k;return{top:n,left:o}}:f.fn.offset=function(a){var b=this[0];if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);var c,d=b.offsetParent,e=b,g=b.ownerDocument,h=g.documentElement,i=g.body,j=g.defaultView,k=j?j.getComputedStyle(b,null):b.currentStyle,l=b.offsetTop,m=b.offsetLeft;while((b=b.parentNode)&&b!==i&&b!==h){if(f.support.fixedPosition&&k.position==="fixed")break;c=j?j.getComputedStyle(b,null):b.currentStyle,l-=b.scrollTop,m-=b.scrollLeft,b===d&&(l+=b.offsetTop,m+=b.offsetLeft,f.support.doesNotAddBorder&&(!f.support.doesAddBorderForTableAndCells||!cw.test(b.nodeName))&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),e=d,d=b.offsetParent),f.support.subtractsBorderForOverflowNotVisible&&c.overflow!=="visible"&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),k=c}if(k.position==="relative"||k.position==="static")l+=i.offsetTop,m+=i.offsetLeft;f.support.fixedPosition&&k.position==="fixed"&&(l+=Math.max(h.scrollTop,i.scrollTop),m+=Math.max(h.scrollLeft,i.scrollLeft));return{top:l,left:m}},f.offset={bodyOffset:function(a){var b=a.offsetTop,c=a.offsetLeft;f.support.doesNotIncludeMarginInBodyOffset&&(b+=parseFloat(f.css(a,"marginTop"))||0,c+=parseFloat(f.css(a,"marginLeft"))||0);return{top:b,left:c}},setOffset:function(a,b,c){var d=f.css(a,"position");d==="static"&&(a.style.position="relative");var e=f(a),g=e.offset(),h=f.css(a,"top"),i=f.css(a,"left"),j=(d==="absolute"||d==="fixed")&&f.inArray("auto",[h,i])>-1,k={},l={},m,n;j?(l=e.position(),m=l.top,n=l.left):(m=parseFloat(h)||0,n=parseFloat(i)||0),f.isFunction(b)&&(b=b.call(a,c,g)),b.top!=null&&(k.top=b.top-g.top+m),b.left!=null&&(k.left=b.left-g.left+n),"using"in b?b.using.call(a,k):e.css(k)}},f.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),c=this.offset(),d=cx.test(b[0].nodeName)?{top:0,left:0}:b.offset();c.top-=parseFloat(f.css(a,"marginTop"))||0,c.left-=parseFloat(f.css(a,"marginLeft"))||0,d.top+=parseFloat(f.css(b[0],"borderTopWidth"))||0,d.left+=parseFloat(f.css(b[0],"borderLeftWidth"))||0;return{top:c.top-d.top,left:c.left-d.left}},offsetParent:function(){return this.map(function(){var a=this.offsetParent||c.body;while(a&&!cx.test(a.nodeName)&&f.css(a,"position")==="static")a=a.offsetParent;return a})}}),f.each(["Left","Top"],function(a,c){var d="scroll"+c;f.fn[d]=function(c){var e,g;if(c===b){e=this[0];if(!e)return null;g=cy(e);return g?"pageXOffset"in g?g[a?"pageYOffset":"pageXOffset"]:f.support.boxModel&&g.document.documentElement[d]||g.document.body[d]:e[d]}return this.each(function(){g=cy(this),g?g.scrollTo(a?f(g).scrollLeft():c,a?c:f(g).scrollTop()):this[d]=c})}}),f.each(["Height","Width"],function(a,c){var d=c.toLowerCase();f.fn["inner"+c]=function(){var a=this[0];return a?a.style?parseFloat(f.css(a,d,"padding")):this[d]():null},f.fn["outer"+c]=function(a){var b=this[0];return b?b.style?parseFloat(f.css(b,d,a?"margin":"border")):this[d]():null},f.fn[d]=function(a){var e=this[0];if(!e)return a==null?null:this;if(f.isFunction(a))return this.each(function(b){var c=f(this);c[d](a.call(this,b,c[d]()))});if(f.isWindow(e)){var g=e.document.documentElement["client"+c],h=e.document.body;return e.document.compatMode==="CSS1Compat"&&g||h&&h["client"+c]||g}if(e.nodeType===9)return Math.max(e.documentElement["client"+c],e.body["scroll"+c],e.documentElement["scroll"+c],e.body["offset"+c],e.documentElement["offset"+c]);if(a===b){var i=f.css(e,d),j=parseFloat(i);return f.isNumeric(j)?j:i}return this.css(d,typeof a=="string"?a:a+"px")}}),a.jQuery=a.$=f,typeof define=="function"&&define.amd&&define.amd.jQuery&&define("jquery",[],function(){return f})})(window);
diff --git a/threepenny-gui.cabal b/threepenny-gui.cabal
--- a/threepenny-gui.cabal
+++ b/threepenny-gui.cabal
@@ -1,17 +1,17 @@
 Name:                threepenny-gui
-Version:             0.5.0.0
+Version:             0.6.0.1
 Synopsis:            GUI framework that uses the web browser as a display.
 Description:
     Threepenny-GUI is a GUI framework that uses the web browser as a display.
     .
-    It's cheap and easy to install because everyone has a web browser installed.
+    It's very easy to install because everyone has a web browser installed.
     .
-    Internally, the library implements a small web server
-    that serves a HTML/JavaScript page with the GUI elements.
-    You can freely manipulate the HTML DOM and handle browser events
+    A program written with Threepenny is essentially a small web server that
+    displays the user interface as a web page to any browser that connects to it.
+    You can freely manipulate the HTML DOM and handle JavaScript events
     from your Haskell code.
     .
-    Stability forecast: This is an experimental release! Send us your feedback!
+    Stability forecast: This is an experimental release! Send me your feedback!
     Significant API changes are likely in future versions.
     .
     NOTE: This library contains examples, but they are not built by default.
@@ -21,9 +21,9 @@
 
 License:             BSD3
 License-file:        LICENSE
-Author:              Chris Done, Heinrich Apfelmus
+Author:              Heinrich Apfelmus
 Maintainer:          Heinrich Apfelmus <apfelmus at quantentunnel dot de>
-Homepage:            http://www.haskell.org/haskellwiki/Threepenny-gui
+Homepage:            http://wiki.haskell.org/Threepenny-gui
 bug-reports:         https://github.com/HeinrichApfelmus/threepenny-gui/issues
 Category:            Web, GUI
 Build-type:          Simple
@@ -32,16 +32,17 @@
 Extra-Source-Files:  CHANGELOG.md
                     ,README.md
                     ,samples/README.md
-                    ,src/Graphics/UI/*.html
-                    ,src/Graphics/UI/*.js
-                    ,src/Graphics/UI/*.css
+                    ,js/*.html
+                    ,js/*.css
+                    ,js/*.js
+                    ,js/lib/*.js
 
-Data-dir:            .
-Data-files:          wwwroot/css/*.css
-                    ,wwwroot/css/*.png
-                    ,wwwroot/*.html
-                    ,wwwroot/*.txt
-                    ,wwwroot/*.wav
+Data-dir:           .
+Data-files:          samples/static/css/*.css
+                    ,samples/static/css/*.png
+                    ,samples/static/*.html
+                    ,samples/static/*.png
+                    ,samples/static/*.wav
 
 
 flag buildExamples
@@ -54,7 +55,8 @@
 
 flag rebug
     description: The library uses some techniques that are highly
-                 non-deterministic, for example garbage collection and concurrency.
+                 non-deterministic, for example garbage collection
+                 and concurrency.
                  Bugs in these subsystems are harder to find.
                  Activating this flag will expose more of them.
     default:     False
@@ -67,10 +69,12 @@
 Library
   hs-source-dirs:    src
   exposed-modules:
-                     Graphics.UI.Threepenny
+                     Foreign.JavaScript
+                    ,Foreign.RemotePtr
+                    ,Graphics.UI.Threepenny
                     ,Graphics.UI.Threepenny.Attributes
-                    ,Graphics.UI.Threepenny.Core
                     ,Graphics.UI.Threepenny.Canvas
+                    ,Graphics.UI.Threepenny.Core
                     ,Graphics.UI.Threepenny.DragNDrop
                     ,Graphics.UI.Threepenny.Elements
                     ,Graphics.UI.Threepenny.Events
@@ -81,15 +85,14 @@
                     ,Graphics.UI.Threepenny.Timer
                     ,Graphics.UI.Threepenny.Widgets
                     ,Reactive.Threepenny
-                    ,Foreign.Coupon
   other-modules:
-                     Control.Concurrent.Chan.Extra
-                    ,Control.Concurrent.Delay
-                    ,Graphics.UI.Threepenny.Internal.Driver
-                    ,Graphics.UI.Threepenny.Internal.FFI
-                    ,Graphics.UI.Threepenny.Internal.Include
-                    ,Graphics.UI.Threepenny.Internal.Resources
-                    ,Graphics.UI.Threepenny.Internal.Types
+                     Foreign.JavaScript.EventLoop
+                    ,Foreign.JavaScript.Include
+                    ,Foreign.JavaScript.Marshal
+                    ,Foreign.JavaScript.Resources
+                    ,Foreign.JavaScript.Server
+                    ,Foreign.JavaScript.Types
+                    ,Graphics.UI.Threepenny.Internal
                     ,Reactive.Threepenny.Memo
                     ,Reactive.Threepenny.Monads
                     ,Reactive.Threepenny.PulseLatch
@@ -99,30 +102,32 @@
   cpp-options:      -DCABAL
   if flag(rebug)
       cpp-options:  -DREBUG
-      ghc-options:  -O2   
-  build-depends:     base                   >= 4     && < 5
-                    ,aeson                  >= 0.6   && < 0.9
+      ghc-options:  -O2 -threaded
+  build-depends:     base                   >= 4.3   && < 4.9
+                    ,aeson                  >= 0.7   && < 0.9
+                    ,async                  == 2.0.*
                     ,attoparsec-enumerator  == 0.3.*
                     ,bytestring             >= 0.9.2 && < 0.11
                     ,containers             >= 0.4.2 && < 0.6
                     ,data-default           == 0.5.*
-                    ,deepseq                == 1.3.*
-                    ,filepath               == 1.3.*
-                    ,hashable               >= 1.1.0  && < 1.3
+                    ,deepseq                >= 1.3.0 && < 1.5
+                    ,filepath               >= 1.3.0 && < 1.5.0
+                    ,hashable               >= 1.1.0 && < 1.3
                     ,MonadCatchIO-transformers == 0.3.*
                     ,safe                   == 0.3.*
                     ,snap-server            == 0.9.*
                     ,snap-core              == 0.9.*
-                    ,stm                    >= 2.3    && < 2.5
-                    ,template-haskell       >= 2.7.0  && < 2.10
+                    ,stm                    >= 2.2    && < 2.5
+                    ,template-haskell       >= 2.7.0  && < 2.11
                     ,text                   >= 0.11   && < 1.3
-                    ,time                   == 1.4.*
+                    ,time                   >= 1.4    && < 1.6
                     ,transformers           >= 0.3.0  && < 0.5
                     ,unordered-containers   == 0.2.*
                     ,utf8-string            == 0.3.*
                     ,websockets             >= 0.8    && < 0.10
                     ,websockets-snap        >= 0.8    && < 0.10
                     ,vault                  == 0.3.*
+                    ,vector                 >= 0.10   && < 0.11
   if flag(network-uri)
       build-depends: network-uri            >= 2.6    && < 2.7
   else
@@ -152,6 +157,17 @@
     other-modules:     Paths_threepenny_gui, Paths
     hs-source-dirs:    samples
 
+Executable threepenny-examples-canvas
+    if flag(buildExamples)
+        cpp-options:       -DCABAL
+        build-depends:     base                      >= 4     && < 5
+                          ,filepath
+                          ,threepenny-gui
+    else
+        buildable: False
+    main-is:           Canvas.hs
+    hs-source-dirs:    samples
+
 Executable threepenny-examples-chat
     if flag(buildExamples)
         cpp-options:       -DCABAL
@@ -209,31 +225,5 @@
     else
         buildable: False
     main-is:           DrumMachine.hs
-    other-modules:     Paths_threepenny_gui, Paths
-    hs-source-dirs:    samples
-
-Executable threepenny-examples-missing-dollars
-    if flag(buildExamples)
-        cpp-options:       -DCABAL
-        build-depends:     base                      >= 4     && < 5
-                          ,filepath
-                          ,threepenny-gui
-                          ,safe
-    else
-        buildable: False
-    main-is:           MissingDollars.hs
-    other-modules:     Paths_threepenny_gui, Paths
-    hs-source-dirs:    samples
-
-Executable threepenny-examples-use-words
-    if flag(buildExamples)
-        cpp-options:       -DCABAL
-        build-depends:     base                      >= 4     && < 5
-                          ,threepenny-gui
-                          ,filepath
-                          ,parsec
-    else
-        buildable: False
-    main-is:           UseWords.hs
     other-modules:     Paths_threepenny_gui, Paths
     hs-source-dirs:    samples
diff --git a/wwwroot/and-then-haskell.txt b/wwwroot/and-then-haskell.txt
deleted file mode 100644
--- a/wwwroot/and-then-haskell.txt
+++ /dev/null
@@ -1,77 +0,0 @@
-And then there's {favourite-language}...
-{br}
-{favourite-language} is like "that girl."  You know the one...
-{br}
-You never really went steady, but you'd run into her from time to time
-while knocking around in disreputable joints, usually late at night,
-every several months or so.  She looked so hot, so sleek, so sexy, so
-expressive, so exotic.  You'd end up back at her place and the night
-would just...  take off.  A complete blur of hot, sweaty, feverish,
-delirious, fumbling passion.  You'd do things to each other...  you'd
-do things to her, she'd do things to you...  things that you're not
-even sure have names, that you're pretty sure are illegal almost
-anywhere.  Even her kinks have kinks --- and after one of these
-nights, you'd realize that you yourself had a lot more kinks than you.
-And it wasn't just physical, it was --- cerebral.  Ethereal.
-Transcendent.  But it would all whiz by in a blur, and by morning
-you'd find yourself lightheaded, a bit confused, and stumbling
-homeward to your regular gal.
-{br}
-Over the next few days and weeks you'd find yourself occasionally
-drifting away, thinking about her.  {favourite-language}.  You'd be
-there, banging away at your regular girl, and find yourself thinking
-"you know, if I was with {favourite-language}, I'd be doing this
-completely differently."  You'd think "I could be doing so much bigger
-and better stuff with {favourite-language}."  Now, your regular girl,
-she's not as exotic as {favourite-language}.  Pretty, maybe, if you're
-lucky.  (Perhaps your regular girlfriend's name is
-{work-language}. ;-) But not nearly as --- weird.  Wild.  Cool.
-Exciting.  Don't get me wrong --- your girl, she's wonderful.  You've
-got a wonderful relationship.  She's --- comfortable.  You can bang
-away at her all day and night.  She's accommodating.  Easy going.  You
-work well together.  But --- confidentially --- she's, well, maybe
-just a little bit boring.  You'd catch yourself thinking these things,
-and the guilty pangs would get to you...  You'd quash the thoughts,
-buckle down, and get back to banging away.  Comfortable...  there's a
-lot to be said for that, ya know?  Comfortable...  just keep telling
-yourself that.
-{br}
-Months would go by.  Late some night you'd find yourself out,
-disreputable places again.  Maybe that hacker bar, {bar}.  Somebody'd
-slip you an URL for some renegade paper, you know, one of *those*
-papers.  You'd run into {favourite-language} again.  And the whole
-thing starts over.
-{br}
-Eventually, you're going to get the ultimatum.  {favourite-language}'s
-ultimately just like any other girl on some level; she needs
-commitment.  Eventually, after one night of wild, feverish, kinky,
-abstract passion, she's going to say to you: "All these times, and you
-don't understand me at all!  You know, you're going to have to get
-serious, mister!  I've got needs, too.  You're going to have to get
-serious about my {particular-stuff}, or that's the last time you're
-going to play with them!  Got it?"
-{br}
-...and then, you've got to make The Choice.
-{br}
-Chances are, you're going to go back to your regular gal.
-{favourite-language}'s just too much for any one man, probably.  She
-leaves a trail of broken, brainy, embittered PhDs and former
-programmers behind her.  She ruins you for the RealWorld.  You can
-ride a while, but you probably can't go the distance with her.  Go
-back to your regular gal and try not to think too much about what
-you've seen.  Done.  Felt.  Thought.
-{br}
-Maybe you can salvage a little happiness; but it'll be hard.  After
-all...  you've tasted {favourite-language}.
-{br}
-She's not like anything else.
-{br}
-Original post: http://www.xent.com/pipermail/fork/Week-of-Mon-20070219/044101.html
-{br}
-{br}
-(It's intended in good humour (and just a demonstration of the Threepenny library). Haskell is my favourite programming language, and I like
-this mailing list message, but anyone with a brain can realise it's
-easy to replace the word "Haskell" with "Lisp" or "Vim" or whatever
-you prefer and suddenly it's stroking your sense of identity, the post
-is lacking in any content… when you're next reading evangelism, try
-swapping the names with other technologies in your head, it's funny.)
diff --git a/wwwroot/chat.html b/wwwroot/chat.html
deleted file mode 100644
--- a/wwwroot/chat.html
+++ /dev/null
@@ -1,13 +0,0 @@
-<!doctype html>
-<head>
-  <title>Chat</title>
-  <link rel="stylesheet" type="text/css" href="static/css/chat.css"/>
-<link href='http://fonts.googleapis.com/css?family=Fredericka+the+Great'
-  rel='stylesheet' type='text/css'>
-<link href='http://fonts.googleapis.com/css?family=Annie+Use+Your+Telescope' rel='stylesheet' type='text/css'>
-  <script src="driver/threepenny-gui.js"></script>
-</head>
-<body>
-  <noscript>Please enable JavaScript.</noscript>
-</body>
-</html>
diff --git a/wwwroot/css/DragNDropExample.css b/wwwroot/css/DragNDropExample.css
deleted file mode 100644
--- a/wwwroot/css/DragNDropExample.css
+++ /dev/null
@@ -1,18 +0,0 @@
-.box-drag {
-    position: absolute;
-    top   : 20px;
-    border: 1px solid gray;
-    width : 90px;
-    height: 2ex;
-    text-align: center;
-    padding: 1ex;
-}
-
-.box-drop {
-    position: absolute;
-    top   : 100px;
-    width : 100px;
-    height: 2.2ex;
-    text-align: center;
-    padding: 1ex;
-}
diff --git a/wwwroot/css/buttons.css b/wwwroot/css/buttons.css
deleted file mode 100644
--- a/wwwroot/css/buttons.css
+++ /dev/null
@@ -1,52 +0,0 @@
-body {
-  background: #333;
-  color: #ccc;
-  font-family: ubuntu, sans-serif;
-  font-size: 14px;
-  background: url(stripes-bg.png);
-  padding-top: 1em;
-  text-shadow: #000 3px 1px 3px;
-}
-.wrap {
-  width: 40em;
-  margin: auto;
-}
-.buttons-list {
-  color: #aaa;
-}
-.button {
-  cursor: pointer;
-  color: #acc2a1;
-  text-decoration: underline;
-}
-a {
-  color: #acc2a1;
-}
-button, input {
-  border: 0;
-  color: #ccc;
-  padding: 0.3em;
-  border-radius:0.3em;
-  box-shadow: #191919 2px 1px 2px;
-}
-input {
-  background: #292929;
-  width: 2em;
-}
-button:focus,input:focus {
-  background: #222;
-}
-button {
-  background: #444;
-}
-h1 {
-  font-size: 4em;
-  margin: 0;
-  padding-bottom: 0.2em;
-}
-h2 {
-  margin-top: 1.3em;
-  padding-bottom: 0em;
-  margin-bottom:0;
-}
-.view-source { float: right }
diff --git a/wwwroot/css/chat.css b/wwwroot/css/chat.css
deleted file mode 100644
--- a/wwwroot/css/chat.css
+++ /dev/null
@@ -1,106 +0,0 @@
-body {
-  background: #333;
-  color: #ccc;
-  font-family: 'Annie Use Your Telescope';
-  font-size: 26px;
-  text-shadow: #000 3px 1px 3px;
-  padding:0;
-  margin:0;
-  background: url(wood-bg.png) #333;
-}
-.header {
-  font-family: 'Fredericka the Great', cursive;
-  font-size: 50px;
-  color: #ad1c43;
-  float: left;
-  padding: 10px 20px;
-  position:absolute;
-  z-index:2;
-}
-.message-area {
-  clear:both;
-  padding: 20px;
-  color: #fff;
-  position: absolute;
-  top: 1em;
-  right:0;
-  left:0;
-  bottom:10%;
-  overflow: auto;
-}
-.gradient {
-  background: url(fade.png) repeat-x;
-  position:absolute;
-  top:0;
-  height: 150px;
-  left:0;
-  right:0;
-  z-index:1;
-}
-.send-area {
-  z-index:0;
-  position:fixed;
-  top:90%;
-  left:0;
-  right:0;
-  bottom:0;
-  background:#fff;
-}
-.send-textarea {
-  padding: 0.25em;
-  border:0;
-  position: absolute;
-  left:0;
-  width:100%;
-  bottom:0;
-  top:-1px;
-  font-family: 'Annie Use Your Telescope';
-  font-size: 25px;
-  background: #111;
-  color: #999;
-}
-.message {
-  margin-top: 1em;
-  border-top: 0.1em dotted #333;
-}
-.message .timestamp {
-  color: #888;
-  font-size: 15px;
-  display: inline;
-  float: right;
-}
-.message .name {
-  display: inline-block;
-  font-size: 18px;
-  font-style: italic;
-  float:left;
-}
-.message .content {
-  display:block;
-  clear:both;
-}
-.name-area {
-  position: absolute;
-  top: 20px;
-  right: 20px;
-  z-index: 3;
-}
-.name-input {
-  background: #111;
-  border: 0;
-  border-radius: 0.3em;
-  font-family: 'Annie Use Your Telescope';
-  color: #777;
-  font-size: 20px;
-  padding-left: 0.2em;
-}
-.name-input:focus,.send-textarea:focus {
-  background: #333;
-}
-.view-source {
-  position: absolute;
-  z-index: 4;
-  right: 20px;
-  color: #555;
-  top: 100px;
-}
diff --git a/wwwroot/css/fade.png b/wwwroot/css/fade.png
deleted file mode 100644
Binary files a/wwwroot/css/fade.png and /dev/null differ
diff --git a/wwwroot/css/missing-dollars.css b/wwwroot/css/missing-dollars.css
deleted file mode 100644
--- a/wwwroot/css/missing-dollars.css
+++ /dev/null
@@ -1,52 +0,0 @@
-body {
-  background: #333;
-  color: #ccc;
-  font-family: ubuntu, sans-serif;
-  font-size: 14px;
-  background: url(stripes-bg.png);
-  padding-top: 1em;
-  text-shadow: #000 3px 1px 3px;
-}
-.wrap {
-  width: 40em;
-  margin: auto;
-}
-.buttons-list {
-  color: #aaa;
-}
-.button {
-  cursor: pointer;
-  color: #acc2a1;
-  text-decoration: underline;
-}
-a {
-  color: #acc2a1;
-}
-button, input {
-  border: 0;
-  color: #ccc;
-  padding: 0.3em;
-  border-radius:0.3em;
-  box-shadow: #191919 2px 1px 2px;
-}
-input {
-  background: #292929;
-  width: 2em;
-}
-button:focus,input:focus {
-  background: #222;
-}
-button {
-  background: #444;
-}
-h1 {
-  font-size: 4em;
-  margin: 0;
-  padding: 0;
-}
-h2 {
-  margin-top: 1.3em;
-  padding-bottom: 0em;
-  margin-bottom:0;
-}
-.view-source { float: right }
diff --git a/wwwroot/css/stripes-bg.png b/wwwroot/css/stripes-bg.png
deleted file mode 100644
Binary files a/wwwroot/css/stripes-bg.png and /dev/null differ
diff --git a/wwwroot/css/use-words.css b/wwwroot/css/use-words.css
deleted file mode 100644
--- a/wwwroot/css/use-words.css
+++ /dev/null
@@ -1,70 +0,0 @@
-.text,.var {
-  display: inline;
-}
-.var {
-  color: #fff;
-}
-body {
-  background: #333;
-  color: #ccc;
-  font-family: ubuntu, sans-serif;
-  font-size: 14px;
-  background: url(stripes-bg.png);
-  padding-top: 1em;
-  text-shadow: #000 3px 1px 3px;
-}
-.wrap {
-  width: 50em;
-  margin: auto;
-  padding-bottom: 5em;
-  line-height: 1.5em;
-}
-.buttons-list {
-  color: #aaa;
-}
-.button {
-  cursor: pointer;
-  color: #acc2a1;
-  text-decoration: underline;
-}
-a {
-  color: #acc2a1;
-}
-button, input {
-  border: 0;
-  color: #ccc;
-  padding: 0.3em;
-  border-radius:0.3em;
-  box-shadow: #191919 2px 1px 2px;
-}
-label { display: block; padding-bottom: 0.4em; padding-top: 0.8em;}
-input {
-  background: #292929;
-  width: 20em;
-}
-button:focus,input:focus {
-  background: #222;
-}
-button {
-  background: #444;
-}
-h1 {
-  font-size: 4em;
-  margin: 0;
-  padding-bottom: 0.2em;
-}
-h2 {
-  margin-top: 1.3em;
-  padding-bottom: 0em;
-  margin-bottom:0;
-}
-.view-source { float: right }
-.vars { margin-bottom: 3em; margin-top: 2em; }
-.header {
-  font-size: 3em;
-  padding-top: 0.5em;
-}
-.code-link {
-  float: right;
-  display: block;
-}
diff --git a/wwwroot/css/wood-bg.png b/wwwroot/css/wood-bg.png
deleted file mode 100644
Binary files a/wwwroot/css/wood-bg.png and /dev/null differ
diff --git a/wwwroot/hihat.wav b/wwwroot/hihat.wav
deleted file mode 100644
Binary files a/wwwroot/hihat.wav and /dev/null differ
diff --git a/wwwroot/kick.wav b/wwwroot/kick.wav
deleted file mode 100644
Binary files a/wwwroot/kick.wav and /dev/null differ
diff --git a/wwwroot/snare.wav b/wwwroot/snare.wav
deleted file mode 100644
Binary files a/wwwroot/snare.wav and /dev/null differ