diff --git a/elm-package.json b/elm-package.json
deleted file mode 100644
index cd7afef..0000000
--- a/elm-package.json
+++ /dev/null
@@ -1,18 +0,0 @@
-{
-    "version": "1.1.0",
-    "summary": "Form generator based on JSON Schema",
-    "repository": "https://github.com/1602/json-form.git",
-    "license": "BSD3",
-    "source-directories": [
-        "src"
-    ],
-    "exposed-modules": [ ],
-    "dependencies": {
-        "1602/elm-feather": "2.2.0 <= v < 3.0.0",
-        "1602/json-value": "1.1.0 <= v < 2.0.0",
-        "1602/json-schema": "4.1.0 <= v < 5.0.0",
-        "elm-lang/core": "5.0.0 <= v < 6.0.0",
-        "elm-lang/html": "2.0.0 <= v < 3.0.0"
-    },
-    "elm-version": "0.18.0 <= v < 0.19.0"
-}
diff --git a/elm.json b/elm.json
new file mode 100644
index 0000000..fb1f5b6
--- /dev/null
+++ b/elm.json
@@ -0,0 +1,32 @@
+{
+    "type": "application",
+    "source-directories": [
+        "src"
+    ],
+    "elm-version": "0.19.0",
+    "dependencies": {
+        "direct": {
+            "1602/elm-feather": "2.3.2",
+            "1602/json-schema": "4.1.1",
+            "1602/json-value": "3.0.1",
+            "elm/browser": "1.0.0",
+            "elm/core": "1.0.0",
+            "elm/html": "1.0.0",
+            "elm/json": "1.0.0"
+        },
+        "indirect": {
+            "NoRedInk/elm-json-decode-pipeline": "1.0.0",
+            "elm/random": "1.0.0",
+            "elm/regex": "1.0.0",
+            "elm/svg": "1.0.0",
+            "elm/time": "1.0.0",
+            "elm/url": "1.0.0",
+            "elm/virtual-dom": "1.0.0",
+            "zwilias/elm-utf-tools": "2.0.1"
+        }
+    },
+    "test-dependencies": {
+        "direct": {},
+        "indirect": {}
+    }
+}
\ No newline at end of file
diff --git a/index.html b/index.html
new file mode 100644
index 0000000..d7cc3af
--- /dev/null
+++ b/index.html
@@ -0,0 +1,11164 @@
+<!DOCTYPE HTML>
+<html>
+<head>
+  <meta charset="UTF-8">
+  <title>Main</title>
+</head>
+
+<body>
+<div id="elm-f0111bc4e658d0f98db96260c16f7e49"></div>
+<script>
+(function(scope){
+'use strict';
+
+function F(arity, fun, wrapper) {
+  wrapper.a = arity;
+  wrapper.f = fun;
+  return wrapper;
+}
+
+function F2(fun) {
+  return F(2, fun, function(a) { return function(b) { return fun(a,b); }; })
+}
+function F3(fun) {
+  return F(3, fun, function(a) {
+    return function(b) { return function(c) { return fun(a, b, c); }; };
+  });
+}
+function F4(fun) {
+  return F(4, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return fun(a, b, c, d); }; }; };
+  });
+}
+function F5(fun) {
+  return F(5, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return fun(a, b, c, d, e); }; }; }; };
+  });
+}
+function F6(fun) {
+  return F(6, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return function(f) {
+    return fun(a, b, c, d, e, f); }; }; }; }; };
+  });
+}
+function F7(fun) {
+  return F(7, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return function(f) {
+    return function(g) { return fun(a, b, c, d, e, f, g); }; }; }; }; }; };
+  });
+}
+function F8(fun) {
+  return F(8, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return function(f) {
+    return function(g) { return function(h) {
+    return fun(a, b, c, d, e, f, g, h); }; }; }; }; }; }; };
+  });
+}
+function F9(fun) {
+  return F(9, fun, function(a) { return function(b) { return function(c) {
+    return function(d) { return function(e) { return function(f) {
+    return function(g) { return function(h) { return function(i) {
+    return fun(a, b, c, d, e, f, g, h, i); }; }; }; }; }; }; }; };
+  });
+}
+
+function A2(fun, a, b) {
+  return fun.a === 2 ? fun.f(a, b) : fun(a)(b);
+}
+function A3(fun, a, b, c) {
+  return fun.a === 3 ? fun.f(a, b, c) : fun(a)(b)(c);
+}
+function A4(fun, a, b, c, d) {
+  return fun.a === 4 ? fun.f(a, b, c, d) : fun(a)(b)(c)(d);
+}
+function A5(fun, a, b, c, d, e) {
+  return fun.a === 5 ? fun.f(a, b, c, d, e) : fun(a)(b)(c)(d)(e);
+}
+function A6(fun, a, b, c, d, e, f) {
+  return fun.a === 6 ? fun.f(a, b, c, d, e, f) : fun(a)(b)(c)(d)(e)(f);
+}
+function A7(fun, a, b, c, d, e, f, g) {
+  return fun.a === 7 ? fun.f(a, b, c, d, e, f, g) : fun(a)(b)(c)(d)(e)(f)(g);
+}
+function A8(fun, a, b, c, d, e, f, g, h) {
+  return fun.a === 8 ? fun.f(a, b, c, d, e, f, g, h) : fun(a)(b)(c)(d)(e)(f)(g)(h);
+}
+function A9(fun, a, b, c, d, e, f, g, h, i) {
+  return fun.a === 9 ? fun.f(a, b, c, d, e, f, g, h, i) : fun(a)(b)(c)(d)(e)(f)(g)(h)(i);
+}
+
+console.warn('Compiled in DEV mode. Follow the advice at https://elm-lang.org/0.19.0/optimize for better performance and smaller assets.');
+
+
+var _JsArray_empty = [];
+
+function _JsArray_singleton(value)
+{
+    return [value];
+}
+
+function _JsArray_length(array)
+{
+    return array.length;
+}
+
+var _JsArray_initialize = F3(function(size, offset, func)
+{
+    var result = new Array(size);
+
+    for (var i = 0; i < size; i++)
+    {
+        result[i] = func(offset + i);
+    }
+
+    return result;
+});
+
+var _JsArray_initializeFromList = F2(function (max, ls)
+{
+    var result = new Array(max);
+
+    for (var i = 0; i < max && ls.b; i++)
+    {
+        result[i] = ls.a;
+        ls = ls.b;
+    }
+
+    result.length = i;
+    return _Utils_Tuple2(result, ls);
+});
+
+var _JsArray_unsafeGet = F2(function(index, array)
+{
+    return array[index];
+});
+
+var _JsArray_unsafeSet = F3(function(index, value, array)
+{
+    var length = array.length;
+    var result = new Array(length);
+
+    for (var i = 0; i < length; i++)
+    {
+        result[i] = array[i];
+    }
+
+    result[index] = value;
+    return result;
+});
+
+var _JsArray_push = F2(function(value, array)
+{
+    var length = array.length;
+    var result = new Array(length + 1);
+
+    for (var i = 0; i < length; i++)
+    {
+        result[i] = array[i];
+    }
+
+    result[length] = value;
+    return result;
+});
+
+var _JsArray_foldl = F3(function(func, acc, array)
+{
+    var length = array.length;
+
+    for (var i = 0; i < length; i++)
+    {
+        acc = A2(func, array[i], acc);
+    }
+
+    return acc;
+});
+
+var _JsArray_foldr = F3(function(func, acc, array)
+{
+    for (var i = array.length - 1; i >= 0; i--)
+    {
+        acc = A2(func, array[i], acc);
+    }
+
+    return acc;
+});
+
+var _JsArray_map = F2(function(func, array)
+{
+    var length = array.length;
+    var result = new Array(length);
+
+    for (var i = 0; i < length; i++)
+    {
+        result[i] = func(array[i]);
+    }
+
+    return result;
+});
+
+var _JsArray_indexedMap = F3(function(func, offset, array)
+{
+    var length = array.length;
+    var result = new Array(length);
+
+    for (var i = 0; i < length; i++)
+    {
+        result[i] = A2(func, offset + i, array[i]);
+    }
+
+    return result;
+});
+
+var _JsArray_slice = F3(function(from, to, array)
+{
+    return array.slice(from, to);
+});
+
+var _JsArray_appendN = F3(function(n, dest, source)
+{
+    var destLen = dest.length;
+    var itemsToCopy = n - destLen;
+
+    if (itemsToCopy > source.length)
+    {
+        itemsToCopy = source.length;
+    }
+
+    var size = destLen + itemsToCopy;
+    var result = new Array(size);
+
+    for (var i = 0; i < destLen; i++)
+    {
+        result[i] = dest[i];
+    }
+
+    for (var i = 0; i < itemsToCopy; i++)
+    {
+        result[i + destLen] = source[i];
+    }
+
+    return result;
+});
+
+
+
+// LOG
+
+var _Debug_log_UNUSED = F2(function(tag, value)
+{
+	return value;
+});
+
+var _Debug_log = F2(function(tag, value)
+{
+	console.log(tag + ': ' + _Debug_toString(value));
+	return value;
+});
+
+
+// TODOS
+
+function _Debug_todo(moduleName, region)
+{
+	return function(message) {
+		_Debug_crash(8, moduleName, region, message);
+	};
+}
+
+function _Debug_todoCase(moduleName, region, value)
+{
+	return function(message) {
+		_Debug_crash(9, moduleName, region, value, message);
+	};
+}
+
+
+// TO STRING
+
+function _Debug_toString_UNUSED(value)
+{
+	return '<internals>';
+}
+
+function _Debug_toString(value)
+{
+	return _Debug_toAnsiString(false, value);
+}
+
+function _Debug_toAnsiString(ansi, value)
+{
+	if (typeof value === 'function')
+	{
+		return _Debug_internalColor(ansi, '<function>');
+	}
+
+	if (typeof value === 'boolean')
+	{
+		return _Debug_ctorColor(ansi, value ? 'True' : 'False');
+	}
+
+	if (typeof value === 'number')
+	{
+		return _Debug_numberColor(ansi, value + '');
+	}
+
+	if (value instanceof String)
+	{
+		return _Debug_charColor(ansi, "'" + _Debug_addSlashes(value, true) + "'");
+	}
+
+	if (typeof value === 'string')
+	{
+		return _Debug_stringColor(ansi, '"' + _Debug_addSlashes(value, false) + '"');
+	}
+
+	if (typeof value === 'object' && '$' in value)
+	{
+		var tag = value.$;
+
+		if (typeof tag === 'number')
+		{
+			return _Debug_internalColor(ansi, '<internals>');
+		}
+
+		if (tag[0] === '#')
+		{
+			var output = [];
+			for (var k in value)
+			{
+				if (k === '$') continue;
+				output.push(_Debug_toAnsiString(ansi, value[k]));
+			}
+			return '(' + output.join(',') + ')';
+		}
+
+		if (tag === 'Set_elm_builtin')
+		{
+			return _Debug_ctorColor(ansi, 'Set')
+				+ _Debug_fadeColor(ansi, '.fromList') + ' '
+				+ _Debug_toAnsiString(ansi, elm$core$Set$toList(value));
+		}
+
+		if (tag === 'RBNode_elm_builtin' || tag === 'RBEmpty_elm_builtin')
+		{
+			return _Debug_ctorColor(ansi, 'Dict')
+				+ _Debug_fadeColor(ansi, '.fromList') + ' '
+				+ _Debug_toAnsiString(ansi, elm$core$Dict$toList(value));
+		}
+
+		if (tag === 'Array_elm_builtin')
+		{
+			return _Debug_ctorColor(ansi, 'Array')
+				+ _Debug_fadeColor(ansi, '.fromList') + ' '
+				+ _Debug_toAnsiString(ansi, elm$core$Array$toList(value));
+		}
+
+		if (tag === '::' || tag === '[]')
+		{
+			var output = '[';
+
+			value.b && (output += _Debug_toAnsiString(ansi, value.a), value = value.b)
+
+			for (; value.b; value = value.b) // WHILE_CONS
+			{
+				output += ',' + _Debug_toAnsiString(ansi, value.a);
+			}
+			return output + ']';
+		}
+
+		var output = '';
+		for (var i in value)
+		{
+			if (i === '$') continue;
+			var str = _Debug_toAnsiString(ansi, value[i]);
+			var c0 = str[0];
+			var parenless = c0 === '{' || c0 === '(' || c0 === '[' || c0 === '<' || c0 === '"' || str.indexOf(' ') < 0;
+			output += ' ' + (parenless ? str : '(' + str + ')');
+		}
+		return _Debug_ctorColor(ansi, tag) + output;
+	}
+
+	if (typeof value === 'object')
+	{
+		var output = [];
+		for (var key in value)
+		{
+			var field = key[0] === '_' ? key.slice(1) : key;
+			output.push(_Debug_fadeColor(ansi, field) + ' = ' + _Debug_toAnsiString(ansi, value[key]));
+		}
+		if (output.length === 0)
+		{
+			return '{}';
+		}
+		return '{ ' + output.join(', ') + ' }';
+	}
+
+	return _Debug_internalColor(ansi, '<internals>');
+}
+
+function _Debug_addSlashes(str, isChar)
+{
+	var s = str
+		.replace(/\\/g, '\\\\')
+		.replace(/\n/g, '\\n')
+		.replace(/\t/g, '\\t')
+		.replace(/\r/g, '\\r')
+		.replace(/\v/g, '\\v')
+		.replace(/\0/g, '\\0');
+
+	if (isChar)
+	{
+		return s.replace(/\'/g, '\\\'');
+	}
+	else
+	{
+		return s.replace(/\"/g, '\\"');
+	}
+}
+
+function _Debug_ctorColor(ansi, string)
+{
+	return ansi ? '\x1b[96m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_numberColor(ansi, string)
+{
+	return ansi ? '\x1b[95m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_stringColor(ansi, string)
+{
+	return ansi ? '\x1b[93m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_charColor(ansi, string)
+{
+	return ansi ? '\x1b[92m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_fadeColor(ansi, string)
+{
+	return ansi ? '\x1b[37m' + string + '\x1b[0m' : string;
+}
+
+function _Debug_internalColor(ansi, string)
+{
+	return ansi ? '\x1b[94m' + string + '\x1b[0m' : string;
+}
+
+
+
+// CRASH
+
+
+function _Debug_crash_UNUSED(identifier)
+{
+	throw new Error('https://github.com/elm/core/blob/1.0.0/hints/' + identifier + '.md');
+}
+
+
+function _Debug_crash(identifier, fact1, fact2, fact3, fact4)
+{
+	switch(identifier)
+	{
+		case 0:
+			throw new Error('What node should I take over? In JavaScript I need something like:\n\n    Elm.Main.init({\n        node: document.getElementById("elm-node")\n    })\n\nYou need to do this with any Browser.sandbox or Browser.element program.');
+
+		case 1:
+			throw new Error('Browser.application programs cannot handle URLs like this:\n\n    ' + document.location.href + '\n\nWhat is the root? The root of your file system? Try looking at this program with `elm reactor` or some other server.');
+
+		case 2:
+			var jsonErrorString = fact1;
+			throw new Error('Problem with the flags given to your Elm program on initialization.\n\n' + jsonErrorString);
+
+		case 3:
+			var portName = fact1;
+			throw new Error('There can only be one port named `' + portName + '`, but your program has multiple.');
+
+		case 4:
+			var portName = fact1;
+			var problem = fact2;
+			throw new Error('Trying to send an unexpected type of value through port `' + portName + '`:\n' + problem);
+
+		case 5:
+			throw new Error('Trying to use `(==)` on functions.\nThere is no way to know if functions are "the same" in the Elm sense.\nRead more about this at https://package.elm-lang.org/packages/elm/core/latest/Basics#== which describes why it is this way and what the better version will look like.');
+
+		case 6:
+			var moduleName = fact1;
+			throw new Error('Your page is loading multiple Elm scripts with a module named ' + moduleName + '. Maybe a duplicate script is getting loaded accidentally? If not, rename one of them so I know which is which!');
+
+		case 8:
+			var moduleName = fact1;
+			var region = fact2;
+			var message = fact3;
+			throw new Error('TODO in module `' + moduleName + '` ' + _Debug_regionToString(region) + '\n\n' + message);
+
+		case 9:
+			var moduleName = fact1;
+			var region = fact2;
+			var value = fact3;
+			var message = fact4;
+			throw new Error(
+				'TODO in module `' + moduleName + '` from the `case` expression '
+				+ _Debug_regionToString(region) + '\n\nIt received the following value:\n\n    '
+				+ _Debug_toString(value).replace('\n', '\n    ')
+				+ '\n\nBut the branch that handles it says:\n\n    ' + message.replace('\n', '\n    ')
+			);
+
+		case 10:
+			throw new Error('Bug in https://github.com/elm/virtual-dom/issues');
+
+		case 11:
+			throw new Error('Cannot perform mod 0. Division by zero error.');
+	}
+}
+
+function _Debug_regionToString(region)
+{
+	if (region.start.line === region.end.line)
+	{
+		return 'on line ' + region.start.line;
+	}
+	return 'on lines ' + region.start.line + ' through ' + region.end.line;
+}
+
+
+
+// EQUALITY
+
+function _Utils_eq(x, y)
+{
+	for (
+		var pair, stack = [], isEqual = _Utils_eqHelp(x, y, 0, stack);
+		isEqual && (pair = stack.pop());
+		isEqual = _Utils_eqHelp(pair.a, pair.b, 0, stack)
+		)
+	{}
+
+	return isEqual;
+}
+
+function _Utils_eqHelp(x, y, depth, stack)
+{
+	if (depth > 100)
+	{
+		stack.push(_Utils_Tuple2(x,y));
+		return true;
+	}
+
+	if (x === y)
+	{
+		return true;
+	}
+
+	if (typeof x !== 'object' || x === null || y === null)
+	{
+		typeof x === 'function' && _Debug_crash(5);
+		return false;
+	}
+
+	/**/
+	if (x.$ === 'Set_elm_builtin')
+	{
+		x = elm$core$Set$toList(x);
+		y = elm$core$Set$toList(y);
+	}
+	if (x.$ === 'RBNode_elm_builtin' || x.$ === 'RBEmpty_elm_builtin')
+	{
+		x = elm$core$Dict$toList(x);
+		y = elm$core$Dict$toList(y);
+	}
+	//*/
+
+	/**_UNUSED/
+	if (x.$ < 0)
+	{
+		x = elm$core$Dict$toList(x);
+		y = elm$core$Dict$toList(y);
+	}
+	//*/
+
+	for (var key in x)
+	{
+		if (!_Utils_eqHelp(x[key], y[key], depth + 1, stack))
+		{
+			return false;
+		}
+	}
+	return true;
+}
+
+var _Utils_equal = F2(_Utils_eq);
+var _Utils_notEqual = F2(function(a, b) { return !_Utils_eq(a,b); });
+
+
+
+// COMPARISONS
+
+// Code in Generate/JavaScript.hs, Basics.js, and List.js depends on
+// the particular integer values assigned to LT, EQ, and GT.
+
+function _Utils_cmp(x, y, ord)
+{
+	if (typeof x !== 'object')
+	{
+		return x === y ? /*EQ*/ 0 : x < y ? /*LT*/ -1 : /*GT*/ 1;
+	}
+
+	/**/
+	if (x instanceof String)
+	{
+		var a = x.valueOf();
+		var b = y.valueOf();
+		return a === b ? 0 : a < b ? -1 : 1;
+	}
+	//*/
+
+	/**_UNUSED/
+	if (!x.$)
+	//*/
+	/**/
+	if (x.$[0] === '#')
+	//*/
+	{
+		return (ord = _Utils_cmp(x.a, y.a))
+			? ord
+			: (ord = _Utils_cmp(x.b, y.b))
+				? ord
+				: _Utils_cmp(x.c, y.c);
+	}
+
+	// traverse conses until end of a list or a mismatch
+	for (; x.b && y.b && !(ord = _Utils_cmp(x.a, y.a)); x = x.b, y = y.b) {} // WHILE_CONSES
+	return ord || (x.b ? /*GT*/ 1 : y.b ? /*LT*/ -1 : /*EQ*/ 0);
+}
+
+var _Utils_lt = F2(function(a, b) { return _Utils_cmp(a, b) < 0; });
+var _Utils_le = F2(function(a, b) { return _Utils_cmp(a, b) < 1; });
+var _Utils_gt = F2(function(a, b) { return _Utils_cmp(a, b) > 0; });
+var _Utils_ge = F2(function(a, b) { return _Utils_cmp(a, b) >= 0; });
+
+var _Utils_compare = F2(function(x, y)
+{
+	var n = _Utils_cmp(x, y);
+	return n < 0 ? elm$core$Basics$LT : n ? elm$core$Basics$GT : elm$core$Basics$EQ;
+});
+
+
+// COMMON VALUES
+
+var _Utils_Tuple0_UNUSED = 0;
+var _Utils_Tuple0 = { $: '#0' };
+
+function _Utils_Tuple2_UNUSED(a, b) { return { a: a, b: b }; }
+function _Utils_Tuple2(a, b) { return { $: '#2', a: a, b: b }; }
+
+function _Utils_Tuple3_UNUSED(a, b, c) { return { a: a, b: b, c: c }; }
+function _Utils_Tuple3(a, b, c) { return { $: '#3', a: a, b: b, c: c }; }
+
+function _Utils_chr_UNUSED(c) { return c; }
+function _Utils_chr(c) { return new String(c); }
+
+
+// RECORDS
+
+function _Utils_update(oldRecord, updatedFields)
+{
+	var newRecord = {};
+
+	for (var key in oldRecord)
+	{
+		newRecord[key] = oldRecord[key];
+	}
+
+	for (var key in updatedFields)
+	{
+		newRecord[key] = updatedFields[key];
+	}
+
+	return newRecord;
+}
+
+
+// APPEND
+
+var _Utils_append = F2(_Utils_ap);
+
+function _Utils_ap(xs, ys)
+{
+	// append Strings
+	if (typeof xs === 'string')
+	{
+		return xs + ys;
+	}
+
+	// append Lists
+	if (!xs.b)
+	{
+		return ys;
+	}
+	var root = _List_Cons(xs.a, ys);
+	xs = xs.b
+	for (var curr = root; xs.b; xs = xs.b) // WHILE_CONS
+	{
+		curr = curr.b = _List_Cons(xs.a, ys);
+	}
+	return root;
+}
+
+
+
+var _List_Nil_UNUSED = { $: 0 };
+var _List_Nil = { $: '[]' };
+
+function _List_Cons_UNUSED(hd, tl) { return { $: 1, a: hd, b: tl }; }
+function _List_Cons(hd, tl) { return { $: '::', a: hd, b: tl }; }
+
+
+var _List_cons = F2(_List_Cons);
+
+function _List_fromArray(arr)
+{
+	var out = _List_Nil;
+	for (var i = arr.length; i--; )
+	{
+		out = _List_Cons(arr[i], out);
+	}
+	return out;
+}
+
+function _List_toArray(xs)
+{
+	for (var out = []; xs.b; xs = xs.b) // WHILE_CONS
+	{
+		out.push(xs.a);
+	}
+	return out;
+}
+
+var _List_map2 = F3(function(f, xs, ys)
+{
+	for (var arr = []; xs.b && ys.b; xs = xs.b, ys = ys.b) // WHILE_CONSES
+	{
+		arr.push(A2(f, xs.a, ys.a));
+	}
+	return _List_fromArray(arr);
+});
+
+var _List_map3 = F4(function(f, xs, ys, zs)
+{
+	for (var arr = []; xs.b && ys.b && zs.b; xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
+	{
+		arr.push(A3(f, xs.a, ys.a, zs.a));
+	}
+	return _List_fromArray(arr);
+});
+
+var _List_map4 = F5(function(f, ws, xs, ys, zs)
+{
+	for (var arr = []; ws.b && xs.b && ys.b && zs.b; ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
+	{
+		arr.push(A4(f, ws.a, xs.a, ys.a, zs.a));
+	}
+	return _List_fromArray(arr);
+});
+
+var _List_map5 = F6(function(f, vs, ws, xs, ys, zs)
+{
+	for (var arr = []; vs.b && ws.b && xs.b && ys.b && zs.b; vs = vs.b, ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
+	{
+		arr.push(A5(f, vs.a, ws.a, xs.a, ys.a, zs.a));
+	}
+	return _List_fromArray(arr);
+});
+
+var _List_sortBy = F2(function(f, xs)
+{
+	return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
+		return _Utils_cmp(f(a), f(b));
+	}));
+});
+
+var _List_sortWith = F2(function(f, xs)
+{
+	return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
+		var ord = A2(f, a, b);
+		return ord === elm$core$Basics$EQ ? 0 : ord === elm$core$Basics$LT ? -1 : 1;
+	}));
+});
+
+
+
+// MATH
+
+var _Basics_add = F2(function(a, b) { return a + b; });
+var _Basics_sub = F2(function(a, b) { return a - b; });
+var _Basics_mul = F2(function(a, b) { return a * b; });
+var _Basics_fdiv = F2(function(a, b) { return a / b; });
+var _Basics_idiv = F2(function(a, b) { return (a / b) | 0; });
+var _Basics_pow = F2(Math.pow);
+
+var _Basics_remainderBy = F2(function(b, a) { return a % b; });
+
+// https://www.microsoft.com/en-us/research/wp-content/uploads/2016/02/divmodnote-letter.pdf
+var _Basics_modBy = F2(function(modulus, x)
+{
+	var answer = x % modulus;
+	return modulus === 0
+		? _Debug_crash(11)
+		:
+	((answer > 0 && modulus < 0) || (answer < 0 && modulus > 0))
+		? answer + modulus
+		: answer;
+});
+
+
+// TRIGONOMETRY
+
+var _Basics_pi = Math.PI;
+var _Basics_e = Math.E;
+var _Basics_cos = Math.cos;
+var _Basics_sin = Math.sin;
+var _Basics_tan = Math.tan;
+var _Basics_acos = Math.acos;
+var _Basics_asin = Math.asin;
+var _Basics_atan = Math.atan;
+var _Basics_atan2 = F2(Math.atan2);
+
+
+// MORE MATH
+
+function _Basics_toFloat(x) { return x; }
+function _Basics_truncate(n) { return n | 0; }
+function _Basics_isInfinite(n) { return n === Infinity || n === -Infinity; }
+
+var _Basics_ceiling = Math.ceil;
+var _Basics_floor = Math.floor;
+var _Basics_round = Math.round;
+var _Basics_sqrt = Math.sqrt;
+var _Basics_log = Math.log;
+var _Basics_isNaN = isNaN;
+
+
+// BOOLEANS
+
+function _Basics_not(bool) { return !bool; }
+var _Basics_and = F2(function(a, b) { return a && b; });
+var _Basics_or  = F2(function(a, b) { return a || b; });
+var _Basics_xor = F2(function(a, b) { return a !== b; });
+
+
+
+function _Char_toCode(char)
+{
+	var code = char.charCodeAt(0);
+	if (0xD800 <= code && code <= 0xDBFF)
+	{
+		return (code - 0xD800) * 0x400 + char.charCodeAt(1) - 0xDC00 + 0x10000
+	}
+	return code;
+}
+
+function _Char_fromCode(code)
+{
+	return _Utils_chr(
+		(code < 0 || 0x10FFFF < code)
+			? '\uFFFD'
+			:
+		(code <= 0xFFFF)
+			? String.fromCharCode(code)
+			:
+		(code -= 0x10000,
+			String.fromCharCode(Math.floor(code / 0x400) + 0xD800)
+			+
+			String.fromCharCode(code % 0x400 + 0xDC00)
+		)
+	);
+}
+
+function _Char_toUpper(char)
+{
+	return _Utils_chr(char.toUpperCase());
+}
+
+function _Char_toLower(char)
+{
+	return _Utils_chr(char.toLowerCase());
+}
+
+function _Char_toLocaleUpper(char)
+{
+	return _Utils_chr(char.toLocaleUpperCase());
+}
+
+function _Char_toLocaleLower(char)
+{
+	return _Utils_chr(char.toLocaleLowerCase());
+}
+
+
+
+var _String_cons = F2(function(chr, str)
+{
+	return chr + str;
+});
+
+function _String_uncons(string)
+{
+	var word = string.charCodeAt(0);
+	return word
+		? elm$core$Maybe$Just(
+			0xD800 <= word && word <= 0xDBFF
+				? _Utils_Tuple2(_Utils_chr(string[0] + string[1]), string.slice(2))
+				: _Utils_Tuple2(_Utils_chr(string[0]), string.slice(1))
+		)
+		: elm$core$Maybe$Nothing;
+}
+
+var _String_append = F2(function(a, b)
+{
+	return a + b;
+});
+
+function _String_length(str)
+{
+	return str.length;
+}
+
+var _String_map = F2(function(func, string)
+{
+	var len = string.length;
+	var array = new Array(len);
+	var i = 0;
+	while (i < len)
+	{
+		var word = string.charCodeAt(i);
+		if (0xD800 <= word && word <= 0xDBFF)
+		{
+			array[i] = func(_Utils_chr(string[i] + string[i+1]));
+			i += 2;
+			continue;
+		}
+		array[i] = func(_Utils_chr(string[i]));
+		i++;
+	}
+	return array.join('');
+});
+
+var _String_filter = F2(function(isGood, str)
+{
+	var arr = [];
+	var len = str.length;
+	var i = 0;
+	while (i < len)
+	{
+		var char = str[i];
+		var word = str.charCodeAt(i);
+		i++;
+		if (0xD800 <= word && word <= 0xDBFF)
+		{
+			char += str[i];
+			i++;
+		}
+
+		if (isGood(_Utils_chr(char)))
+		{
+			arr.push(char);
+		}
+	}
+	return arr.join('');
+});
+
+function _String_reverse(str)
+{
+	var len = str.length;
+	var arr = new Array(len);
+	var i = 0;
+	while (i < len)
+	{
+		var word = str.charCodeAt(i);
+		if (0xD800 <= word && word <= 0xDBFF)
+		{
+			arr[len - i] = str[i + 1];
+			i++;
+			arr[len - i] = str[i - 1];
+			i++;
+		}
+		else
+		{
+			arr[len - i] = str[i];
+			i++;
+		}
+	}
+	return arr.join('');
+}
+
+var _String_foldl = F3(function(func, state, string)
+{
+	var len = string.length;
+	var i = 0;
+	while (i < len)
+	{
+		var char = string[i];
+		var word = string.charCodeAt(i);
+		i++;
+		if (0xD800 <= word && word <= 0xDBFF)
+		{
+			char += string[i];
+			i++;
+		}
+		state = A2(func, _Utils_chr(char), state);
+	}
+	return state;
+});
+
+var _String_foldr = F3(function(func, state, string)
+{
+	var i = string.length;
+	while (i--)
+	{
+		var char = string[i];
+		var word = string.charCodeAt(i);
+		if (0xDC00 <= word && word <= 0xDFFF)
+		{
+			i--;
+			char = string[i] + char;
+		}
+		state = A2(func, _Utils_chr(char), state);
+	}
+	return state;
+});
+
+var _String_split = F2(function(sep, str)
+{
+	return str.split(sep);
+});
+
+var _String_join = F2(function(sep, strs)
+{
+	return strs.join(sep);
+});
+
+var _String_slice = F3(function(start, end, str) {
+	return str.slice(start, end);
+});
+
+function _String_trim(str)
+{
+	return str.trim();
+}
+
+function _String_trimLeft(str)
+{
+	return str.replace(/^\s+/, '');
+}
+
+function _String_trimRight(str)
+{
+	return str.replace(/\s+$/, '');
+}
+
+function _String_words(str)
+{
+	return _List_fromArray(str.trim().split(/\s+/g));
+}
+
+function _String_lines(str)
+{
+	return _List_fromArray(str.split(/\r\n|\r|\n/g));
+}
+
+function _String_toUpper(str)
+{
+	return str.toUpperCase();
+}
+
+function _String_toLower(str)
+{
+	return str.toLowerCase();
+}
+
+var _String_any = F2(function(isGood, string)
+{
+	var i = string.length;
+	while (i--)
+	{
+		var char = string[i];
+		var word = string.charCodeAt(i);
+		if (0xDC00 <= word && word <= 0xDFFF)
+		{
+			i--;
+			char = string[i] + char;
+		}
+		if (isGood(_Utils_chr(char)))
+		{
+			return true;
+		}
+	}
+	return false;
+});
+
+var _String_all = F2(function(isGood, string)
+{
+	var i = string.length;
+	while (i--)
+	{
+		var char = string[i];
+		var word = string.charCodeAt(i);
+		if (0xDC00 <= word && word <= 0xDFFF)
+		{
+			i--;
+			char = string[i] + char;
+		}
+		if (!isGood(_Utils_chr(char)))
+		{
+			return false;
+		}
+	}
+	return true;
+});
+
+var _String_contains = F2(function(sub, str)
+{
+	return str.indexOf(sub) > -1;
+});
+
+var _String_startsWith = F2(function(sub, str)
+{
+	return str.indexOf(sub) === 0;
+});
+
+var _String_endsWith = F2(function(sub, str)
+{
+	return str.length >= sub.length &&
+		str.lastIndexOf(sub) === str.length - sub.length;
+});
+
+var _String_indexes = F2(function(sub, str)
+{
+	var subLen = sub.length;
+
+	if (subLen < 1)
+	{
+		return _List_Nil;
+	}
+
+	var i = 0;
+	var is = [];
+
+	while ((i = str.indexOf(sub, i)) > -1)
+	{
+		is.push(i);
+		i = i + subLen;
+	}
+
+	return _List_fromArray(is);
+});
+
+
+// TO STRING
+
+function _String_fromNumber(number)
+{
+	return number + '';
+}
+
+
+// INT CONVERSIONS
+
+function _String_toInt(str)
+{
+	var total = 0;
+	var code0 = str.charCodeAt(0);
+	var start = code0 == 0x2B /* + */ || code0 == 0x2D /* - */ ? 1 : 0;
+
+	for (var i = start; i < str.length; ++i)
+	{
+		var code = str.charCodeAt(i);
+		if (code < 0x30 || 0x39 < code)
+		{
+			return elm$core$Maybe$Nothing;
+		}
+		total = 10 * total + code - 0x30;
+	}
+
+	return i == start
+		? elm$core$Maybe$Nothing
+		: elm$core$Maybe$Just(code0 == 0x2D ? -total : total);
+}
+
+
+// FLOAT CONVERSIONS
+
+function _String_toFloat(s)
+{
+	// check if it is a hex, octal, or binary number
+	if (s.length === 0 || /[\sxbo]/.test(s))
+	{
+		return elm$core$Maybe$Nothing;
+	}
+	var n = +s;
+	// faster isNaN check
+	return n === n ? elm$core$Maybe$Just(n) : elm$core$Maybe$Nothing;
+}
+
+function _String_fromList(chars)
+{
+	return _List_toArray(chars).join('');
+}
+
+
+
+
+/**/
+function _Json_errorToString(error)
+{
+	return elm$json$Json$Decode$errorToString(error);
+}
+//*/
+
+
+// CORE DECODERS
+
+function _Json_succeed(msg)
+{
+	return {
+		$: 0,
+		a: msg
+	};
+}
+
+function _Json_fail(msg)
+{
+	return {
+		$: 1,
+		a: msg
+	};
+}
+
+var _Json_decodeInt = { $: 2 };
+var _Json_decodeBool = { $: 3 };
+var _Json_decodeFloat = { $: 4 };
+var _Json_decodeValue = { $: 5 };
+var _Json_decodeString = { $: 6 };
+
+function _Json_decodeList(decoder) { return { $: 7, b: decoder }; }
+function _Json_decodeArray(decoder) { return { $: 8, b: decoder }; }
+
+function _Json_decodeNull(value) { return { $: 9, c: value }; }
+
+var _Json_decodeField = F2(function(field, decoder)
+{
+	return {
+		$: 10,
+		d: field,
+		b: decoder
+	};
+});
+
+var _Json_decodeIndex = F2(function(index, decoder)
+{
+	return {
+		$: 11,
+		e: index,
+		b: decoder
+	};
+});
+
+function _Json_decodeKeyValuePairs(decoder)
+{
+	return {
+		$: 12,
+		b: decoder
+	};
+}
+
+function _Json_mapMany(f, decoders)
+{
+	return {
+		$: 13,
+		f: f,
+		g: decoders
+	};
+}
+
+var _Json_andThen = F2(function(callback, decoder)
+{
+	return {
+		$: 14,
+		b: decoder,
+		h: callback
+	};
+});
+
+function _Json_oneOf(decoders)
+{
+	return {
+		$: 15,
+		g: decoders
+	};
+}
+
+
+// DECODING OBJECTS
+
+var _Json_map1 = F2(function(f, d1)
+{
+	return _Json_mapMany(f, [d1]);
+});
+
+var _Json_map2 = F3(function(f, d1, d2)
+{
+	return _Json_mapMany(f, [d1, d2]);
+});
+
+var _Json_map3 = F4(function(f, d1, d2, d3)
+{
+	return _Json_mapMany(f, [d1, d2, d3]);
+});
+
+var _Json_map4 = F5(function(f, d1, d2, d3, d4)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4]);
+});
+
+var _Json_map5 = F6(function(f, d1, d2, d3, d4, d5)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4, d5]);
+});
+
+var _Json_map6 = F7(function(f, d1, d2, d3, d4, d5, d6)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6]);
+});
+
+var _Json_map7 = F8(function(f, d1, d2, d3, d4, d5, d6, d7)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7]);
+});
+
+var _Json_map8 = F9(function(f, d1, d2, d3, d4, d5, d6, d7, d8)
+{
+	return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7, d8]);
+});
+
+
+// DECODE
+
+var _Json_runOnString = F2(function(decoder, string)
+{
+	try
+	{
+		var value = JSON.parse(string);
+		return _Json_runHelp(decoder, value);
+	}
+	catch (e)
+	{
+		return elm$core$Result$Err(A2(elm$json$Json$Decode$Failure, 'This is not valid JSON! ' + e.message, _Json_wrap(string)));
+	}
+});
+
+var _Json_run = F2(function(decoder, value)
+{
+	return _Json_runHelp(decoder, _Json_unwrap(value));
+});
+
+function _Json_runHelp(decoder, value)
+{
+	switch (decoder.$)
+	{
+		case 3:
+			return (typeof value === 'boolean')
+				? elm$core$Result$Ok(value)
+				: _Json_expecting('a BOOL', value);
+
+		case 2:
+			if (typeof value !== 'number') {
+				return _Json_expecting('an INT', value);
+			}
+
+			if (-2147483647 < value && value < 2147483647 && (value | 0) === value) {
+				return elm$core$Result$Ok(value);
+			}
+
+			if (isFinite(value) && !(value % 1)) {
+				return elm$core$Result$Ok(value);
+			}
+
+			return _Json_expecting('an INT', value);
+
+		case 4:
+			return (typeof value === 'number')
+				? elm$core$Result$Ok(value)
+				: _Json_expecting('a FLOAT', value);
+
+		case 6:
+			return (typeof value === 'string')
+				? elm$core$Result$Ok(value)
+				: (value instanceof String)
+					? elm$core$Result$Ok(value + '')
+					: _Json_expecting('a STRING', value);
+
+		case 9:
+			return (value === null)
+				? elm$core$Result$Ok(decoder.c)
+				: _Json_expecting('null', value);
+
+		case 5:
+			return elm$core$Result$Ok(_Json_wrap(value));
+
+		case 7:
+			if (!Array.isArray(value))
+			{
+				return _Json_expecting('a LIST', value);
+			}
+			return _Json_runArrayDecoder(decoder.b, value, _List_fromArray);
+
+		case 8:
+			if (!Array.isArray(value))
+			{
+				return _Json_expecting('an ARRAY', value);
+			}
+			return _Json_runArrayDecoder(decoder.b, value, _Json_toElmArray);
+
+		case 10:
+			var field = decoder.d;
+			if (typeof value !== 'object' || value === null || !(field in value))
+			{
+				return _Json_expecting('an OBJECT with a field named `' + field + '`', value);
+			}
+			var result = _Json_runHelp(decoder.b, value[field]);
+			return (elm$core$Result$isOk(result)) ? result : elm$core$Result$Err(A2(elm$json$Json$Decode$Field, field, result.a));
+
+		case 11:
+			var index = decoder.e;
+			if (!Array.isArray(value))
+			{
+				return _Json_expecting('an ARRAY', value);
+			}
+			if (index >= value.length)
+			{
+				return _Json_expecting('a LONGER array. Need index ' + index + ' but only see ' + value.length + ' entries', value);
+			}
+			var result = _Json_runHelp(decoder.b, value[index]);
+			return (elm$core$Result$isOk(result)) ? result : elm$core$Result$Err(A2(elm$json$Json$Decode$Index, index, result.a));
+
+		case 12:
+			if (typeof value !== 'object' || value === null || Array.isArray(value))
+			{
+				return _Json_expecting('an OBJECT', value);
+			}
+
+			var keyValuePairs = _List_Nil;
+			// TODO test perf of Object.keys and switch when support is good enough
+			for (var key in value)
+			{
+				if (value.hasOwnProperty(key))
+				{
+					var result = _Json_runHelp(decoder.b, value[key]);
+					if (!elm$core$Result$isOk(result))
+					{
+						return elm$core$Result$Err(A2(elm$json$Json$Decode$Field, key, result.a));
+					}
+					keyValuePairs = _List_Cons(_Utils_Tuple2(key, result.a), keyValuePairs);
+				}
+			}
+			return elm$core$Result$Ok(elm$core$List$reverse(keyValuePairs));
+
+		case 13:
+			var answer = decoder.f;
+			var decoders = decoder.g;
+			for (var i = 0; i < decoders.length; i++)
+			{
+				var result = _Json_runHelp(decoders[i], value);
+				if (!elm$core$Result$isOk(result))
+				{
+					return result;
+				}
+				answer = answer(result.a);
+			}
+			return elm$core$Result$Ok(answer);
+
+		case 14:
+			var result = _Json_runHelp(decoder.b, value);
+			return (!elm$core$Result$isOk(result))
+				? result
+				: _Json_runHelp(decoder.h(result.a), value);
+
+		case 15:
+			var errors = _List_Nil;
+			for (var temp = decoder.g; temp.b; temp = temp.b) // WHILE_CONS
+			{
+				var result = _Json_runHelp(temp.a, value);
+				if (elm$core$Result$isOk(result))
+				{
+					return result;
+				}
+				errors = _List_Cons(result.a, errors);
+			}
+			return elm$core$Result$Err(elm$json$Json$Decode$OneOf(elm$core$List$reverse(errors)));
+
+		case 1:
+			return elm$core$Result$Err(A2(elm$json$Json$Decode$Failure, decoder.a, _Json_wrap(value)));
+
+		case 0:
+			return elm$core$Result$Ok(decoder.a);
+	}
+}
+
+function _Json_runArrayDecoder(decoder, value, toElmValue)
+{
+	var len = value.length;
+	var array = new Array(len);
+	for (var i = 0; i < len; i++)
+	{
+		var result = _Json_runHelp(decoder, value[i]);
+		if (!elm$core$Result$isOk(result))
+		{
+			return elm$core$Result$Err(A2(elm$json$Json$Decode$Index, i, result.a));
+		}
+		array[i] = result.a;
+	}
+	return elm$core$Result$Ok(toElmValue(array));
+}
+
+function _Json_toElmArray(array)
+{
+	return A2(elm$core$Array$initialize, array.length, function(i) { return array[i]; });
+}
+
+function _Json_expecting(type, value)
+{
+	return elm$core$Result$Err(A2(elm$json$Json$Decode$Failure, 'Expecting ' + type, _Json_wrap(value)));
+}
+
+
+// EQUALITY
+
+function _Json_equality(x, y)
+{
+	if (x === y)
+	{
+		return true;
+	}
+
+	if (x.$ !== y.$)
+	{
+		return false;
+	}
+
+	switch (x.$)
+	{
+		case 0:
+		case 1:
+			return x.a === y.a;
+
+		case 3:
+		case 2:
+		case 4:
+		case 6:
+		case 5:
+			return true;
+
+		case 9:
+			return x.c === y.c;
+
+		case 7:
+		case 8:
+		case 12:
+			return _Json_equality(x.b, y.b);
+
+		case 10:
+			return x.d === y.d && _Json_equality(x.b, y.b);
+
+		case 11:
+			return x.e === y.e && _Json_equality(x.b, y.b);
+
+		case 13:
+			return x.f === y.f && _Json_listEquality(x.g, y.g);
+
+		case 14:
+			return x.h === y.h && _Json_equality(x.b, y.b);
+
+		case 15:
+			return _Json_listEquality(x.g, y.g);
+	}
+}
+
+function _Json_listEquality(aDecoders, bDecoders)
+{
+	var len = aDecoders.length;
+	if (len !== bDecoders.length)
+	{
+		return false;
+	}
+	for (var i = 0; i < len; i++)
+	{
+		if (!_Json_equality(aDecoders[i], bDecoders[i]))
+		{
+			return false;
+		}
+	}
+	return true;
+}
+
+
+// ENCODE
+
+var _Json_encode = F2(function(indentLevel, value)
+{
+	return JSON.stringify(_Json_unwrap(value), null, indentLevel) + '';
+});
+
+function _Json_wrap(value) { return { $: 0, a: value }; }
+function _Json_unwrap(value) { return value.a; }
+
+function _Json_wrap_UNUSED(value) { return value; }
+function _Json_unwrap_UNUSED(value) { return value; }
+
+function _Json_emptyArray() { return []; }
+function _Json_emptyObject() { return {}; }
+
+var _Json_addField = F3(function(key, value, object)
+{
+	object[key] = _Json_unwrap(value);
+	return object;
+});
+
+function _Json_addEntry(func)
+{
+	return F2(function(entry, array)
+	{
+		array.push(_Json_unwrap(func(entry)));
+		return array;
+	});
+}
+
+var _Json_encodeNull = _Json_wrap(null);
+
+
+
+// TASKS
+
+function _Scheduler_succeed(value)
+{
+	return {
+		$: 0,
+		a: value
+	};
+}
+
+function _Scheduler_fail(error)
+{
+	return {
+		$: 1,
+		a: error
+	};
+}
+
+function _Scheduler_binding(callback)
+{
+	return {
+		$: 2,
+		b: callback,
+		c: null
+	};
+}
+
+var _Scheduler_andThen = F2(function(callback, task)
+{
+	return {
+		$: 3,
+		b: callback,
+		d: task
+	};
+});
+
+var _Scheduler_onError = F2(function(callback, task)
+{
+	return {
+		$: 4,
+		b: callback,
+		d: task
+	};
+});
+
+function _Scheduler_receive(callback)
+{
+	return {
+		$: 5,
+		b: callback
+	};
+}
+
+
+// PROCESSES
+
+var _Scheduler_guid = 0;
+
+function _Scheduler_rawSpawn(task)
+{
+	var proc = {
+		$: 0,
+		e: _Scheduler_guid++,
+		f: task,
+		g: null,
+		h: []
+	};
+
+	_Scheduler_enqueue(proc);
+
+	return proc;
+}
+
+function _Scheduler_spawn(task)
+{
+	return _Scheduler_binding(function(callback) {
+		callback(_Scheduler_succeed(_Scheduler_rawSpawn(task)));
+	});
+}
+
+function _Scheduler_rawSend(proc, msg)
+{
+	proc.h.push(msg);
+	_Scheduler_enqueue(proc);
+}
+
+var _Scheduler_send = F2(function(proc, msg)
+{
+	return _Scheduler_binding(function(callback) {
+		_Scheduler_rawSend(proc, msg);
+		callback(_Scheduler_succeed(_Utils_Tuple0));
+	});
+});
+
+function _Scheduler_kill(proc)
+{
+	return _Scheduler_binding(function(callback) {
+		var task = proc.f;
+		if (task.$ === 2 && task.c)
+		{
+			task.c();
+		}
+
+		proc.f = null;
+
+		callback(_Scheduler_succeed(_Utils_Tuple0));
+	});
+}
+
+
+/* STEP PROCESSES
+
+type alias Process =
+  { $ : tag
+  , id : unique_id
+  , root : Task
+  , stack : null | { $: SUCCEED | FAIL, a: callback, b: stack }
+  , mailbox : [msg]
+  }
+
+*/
+
+
+var _Scheduler_working = false;
+var _Scheduler_queue = [];
+
+
+function _Scheduler_enqueue(proc)
+{
+	_Scheduler_queue.push(proc);
+	if (_Scheduler_working)
+	{
+		return;
+	}
+	_Scheduler_working = true;
+	while (proc = _Scheduler_queue.shift())
+	{
+		_Scheduler_step(proc);
+	}
+	_Scheduler_working = false;
+}
+
+
+function _Scheduler_step(proc)
+{
+	while (proc.f)
+	{
+		var rootTag = proc.f.$;
+		if (rootTag === 0 || rootTag === 1)
+		{
+			while (proc.g && proc.g.$ !== rootTag)
+			{
+				proc.g = proc.g.i;
+			}
+			if (!proc.g)
+			{
+				return;
+			}
+			proc.f = proc.g.b(proc.f.a);
+			proc.g = proc.g.i;
+		}
+		else if (rootTag === 2)
+		{
+			proc.f.c = proc.f.b(function(newRoot) {
+				proc.f = newRoot;
+				_Scheduler_enqueue(proc);
+			});
+			return;
+		}
+		else if (rootTag === 5)
+		{
+			if (proc.h.length === 0)
+			{
+				return;
+			}
+			proc.f = proc.f.b(proc.h.shift());
+		}
+		else // if (rootTag === 3 || rootTag === 4)
+		{
+			proc.g = {
+				$: rootTag === 3 ? 0 : 1,
+				b: proc.f.b,
+				i: proc.g
+			};
+			proc.f = proc.f.d;
+		}
+	}
+}
+
+
+
+function _Process_sleep(time)
+{
+	return _Scheduler_binding(function(callback) {
+		var id = setTimeout(function() {
+			callback(_Scheduler_succeed(_Utils_Tuple0));
+		}, time);
+
+		return function() { clearTimeout(id); };
+	});
+}
+
+
+
+
+// PROGRAMS
+
+
+var _Platform_worker = F4(function(impl, flagDecoder, debugMetadata, args)
+{
+	return _Platform_initialize(
+		flagDecoder,
+		args,
+		impl.init,
+		impl.update,
+		impl.subscriptions,
+		function() { return function() {} }
+	);
+});
+
+
+
+// INITIALIZE A PROGRAM
+
+
+function _Platform_initialize(flagDecoder, args, init, update, subscriptions, stepperBuilder)
+{
+	var result = A2(_Json_run, flagDecoder, _Json_wrap(args ? args['flags'] : undefined));
+	elm$core$Result$isOk(result) || _Debug_crash(2 /**/, _Json_errorToString(result.a) /**/);
+	var managers = {};
+	result = init(result.a);
+	var model = result.a;
+	var stepper = stepperBuilder(sendToApp, model);
+	var ports = _Platform_setupEffects(managers, sendToApp);
+
+	function sendToApp(msg, viewMetadata)
+	{
+		result = A2(update, msg, model);
+		stepper(model = result.a, viewMetadata);
+		_Platform_dispatchEffects(managers, result.b, subscriptions(model));
+	}
+
+	_Platform_dispatchEffects(managers, result.b, subscriptions(model));
+
+	return ports ? { ports: ports } : {};
+}
+
+
+
+// TRACK PRELOADS
+//
+// This is used by code in elm/browser and elm/http
+// to register any HTTP requests that are triggered by init.
+//
+
+
+var _Platform_preload;
+
+
+function _Platform_registerPreload(url)
+{
+	_Platform_preload.add(url);
+}
+
+
+
+// EFFECT MANAGERS
+
+
+var _Platform_effectManagers = {};
+
+
+function _Platform_setupEffects(managers, sendToApp)
+{
+	var ports;
+
+	// setup all necessary effect managers
+	for (var key in _Platform_effectManagers)
+	{
+		var manager = _Platform_effectManagers[key];
+
+		if (manager.a)
+		{
+			ports = ports || {};
+			ports[key] = manager.a(key, sendToApp);
+		}
+
+		managers[key] = _Platform_instantiateManager(manager, sendToApp);
+	}
+
+	return ports;
+}
+
+
+function _Platform_createManager(init, onEffects, onSelfMsg, cmdMap, subMap)
+{
+	return {
+		b: init,
+		c: onEffects,
+		d: onSelfMsg,
+		e: cmdMap,
+		f: subMap
+	};
+}
+
+
+function _Platform_instantiateManager(info, sendToApp)
+{
+	var router = {
+		g: sendToApp,
+		h: undefined
+	};
+
+	var onEffects = info.c;
+	var onSelfMsg = info.d;
+	var cmdMap = info.e;
+	var subMap = info.f;
+
+	function loop(state)
+	{
+		return A2(_Scheduler_andThen, loop, _Scheduler_receive(function(msg)
+		{
+			var value = msg.a;
+
+			if (msg.$ === 0)
+			{
+				return A3(onSelfMsg, router, value, state);
+			}
+
+			return cmdMap && subMap
+				? A4(onEffects, router, value.i, value.j, state)
+				: A3(onEffects, router, cmdMap ? value.i : value.j, state);
+		}));
+	}
+
+	return router.h = _Scheduler_rawSpawn(A2(_Scheduler_andThen, loop, info.b));
+}
+
+
+
+// ROUTING
+
+
+var _Platform_sendToApp = F2(function(router, msg)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		router.g(msg);
+		callback(_Scheduler_succeed(_Utils_Tuple0));
+	});
+});
+
+
+var _Platform_sendToSelf = F2(function(router, msg)
+{
+	return A2(_Scheduler_send, router.h, {
+		$: 0,
+		a: msg
+	});
+});
+
+
+
+// BAGS
+
+
+function _Platform_leaf(home)
+{
+	return function(value)
+	{
+		return {
+			$: 1,
+			k: home,
+			l: value
+		};
+	};
+}
+
+
+function _Platform_batch(list)
+{
+	return {
+		$: 2,
+		m: list
+	};
+}
+
+
+var _Platform_map = F2(function(tagger, bag)
+{
+	return {
+		$: 3,
+		n: tagger,
+		o: bag
+	}
+});
+
+
+
+// PIPE BAGS INTO EFFECT MANAGERS
+
+
+function _Platform_dispatchEffects(managers, cmdBag, subBag)
+{
+	var effectsDict = {};
+	_Platform_gatherEffects(true, cmdBag, effectsDict, null);
+	_Platform_gatherEffects(false, subBag, effectsDict, null);
+
+	for (var home in managers)
+	{
+		_Scheduler_rawSend(managers[home], {
+			$: 'fx',
+			a: effectsDict[home] || { i: _List_Nil, j: _List_Nil }
+		});
+	}
+}
+
+
+function _Platform_gatherEffects(isCmd, bag, effectsDict, taggers)
+{
+	switch (bag.$)
+	{
+		case 1:
+			var home = bag.k;
+			var effect = _Platform_toEffect(isCmd, home, taggers, bag.l);
+			effectsDict[home] = _Platform_insert(isCmd, effect, effectsDict[home]);
+			return;
+
+		case 2:
+			for (var list = bag.m; list.b; list = list.b) // WHILE_CONS
+			{
+				_Platform_gatherEffects(isCmd, list.a, effectsDict, taggers);
+			}
+			return;
+
+		case 3:
+			_Platform_gatherEffects(isCmd, bag.o, effectsDict, {
+				p: bag.n,
+				q: taggers
+			});
+			return;
+	}
+}
+
+
+function _Platform_toEffect(isCmd, home, taggers, value)
+{
+	function applyTaggers(x)
+	{
+		for (var temp = taggers; temp; temp = temp.q)
+		{
+			x = temp.p(x);
+		}
+		return x;
+	}
+
+	var map = isCmd
+		? _Platform_effectManagers[home].e
+		: _Platform_effectManagers[home].f;
+
+	return A2(map, applyTaggers, value)
+}
+
+
+function _Platform_insert(isCmd, newEffect, effects)
+{
+	effects = effects || { i: _List_Nil, j: _List_Nil };
+
+	isCmd
+		? (effects.i = _List_Cons(newEffect, effects.i))
+		: (effects.j = _List_Cons(newEffect, effects.j));
+
+	return effects;
+}
+
+
+
+// PORTS
+
+
+function _Platform_checkPortName(name)
+{
+	if (_Platform_effectManagers[name])
+	{
+		_Debug_crash(3, name)
+	}
+}
+
+
+
+// OUTGOING PORTS
+
+
+function _Platform_outgoingPort(name, converter)
+{
+	_Platform_checkPortName(name);
+	_Platform_effectManagers[name] = {
+		e: _Platform_outgoingPortMap,
+		r: converter,
+		a: _Platform_setupOutgoingPort
+	};
+	return _Platform_leaf(name);
+}
+
+
+var _Platform_outgoingPortMap = F2(function(tagger, value) { return value; });
+
+
+function _Platform_setupOutgoingPort(name)
+{
+	var subs = [];
+	var converter = _Platform_effectManagers[name].r;
+
+	// CREATE MANAGER
+
+	var init = _Process_sleep(0);
+
+	_Platform_effectManagers[name].b = init;
+	_Platform_effectManagers[name].c = F3(function(router, cmdList, state)
+	{
+		for ( ; cmdList.b; cmdList = cmdList.b) // WHILE_CONS
+		{
+			// grab a separate reference to subs in case unsubscribe is called
+			var currentSubs = subs;
+			var value = _Json_unwrap(converter(cmdList.a));
+			for (var i = 0; i < currentSubs.length; i++)
+			{
+				currentSubs[i](value);
+			}
+		}
+		return init;
+	});
+
+	// PUBLIC API
+
+	function subscribe(callback)
+	{
+		subs.push(callback);
+	}
+
+	function unsubscribe(callback)
+	{
+		// copy subs into a new array in case unsubscribe is called within a
+		// subscribed callback
+		subs = subs.slice();
+		var index = subs.indexOf(callback);
+		if (index >= 0)
+		{
+			subs.splice(index, 1);
+		}
+	}
+
+	return {
+		subscribe: subscribe,
+		unsubscribe: unsubscribe
+	};
+}
+
+
+
+// INCOMING PORTS
+
+
+function _Platform_incomingPort(name, converter)
+{
+	_Platform_checkPortName(name);
+	_Platform_effectManagers[name] = {
+		f: _Platform_incomingPortMap,
+		r: converter,
+		a: _Platform_setupIncomingPort
+	};
+	return _Platform_leaf(name);
+}
+
+
+var _Platform_incomingPortMap = F2(function(tagger, finalTagger)
+{
+	return function(value)
+	{
+		return tagger(finalTagger(value));
+	};
+});
+
+
+function _Platform_setupIncomingPort(name, sendToApp)
+{
+	var subs = _List_Nil;
+	var converter = _Platform_effectManagers[name].r;
+
+	// CREATE MANAGER
+
+	var init = _Scheduler_succeed(null);
+
+	_Platform_effectManagers[name].b = init;
+	_Platform_effectManagers[name].c = F3(function(router, subList, state)
+	{
+		subs = subList;
+		return init;
+	});
+
+	// PUBLIC API
+
+	function send(incomingValue)
+	{
+		var result = A2(_Json_run, converter, _Json_wrap(incomingValue));
+
+		elm$core$Result$isOk(result) || _Debug_crash(4, name, result.a);
+
+		var value = result.a;
+		for (var temp = subs; temp.b; temp = temp.b) // WHILE_CONS
+		{
+			sendToApp(temp.a(value));
+		}
+	}
+
+	return { send: send };
+}
+
+
+
+// EXPORT ELM MODULES
+//
+// Have DEBUG and PROD versions so that we can (1) give nicer errors in
+// debug mode and (2) not pay for the bits needed for that in prod mode.
+//
+
+
+function _Platform_export_UNUSED(exports)
+{
+	scope['Elm']
+		? _Platform_mergeExportsProd(scope['Elm'], exports)
+		: scope['Elm'] = exports;
+}
+
+
+function _Platform_mergeExportsProd(obj, exports)
+{
+	for (var name in exports)
+	{
+		(name in obj)
+			? (name == 'init')
+				? _Debug_crash(6)
+				: _Platform_mergeExportsProd(obj[name], exports[name])
+			: (obj[name] = exports[name]);
+	}
+}
+
+
+function _Platform_export(exports)
+{
+	scope['Elm']
+		? _Platform_mergeExportsDebug('Elm', scope['Elm'], exports)
+		: scope['Elm'] = exports;
+}
+
+
+function _Platform_mergeExportsDebug(moduleName, obj, exports)
+{
+	for (var name in exports)
+	{
+		(name in obj)
+			? (name == 'init')
+				? _Debug_crash(6, moduleName)
+				: _Platform_mergeExportsDebug(moduleName + '.' + name, obj[name], exports[name])
+			: (obj[name] = exports[name]);
+	}
+}
+
+
+// CREATE
+
+var _Regex_never = /.^/;
+
+var _Regex_fromStringWith = F2(function(options, string)
+{
+	var flags = 'g';
+	if (options.multiline) { flags += 'm'; }
+	if (options.caseInsensitive) { flags += 'i'; }
+
+	try
+	{
+		return elm$core$Maybe$Just(new RegExp(string, flags));
+	}
+	catch(error)
+	{
+		return elm$core$Maybe$Nothing;
+	}
+});
+
+
+// USE
+
+var _Regex_contains = F2(function(re, string)
+{
+	return string.match(re) !== null;
+});
+
+
+var _Regex_findAtMost = F3(function(n, re, str)
+{
+	var out = [];
+	var number = 0;
+	var string = str;
+	var lastIndex = re.lastIndex;
+	var prevLastIndex = -1;
+	var result;
+	while (number++ < n && (result = re.exec(string)))
+	{
+		if (prevLastIndex == re.lastIndex) break;
+		var i = result.length - 1;
+		var subs = new Array(i);
+		while (i > 0)
+		{
+			var submatch = result[i];
+			subs[--i] = submatch
+				? elm$core$Maybe$Just(submatch)
+				: elm$core$Maybe$Nothing;
+		}
+		out.push(A4(elm$regex$Regex$Match, result[0], result.index, number, _List_fromArray(subs)));
+		prevLastIndex = re.lastIndex;
+	}
+	re.lastIndex = lastIndex;
+	return _List_fromArray(out);
+});
+
+
+var _Regex_replaceAtMost = F4(function(n, re, replacer, string)
+{
+	var count = 0;
+	function jsReplacer(match)
+	{
+		if (count++ >= n)
+		{
+			return match;
+		}
+		var i = arguments.length - 3;
+		var submatches = new Array(i);
+		while (i > 0)
+		{
+			var submatch = arguments[i];
+			submatches[--i] = submatch
+				? elm$core$Maybe$Just(submatch)
+				: elm$core$Maybe$Nothing;
+		}
+		return replacer(A4(elm$regex$Regex$Match, match, arguments[arguments.length - 2], count, _List_fromArray(submatches)));
+	}
+	return string.replace(re, jsReplacer);
+});
+
+var _Regex_splitAtMost = F3(function(n, re, str)
+{
+	var string = str;
+	var out = [];
+	var start = re.lastIndex;
+	var restoreLastIndex = re.lastIndex;
+	while (n--)
+	{
+		var result = re.exec(string);
+		if (!result) break;
+		out.push(string.slice(start, result.index));
+		start = re.lastIndex;
+	}
+	out.push(string.slice(start));
+	re.lastIndex = restoreLastIndex;
+	return _List_fromArray(out);
+});
+
+var _Regex_infinity = Infinity;
+
+
+
+
+// HELPERS
+
+
+var _VirtualDom_divertHrefToApp;
+
+var _VirtualDom_doc = typeof document !== 'undefined' ? document : {};
+
+
+function _VirtualDom_appendChild(parent, child)
+{
+	parent.appendChild(child);
+}
+
+var _VirtualDom_init = F4(function(virtualNode, flagDecoder, debugMetadata, args)
+{
+	// NOTE: this function needs _Platform_export available to work
+
+	/**_UNUSED/
+	var node = args['node'];
+	//*/
+	/**/
+	var node = args && args['node'] ? args['node'] : _Debug_crash(0);
+	//*/
+
+	node.parentNode.replaceChild(
+		_VirtualDom_render(virtualNode, function() {}),
+		node
+	);
+
+	return {};
+});
+
+
+
+// TEXT
+
+
+function _VirtualDom_text(string)
+{
+	return {
+		$: 0,
+		a: string
+	};
+}
+
+
+
+// NODE
+
+
+var _VirtualDom_nodeNS = F2(function(namespace, tag)
+{
+	return F2(function(factList, kidList)
+	{
+		for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
+		{
+			var kid = kidList.a;
+			descendantsCount += (kid.b || 0);
+			kids.push(kid);
+		}
+		descendantsCount += kids.length;
+
+		return {
+			$: 1,
+			c: tag,
+			d: _VirtualDom_organizeFacts(factList),
+			e: kids,
+			f: namespace,
+			b: descendantsCount
+		};
+	});
+});
+
+
+var _VirtualDom_node = _VirtualDom_nodeNS(undefined);
+
+
+
+// KEYED NODE
+
+
+var _VirtualDom_keyedNodeNS = F2(function(namespace, tag)
+{
+	return F2(function(factList, kidList)
+	{
+		for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
+		{
+			var kid = kidList.a;
+			descendantsCount += (kid.b.b || 0);
+			kids.push(kid);
+		}
+		descendantsCount += kids.length;
+
+		return {
+			$: 2,
+			c: tag,
+			d: _VirtualDom_organizeFacts(factList),
+			e: kids,
+			f: namespace,
+			b: descendantsCount
+		};
+	});
+});
+
+
+var _VirtualDom_keyedNode = _VirtualDom_keyedNodeNS(undefined);
+
+
+
+// CUSTOM
+
+
+function _VirtualDom_custom(factList, model, render, diff)
+{
+	return {
+		$: 3,
+		d: _VirtualDom_organizeFacts(factList),
+		g: model,
+		h: render,
+		i: diff
+	};
+}
+
+
+
+// MAP
+
+
+var _VirtualDom_map = F2(function(tagger, node)
+{
+	return {
+		$: 4,
+		j: tagger,
+		k: node,
+		b: 1 + (node.b || 0)
+	};
+});
+
+
+
+// LAZY
+
+
+function _VirtualDom_thunk(refs, thunk)
+{
+	return {
+		$: 5,
+		l: refs,
+		m: thunk,
+		k: undefined
+	};
+}
+
+var _VirtualDom_lazy = F2(function(func, a)
+{
+	return _VirtualDom_thunk([func, a], function() {
+		return func(a);
+	});
+});
+
+var _VirtualDom_lazy2 = F3(function(func, a, b)
+{
+	return _VirtualDom_thunk([func, a, b], function() {
+		return A2(func, a, b);
+	});
+});
+
+var _VirtualDom_lazy3 = F4(function(func, a, b, c)
+{
+	return _VirtualDom_thunk([func, a, b, c], function() {
+		return A3(func, a, b, c);
+	});
+});
+
+var _VirtualDom_lazy4 = F5(function(func, a, b, c, d)
+{
+	return _VirtualDom_thunk([func, a, b, c, d], function() {
+		return A4(func, a, b, c, d);
+	});
+});
+
+var _VirtualDom_lazy5 = F6(function(func, a, b, c, d, e)
+{
+	return _VirtualDom_thunk([func, a, b, c, d, e], function() {
+		return A5(func, a, b, c, d, e);
+	});
+});
+
+var _VirtualDom_lazy6 = F7(function(func, a, b, c, d, e, f)
+{
+	return _VirtualDom_thunk([func, a, b, c, d, e, f], function() {
+		return A6(func, a, b, c, d, e, f);
+	});
+});
+
+var _VirtualDom_lazy7 = F8(function(func, a, b, c, d, e, f, g)
+{
+	return _VirtualDom_thunk([func, a, b, c, d, e, f, g], function() {
+		return A7(func, a, b, c, d, e, f, g);
+	});
+});
+
+var _VirtualDom_lazy8 = F9(function(func, a, b, c, d, e, f, g, h)
+{
+	return _VirtualDom_thunk([func, a, b, c, d, e, f, g, h], function() {
+		return A8(func, a, b, c, d, e, f, g, h);
+	});
+});
+
+
+
+// FACTS
+
+
+var _VirtualDom_on = F2(function(key, handler)
+{
+	return {
+		$: 'a0',
+		n: key,
+		o: handler
+	};
+});
+var _VirtualDom_style = F2(function(key, value)
+{
+	return {
+		$: 'a1',
+		n: key,
+		o: value
+	};
+});
+var _VirtualDom_property = F2(function(key, value)
+{
+	return {
+		$: 'a2',
+		n: key,
+		o: value
+	};
+});
+var _VirtualDom_attribute = F2(function(key, value)
+{
+	return {
+		$: 'a3',
+		n: key,
+		o: value
+	};
+});
+var _VirtualDom_attributeNS = F3(function(namespace, key, value)
+{
+	return {
+		$: 'a4',
+		n: key,
+		o: { f: namespace, o: value }
+	};
+});
+
+
+
+// XSS ATTACK VECTOR CHECKS
+
+
+function _VirtualDom_noScript(tag)
+{
+	return tag == 'script' ? 'p' : tag;
+}
+
+function _VirtualDom_noOnOrFormAction(key)
+{
+	return /^(on|formAction$)/i.test(key) ? 'data-' + key : key;
+}
+
+function _VirtualDom_noInnerHtmlOrFormAction(key)
+{
+	return key == 'innerHTML' || key == 'formAction' ? 'data-' + key : key;
+}
+
+function _VirtualDom_noJavaScriptUri_UNUSED(value)
+{
+	return /^javascript:/i.test(value.replace(/\s/g,'')) ? '' : value;
+}
+
+function _VirtualDom_noJavaScriptUri(value)
+{
+	return /^javascript:/i.test(value.replace(/\s/g,''))
+		? 'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'
+		: value;
+}
+
+function _VirtualDom_noJavaScriptOrHtmlUri_UNUSED(value)
+{
+	return /^\s*(javascript:|data:text\/html)/i.test(value) ? '' : value;
+}
+
+function _VirtualDom_noJavaScriptOrHtmlUri(value)
+{
+	return /^\s*(javascript:|data:text\/html)/i.test(value)
+		? 'javascript:alert("This is an XSS vector. Please use ports or web components instead.")'
+		: value;
+}
+
+
+
+// MAP FACTS
+
+
+var _VirtualDom_mapAttribute = F2(function(func, attr)
+{
+	return (attr.$ === 'a0')
+		? A2(_VirtualDom_on, attr.n, _VirtualDom_mapHandler(func, attr.o))
+		: attr;
+});
+
+function _VirtualDom_mapHandler(func, handler)
+{
+	var tag = elm$virtual_dom$VirtualDom$toHandlerInt(handler);
+
+	// 0 = Normal
+	// 1 = MayStopPropagation
+	// 2 = MayPreventDefault
+	// 3 = Custom
+
+	return {
+		$: handler.$,
+		a:
+			!tag
+				? A2(elm$json$Json$Decode$map, func, handler.a)
+				:
+			A3(elm$json$Json$Decode$map2,
+				tag < 3
+					? _VirtualDom_mapEventTuple
+					: _VirtualDom_mapEventRecord,
+				elm$json$Json$Decode$succeed(func),
+				handler.a
+			)
+	};
+}
+
+var _VirtualDom_mapEventTuple = F2(function(func, tuple)
+{
+	return _Utils_Tuple2(func(tuple.a), tuple.b);
+});
+
+var _VirtualDom_mapEventRecord = F2(function(func, record)
+{
+	return {
+		message: func(record.message),
+		stopPropagation: record.stopPropagation,
+		preventDefault: record.preventDefault
+	}
+});
+
+
+
+// ORGANIZE FACTS
+
+
+function _VirtualDom_organizeFacts(factList)
+{
+	for (var facts = {}; factList.b; factList = factList.b) // WHILE_CONS
+	{
+		var entry = factList.a;
+
+		var tag = entry.$;
+		var key = entry.n;
+		var value = entry.o;
+
+		if (tag === 'a2')
+		{
+			(key === 'className')
+				? _VirtualDom_addClass(facts, key, _Json_unwrap(value))
+				: facts[key] = _Json_unwrap(value);
+
+			continue;
+		}
+
+		var subFacts = facts[tag] || (facts[tag] = {});
+		(tag === 'a3' && key === 'class')
+			? _VirtualDom_addClass(subFacts, key, value)
+			: subFacts[key] = value;
+	}
+
+	return facts;
+}
+
+function _VirtualDom_addClass(object, key, newClass)
+{
+	var classes = object[key];
+	object[key] = classes ? classes + ' ' + newClass : newClass;
+}
+
+
+
+// RENDER
+
+
+function _VirtualDom_render(vNode, eventNode)
+{
+	var tag = vNode.$;
+
+	if (tag === 5)
+	{
+		return _VirtualDom_render(vNode.k || (vNode.k = vNode.m()), eventNode);
+	}
+
+	if (tag === 0)
+	{
+		return _VirtualDom_doc.createTextNode(vNode.a);
+	}
+
+	if (tag === 4)
+	{
+		var subNode = vNode.k;
+		var tagger = vNode.j;
+
+		while (subNode.$ === 4)
+		{
+			typeof tagger !== 'object'
+				? tagger = [tagger, subNode.j]
+				: tagger.push(subNode.j);
+
+			subNode = subNode.k;
+		}
+
+		var subEventRoot = { j: tagger, p: eventNode };
+		var domNode = _VirtualDom_render(subNode, subEventRoot);
+		domNode.elm_event_node_ref = subEventRoot;
+		return domNode;
+	}
+
+	if (tag === 3)
+	{
+		var domNode = vNode.h(vNode.g);
+		_VirtualDom_applyFacts(domNode, eventNode, vNode.d);
+		return domNode;
+	}
+
+	// at this point `tag` must be 1 or 2
+
+	var domNode = vNode.f
+		? _VirtualDom_doc.createElementNS(vNode.f, vNode.c)
+		: _VirtualDom_doc.createElement(vNode.c);
+
+	if (_VirtualDom_divertHrefToApp && vNode.c == 'a')
+	{
+		domNode.addEventListener('click', _VirtualDom_divertHrefToApp(domNode));
+	}
+
+	_VirtualDom_applyFacts(domNode, eventNode, vNode.d);
+
+	for (var kids = vNode.e, i = 0; i < kids.length; i++)
+	{
+		_VirtualDom_appendChild(domNode, _VirtualDom_render(tag === 1 ? kids[i] : kids[i].b, eventNode));
+	}
+
+	return domNode;
+}
+
+
+
+// APPLY FACTS
+
+
+function _VirtualDom_applyFacts(domNode, eventNode, facts)
+{
+	for (var key in facts)
+	{
+		var value = facts[key];
+
+		key === 'a1'
+			? _VirtualDom_applyStyles(domNode, value)
+			:
+		key === 'a0'
+			? _VirtualDom_applyEvents(domNode, eventNode, value)
+			:
+		key === 'a3'
+			? _VirtualDom_applyAttrs(domNode, value)
+			:
+		key === 'a4'
+			? _VirtualDom_applyAttrsNS(domNode, value)
+			:
+		(key !== 'value' || key !== 'checked' || domNode[key] !== value) && (domNode[key] = value);
+	}
+}
+
+
+
+// APPLY STYLES
+
+
+function _VirtualDom_applyStyles(domNode, styles)
+{
+	var domNodeStyle = domNode.style;
+
+	for (var key in styles)
+	{
+		domNodeStyle[key] = styles[key];
+	}
+}
+
+
+
+// APPLY ATTRS
+
+
+function _VirtualDom_applyAttrs(domNode, attrs)
+{
+	for (var key in attrs)
+	{
+		var value = attrs[key];
+		value
+			? domNode.setAttribute(key, value)
+			: domNode.removeAttribute(key);
+	}
+}
+
+
+
+// APPLY NAMESPACED ATTRS
+
+
+function _VirtualDom_applyAttrsNS(domNode, nsAttrs)
+{
+	for (var key in nsAttrs)
+	{
+		var pair = nsAttrs[key];
+		var namespace = pair.f;
+		var value = pair.o;
+
+		value
+			? domNode.setAttributeNS(namespace, key, value)
+			: domNode.removeAttributeNS(namespace, key);
+	}
+}
+
+
+
+// APPLY EVENTS
+
+
+function _VirtualDom_applyEvents(domNode, eventNode, events)
+{
+	var allCallbacks = domNode.elmFs || (domNode.elmFs = {});
+
+	for (var key in events)
+	{
+		var newHandler = events[key];
+		var oldCallback = allCallbacks[key];
+
+		if (!newHandler)
+		{
+			domNode.removeEventListener(key, oldCallback);
+			allCallbacks[key] = undefined;
+			continue;
+		}
+
+		if (oldCallback)
+		{
+			var oldHandler = oldCallback.q;
+			if (oldHandler.$ === newHandler.$)
+			{
+				oldCallback.q = newHandler;
+				continue;
+			}
+			domNode.removeEventListener(key, oldCallback);
+		}
+
+		oldCallback = _VirtualDom_makeCallback(eventNode, newHandler);
+		domNode.addEventListener(key, oldCallback,
+			_VirtualDom_passiveSupported
+			&& { passive: elm$virtual_dom$VirtualDom$toHandlerInt(newHandler) < 2 }
+		);
+		allCallbacks[key] = oldCallback;
+	}
+}
+
+
+
+// PASSIVE EVENTS
+
+
+var _VirtualDom_passiveSupported;
+
+try
+{
+	window.addEventListener('t', null, Object.defineProperty({}, 'passive', {
+		get: function() { _VirtualDom_passiveSupported = true; }
+	}));
+}
+catch(e) {}
+
+
+
+// EVENT HANDLERS
+
+
+function _VirtualDom_makeCallback(eventNode, initialHandler)
+{
+	function callback(event)
+	{
+		var handler = callback.q;
+		var result = _Json_runHelp(handler.a, event);
+
+		if (!elm$core$Result$isOk(result))
+		{
+			return;
+		}
+
+		var tag = elm$virtual_dom$VirtualDom$toHandlerInt(handler);
+
+		// 0 = Normal
+		// 1 = MayStopPropagation
+		// 2 = MayPreventDefault
+		// 3 = Custom
+
+		var value = result.a;
+		var message = !tag ? value : tag < 3 ? value.a : value.message;
+		var stopPropagation = tag == 1 ? value.b : tag == 3 && value.stopPropagation;
+		var currentEventNode = (
+			stopPropagation && event.stopPropagation(),
+			(tag == 2 ? value.b : tag == 3 && value.preventDefault) && event.preventDefault(),
+			eventNode
+		);
+		var tagger;
+		var i;
+		while (tagger = currentEventNode.j)
+		{
+			if (typeof tagger == 'function')
+			{
+				message = tagger(message);
+			}
+			else
+			{
+				for (var i = tagger.length; i--; )
+				{
+					message = tagger[i](message);
+				}
+			}
+			currentEventNode = currentEventNode.p;
+		}
+		currentEventNode(message, stopPropagation); // stopPropagation implies isSync
+	}
+
+	callback.q = initialHandler;
+
+	return callback;
+}
+
+function _VirtualDom_equalEvents(x, y)
+{
+	return x.$ == y.$ && _Json_equality(x.a, y.a);
+}
+
+
+
+// DIFF
+
+
+// TODO: Should we do patches like in iOS?
+//
+// type Patch
+//   = At Int Patch
+//   | Batch (List Patch)
+//   | Change ...
+//
+// How could it not be better?
+//
+function _VirtualDom_diff(x, y)
+{
+	var patches = [];
+	_VirtualDom_diffHelp(x, y, patches, 0);
+	return patches;
+}
+
+
+function _VirtualDom_pushPatch(patches, type, index, data)
+{
+	var patch = {
+		$: type,
+		r: index,
+		s: data,
+		t: undefined,
+		u: undefined
+	};
+	patches.push(patch);
+	return patch;
+}
+
+
+function _VirtualDom_diffHelp(x, y, patches, index)
+{
+	if (x === y)
+	{
+		return;
+	}
+
+	var xType = x.$;
+	var yType = y.$;
+
+	// Bail if you run into different types of nodes. Implies that the
+	// structure has changed significantly and it's not worth a diff.
+	if (xType !== yType)
+	{
+		if (xType === 1 && yType === 2)
+		{
+			y = _VirtualDom_dekey(y);
+			yType = 1;
+		}
+		else
+		{
+			_VirtualDom_pushPatch(patches, 0, index, y);
+			return;
+		}
+	}
+
+	// Now we know that both nodes are the same $.
+	switch (yType)
+	{
+		case 5:
+			var xRefs = x.l;
+			var yRefs = y.l;
+			var i = xRefs.length;
+			var same = i === yRefs.length;
+			while (same && i--)
+			{
+				same = xRefs[i] === yRefs[i];
+			}
+			if (same)
+			{
+				y.k = x.k;
+				return;
+			}
+			y.k = y.m();
+			var subPatches = [];
+			_VirtualDom_diffHelp(x.k, y.k, subPatches, 0);
+			subPatches.length > 0 && _VirtualDom_pushPatch(patches, 1, index, subPatches);
+			return;
+
+		case 4:
+			// gather nested taggers
+			var xTaggers = x.j;
+			var yTaggers = y.j;
+			var nesting = false;
+
+			var xSubNode = x.k;
+			while (xSubNode.$ === 4)
+			{
+				nesting = true;
+
+				typeof xTaggers !== 'object'
+					? xTaggers = [xTaggers, xSubNode.j]
+					: xTaggers.push(xSubNode.j);
+
+				xSubNode = xSubNode.k;
+			}
+
+			var ySubNode = y.k;
+			while (ySubNode.$ === 4)
+			{
+				nesting = true;
+
+				typeof yTaggers !== 'object'
+					? yTaggers = [yTaggers, ySubNode.j]
+					: yTaggers.push(ySubNode.j);
+
+				ySubNode = ySubNode.k;
+			}
+
+			// Just bail if different numbers of taggers. This implies the
+			// structure of the virtual DOM has changed.
+			if (nesting && xTaggers.length !== yTaggers.length)
+			{
+				_VirtualDom_pushPatch(patches, 0, index, y);
+				return;
+			}
+
+			// check if taggers are "the same"
+			if (nesting ? !_VirtualDom_pairwiseRefEqual(xTaggers, yTaggers) : xTaggers !== yTaggers)
+			{
+				_VirtualDom_pushPatch(patches, 2, index, yTaggers);
+			}
+
+			// diff everything below the taggers
+			_VirtualDom_diffHelp(xSubNode, ySubNode, patches, index + 1);
+			return;
+
+		case 0:
+			if (x.a !== y.a)
+			{
+				_VirtualDom_pushPatch(patches, 3, index, y.a);
+			}
+			return;
+
+		case 1:
+			_VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKids);
+			return;
+
+		case 2:
+			_VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKeyedKids);
+			return;
+
+		case 3:
+			if (x.h !== y.h)
+			{
+				_VirtualDom_pushPatch(patches, 0, index, y);
+				return;
+			}
+
+			var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
+			factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
+
+			var patch = y.i(x.g, y.g);
+			patch && _VirtualDom_pushPatch(patches, 5, index, patch);
+
+			return;
+	}
+}
+
+// assumes the incoming arrays are the same length
+function _VirtualDom_pairwiseRefEqual(as, bs)
+{
+	for (var i = 0; i < as.length; i++)
+	{
+		if (as[i] !== bs[i])
+		{
+			return false;
+		}
+	}
+
+	return true;
+}
+
+function _VirtualDom_diffNodes(x, y, patches, index, diffKids)
+{
+	// Bail if obvious indicators have changed. Implies more serious
+	// structural changes such that it's not worth it to diff.
+	if (x.c !== y.c || x.f !== y.f)
+	{
+		_VirtualDom_pushPatch(patches, 0, index, y);
+		return;
+	}
+
+	var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
+	factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
+
+	diffKids(x, y, patches, index);
+}
+
+
+
+// DIFF FACTS
+
+
+// TODO Instead of creating a new diff object, it's possible to just test if
+// there *is* a diff. During the actual patch, do the diff again and make the
+// modifications directly. This way, there's no new allocations. Worth it?
+function _VirtualDom_diffFacts(x, y, category)
+{
+	var diff;
+
+	// look for changes and removals
+	for (var xKey in x)
+	{
+		if (xKey === 'a1' || xKey === 'a0' || xKey === 'a3' || xKey === 'a4')
+		{
+			var subDiff = _VirtualDom_diffFacts(x[xKey], y[xKey] || {}, xKey);
+			if (subDiff)
+			{
+				diff = diff || {};
+				diff[xKey] = subDiff;
+			}
+			continue;
+		}
+
+		// remove if not in the new facts
+		if (!(xKey in y))
+		{
+			diff = diff || {};
+			diff[xKey] =
+				!category
+					? (typeof x[xKey] === 'string' ? '' : null)
+					:
+				(category === 'a1')
+					? ''
+					:
+				(category === 'a0' || category === 'a3')
+					? undefined
+					:
+				{ f: x[xKey].f, o: undefined };
+
+			continue;
+		}
+
+		var xValue = x[xKey];
+		var yValue = y[xKey];
+
+		// reference equal, so don't worry about it
+		if (xValue === yValue && xKey !== 'value' && xKey !== 'checked'
+			|| category === 'a0' && _VirtualDom_equalEvents(xValue, yValue))
+		{
+			continue;
+		}
+
+		diff = diff || {};
+		diff[xKey] = yValue;
+	}
+
+	// add new stuff
+	for (var yKey in y)
+	{
+		if (!(yKey in x))
+		{
+			diff = diff || {};
+			diff[yKey] = y[yKey];
+		}
+	}
+
+	return diff;
+}
+
+
+
+// DIFF KIDS
+
+
+function _VirtualDom_diffKids(xParent, yParent, patches, index)
+{
+	var xKids = xParent.e;
+	var yKids = yParent.e;
+
+	var xLen = xKids.length;
+	var yLen = yKids.length;
+
+	// FIGURE OUT IF THERE ARE INSERTS OR REMOVALS
+
+	if (xLen > yLen)
+	{
+		_VirtualDom_pushPatch(patches, 6, index, {
+			v: yLen,
+			i: xLen - yLen
+		});
+	}
+	else if (xLen < yLen)
+	{
+		_VirtualDom_pushPatch(patches, 7, index, {
+			v: xLen,
+			e: yKids
+		});
+	}
+
+	// PAIRWISE DIFF EVERYTHING ELSE
+
+	for (var minLen = xLen < yLen ? xLen : yLen, i = 0; i < minLen; i++)
+	{
+		var xKid = xKids[i];
+		_VirtualDom_diffHelp(xKid, yKids[i], patches, ++index);
+		index += xKid.b || 0;
+	}
+}
+
+
+
+// KEYED DIFF
+
+
+function _VirtualDom_diffKeyedKids(xParent, yParent, patches, rootIndex)
+{
+	var localPatches = [];
+
+	var changes = {}; // Dict String Entry
+	var inserts = []; // Array { index : Int, entry : Entry }
+	// type Entry = { tag : String, vnode : VNode, index : Int, data : _ }
+
+	var xKids = xParent.e;
+	var yKids = yParent.e;
+	var xLen = xKids.length;
+	var yLen = yKids.length;
+	var xIndex = 0;
+	var yIndex = 0;
+
+	var index = rootIndex;
+
+	while (xIndex < xLen && yIndex < yLen)
+	{
+		var x = xKids[xIndex];
+		var y = yKids[yIndex];
+
+		var xKey = x.a;
+		var yKey = y.a;
+		var xNode = x.b;
+		var yNode = y.b;
+
+		// check if keys match
+
+		if (xKey === yKey)
+		{
+			index++;
+			_VirtualDom_diffHelp(xNode, yNode, localPatches, index);
+			index += xNode.b || 0;
+
+			xIndex++;
+			yIndex++;
+			continue;
+		}
+
+		// look ahead 1 to detect insertions and removals.
+
+		var xNext = xKids[xIndex + 1];
+		var yNext = yKids[yIndex + 1];
+
+		if (xNext)
+		{
+			var xNextKey = xNext.a;
+			var xNextNode = xNext.b;
+			var oldMatch = yKey === xNextKey;
+		}
+
+		if (yNext)
+		{
+			var yNextKey = yNext.a;
+			var yNextNode = yNext.b;
+			var newMatch = xKey === yNextKey;
+		}
+
+
+		// swap x and y
+		if (newMatch && oldMatch)
+		{
+			index++;
+			_VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
+			_VirtualDom_insertNode(changes, localPatches, xKey, yNode, yIndex, inserts);
+			index += xNode.b || 0;
+
+			index++;
+			_VirtualDom_removeNode(changes, localPatches, xKey, xNextNode, index);
+			index += xNextNode.b || 0;
+
+			xIndex += 2;
+			yIndex += 2;
+			continue;
+		}
+
+		// insert y
+		if (newMatch)
+		{
+			index++;
+			_VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
+			_VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
+			index += xNode.b || 0;
+
+			xIndex += 1;
+			yIndex += 2;
+			continue;
+		}
+
+		// remove x
+		if (oldMatch)
+		{
+			index++;
+			_VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
+			index += xNode.b || 0;
+
+			index++;
+			_VirtualDom_diffHelp(xNextNode, yNode, localPatches, index);
+			index += xNextNode.b || 0;
+
+			xIndex += 2;
+			yIndex += 1;
+			continue;
+		}
+
+		// remove x, insert y
+		if (xNext && xNextKey === yNextKey)
+		{
+			index++;
+			_VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
+			_VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
+			index += xNode.b || 0;
+
+			index++;
+			_VirtualDom_diffHelp(xNextNode, yNextNode, localPatches, index);
+			index += xNextNode.b || 0;
+
+			xIndex += 2;
+			yIndex += 2;
+			continue;
+		}
+
+		break;
+	}
+
+	// eat up any remaining nodes with removeNode and insertNode
+
+	while (xIndex < xLen)
+	{
+		index++;
+		var x = xKids[xIndex];
+		var xNode = x.b;
+		_VirtualDom_removeNode(changes, localPatches, x.a, xNode, index);
+		index += xNode.b || 0;
+		xIndex++;
+	}
+
+	while (yIndex < yLen)
+	{
+		var endInserts = endInserts || [];
+		var y = yKids[yIndex];
+		_VirtualDom_insertNode(changes, localPatches, y.a, y.b, undefined, endInserts);
+		yIndex++;
+	}
+
+	if (localPatches.length > 0 || inserts.length > 0 || endInserts)
+	{
+		_VirtualDom_pushPatch(patches, 8, rootIndex, {
+			w: localPatches,
+			x: inserts,
+			y: endInserts
+		});
+	}
+}
+
+
+
+// CHANGES FROM KEYED DIFF
+
+
+var _VirtualDom_POSTFIX = '_elmW6BL';
+
+
+function _VirtualDom_insertNode(changes, localPatches, key, vnode, yIndex, inserts)
+{
+	var entry = changes[key];
+
+	// never seen this key before
+	if (!entry)
+	{
+		entry = {
+			c: 0,
+			z: vnode,
+			r: yIndex,
+			s: undefined
+		};
+
+		inserts.push({ r: yIndex, A: entry });
+		changes[key] = entry;
+
+		return;
+	}
+
+	// this key was removed earlier, a match!
+	if (entry.c === 1)
+	{
+		inserts.push({ r: yIndex, A: entry });
+
+		entry.c = 2;
+		var subPatches = [];
+		_VirtualDom_diffHelp(entry.z, vnode, subPatches, entry.r);
+		entry.r = yIndex;
+		entry.s.s = {
+			w: subPatches,
+			A: entry
+		};
+
+		return;
+	}
+
+	// this key has already been inserted or moved, a duplicate!
+	_VirtualDom_insertNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, yIndex, inserts);
+}
+
+
+function _VirtualDom_removeNode(changes, localPatches, key, vnode, index)
+{
+	var entry = changes[key];
+
+	// never seen this key before
+	if (!entry)
+	{
+		var patch = _VirtualDom_pushPatch(localPatches, 9, index, undefined);
+
+		changes[key] = {
+			c: 1,
+			z: vnode,
+			r: index,
+			s: patch
+		};
+
+		return;
+	}
+
+	// this key was inserted earlier, a match!
+	if (entry.c === 0)
+	{
+		entry.c = 2;
+		var subPatches = [];
+		_VirtualDom_diffHelp(vnode, entry.z, subPatches, index);
+
+		_VirtualDom_pushPatch(localPatches, 9, index, {
+			w: subPatches,
+			A: entry
+		});
+
+		return;
+	}
+
+	// this key has already been removed or moved, a duplicate!
+	_VirtualDom_removeNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, index);
+}
+
+
+
+// ADD DOM NODES
+//
+// Each DOM node has an "index" assigned in order of traversal. It is important
+// to minimize our crawl over the actual DOM, so these indexes (along with the
+// descendantsCount of virtual nodes) let us skip touching entire subtrees of
+// the DOM if we know there are no patches there.
+
+
+function _VirtualDom_addDomNodes(domNode, vNode, patches, eventNode)
+{
+	_VirtualDom_addDomNodesHelp(domNode, vNode, patches, 0, 0, vNode.b, eventNode);
+}
+
+
+// assumes `patches` is non-empty and indexes increase monotonically.
+function _VirtualDom_addDomNodesHelp(domNode, vNode, patches, i, low, high, eventNode)
+{
+	var patch = patches[i];
+	var index = patch.r;
+
+	while (index === low)
+	{
+		var patchType = patch.$;
+
+		if (patchType === 1)
+		{
+			_VirtualDom_addDomNodes(domNode, vNode.k, patch.s, eventNode);
+		}
+		else if (patchType === 8)
+		{
+			patch.t = domNode;
+			patch.u = eventNode;
+
+			var subPatches = patch.s.w;
+			if (subPatches.length > 0)
+			{
+				_VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
+			}
+		}
+		else if (patchType === 9)
+		{
+			patch.t = domNode;
+			patch.u = eventNode;
+
+			var data = patch.s;
+			if (data)
+			{
+				data.A.s = domNode;
+				var subPatches = data.w;
+				if (subPatches.length > 0)
+				{
+					_VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
+				}
+			}
+		}
+		else
+		{
+			patch.t = domNode;
+			patch.u = eventNode;
+		}
+
+		i++;
+
+		if (!(patch = patches[i]) || (index = patch.r) > high)
+		{
+			return i;
+		}
+	}
+
+	var tag = vNode.$;
+
+	if (tag === 4)
+	{
+		var subNode = vNode.k;
+
+		while (subNode.$ === 4)
+		{
+			subNode = subNode.k;
+		}
+
+		return _VirtualDom_addDomNodesHelp(domNode, subNode, patches, i, low + 1, high, domNode.elm_event_node_ref);
+	}
+
+	// tag must be 1 or 2 at this point
+
+	var vKids = vNode.e;
+	var childNodes = domNode.childNodes;
+	for (var j = 0; j < vKids.length; j++)
+	{
+		low++;
+		var vKid = tag === 1 ? vKids[j] : vKids[j].b;
+		var nextLow = low + (vKid.b || 0);
+		if (low <= index && index <= nextLow)
+		{
+			i = _VirtualDom_addDomNodesHelp(childNodes[j], vKid, patches, i, low, nextLow, eventNode);
+			if (!(patch = patches[i]) || (index = patch.r) > high)
+			{
+				return i;
+			}
+		}
+		low = nextLow;
+	}
+	return i;
+}
+
+
+
+// APPLY PATCHES
+
+
+function _VirtualDom_applyPatches(rootDomNode, oldVirtualNode, patches, eventNode)
+{
+	if (patches.length === 0)
+	{
+		return rootDomNode;
+	}
+
+	_VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
+	return _VirtualDom_applyPatchesHelp(rootDomNode, patches);
+}
+
+function _VirtualDom_applyPatchesHelp(rootDomNode, patches)
+{
+	for (var i = 0; i < patches.length; i++)
+	{
+		var patch = patches[i];
+		var localDomNode = patch.t
+		var newNode = _VirtualDom_applyPatch(localDomNode, patch);
+		if (localDomNode === rootDomNode)
+		{
+			rootDomNode = newNode;
+		}
+	}
+	return rootDomNode;
+}
+
+function _VirtualDom_applyPatch(domNode, patch)
+{
+	switch (patch.$)
+	{
+		case 0:
+			return _VirtualDom_applyPatchRedraw(domNode, patch.s, patch.u);
+
+		case 4:
+			_VirtualDom_applyFacts(domNode, patch.u, patch.s);
+			return domNode;
+
+		case 3:
+			domNode.replaceData(0, domNode.length, patch.s);
+			return domNode;
+
+		case 1:
+			return _VirtualDom_applyPatchesHelp(domNode, patch.s);
+
+		case 2:
+			if (domNode.elm_event_node_ref)
+			{
+				domNode.elm_event_node_ref.j = patch.s;
+			}
+			else
+			{
+				domNode.elm_event_node_ref = { j: patch.s, p: patch.u };
+			}
+			return domNode;
+
+		case 6:
+			var data = patch.s;
+			for (var i = 0; i < data.i; i++)
+			{
+				domNode.removeChild(domNode.childNodes[data.v]);
+			}
+			return domNode;
+
+		case 7:
+			var data = patch.s;
+			var kids = data.e;
+			var i = data.v;
+			var theEnd = domNode.childNodes[i];
+			for (; i < kids.length; i++)
+			{
+				domNode.insertBefore(_VirtualDom_render(kids[i], patch.u), theEnd);
+			}
+			return domNode;
+
+		case 9:
+			var data = patch.s;
+			if (!data)
+			{
+				domNode.parentNode.removeChild(domNode);
+				return domNode;
+			}
+			var entry = data.A;
+			if (typeof entry.r !== 'undefined')
+			{
+				domNode.parentNode.removeChild(domNode);
+			}
+			entry.s = _VirtualDom_applyPatchesHelp(domNode, data.w);
+			return domNode;
+
+		case 8:
+			return _VirtualDom_applyPatchReorder(domNode, patch);
+
+		case 5:
+			return patch.s(domNode);
+
+		default:
+			_Debug_crash(10); // 'Ran into an unknown patch!'
+	}
+}
+
+
+function _VirtualDom_applyPatchRedraw(domNode, vNode, eventNode)
+{
+	var parentNode = domNode.parentNode;
+	var newNode = _VirtualDom_render(vNode, eventNode);
+
+	if (!newNode.elm_event_node_ref)
+	{
+		newNode.elm_event_node_ref = domNode.elm_event_node_ref;
+	}
+
+	if (parentNode && newNode !== domNode)
+	{
+		parentNode.replaceChild(newNode, domNode);
+	}
+	return newNode;
+}
+
+
+function _VirtualDom_applyPatchReorder(domNode, patch)
+{
+	var data = patch.s;
+
+	// remove end inserts
+	var frag = _VirtualDom_applyPatchReorderEndInsertsHelp(data.y, patch);
+
+	// removals
+	domNode = _VirtualDom_applyPatchesHelp(domNode, data.w);
+
+	// inserts
+	var inserts = data.x;
+	for (var i = 0; i < inserts.length; i++)
+	{
+		var insert = inserts[i];
+		var entry = insert.A;
+		var node = entry.c === 2
+			? entry.s
+			: _VirtualDom_render(entry.z, patch.u);
+		domNode.insertBefore(node, domNode.childNodes[insert.r]);
+	}
+
+	// add end inserts
+	if (frag)
+	{
+		_VirtualDom_appendChild(domNode, frag);
+	}
+
+	return domNode;
+}
+
+
+function _VirtualDom_applyPatchReorderEndInsertsHelp(endInserts, patch)
+{
+	if (!endInserts)
+	{
+		return;
+	}
+
+	var frag = _VirtualDom_doc.createDocumentFragment();
+	for (var i = 0; i < endInserts.length; i++)
+	{
+		var insert = endInserts[i];
+		var entry = insert.A;
+		_VirtualDom_appendChild(frag, entry.c === 2
+			? entry.s
+			: _VirtualDom_render(entry.z, patch.u)
+		);
+	}
+	return frag;
+}
+
+
+function _VirtualDom_virtualize(node)
+{
+	// TEXT NODES
+
+	if (node.nodeType === 3)
+	{
+		return _VirtualDom_text(node.textContent);
+	}
+
+
+	// WEIRD NODES
+
+	if (node.nodeType !== 1)
+	{
+		return _VirtualDom_text('');
+	}
+
+
+	// ELEMENT NODES
+
+	var attrList = _List_Nil;
+	var attrs = node.attributes;
+	for (var i = attrs.length; i--; )
+	{
+		var attr = attrs[i];
+		var name = attr.name;
+		var value = attr.value;
+		attrList = _List_Cons( A2(_VirtualDom_attribute, name, value), attrList );
+	}
+
+	var tag = node.tagName.toLowerCase();
+	var kidList = _List_Nil;
+	var kids = node.childNodes;
+
+	for (var i = kids.length; i--; )
+	{
+		kidList = _List_Cons(_VirtualDom_virtualize(kids[i]), kidList);
+	}
+	return A3(_VirtualDom_node, tag, attrList, kidList);
+}
+
+function _VirtualDom_dekey(keyedNode)
+{
+	var keyedKids = keyedNode.e;
+	var len = keyedKids.length;
+	var kids = new Array(len);
+	for (var i = 0; i < len; i++)
+	{
+		kids[i] = keyedKids[i].b;
+	}
+
+	return {
+		$: 1,
+		c: keyedNode.c,
+		d: keyedNode.d,
+		e: kids,
+		f: keyedNode.f,
+		b: keyedNode.b
+	};
+}
+
+
+
+// ELEMENT
+
+
+var _Debugger_element;
+
+var _Browser_element = _Debugger_element || F4(function(impl, flagDecoder, debugMetadata, args)
+{
+	return _Platform_initialize(
+		flagDecoder,
+		args,
+		impl.init,
+		impl.update,
+		impl.subscriptions,
+		function(sendToApp, initialModel) {
+			var view = impl.view;
+			/**_UNUSED/
+			var domNode = args['node'];
+			//*/
+			/**/
+			var domNode = args && args['node'] ? args['node'] : _Debug_crash(0);
+			//*/
+			var currNode = _VirtualDom_virtualize(domNode);
+
+			return _Browser_makeAnimator(initialModel, function(model)
+			{
+				var nextNode = view(model);
+				var patches = _VirtualDom_diff(currNode, nextNode);
+				domNode = _VirtualDom_applyPatches(domNode, currNode, patches, sendToApp);
+				currNode = nextNode;
+			});
+		}
+	);
+});
+
+
+
+// DOCUMENT
+
+
+var _Debugger_document;
+
+var _Browser_document = _Debugger_document || F4(function(impl, flagDecoder, debugMetadata, args)
+{
+	return _Platform_initialize(
+		flagDecoder,
+		args,
+		impl.init,
+		impl.update,
+		impl.subscriptions,
+		function(sendToApp, initialModel) {
+			var divertHrefToApp = impl.setup && impl.setup(sendToApp)
+			var view = impl.view;
+			var title = _VirtualDom_doc.title;
+			var bodyNode = _VirtualDom_doc.body;
+			var currNode = _VirtualDom_virtualize(bodyNode);
+			return _Browser_makeAnimator(initialModel, function(model)
+			{
+				_VirtualDom_divertHrefToApp = divertHrefToApp;
+				var doc = view(model);
+				var nextNode = _VirtualDom_node('body')(_List_Nil)(doc.body);
+				var patches = _VirtualDom_diff(currNode, nextNode);
+				bodyNode = _VirtualDom_applyPatches(bodyNode, currNode, patches, sendToApp);
+				currNode = nextNode;
+				_VirtualDom_divertHrefToApp = 0;
+				(title !== doc.title) && (_VirtualDom_doc.title = title = doc.title);
+			});
+		}
+	);
+});
+
+
+
+// ANIMATION
+
+
+var _Browser_requestAnimationFrame =
+	typeof requestAnimationFrame !== 'undefined'
+		? requestAnimationFrame
+		: function(callback) { setTimeout(callback, 1000 / 60); };
+
+
+function _Browser_makeAnimator(model, draw)
+{
+	draw(model);
+
+	var state = 0;
+
+	function updateIfNeeded()
+	{
+		state = state === 1
+			? 0
+			: ( _Browser_requestAnimationFrame(updateIfNeeded), draw(model), 1 );
+	}
+
+	return function(nextModel, isSync)
+	{
+		model = nextModel;
+
+		isSync
+			? ( draw(model),
+				state === 2 && (state = 1)
+				)
+			: ( state === 0 && _Browser_requestAnimationFrame(updateIfNeeded),
+				state = 2
+				);
+	};
+}
+
+
+
+// APPLICATION
+
+
+function _Browser_application(impl)
+{
+	var onUrlChange = impl.onUrlChange;
+	var onUrlRequest = impl.onUrlRequest;
+	var key = function() { key.a(onUrlChange(_Browser_getUrl())); };
+
+	return _Browser_document({
+		setup: function(sendToApp)
+		{
+			key.a = sendToApp;
+			_Browser_window.addEventListener('popstate', key);
+			_Browser_window.navigator.userAgent.indexOf('Trident') < 0 || _Browser_window.addEventListener('hashchange', key);
+
+			return F2(function(domNode, event)
+			{
+				if (!event.ctrlKey && !event.metaKey && !event.shiftKey && event.button < 1 && !domNode.target && !domNode.download)
+				{
+					event.preventDefault();
+					var href = domNode.href;
+					var curr = _Browser_getUrl();
+					var next = elm$url$Url$fromString(href).a;
+					sendToApp(onUrlRequest(
+						(next
+							&& curr.protocol === next.protocol
+							&& curr.host === next.host
+							&& curr.port_.a === next.port_.a
+						)
+							? elm$browser$Browser$Internal(next)
+							: elm$browser$Browser$External(href)
+					));
+				}
+			});
+		},
+		init: function(flags)
+		{
+			return A3(impl.init, flags, _Browser_getUrl(), key);
+		},
+		view: impl.view,
+		update: impl.update,
+		subscriptions: impl.subscriptions
+	});
+}
+
+function _Browser_getUrl()
+{
+	return elm$url$Url$fromString(_VirtualDom_doc.location.href).a || _Debug_crash(1);
+}
+
+var _Browser_go = F2(function(key, n)
+{
+	return A2(elm$core$Task$perform, elm$core$Basics$never, _Scheduler_binding(function() {
+		n && history.go(n);
+		key();
+	}));
+});
+
+var _Browser_pushUrl = F2(function(key, url)
+{
+	return A2(elm$core$Task$perform, elm$core$Basics$never, _Scheduler_binding(function() {
+		history.pushState({}, '', url);
+		key();
+	}));
+});
+
+var _Browser_replaceUrl = F2(function(key, url)
+{
+	return A2(elm$core$Task$perform, elm$core$Basics$never, _Scheduler_binding(function() {
+		history.replaceState({}, '', url);
+		key();
+	}));
+});
+
+
+
+// GLOBAL EVENTS
+
+
+var _Browser_fakeNode = { addEventListener: function() {}, removeEventListener: function() {} };
+var _Browser_doc = typeof document !== 'undefined' ? document : _Browser_fakeNode;
+var _Browser_window = typeof window !== 'undefined' ? window : _Browser_fakeNode;
+
+var _Browser_on = F3(function(node, eventName, sendToSelf)
+{
+	return _Scheduler_spawn(_Scheduler_binding(function(callback)
+	{
+		function handler(event)	{ _Scheduler_rawSpawn(sendToSelf(event)); }
+		node.addEventListener(eventName, handler, _VirtualDom_passiveSupported && { passive: true });
+		return function() { node.removeEventListener(eventName, handler); };
+	}));
+});
+
+var _Browser_decodeEvent = F2(function(decoder, event)
+{
+	var result = _Json_runHelp(decoder, event);
+	return elm$core$Result$isOk(result) ? elm$core$Maybe$Just(result.a) : elm$core$Maybe$Nothing;
+});
+
+
+
+// PAGE VISIBILITY
+
+
+function _Browser_visibilityInfo()
+{
+	return (typeof _VirtualDom_doc.hidden !== 'undefined')
+		? { hidden: 'hidden', change: 'visibilitychange' }
+		:
+	(typeof _VirtualDom_doc.mozHidden !== 'undefined')
+		? { hidden: 'mozHidden', change: 'mozvisibilitychange' }
+		:
+	(typeof _VirtualDom_doc.msHidden !== 'undefined')
+		? { hidden: 'msHidden', change: 'msvisibilitychange' }
+		:
+	(typeof _VirtualDom_doc.webkitHidden !== 'undefined')
+		? { hidden: 'webkitHidden', change: 'webkitvisibilitychange' }
+		: { hidden: 'hidden', change: 'visibilitychange' };
+}
+
+
+
+// ANIMATION FRAMES
+
+
+function _Browser_rAF()
+{
+	return _Scheduler_binding(function(callback)
+	{
+		var id = requestAnimationFrame(function() {
+			callback(_Scheduler_succeed(Date.now()));
+		});
+
+		return function() {
+			cancelAnimationFrame(id);
+		};
+	});
+}
+
+
+function _Browser_now()
+{
+	return _Scheduler_binding(function(callback)
+	{
+		callback(_Scheduler_succeed(Date.now()));
+	});
+}
+
+
+
+// DOM STUFF
+
+
+function _Browser_withNode(id, doStuff)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		_Browser_requestAnimationFrame(function() {
+			var node = document.getElementById(id);
+			callback(node
+				? _Scheduler_succeed(doStuff(node))
+				: _Scheduler_fail(elm$browser$Browser$Dom$NotFound(id))
+			);
+		});
+	});
+}
+
+
+function _Browser_withWindow(doStuff)
+{
+	return _Scheduler_binding(function(callback)
+	{
+		_Browser_requestAnimationFrame(function() {
+			callback(_Scheduler_succeed(doStuff()));
+		});
+	});
+}
+
+
+// FOCUS and BLUR
+
+
+var _Browser_call = F2(function(functionName, id)
+{
+	return _Browser_withNode(id, function(node) {
+		node[functionName]();
+		return _Utils_Tuple0;
+	});
+});
+
+
+
+// WINDOW VIEWPORT
+
+
+function _Browser_getViewport()
+{
+	return {
+		scene: _Browser_getScene(),
+		viewport: {
+			x: _Browser_window.pageXOffset,
+			y: _Browser_window.pageYOffset,
+			width: _Browser_doc.documentElement.clientWidth,
+			height: _Browser_doc.documentElement.clientHeight
+		}
+	};
+}
+
+function _Browser_getScene()
+{
+	var body = _Browser_doc.body;
+	var elem = _Browser_doc.documentElement;
+	return {
+		width: Math.max(body.scrollWidth, body.offsetWidth, elem.scrollWidth, elem.offsetWidth, elem.clientWidth),
+		height: Math.max(body.scrollHeight, body.offsetHeight, elem.scrollHeight, elem.offsetHeight, elem.clientHeight)
+	};
+}
+
+var _Browser_setViewport = F2(function(x, y)
+{
+	return _Browser_withWindow(function()
+	{
+		_Browser_window.scroll(x, y);
+		return _Utils_Tuple0;
+	});
+});
+
+
+
+// ELEMENT VIEWPORT
+
+
+function _Browser_getViewportOf(id)
+{
+	return _Browser_withNode(id, function(node)
+	{
+		return {
+			scene: {
+				width: node.scrollWidth,
+				height: node.scrollHeight
+			},
+			viewport: {
+				x: node.scrollLeft,
+				y: node.scrollTop,
+				width: node.clientWidth,
+				height: node.clientHeight
+			}
+		};
+	});
+}
+
+
+var _Browser_setViewportOf = F3(function(id, x, y)
+{
+	return _Browser_withNode(id, function(node)
+	{
+		node.scrollLeft = x;
+		node.scrollTop = y;
+		return _Utils_Tuple0;
+	});
+});
+
+
+
+// ELEMENT
+
+
+function _Browser_getElement(id)
+{
+	return _Browser_withNode(id, function(node)
+	{
+		var rect = node.getBoundingClientRect();
+		var x = _Browser_window.pageXOffset;
+		var y = _Browser_window.pageYOffset;
+		return {
+			scene: _Browser_getScene(),
+			viewport: {
+				x: x,
+				y: y,
+				width: _Browser_doc.documentElement.clientWidth,
+				height: _Browser_doc.documentElement.clientHeight
+			},
+			element: {
+				x: x + rect.left,
+				y: y + rect.top,
+				width: rect.width,
+				height: rect.height
+			}
+		};
+	});
+}
+
+
+
+// LOAD and RELOAD
+
+
+function _Browser_reload(skipCache)
+{
+	return A2(elm$core$Task$perform, elm$core$Basics$never, _Scheduler_binding(function(callback)
+	{
+		_VirtualDom_doc.location.reload(skipCache);
+	}));
+}
+
+function _Browser_load(url)
+{
+	return A2(elm$core$Task$perform, elm$core$Basics$never, _Scheduler_binding(function(callback)
+	{
+		try
+		{
+			_Browser_window.location = url;
+		}
+		catch(err)
+		{
+			// Only Firefox can throw a NS_ERROR_MALFORMED_URI exception here.
+			// Other browsers reload the page, so let's be consistent about that.
+			_VirtualDom_doc.location.reload(false);
+		}
+	}));
+}
+var author$project$Snippets$FlightBooking = {$: 'FlightBooking'};
+var author$project$Demo$initialShowcase = author$project$Snippets$FlightBooking;
+var elm$core$Dict$RBEmpty_elm_builtin = {$: 'RBEmpty_elm_builtin'};
+var elm$core$Dict$empty = elm$core$Dict$RBEmpty_elm_builtin;
+var elm$core$Maybe$Nothing = {$: 'Nothing'};
+var elm$core$Basics$EQ = {$: 'EQ'};
+var elm$core$Basics$LT = {$: 'LT'};
+var elm$core$Elm$JsArray$foldr = _JsArray_foldr;
+var elm$core$Array$foldr = F3(
+	function (func, baseCase, _n0) {
+		var tree = _n0.c;
+		var tail = _n0.d;
+		var helper = F2(
+			function (node, acc) {
+				if (node.$ === 'SubTree') {
+					var subTree = node.a;
+					return A3(elm$core$Elm$JsArray$foldr, helper, acc, subTree);
+				} else {
+					var values = node.a;
+					return A3(elm$core$Elm$JsArray$foldr, func, acc, values);
+				}
+			});
+		return A3(
+			elm$core$Elm$JsArray$foldr,
+			helper,
+			A3(elm$core$Elm$JsArray$foldr, func, baseCase, tail),
+			tree);
+	});
+var elm$core$List$cons = _List_cons;
+var elm$core$Array$toList = function (array) {
+	return A3(elm$core$Array$foldr, elm$core$List$cons, _List_Nil, array);
+};
+var elm$core$Basics$GT = {$: 'GT'};
+var elm$core$Dict$foldr = F3(
+	function (func, acc, t) {
+		foldr:
+		while (true) {
+			if (t.$ === 'RBEmpty_elm_builtin') {
+				return acc;
+			} else {
+				var key = t.b;
+				var value = t.c;
+				var left = t.d;
+				var right = t.e;
+				var $temp$func = func,
+					$temp$acc = A3(
+					func,
+					key,
+					value,
+					A3(elm$core$Dict$foldr, func, acc, right)),
+					$temp$t = left;
+				func = $temp$func;
+				acc = $temp$acc;
+				t = $temp$t;
+				continue foldr;
+			}
+		}
+	});
+var elm$core$Dict$toList = function (dict) {
+	return A3(
+		elm$core$Dict$foldr,
+		F3(
+			function (key, value, list) {
+				return A2(
+					elm$core$List$cons,
+					_Utils_Tuple2(key, value),
+					list);
+			}),
+		_List_Nil,
+		dict);
+};
+var elm$core$Dict$keys = function (dict) {
+	return A3(
+		elm$core$Dict$foldr,
+		F3(
+			function (key, value, keyList) {
+				return A2(elm$core$List$cons, key, keyList);
+			}),
+		_List_Nil,
+		dict);
+};
+var elm$core$Set$toList = function (_n0) {
+	var dict = _n0.a;
+	return elm$core$Dict$keys(dict);
+};
+var author$project$Json$Form$Definitions$init = F2(
+	function (s, v) {
+		return {beingEdited: _List_Nil, editedNumber: '', errors: elm$core$Dict$empty, focused: elm$core$Maybe$Nothing, schema: s, value: v};
+	});
+var author$project$Json$Form$init = author$project$Json$Form$Definitions$init;
+var 1602$json_schema$Json$Schema$Builder$SchemaBuilder = function (a) {
+	return {$: 'SchemaBuilder', a: a};
+};
+var elm$core$Basics$identity = function (x) {
+	return x;
+};
+var elm$core$Maybe$Just = function (a) {
+	return {$: 'Just', a: a};
+};
+var 1602$json_schema$Json$Schema$Builder$boolSchema = function (b) {
+	return 1602$json_schema$Json$Schema$Builder$SchemaBuilder(
+		{
+			bool: elm$core$Maybe$Just(b),
+			errors: _List_Nil,
+			schema: elm$core$Maybe$Nothing
+		});
+};
+var 1602$json_schema$Json$Schema$Definitions$AnyType = {$: 'AnyType'};
+var 1602$json_schema$Json$Schema$Definitions$NoItems = {$: 'NoItems'};
+var elm$core$List$foldl = F3(
+	function (func, acc, list) {
+		foldl:
+		while (true) {
+			if (!list.b) {
+				return acc;
+			} else {
+				var x = list.a;
+				var xs = list.b;
+				var $temp$func = func,
+					$temp$acc = A2(func, x, acc),
+					$temp$list = xs;
+				func = $temp$func;
+				acc = $temp$acc;
+				list = $temp$list;
+				continue foldl;
+			}
+		}
+	});
+var elm$core$Array$branchFactor = 32;
+var elm$core$Array$Array_elm_builtin = F4(
+	function (a, b, c, d) {
+		return {$: 'Array_elm_builtin', a: a, b: b, c: c, d: d};
+	});
+var elm$core$Basics$ceiling = _Basics_ceiling;
+var elm$core$Basics$fdiv = _Basics_fdiv;
+var elm$core$Basics$logBase = F2(
+	function (base, number) {
+		return _Basics_log(number) / _Basics_log(base);
+	});
+var elm$core$Basics$toFloat = _Basics_toFloat;
+var elm$core$Array$shiftStep = elm$core$Basics$ceiling(
+	A2(elm$core$Basics$logBase, 2, elm$core$Array$branchFactor));
+var elm$core$Elm$JsArray$empty = _JsArray_empty;
+var elm$core$Array$empty = A4(elm$core$Array$Array_elm_builtin, 0, elm$core$Array$shiftStep, elm$core$Elm$JsArray$empty, elm$core$Elm$JsArray$empty);
+var elm$core$Array$Leaf = function (a) {
+	return {$: 'Leaf', a: a};
+};
+var elm$core$Array$SubTree = function (a) {
+	return {$: 'SubTree', a: a};
+};
+var elm$core$Elm$JsArray$initializeFromList = _JsArray_initializeFromList;
+var elm$core$List$reverse = function (list) {
+	return A3(elm$core$List$foldl, elm$core$List$cons, _List_Nil, list);
+};
+var elm$core$Array$compressNodes = F2(
+	function (nodes, acc) {
+		compressNodes:
+		while (true) {
+			var _n0 = A2(elm$core$Elm$JsArray$initializeFromList, elm$core$Array$branchFactor, nodes);
+			var node = _n0.a;
+			var remainingNodes = _n0.b;
+			var newAcc = A2(
+				elm$core$List$cons,
+				elm$core$Array$SubTree(node),
+				acc);
+			if (!remainingNodes.b) {
+				return elm$core$List$reverse(newAcc);
+			} else {
+				var $temp$nodes = remainingNodes,
+					$temp$acc = newAcc;
+				nodes = $temp$nodes;
+				acc = $temp$acc;
+				continue compressNodes;
+			}
+		}
+	});
+var elm$core$Basics$apR = F2(
+	function (x, f) {
+		return f(x);
+	});
+var elm$core$Basics$eq = _Utils_equal;
+var elm$core$Tuple$first = function (_n0) {
+	var x = _n0.a;
+	return x;
+};
+var elm$core$Array$treeFromBuilder = F2(
+	function (nodeList, nodeListSize) {
+		treeFromBuilder:
+		while (true) {
+			var newNodeSize = elm$core$Basics$ceiling(nodeListSize / elm$core$Array$branchFactor);
+			if (newNodeSize === 1) {
+				return A2(elm$core$Elm$JsArray$initializeFromList, elm$core$Array$branchFactor, nodeList).a;
+			} else {
+				var $temp$nodeList = A2(elm$core$Array$compressNodes, nodeList, _List_Nil),
+					$temp$nodeListSize = newNodeSize;
+				nodeList = $temp$nodeList;
+				nodeListSize = $temp$nodeListSize;
+				continue treeFromBuilder;
+			}
+		}
+	});
+var elm$core$Basics$add = _Basics_add;
+var elm$core$Basics$apL = F2(
+	function (f, x) {
+		return f(x);
+	});
+var elm$core$Basics$floor = _Basics_floor;
+var elm$core$Basics$gt = _Utils_gt;
+var elm$core$Basics$max = F2(
+	function (x, y) {
+		return (_Utils_cmp(x, y) > 0) ? x : y;
+	});
+var elm$core$Basics$mul = _Basics_mul;
+var elm$core$Basics$sub = _Basics_sub;
+var elm$core$Elm$JsArray$length = _JsArray_length;
+var elm$core$Array$builderToArray = F2(
+	function (reverseNodeList, builder) {
+		if (!builder.nodeListSize) {
+			return A4(
+				elm$core$Array$Array_elm_builtin,
+				elm$core$Elm$JsArray$length(builder.tail),
+				elm$core$Array$shiftStep,
+				elm$core$Elm$JsArray$empty,
+				builder.tail);
+		} else {
+			var treeLen = builder.nodeListSize * elm$core$Array$branchFactor;
+			var depth = elm$core$Basics$floor(
+				A2(elm$core$Basics$logBase, elm$core$Array$branchFactor, treeLen - 1));
+			var correctNodeList = reverseNodeList ? elm$core$List$reverse(builder.nodeList) : builder.nodeList;
+			var tree = A2(elm$core$Array$treeFromBuilder, correctNodeList, builder.nodeListSize);
+			return A4(
+				elm$core$Array$Array_elm_builtin,
+				elm$core$Elm$JsArray$length(builder.tail) + treeLen,
+				A2(elm$core$Basics$max, 5, depth * elm$core$Array$shiftStep),
+				tree,
+				builder.tail);
+		}
+	});
+var elm$core$Basics$False = {$: 'False'};
+var elm$core$Basics$idiv = _Basics_idiv;
+var elm$core$Basics$lt = _Utils_lt;
+var elm$core$Elm$JsArray$initialize = _JsArray_initialize;
+var elm$core$Array$initializeHelp = F5(
+	function (fn, fromIndex, len, nodeList, tail) {
+		initializeHelp:
+		while (true) {
+			if (fromIndex < 0) {
+				return A2(
+					elm$core$Array$builderToArray,
+					false,
+					{nodeList: nodeList, nodeListSize: (len / elm$core$Array$branchFactor) | 0, tail: tail});
+			} else {
+				var leaf = elm$core$Array$Leaf(
+					A3(elm$core$Elm$JsArray$initialize, elm$core$Array$branchFactor, fromIndex, fn));
+				var $temp$fn = fn,
+					$temp$fromIndex = fromIndex - elm$core$Array$branchFactor,
+					$temp$len = len,
+					$temp$nodeList = A2(elm$core$List$cons, leaf, nodeList),
+					$temp$tail = tail;
+				fn = $temp$fn;
+				fromIndex = $temp$fromIndex;
+				len = $temp$len;
+				nodeList = $temp$nodeList;
+				tail = $temp$tail;
+				continue initializeHelp;
+			}
+		}
+	});
+var elm$core$Basics$le = _Utils_le;
+var elm$core$Basics$remainderBy = _Basics_remainderBy;
+var elm$core$Array$initialize = F2(
+	function (len, fn) {
+		if (len <= 0) {
+			return elm$core$Array$empty;
+		} else {
+			var tailLen = len % elm$core$Array$branchFactor;
+			var tail = A3(elm$core$Elm$JsArray$initialize, tailLen, len - tailLen, fn);
+			var initialFromIndex = (len - tailLen) - elm$core$Array$branchFactor;
+			return A5(elm$core$Array$initializeHelp, fn, initialFromIndex, len, _List_Nil, tail);
+		}
+	});
+var elm$core$Result$Err = function (a) {
+	return {$: 'Err', a: a};
+};
+var elm$core$Result$Ok = function (a) {
+	return {$: 'Ok', a: a};
+};
+var elm$core$Basics$True = {$: 'True'};
+var elm$core$Result$isOk = function (result) {
+	if (result.$ === 'Ok') {
+		return true;
+	} else {
+		return false;
+	}
+};
+var elm$json$Json$Decode$Failure = F2(
+	function (a, b) {
+		return {$: 'Failure', a: a, b: b};
+	});
+var elm$json$Json$Decode$Field = F2(
+	function (a, b) {
+		return {$: 'Field', a: a, b: b};
+	});
+var elm$json$Json$Decode$Index = F2(
+	function (a, b) {
+		return {$: 'Index', a: a, b: b};
+	});
+var elm$json$Json$Decode$OneOf = function (a) {
+	return {$: 'OneOf', a: a};
+};
+var elm$core$Basics$and = _Basics_and;
+var elm$core$Basics$append = _Utils_append;
+var elm$core$Basics$or = _Basics_or;
+var elm$core$Char$toCode = _Char_toCode;
+var elm$core$Char$isLower = function (_char) {
+	var code = elm$core$Char$toCode(_char);
+	return (97 <= code) && (code <= 122);
+};
+var elm$core$Char$isUpper = function (_char) {
+	var code = elm$core$Char$toCode(_char);
+	return (code <= 90) && (65 <= code);
+};
+var elm$core$Char$isAlpha = function (_char) {
+	return elm$core$Char$isLower(_char) || elm$core$Char$isUpper(_char);
+};
+var elm$core$Char$isDigit = function (_char) {
+	var code = elm$core$Char$toCode(_char);
+	return (code <= 57) && (48 <= code);
+};
+var elm$core$Char$isAlphaNum = function (_char) {
+	return elm$core$Char$isLower(_char) || (elm$core$Char$isUpper(_char) || elm$core$Char$isDigit(_char));
+};
+var elm$core$List$length = function (xs) {
+	return A3(
+		elm$core$List$foldl,
+		F2(
+			function (_n0, i) {
+				return i + 1;
+			}),
+		0,
+		xs);
+};
+var elm$core$List$map2 = _List_map2;
+var elm$core$List$rangeHelp = F3(
+	function (lo, hi, list) {
+		rangeHelp:
+		while (true) {
+			if (_Utils_cmp(lo, hi) < 1) {
+				var $temp$lo = lo,
+					$temp$hi = hi - 1,
+					$temp$list = A2(elm$core$List$cons, hi, list);
+				lo = $temp$lo;
+				hi = $temp$hi;
+				list = $temp$list;
+				continue rangeHelp;
+			} else {
+				return list;
+			}
+		}
+	});
+var elm$core$List$range = F2(
+	function (lo, hi) {
+		return A3(elm$core$List$rangeHelp, lo, hi, _List_Nil);
+	});
+var elm$core$List$indexedMap = F2(
+	function (f, xs) {
+		return A3(
+			elm$core$List$map2,
+			f,
+			A2(
+				elm$core$List$range,
+				0,
+				elm$core$List$length(xs) - 1),
+			xs);
+	});
+var elm$core$String$all = _String_all;
+var elm$core$String$fromInt = _String_fromNumber;
+var elm$core$String$join = F2(
+	function (sep, chunks) {
+		return A2(
+			_String_join,
+			sep,
+			_List_toArray(chunks));
+	});
+var elm$core$String$uncons = _String_uncons;
+var elm$core$String$split = F2(
+	function (sep, string) {
+		return _List_fromArray(
+			A2(_String_split, sep, string));
+	});
+var elm$json$Json$Decode$indent = function (str) {
+	return A2(
+		elm$core$String$join,
+		'\n    ',
+		A2(elm$core$String$split, '\n', str));
+};
+var elm$json$Json$Encode$encode = _Json_encode;
+var elm$json$Json$Decode$errorOneOf = F2(
+	function (i, error) {
+		return '\n\n(' + (elm$core$String$fromInt(i + 1) + (') ' + elm$json$Json$Decode$indent(
+			elm$json$Json$Decode$errorToString(error))));
+	});
+var elm$json$Json$Decode$errorToString = function (error) {
+	return A2(elm$json$Json$Decode$errorToStringHelp, error, _List_Nil);
+};
+var elm$json$Json$Decode$errorToStringHelp = F2(
+	function (error, context) {
+		errorToStringHelp:
+		while (true) {
+			switch (error.$) {
+				case 'Field':
+					var f = error.a;
+					var err = error.b;
+					var isSimple = function () {
+						var _n1 = elm$core$String$uncons(f);
+						if (_n1.$ === 'Nothing') {
+							return false;
+						} else {
+							var _n2 = _n1.a;
+							var _char = _n2.a;
+							var rest = _n2.b;
+							return elm$core$Char$isAlpha(_char) && A2(elm$core$String$all, elm$core$Char$isAlphaNum, rest);
+						}
+					}();
+					var fieldName = isSimple ? ('.' + f) : ('[\'' + (f + '\']'));
+					var $temp$error = err,
+						$temp$context = A2(elm$core$List$cons, fieldName, context);
+					error = $temp$error;
+					context = $temp$context;
+					continue errorToStringHelp;
+				case 'Index':
+					var i = error.a;
+					var err = error.b;
+					var indexName = '[' + (elm$core$String$fromInt(i) + ']');
+					var $temp$error = err,
+						$temp$context = A2(elm$core$List$cons, indexName, context);
+					error = $temp$error;
+					context = $temp$context;
+					continue errorToStringHelp;
+				case 'OneOf':
+					var errors = error.a;
+					if (!errors.b) {
+						return 'Ran into a Json.Decode.oneOf with no possibilities' + function () {
+							if (!context.b) {
+								return '!';
+							} else {
+								return ' at json' + A2(
+									elm$core$String$join,
+									'',
+									elm$core$List$reverse(context));
+							}
+						}();
+					} else {
+						if (!errors.b.b) {
+							var err = errors.a;
+							var $temp$error = err,
+								$temp$context = context;
+							error = $temp$error;
+							context = $temp$context;
+							continue errorToStringHelp;
+						} else {
+							var starter = function () {
+								if (!context.b) {
+									return 'Json.Decode.oneOf';
+								} else {
+									return 'The Json.Decode.oneOf at json' + A2(
+										elm$core$String$join,
+										'',
+										elm$core$List$reverse(context));
+								}
+							}();
+							var introduction = starter + (' failed in the following ' + (elm$core$String$fromInt(
+								elm$core$List$length(errors)) + ' ways:'));
+							return A2(
+								elm$core$String$join,
+								'\n\n',
+								A2(
+									elm$core$List$cons,
+									introduction,
+									A2(elm$core$List$indexedMap, elm$json$Json$Decode$errorOneOf, errors)));
+						}
+					}
+				default:
+					var msg = error.a;
+					var json = error.b;
+					var introduction = function () {
+						if (!context.b) {
+							return 'Problem with the given value:\n\n';
+						} else {
+							return 'Problem with the value at json' + (A2(
+								elm$core$String$join,
+								'',
+								elm$core$List$reverse(context)) + ':\n\n    ');
+						}
+					}();
+					return introduction + (elm$json$Json$Decode$indent(
+						A2(elm$json$Json$Encode$encode, 4, json)) + ('\n\n' + msg));
+			}
+		}
+	});
+var elm$json$Json$Encode$object = function (pairs) {
+	return _Json_wrap(
+		A3(
+			elm$core$List$foldl,
+			F2(
+				function (_n0, obj) {
+					var k = _n0.a;
+					var v = _n0.b;
+					return A3(_Json_addField, k, v, obj);
+				}),
+			_Json_emptyObject(_Utils_Tuple0),
+			pairs));
+};
+var 1602$json_schema$Json$Schema$Definitions$blankSubSchema = {
+	additionalItems: elm$core$Maybe$Nothing,
+	additionalProperties: elm$core$Maybe$Nothing,
+	allOf: elm$core$Maybe$Nothing,
+	anyOf: elm$core$Maybe$Nothing,
+	_const: elm$core$Maybe$Nothing,
+	contains: elm$core$Maybe$Nothing,
+	_default: elm$core$Maybe$Nothing,
+	definitions: elm$core$Maybe$Nothing,
+	dependencies: _List_Nil,
+	description: elm$core$Maybe$Nothing,
+	_enum: elm$core$Maybe$Nothing,
+	examples: elm$core$Maybe$Nothing,
+	exclusiveMaximum: elm$core$Maybe$Nothing,
+	exclusiveMinimum: elm$core$Maybe$Nothing,
+	format: elm$core$Maybe$Nothing,
+	id: elm$core$Maybe$Nothing,
+	items: 1602$json_schema$Json$Schema$Definitions$NoItems,
+	maxItems: elm$core$Maybe$Nothing,
+	maxLength: elm$core$Maybe$Nothing,
+	maxProperties: elm$core$Maybe$Nothing,
+	maximum: elm$core$Maybe$Nothing,
+	minItems: elm$core$Maybe$Nothing,
+	minLength: elm$core$Maybe$Nothing,
+	minProperties: elm$core$Maybe$Nothing,
+	minimum: elm$core$Maybe$Nothing,
+	multipleOf: elm$core$Maybe$Nothing,
+	not: elm$core$Maybe$Nothing,
+	oneOf: elm$core$Maybe$Nothing,
+	pattern: elm$core$Maybe$Nothing,
+	patternProperties: elm$core$Maybe$Nothing,
+	properties: elm$core$Maybe$Nothing,
+	propertyNames: elm$core$Maybe$Nothing,
+	ref: elm$core$Maybe$Nothing,
+	required: elm$core$Maybe$Nothing,
+	source: elm$json$Json$Encode$object(_List_Nil),
+	title: elm$core$Maybe$Nothing,
+	type_: 1602$json_schema$Json$Schema$Definitions$AnyType,
+	uniqueItems: elm$core$Maybe$Nothing
+};
+var 1602$json_schema$Json$Schema$Builder$buildSchema = 1602$json_schema$Json$Schema$Builder$SchemaBuilder(
+	{
+		bool: elm$core$Maybe$Nothing,
+		errors: _List_Nil,
+		schema: elm$core$Maybe$Just(1602$json_schema$Json$Schema$Definitions$blankSubSchema)
+	});
+var 1602$json_schema$Json$Schema$Definitions$BooleanSchema = function (a) {
+	return {$: 'BooleanSchema', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$ObjectSchema = function (a) {
+	return {$: 'ObjectSchema', a: a};
+};
+var elm$core$Basics$composeR = F3(
+	function (f, g, x) {
+		return g(
+			f(x));
+	});
+var elm$core$Basics$neq = _Utils_notEqual;
+var elm$core$List$foldrHelper = F4(
+	function (fn, acc, ctr, ls) {
+		if (!ls.b) {
+			return acc;
+		} else {
+			var a = ls.a;
+			var r1 = ls.b;
+			if (!r1.b) {
+				return A2(fn, a, acc);
+			} else {
+				var b = r1.a;
+				var r2 = r1.b;
+				if (!r2.b) {
+					return A2(
+						fn,
+						a,
+						A2(fn, b, acc));
+				} else {
+					var c = r2.a;
+					var r3 = r2.b;
+					if (!r3.b) {
+						return A2(
+							fn,
+							a,
+							A2(
+								fn,
+								b,
+								A2(fn, c, acc)));
+					} else {
+						var d = r3.a;
+						var r4 = r3.b;
+						var res = (ctr > 500) ? A3(
+							elm$core$List$foldl,
+							fn,
+							acc,
+							elm$core$List$reverse(r4)) : A4(elm$core$List$foldrHelper, fn, acc, ctr + 1, r4);
+						return A2(
+							fn,
+							a,
+							A2(
+								fn,
+								b,
+								A2(
+									fn,
+									c,
+									A2(fn, d, res))));
+					}
+				}
+			}
+		}
+	});
+var elm$core$List$foldr = F3(
+	function (fn, acc, ls) {
+		return A4(elm$core$List$foldrHelper, fn, acc, 0, ls);
+	});
+var elm$core$List$filter = F2(
+	function (isGood, list) {
+		return A3(
+			elm$core$List$foldr,
+			F2(
+				function (x, xs) {
+					return isGood(x) ? A2(elm$core$List$cons, x, xs) : xs;
+				}),
+			_List_Nil,
+			list);
+	});
+var elm$core$List$isEmpty = function (xs) {
+	if (!xs.b) {
+		return true;
+	} else {
+		return false;
+	}
+};
+var elm$core$List$map = F2(
+	function (f, xs) {
+		return A3(
+			elm$core$List$foldr,
+			F2(
+				function (x, acc) {
+					return A2(
+						elm$core$List$cons,
+						f(x),
+						acc);
+				}),
+			_List_Nil,
+			xs);
+	});
+var elm$core$Result$withDefault = F2(
+	function (def, result) {
+		if (result.$ === 'Ok') {
+			var a = result.a;
+			return a;
+		} else {
+			return def;
+		}
+	});
+var elm$json$Json$Decode$decodeValue = _Json_run;
+var elm$json$Json$Decode$keyValuePairs = _Json_decodeKeyValuePairs;
+var elm$json$Json$Decode$value = _Json_decodeValue;
+var elm$json$Json$Encode$bool = _Json_wrap;
+var elm$json$Json$Encode$float = _Json_wrap;
+var elm$json$Json$Encode$int = _Json_wrap;
+var elm$json$Json$Encode$list = F2(
+	function (func, entries) {
+		return _Json_wrap(
+			A3(
+				elm$core$List$foldl,
+				_Json_addEntry(func),
+				_Json_emptyArray(_Utils_Tuple0),
+				entries));
+	});
+var elm$json$Json$Encode$string = _Json_wrap;
+var 1602$json_schema$Json$Schema$Definitions$encode = function (s) {
+	var source = function (os) {
+		return A2(
+			elm$core$Result$withDefault,
+			_List_Nil,
+			A2(
+				elm$json$Json$Decode$decodeValue,
+				elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+				os.source));
+	};
+	var singleTypeToString = function (st) {
+		switch (st.$) {
+			case 'StringType':
+				return 'string';
+			case 'IntegerType':
+				return 'integer';
+			case 'NumberType':
+				return 'number';
+			case 'BooleanType':
+				return 'boolean';
+			case 'ObjectType':
+				return 'object';
+			case 'ArrayType':
+				return 'array';
+			default:
+				return 'null';
+		}
+	};
+	var optionally = F4(
+		function (fn, val, key, res) {
+			var result = A2(
+				elm$core$List$filter,
+				function (_n9) {
+					var k = _n9.a;
+					return !_Utils_eq(k, key);
+				},
+				res);
+			if (val.$ === 'Just') {
+				var schema = val.a;
+				return A2(
+					elm$core$List$cons,
+					_Utils_Tuple2(
+						key,
+						fn(schema)),
+					result);
+			} else {
+				return result;
+			}
+		});
+	var encodeType = F2(
+		function (t, res) {
+			switch (t.$) {
+				case 'SingleType':
+					var st = t.a;
+					return A2(
+						elm$core$List$cons,
+						_Utils_Tuple2(
+							'type',
+							elm$json$Json$Encode$string(
+								singleTypeToString(st))),
+						res);
+				case 'NullableType':
+					var st = t.a;
+					return A2(
+						elm$core$List$cons,
+						_Utils_Tuple2(
+							'type',
+							A2(
+								elm$json$Json$Encode$list,
+								elm$core$Basics$identity,
+								_List_fromArray(
+									[
+										elm$json$Json$Encode$string('null'),
+										elm$json$Json$Encode$string(
+										singleTypeToString(st))
+									]))),
+						res);
+				case 'UnionType':
+					var ut = t.a;
+					return A2(
+						elm$core$List$cons,
+						_Utils_Tuple2(
+							'type',
+							A2(
+								elm$json$Json$Encode$list,
+								A2(elm$core$Basics$composeR, singleTypeToString, elm$json$Json$Encode$string),
+								ut)),
+						res);
+				default:
+					return res;
+			}
+		});
+	var encodeSchemata = function (_n6) {
+		var listSchemas = _n6.a;
+		return elm$json$Json$Encode$object(
+			A2(
+				elm$core$List$map,
+				function (_n5) {
+					var key = _n5.a;
+					var schema = _n5.b;
+					return _Utils_Tuple2(
+						key,
+						1602$json_schema$Json$Schema$Definitions$encode(schema));
+				},
+				listSchemas));
+	};
+	var encodeListSchemas = function (l) {
+		return A2(elm$json$Json$Encode$list, 1602$json_schema$Json$Schema$Definitions$encode, l);
+	};
+	var encodeItems = F2(
+		function (items, res) {
+			switch (items.$) {
+				case 'ItemDefinition':
+					var id = items.a;
+					return A2(
+						elm$core$List$cons,
+						_Utils_Tuple2(
+							'items',
+							1602$json_schema$Json$Schema$Definitions$encode(id)),
+						res);
+				case 'ArrayOfItems':
+					var aoi = items.a;
+					return A2(
+						elm$core$List$cons,
+						_Utils_Tuple2(
+							'items',
+							A2(elm$json$Json$Encode$list, 1602$json_schema$Json$Schema$Definitions$encode, aoi)),
+						res);
+				default:
+					return res;
+			}
+		});
+	var encodeExclusiveBoundary = function (eb) {
+		if (eb.$ === 'BoolBoundary') {
+			var b = eb.a;
+			return elm$json$Json$Encode$bool(b);
+		} else {
+			var f = eb.a;
+			return elm$json$Json$Encode$float(f);
+		}
+	};
+	var encodeDependency = function (dep) {
+		if (dep.$ === 'PropSchema') {
+			var ps = dep.a;
+			return 1602$json_schema$Json$Schema$Definitions$encode(ps);
+		} else {
+			var apn = dep.a;
+			return A2(elm$json$Json$Encode$list, elm$json$Json$Encode$string, apn);
+		}
+	};
+	var encodeDependencies = F2(
+		function (deps, res) {
+			return elm$core$List$isEmpty(deps) ? res : A2(
+				elm$core$List$cons,
+				_Utils_Tuple2(
+					'dependencies',
+					elm$json$Json$Encode$object(
+						A2(
+							elm$core$List$map,
+							function (_n1) {
+								var key = _n1.a;
+								var dep = _n1.b;
+								return _Utils_Tuple2(
+									key,
+									encodeDependency(dep));
+							},
+							deps))),
+				res);
+		});
+	if (s.$ === 'BooleanSchema') {
+		var bs = s.a;
+		return elm$json$Json$Encode$bool(bs);
+	} else {
+		var os = s.a;
+		return elm$json$Json$Encode$object(
+			elm$core$List$reverse(
+				A3(
+					elm$core$List$foldl,
+					elm$core$Basics$identity,
+					source(os),
+					_List_fromArray(
+						[
+							encodeType(os.type_),
+							A3(optionally, elm$json$Json$Encode$string, os.id, '$id'),
+							A3(optionally, elm$json$Json$Encode$string, os.ref, '$ref'),
+							A3(optionally, elm$json$Json$Encode$string, os.title, 'title'),
+							A3(optionally, elm$json$Json$Encode$string, os.description, 'description'),
+							A3(optionally, elm$core$Basics$identity, os._default, 'default'),
+							A3(
+							optionally,
+							elm$json$Json$Encode$list(elm$core$Basics$identity),
+							os.examples,
+							'examples'),
+							A3(optionally, encodeSchemata, os.definitions, 'definitions'),
+							A3(optionally, elm$json$Json$Encode$float, os.multipleOf, 'multipleOf'),
+							A3(optionally, elm$json$Json$Encode$float, os.maximum, 'maximum'),
+							A3(optionally, encodeExclusiveBoundary, os.exclusiveMaximum, 'exclusiveMaximum'),
+							A3(optionally, elm$json$Json$Encode$float, os.minimum, 'minimum'),
+							A3(optionally, encodeExclusiveBoundary, os.exclusiveMinimum, 'exclusiveMinimum'),
+							A3(optionally, elm$json$Json$Encode$int, os.maxLength, 'maxLength'),
+							A3(optionally, elm$json$Json$Encode$int, os.minLength, 'minLength'),
+							A3(optionally, elm$json$Json$Encode$string, os.pattern, 'pattern'),
+							A3(optionally, elm$json$Json$Encode$string, os.format, 'format'),
+							encodeItems(os.items),
+							A3(optionally, 1602$json_schema$Json$Schema$Definitions$encode, os.additionalItems, 'additionalItems'),
+							A3(optionally, elm$json$Json$Encode$int, os.maxItems, 'maxItems'),
+							A3(optionally, elm$json$Json$Encode$int, os.minItems, 'minItems'),
+							A3(optionally, elm$json$Json$Encode$bool, os.uniqueItems, 'uniqueItems'),
+							A3(optionally, 1602$json_schema$Json$Schema$Definitions$encode, os.contains, 'contains'),
+							A3(optionally, elm$json$Json$Encode$int, os.maxProperties, 'maxProperties'),
+							A3(optionally, elm$json$Json$Encode$int, os.minProperties, 'minProperties'),
+							A3(
+							optionally,
+							function (list) {
+								return A2(elm$json$Json$Encode$list, elm$json$Json$Encode$string, list);
+							},
+							os.required,
+							'required'),
+							A3(optionally, encodeSchemata, os.properties, 'properties'),
+							A3(optionally, encodeSchemata, os.patternProperties, 'patternProperties'),
+							A3(optionally, 1602$json_schema$Json$Schema$Definitions$encode, os.additionalProperties, 'additionalProperties'),
+							encodeDependencies(os.dependencies),
+							A3(optionally, 1602$json_schema$Json$Schema$Definitions$encode, os.propertyNames, 'propertyNames'),
+							A3(
+							optionally,
+							elm$json$Json$Encode$list(elm$core$Basics$identity),
+							os._enum,
+							'enum'),
+							A3(optionally, elm$core$Basics$identity, os._const, 'const'),
+							A3(optionally, encodeListSchemas, os.allOf, 'allOf'),
+							A3(optionally, encodeListSchemas, os.anyOf, 'anyOf'),
+							A3(optionally, encodeListSchemas, os.oneOf, 'oneOf'),
+							A3(optionally, 1602$json_schema$Json$Schema$Definitions$encode, os.not, 'not')
+						]))));
+	}
+};
+var 1602$json_schema$Json$Schema$Builder$toSchema = function (_n0) {
+	var sb = _n0.a;
+	if (elm$core$List$isEmpty(sb.errors)) {
+		var _n1 = sb.bool;
+		if (_n1.$ === 'Just') {
+			var x = _n1.a;
+			return elm$core$Result$Ok(
+				1602$json_schema$Json$Schema$Definitions$BooleanSchema(x));
+		} else {
+			var _n2 = sb.schema;
+			if (_n2.$ === 'Just') {
+				var ss = _n2.a;
+				return elm$core$Result$Ok(
+					1602$json_schema$Json$Schema$Definitions$ObjectSchema(
+						_Utils_update(
+							ss,
+							{
+								source: 1602$json_schema$Json$Schema$Definitions$encode(
+									1602$json_schema$Json$Schema$Definitions$ObjectSchema(ss))
+							})));
+			} else {
+				return elm$core$Result$Ok(
+					1602$json_schema$Json$Schema$Definitions$ObjectSchema(1602$json_schema$Json$Schema$Definitions$blankSubSchema));
+			}
+		}
+	} else {
+		return elm$core$Result$Err(
+			A2(elm$core$String$join, ', ', sb.errors));
+	}
+};
+var 1602$json_schema$Json$Schema$Builder$appendError = F2(
+	function (e, _n0) {
+		var errors = _n0.a.errors;
+		var schema = _n0.a.schema;
+		var bool = _n0.a.bool;
+		return 1602$json_schema$Json$Schema$Builder$SchemaBuilder(
+			{
+				bool: bool,
+				errors: A2(elm$core$List$cons, e, errors),
+				schema: schema
+			});
+	});
+var 1602$json_schema$Json$Schema$Builder$updateSchema = F2(
+	function (fn, _n0) {
+		var sb = _n0.a;
+		var _n1 = sb.schema;
+		if (_n1.$ === 'Just') {
+			var ss = _n1.a;
+			return 1602$json_schema$Json$Schema$Builder$SchemaBuilder(
+				_Utils_update(
+					sb,
+					{
+						schema: elm$core$Maybe$Just(
+							fn(ss))
+					}));
+		} else {
+			return 1602$json_schema$Json$Schema$Builder$SchemaBuilder(sb);
+		}
+	});
+var 1602$json_schema$Json$Schema$Builder$updateWithSubSchema = F2(
+	function (fn, subSchemaBuilder) {
+		var _n0 = 1602$json_schema$Json$Schema$Builder$toSchema(subSchemaBuilder);
+		if (_n0.$ === 'Ok') {
+			var s = _n0.a;
+			return 1602$json_schema$Json$Schema$Builder$updateSchema(
+				fn(
+					elm$core$Maybe$Just(s)));
+		} else {
+			var err = _n0.a;
+			return 1602$json_schema$Json$Schema$Builder$appendError(err);
+		}
+	});
+var 1602$json_schema$Json$Schema$Builder$withAdditionalProperties = 1602$json_schema$Json$Schema$Builder$updateWithSubSchema(
+	F2(
+		function (sub, s) {
+			return _Utils_update(
+				s,
+				{additionalProperties: sub});
+		}));
+var 1602$json_schema$Json$Schema$Builder$withCustomKeyword = F2(
+	function (key, val) {
+		return 1602$json_schema$Json$Schema$Builder$updateSchema(
+			function (s) {
+				return _Utils_update(
+					s,
+					{
+						source: elm$json$Json$Encode$object(
+							A2(
+								elm$core$List$cons,
+								_Utils_Tuple2(key, val),
+								A2(
+									elm$core$Result$withDefault,
+									_List_Nil,
+									A2(
+										elm$json$Json$Decode$decodeValue,
+										elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+										s.source))))
+					});
+			});
+	});
+var 1602$json_schema$Json$Schema$Builder$withDefault = function (x) {
+	return 1602$json_schema$Json$Schema$Builder$updateSchema(
+		function (s) {
+			return _Utils_update(
+				s,
+				{
+					_default: elm$core$Maybe$Just(x)
+				});
+		});
+};
+var 1602$json_schema$Json$Schema$Builder$withDescription = function (x) {
+	return 1602$json_schema$Json$Schema$Builder$updateSchema(
+		function (s) {
+			return _Utils_update(
+				s,
+				{
+					description: elm$core$Maybe$Just(x)
+				});
+		});
+};
+var 1602$json_schema$Json$Schema$Builder$withEnum = function (x) {
+	return 1602$json_schema$Json$Schema$Builder$updateSchema(
+		function (s) {
+			return _Utils_update(
+				s,
+				{
+					_enum: elm$core$Maybe$Just(x)
+				});
+		});
+};
+var 1602$json_schema$Json$Schema$Builder$withMaxLength = function (x) {
+	return 1602$json_schema$Json$Schema$Builder$updateSchema(
+		function (s) {
+			return _Utils_update(
+				s,
+				{
+					maxLength: elm$core$Maybe$Just(x)
+				});
+		});
+};
+var 1602$json_schema$Json$Schema$Builder$withMinLength = function (x) {
+	return 1602$json_schema$Json$Schema$Builder$updateSchema(
+		function (s) {
+			return _Utils_update(
+				s,
+				{
+					minLength: elm$core$Maybe$Just(x)
+				});
+		});
+};
+var 1602$json_schema$Json$Schema$Builder$withMinimum = function (x) {
+	return 1602$json_schema$Json$Schema$Builder$updateSchema(
+		function (s) {
+			return _Utils_update(
+				s,
+				{
+					minimum: elm$core$Maybe$Just(x)
+				});
+		});
+};
+var elm$core$Result$andThen = F2(
+	function (callback, result) {
+		if (result.$ === 'Ok') {
+			var value = result.a;
+			return callback(value);
+		} else {
+			var msg = result.a;
+			return elm$core$Result$Err(msg);
+		}
+	});
+var elm$core$Result$map = F2(
+	function (func, ra) {
+		if (ra.$ === 'Ok') {
+			var a = ra.a;
+			return elm$core$Result$Ok(
+				func(a));
+		} else {
+			var e = ra.a;
+			return elm$core$Result$Err(e);
+		}
+	});
+var 1602$json_schema$Json$Schema$Builder$toSchemata = A2(
+	elm$core$List$foldl,
+	function (_n0) {
+		var key = _n0.a;
+		var builder = _n0.b;
+		return elm$core$Result$andThen(
+			function (schemas) {
+				return A2(
+					elm$core$Result$map,
+					function (schema) {
+						return _Utils_ap(
+							schemas,
+							_List_fromArray(
+								[
+									_Utils_Tuple2(key, schema)
+								]));
+					},
+					1602$json_schema$Json$Schema$Builder$toSchema(builder));
+			});
+	},
+	elm$core$Result$Ok(_List_Nil));
+var 1602$json_schema$Json$Schema$Definitions$Schemata = function (a) {
+	return {$: 'Schemata', a: a};
+};
+var 1602$json_schema$Json$Schema$Builder$updateWithSchemata = F2(
+	function (fn, schemataBuilder) {
+		var _n0 = 1602$json_schema$Json$Schema$Builder$toSchemata(schemataBuilder);
+		if (_n0.$ === 'Ok') {
+			var schemata = _n0.a;
+			return 1602$json_schema$Json$Schema$Builder$updateSchema(
+				fn(
+					elm$core$Maybe$Just(
+						1602$json_schema$Json$Schema$Definitions$Schemata(schemata))));
+		} else {
+			var s = _n0.a;
+			return 1602$json_schema$Json$Schema$Builder$appendError(s);
+		}
+	});
+var 1602$json_schema$Json$Schema$Builder$withProperties = 1602$json_schema$Json$Schema$Builder$updateWithSchemata(
+	F2(
+		function (properties, s) {
+			return _Utils_update(
+				s,
+				{properties: properties});
+		}));
+var 1602$json_schema$Json$Schema$Builder$withRequired = function (x) {
+	return 1602$json_schema$Json$Schema$Builder$updateSchema(
+		function (s) {
+			return _Utils_update(
+				s,
+				{
+					required: elm$core$Maybe$Just(x)
+				});
+		});
+};
+var 1602$json_schema$Json$Schema$Builder$withTitle = function (x) {
+	return 1602$json_schema$Json$Schema$Builder$updateSchema(
+		function (s) {
+			return _Utils_update(
+				s,
+				{
+					title: elm$core$Maybe$Just(x)
+				});
+		});
+};
+var 1602$json_schema$Json$Schema$Definitions$SingleType = function (a) {
+	return {$: 'SingleType', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$ArrayType = {$: 'ArrayType'};
+var 1602$json_schema$Json$Schema$Definitions$BooleanType = {$: 'BooleanType'};
+var 1602$json_schema$Json$Schema$Definitions$IntegerType = {$: 'IntegerType'};
+var 1602$json_schema$Json$Schema$Definitions$NullType = {$: 'NullType'};
+var 1602$json_schema$Json$Schema$Definitions$NumberType = {$: 'NumberType'};
+var 1602$json_schema$Json$Schema$Definitions$ObjectType = {$: 'ObjectType'};
+var 1602$json_schema$Json$Schema$Definitions$StringType = {$: 'StringType'};
+var 1602$json_schema$Json$Schema$Definitions$stringToType = function (s) {
+	switch (s) {
+		case 'integer':
+			return elm$core$Result$Ok(1602$json_schema$Json$Schema$Definitions$IntegerType);
+		case 'number':
+			return elm$core$Result$Ok(1602$json_schema$Json$Schema$Definitions$NumberType);
+		case 'string':
+			return elm$core$Result$Ok(1602$json_schema$Json$Schema$Definitions$StringType);
+		case 'boolean':
+			return elm$core$Result$Ok(1602$json_schema$Json$Schema$Definitions$BooleanType);
+		case 'array':
+			return elm$core$Result$Ok(1602$json_schema$Json$Schema$Definitions$ArrayType);
+		case 'object':
+			return elm$core$Result$Ok(1602$json_schema$Json$Schema$Definitions$ObjectType);
+		case 'null':
+			return elm$core$Result$Ok(1602$json_schema$Json$Schema$Definitions$NullType);
+		default:
+			return elm$core$Result$Err('Unknown type: ' + s);
+	}
+};
+var 1602$json_schema$Json$Schema$Builder$withType = F2(
+	function (t, sb) {
+		return function (r) {
+			if (r.$ === 'Ok') {
+				var x = r.a;
+				return x;
+			} else {
+				var s = r.a;
+				return A2(1602$json_schema$Json$Schema$Builder$appendError, s, sb);
+			}
+		}(
+			A2(
+				elm$core$Result$map,
+				function (x) {
+					return A2(
+						1602$json_schema$Json$Schema$Builder$updateSchema,
+						function (s) {
+							return _Utils_update(
+								s,
+								{
+									type_: 1602$json_schema$Json$Schema$Definitions$SingleType(x)
+								});
+						},
+						sb);
+				},
+				1602$json_schema$Json$Schema$Definitions$stringToType(t)));
+	});
+var 1602$json_schema$Json$Schema$Definitions$blankSchema = 1602$json_schema$Json$Schema$Definitions$ObjectSchema(1602$json_schema$Json$Schema$Definitions$blankSubSchema);
+var author$project$Snippets$getSnippet = function (ds) {
+	switch (ds.$) {
+		case 'SimpleField':
+			return 1602$json_schema$Json$Schema$Definitions$ObjectSchema(
+				_Utils_update(
+					1602$json_schema$Json$Schema$Definitions$blankSubSchema,
+					{
+						description: elm$core$Maybe$Just('First (given) name of a travelling person'),
+						title: elm$core$Maybe$Just('First name'),
+						type_: 1602$json_schema$Json$Schema$Definitions$SingleType(1602$json_schema$Json$Schema$Definitions$StringType)
+					}));
+		case 'FlatObject':
+			return A2(
+				elm$core$Result$withDefault,
+				1602$json_schema$Json$Schema$Definitions$blankSchema,
+				1602$json_schema$Json$Schema$Builder$toSchema(
+					A2(
+						1602$json_schema$Json$Schema$Builder$withAdditionalProperties,
+						1602$json_schema$Json$Schema$Builder$boolSchema(false),
+						A2(
+							1602$json_schema$Json$Schema$Builder$withProperties,
+							_List_fromArray(
+								[
+									_Utils_Tuple2(
+									'firstName',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withMinLength,
+										2,
+										A2(
+											1602$json_schema$Json$Schema$Builder$withDescription,
+											'First (given) name of a travelling person',
+											A2(
+												1602$json_schema$Json$Schema$Builder$withTitle,
+												'First name',
+												A2(1602$json_schema$Json$Schema$Builder$withType, 'string', 1602$json_schema$Json$Schema$Builder$buildSchema))))),
+									_Utils_Tuple2(
+									'middleName',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withTitle,
+										'Middle name',
+										A2(1602$json_schema$Json$Schema$Builder$withType, 'string', 1602$json_schema$Json$Schema$Builder$buildSchema))),
+									_Utils_Tuple2(
+									'lastName',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withDescription,
+										'Last (family) name of a travelling person',
+										A2(
+											1602$json_schema$Json$Schema$Builder$withTitle,
+											'Last name',
+											A2(1602$json_schema$Json$Schema$Builder$withType, 'string', 1602$json_schema$Json$Schema$Builder$buildSchema))))
+								]),
+							A2(1602$json_schema$Json$Schema$Builder$withType, 'object', 1602$json_schema$Json$Schema$Builder$buildSchema)))));
+		case 'LoginForm':
+			return A2(
+				elm$core$Result$withDefault,
+				1602$json_schema$Json$Schema$Definitions$blankSchema,
+				1602$json_schema$Json$Schema$Builder$toSchema(
+					A2(
+						1602$json_schema$Json$Schema$Builder$withAdditionalProperties,
+						1602$json_schema$Json$Schema$Builder$boolSchema(false),
+						A2(
+							1602$json_schema$Json$Schema$Builder$withProperties,
+							_List_fromArray(
+								[
+									_Utils_Tuple2(
+									'email',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withMinLength,
+										2,
+										A2(
+											1602$json_schema$Json$Schema$Builder$withTitle,
+											'Email',
+											A2(1602$json_schema$Json$Schema$Builder$withType, 'string', 1602$json_schema$Json$Schema$Builder$buildSchema)))),
+									_Utils_Tuple2(
+									'password',
+									A3(
+										1602$json_schema$Json$Schema$Builder$withCustomKeyword,
+										'ui',
+										elm$json$Json$Encode$object(
+											_List_fromArray(
+												[
+													_Utils_Tuple2(
+													'widget',
+													elm$json$Json$Encode$string('password'))
+												])),
+										A2(
+											1602$json_schema$Json$Schema$Builder$withDescription,
+											'Must contain enough various symbols',
+											A2(
+												1602$json_schema$Json$Schema$Builder$withTitle,
+												'Password',
+												A2(1602$json_schema$Json$Schema$Builder$withType, 'string', 1602$json_schema$Json$Schema$Builder$buildSchema))))),
+									_Utils_Tuple2(
+									'remember',
+									A3(
+										1602$json_schema$Json$Schema$Builder$withCustomKeyword,
+										'ui',
+										elm$json$Json$Encode$object(
+											_List_fromArray(
+												[
+													_Utils_Tuple2(
+													'widget',
+													elm$json$Json$Encode$string('checkbox'))
+												])),
+										A2(
+											1602$json_schema$Json$Schema$Builder$withDescription,
+											'This will keep you logged in for another 2 weeks',
+											A2(
+												1602$json_schema$Json$Schema$Builder$withTitle,
+												'remember me',
+												A2(1602$json_schema$Json$Schema$Builder$withType, 'boolean', 1602$json_schema$Json$Schema$Builder$buildSchema)))))
+								]),
+							A2(1602$json_schema$Json$Schema$Builder$withType, 'object', 1602$json_schema$Json$Schema$Builder$buildSchema)))));
+		default:
+			return A2(
+				elm$core$Result$withDefault,
+				1602$json_schema$Json$Schema$Definitions$blankSchema,
+				1602$json_schema$Json$Schema$Builder$toSchema(
+					A2(
+						1602$json_schema$Json$Schema$Builder$withAdditionalProperties,
+						1602$json_schema$Json$Schema$Builder$boolSchema(false),
+						A2(
+							1602$json_schema$Json$Schema$Builder$withProperties,
+							_List_fromArray(
+								[
+									_Utils_Tuple2(
+									'pan',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withMaxLength,
+										17,
+										A2(
+											1602$json_schema$Json$Schema$Builder$withMinLength,
+											10,
+											A2(
+												1602$json_schema$Json$Schema$Builder$withDescription,
+												'A card number. When not provided, this will be generated in the background',
+												A2(
+													1602$json_schema$Json$Schema$Builder$withTitle,
+													'Card Number',
+													A2(1602$json_schema$Json$Schema$Builder$withType, 'string', 1602$json_schema$Json$Schema$Builder$buildSchema)))))),
+									_Utils_Tuple2(
+									'airlineCode',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withMaxLength,
+										2,
+										A2(
+											1602$json_schema$Json$Schema$Builder$withMinLength,
+											2,
+											A2(
+												1602$json_schema$Json$Schema$Builder$withDescription,
+												'Two letter IATA airline code',
+												A2(
+													1602$json_schema$Json$Schema$Builder$withTitle,
+													'Airline Code',
+													A2(1602$json_schema$Json$Schema$Builder$withType, 'string', 1602$json_schema$Json$Schema$Builder$buildSchema)))))),
+									_Utils_Tuple2(
+									'return',
+									A3(
+										1602$json_schema$Json$Schema$Builder$withCustomKeyword,
+										'ui',
+										elm$json$Json$Encode$object(
+											_List_fromArray(
+												[
+													_Utils_Tuple2(
+													'widget',
+													elm$json$Json$Encode$string('switch'))
+												])),
+										A2(
+											1602$json_schema$Json$Schema$Builder$withDescription,
+											'One way or return flight',
+											A2(
+												1602$json_schema$Json$Schema$Builder$withTitle,
+												'Return',
+												A2(1602$json_schema$Json$Schema$Builder$withType, 'boolean', 1602$json_schema$Json$Schema$Builder$buildSchema))))),
+									_Utils_Tuple2(
+									'flightType',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withDefault,
+										elm$json$Json$Encode$string('any'),
+										A2(
+											1602$json_schema$Json$Schema$Builder$withEnum,
+											_List_fromArray(
+												[
+													elm$json$Json$Encode$string('domestic'),
+													elm$json$Json$Encode$string('international'),
+													elm$json$Json$Encode$string('any')
+												]),
+											A2(
+												1602$json_schema$Json$Schema$Builder$withDescription,
+												'Flight type is one of any/international/domestic',
+												A2(
+													1602$json_schema$Json$Schema$Builder$withTitle,
+													'Flight Type',
+													A2(1602$json_schema$Json$Schema$Builder$withType, 'string', 1602$json_schema$Json$Schema$Builder$buildSchema)))))),
+									_Utils_Tuple2(
+									'cabinClass',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withEnum,
+										_List_fromArray(
+											[
+												elm$json$Json$Encode$string('economy'),
+												elm$json$Json$Encode$string('premium economy'),
+												elm$json$Json$Encode$string('business'),
+												elm$json$Json$Encode$string('first')
+											]),
+										A2(
+											1602$json_schema$Json$Schema$Builder$withDescription,
+											'Specify a cabin class. One of economy/premium economy/business/first',
+											A2(
+												1602$json_schema$Json$Schema$Builder$withTitle,
+												'Cabin Class',
+												A2(1602$json_schema$Json$Schema$Builder$withType, 'string', 1602$json_schema$Json$Schema$Builder$buildSchema))))),
+									_Utils_Tuple2(
+									'earliestOffset',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withMinimum,
+										0,
+										A2(
+											1602$json_schema$Json$Schema$Builder$withDescription,
+											'Minutes before the first outbound flight may be chosen from the time of endpoint call',
+											A2(
+												1602$json_schema$Json$Schema$Builder$withTitle,
+												'Earliest Offset',
+												A2(1602$json_schema$Json$Schema$Builder$withType, 'number', 1602$json_schema$Json$Schema$Builder$buildSchema))))),
+									_Utils_Tuple2(
+									'latestOffset',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withMinimum,
+										0,
+										A2(
+											1602$json_schema$Json$Schema$Builder$withDescription,
+											'Minutes after the earliest offset that the last outbound flight may be chosen',
+											A2(
+												1602$json_schema$Json$Schema$Builder$withTitle,
+												'Latest Offset',
+												A2(1602$json_schema$Json$Schema$Builder$withType, 'number', 1602$json_schema$Json$Schema$Builder$buildSchema))))),
+									_Utils_Tuple2(
+									'minPassengers',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withMinimum,
+										0,
+										A2(
+											1602$json_schema$Json$Schema$Builder$withDescription,
+											'No less than specified number of passengers will be generated',
+											A2(
+												1602$json_schema$Json$Schema$Builder$withTitle,
+												'Minimum Passengers',
+												A2(1602$json_schema$Json$Schema$Builder$withType, 'number', 1602$json_schema$Json$Schema$Builder$buildSchema))))),
+									_Utils_Tuple2(
+									'maxPassengers',
+									A2(
+										1602$json_schema$Json$Schema$Builder$withMinimum,
+										0,
+										A2(
+											1602$json_schema$Json$Schema$Builder$withDescription,
+											'No more than specified number of passengers will be generated',
+											A2(
+												1602$json_schema$Json$Schema$Builder$withTitle,
+												'Maximum Passengers',
+												A2(1602$json_schema$Json$Schema$Builder$withType, 'number', 1602$json_schema$Json$Schema$Builder$buildSchema)))))
+								]),
+							A2(
+								1602$json_schema$Json$Schema$Builder$withRequired,
+								_List_fromArray(
+									['airlineCode']),
+								A2(1602$json_schema$Json$Schema$Builder$withType, 'object', 1602$json_schema$Json$Schema$Builder$buildSchema))))));
+	}
+};
+var elm$core$Platform$Cmd$batch = _Platform_batch;
+var elm$core$Platform$Cmd$none = elm$core$Platform$Cmd$batch(_List_Nil);
+var author$project$Demo$init = function (_n0) {
+	return _Utils_Tuple2(
+		{
+			editedValue: elm$core$Maybe$Nothing,
+			expandedNodes: _List_fromArray(
+				[_List_Nil]),
+			form: A2(
+				author$project$Json$Form$init,
+				author$project$Snippets$getSnippet(author$project$Demo$initialShowcase),
+				elm$core$Maybe$Nothing),
+			showcase: author$project$Demo$initialShowcase
+		},
+		elm$core$Platform$Cmd$none);
+};
+var author$project$Demo$JsonFormMsg = function (a) {
+	return {$: 'JsonFormMsg', a: a};
+};
+var 1602$json_value$Json$Value$NumericValue = function (a) {
+	return {$: 'NumericValue', a: a};
+};
+var 1602$json_value$Json$Value$StringValue = function (a) {
+	return {$: 'StringValue', a: a};
+};
+var elm$core$List$drop = F2(
+	function (n, list) {
+		drop:
+		while (true) {
+			if (n <= 0) {
+				return list;
+			} else {
+				if (!list.b) {
+					return list;
+				} else {
+					var x = list.a;
+					var xs = list.b;
+					var $temp$n = n - 1,
+						$temp$list = xs;
+					n = $temp$n;
+					list = $temp$list;
+					continue drop;
+				}
+			}
+		}
+	});
+var elm$core$List$head = function (list) {
+	if (list.b) {
+		var x = list.a;
+		var xs = list.b;
+		return elm$core$Maybe$Just(x);
+	} else {
+		return elm$core$Maybe$Nothing;
+	}
+};
+var elm$core$Result$fromMaybe = F2(
+	function (err, maybe) {
+		if (maybe.$ === 'Just') {
+			var v = maybe.a;
+			return elm$core$Result$Ok(v);
+		} else {
+			return elm$core$Result$Err(err);
+		}
+	});
+var elm$core$String$toInt = _String_toInt;
+var 1602$json_value$Json$Value$getIn = F2(
+	function (path, value) {
+		if (!path.b) {
+			return elm$core$Result$Ok(value);
+		} else {
+			var head = path.a;
+			var tail = path.b;
+			switch (value.$) {
+				case 'ObjectValue':
+					var v = value.a;
+					return A2(
+						elm$core$Result$andThen,
+						1602$json_value$Json$Value$getIn(tail),
+						A2(
+							elm$core$Result$fromMaybe,
+							'Key not found',
+							A3(
+								elm$core$List$foldl,
+								F2(
+									function (_n2, res) {
+										var key = _n2.a;
+										var val = _n2.b;
+										return (!_Utils_eq(res, elm$core$Maybe$Nothing)) ? res : (_Utils_eq(key, head) ? elm$core$Maybe$Just(val) : elm$core$Maybe$Nothing);
+									}),
+								elm$core$Maybe$Nothing,
+								v)));
+				case 'ArrayValue':
+					var v = value.a;
+					return A2(
+						elm$core$Result$andThen,
+						1602$json_value$Json$Value$getIn(tail),
+						A2(
+							elm$core$Result$andThen,
+							function (index) {
+								return A2(
+									elm$core$Result$fromMaybe,
+									'Index is too big',
+									elm$core$List$head(
+										A2(elm$core$List$drop, index, v)));
+							},
+							A2(
+								elm$core$Result$fromMaybe,
+								'Not an integer',
+								elm$core$String$toInt(head))));
+				default:
+					return elm$core$Result$Err('You are trying to access property of something that is not object or array');
+			}
+		}
+	});
+var author$project$Json$Form$None = {$: 'None'};
+var 1602$json_schema$Json$Schema$Definitions$ArrayOfItems = function (a) {
+	return {$: 'ArrayOfItems', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$ArrayPropNames = function (a) {
+	return {$: 'ArrayPropNames', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$BoolBoundary = function (a) {
+	return {$: 'BoolBoundary', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$ItemDefinition = function (a) {
+	return {$: 'ItemDefinition', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$NumberBoundary = function (a) {
+	return {$: 'NumberBoundary', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$PropSchema = function (a) {
+	return {$: 'PropSchema', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$SubSchema = function (type_) {
+	return function (id) {
+		return function (ref) {
+			return function (title) {
+				return function (description) {
+					return function (_default) {
+						return function (examples) {
+							return function (definitions) {
+								return function (multipleOf) {
+									return function (maximum) {
+										return function (exclusiveMaximum) {
+											return function (minimum) {
+												return function (exclusiveMinimum) {
+													return function (maxLength) {
+														return function (minLength) {
+															return function (pattern) {
+																return function (format) {
+																	return function (items) {
+																		return function (additionalItems) {
+																			return function (maxItems) {
+																				return function (minItems) {
+																					return function (uniqueItems) {
+																						return function (contains) {
+																							return function (maxProperties) {
+																								return function (minProperties) {
+																									return function (required) {
+																										return function (properties) {
+																											return function (patternProperties) {
+																												return function (additionalProperties) {
+																													return function (dependencies) {
+																														return function (propertyNames) {
+																															return function (_enum) {
+																																return function (_const) {
+																																	return function (allOf) {
+																																		return function (anyOf) {
+																																			return function (oneOf) {
+																																				return function (not) {
+																																					return function (source) {
+																																						return {additionalItems: additionalItems, additionalProperties: additionalProperties, allOf: allOf, anyOf: anyOf, _const: _const, contains: contains, _default: _default, definitions: definitions, dependencies: dependencies, description: description, _enum: _enum, examples: examples, exclusiveMaximum: exclusiveMaximum, exclusiveMinimum: exclusiveMinimum, format: format, id: id, items: items, maxItems: maxItems, maxLength: maxLength, maxProperties: maxProperties, maximum: maximum, minItems: minItems, minLength: minLength, minProperties: minProperties, minimum: minimum, multipleOf: multipleOf, not: not, oneOf: oneOf, pattern: pattern, patternProperties: patternProperties, properties: properties, propertyNames: propertyNames, ref: ref, required: required, source: source, title: title, type_: type_, uniqueItems: uniqueItems};
+																																					};
+																																				};
+																																			};
+																																		};
+																																	};
+																																};
+																															};
+																														};
+																													};
+																												};
+																											};
+																										};
+																									};
+																								};
+																							};
+																						};
+																					};
+																				};
+																			};
+																		};
+																	};
+																};
+															};
+														};
+													};
+												};
+											};
+										};
+									};
+								};
+							};
+						};
+					};
+				};
+			};
+		};
+	};
+};
+var elm$json$Json$Decode$fail = _Json_fail;
+var elm$json$Json$Decode$succeed = _Json_succeed;
+var 1602$json_schema$Json$Schema$Definitions$failIfEmpty = function (l) {
+	return elm$core$List$isEmpty(l) ? elm$json$Json$Decode$fail('List is empty') : elm$json$Json$Decode$succeed(l);
+};
+var 1602$json_schema$Json$Schema$Definitions$NullableType = function (a) {
+	return {$: 'NullableType', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$UnionType = function (a) {
+	return {$: 'UnionType', a: a};
+};
+var 1602$json_schema$Json$Schema$Definitions$singleTypeDecoder = function (s) {
+	var _n0 = 1602$json_schema$Json$Schema$Definitions$stringToType(s);
+	if (_n0.$ === 'Ok') {
+		var st = _n0.a;
+		return elm$json$Json$Decode$succeed(st);
+	} else {
+		var msg = _n0.a;
+		return elm$json$Json$Decode$fail(msg);
+	}
+};
+var 1602$json_schema$Util$foldResults = function (results) {
+	return A2(
+		elm$core$Result$map,
+		elm$core$List$reverse,
+		A3(
+			elm$core$List$foldl,
+			function (t) {
+				return elm$core$Result$andThen(
+					function (r) {
+						return A2(
+							elm$core$Result$map,
+							function (a) {
+								return A2(elm$core$List$cons, a, r);
+							},
+							t);
+					});
+			},
+			elm$core$Result$Ok(_List_Nil),
+			results));
+};
+var 1602$json_schema$Util$resultToDecoder = function (res) {
+	if (res.$ === 'Ok') {
+		var a = res.a;
+		return elm$json$Json$Decode$succeed(a);
+	} else {
+		var e = res.a;
+		return elm$json$Json$Decode$fail(e);
+	}
+};
+var elm$core$Basics$composeL = F3(
+	function (g, f, x) {
+		return g(
+			f(x));
+	});
+var elm$core$List$sortBy = _List_sortBy;
+var elm$core$List$sort = function (xs) {
+	return A2(elm$core$List$sortBy, elm$core$Basics$identity, xs);
+};
+var elm$json$Json$Decode$map = _Json_map1;
+var 1602$json_schema$Json$Schema$Definitions$multipleTypesDecoder = function (lst) {
+	_n0$3:
+	while (true) {
+		if (lst.b) {
+			if (lst.b.b) {
+				if (!lst.b.b.b) {
+					if (lst.b.a === 'null') {
+						var x = lst.a;
+						var _n1 = lst.b;
+						return A2(
+							elm$json$Json$Decode$map,
+							1602$json_schema$Json$Schema$Definitions$NullableType,
+							1602$json_schema$Json$Schema$Definitions$singleTypeDecoder(x));
+					} else {
+						if (lst.a === 'null') {
+							var _n2 = lst.b;
+							var x = _n2.a;
+							return A2(
+								elm$json$Json$Decode$map,
+								1602$json_schema$Json$Schema$Definitions$NullableType,
+								1602$json_schema$Json$Schema$Definitions$singleTypeDecoder(x));
+						} else {
+							break _n0$3;
+						}
+					}
+				} else {
+					break _n0$3;
+				}
+			} else {
+				var x = lst.a;
+				return A2(
+					elm$json$Json$Decode$map,
+					1602$json_schema$Json$Schema$Definitions$SingleType,
+					1602$json_schema$Json$Schema$Definitions$singleTypeDecoder(x));
+			}
+		} else {
+			break _n0$3;
+		}
+	}
+	var otherList = lst;
+	return 1602$json_schema$Util$resultToDecoder(
+		A2(
+			elm$core$Result$andThen,
+			A2(elm$core$Basics$composeL, elm$core$Result$Ok, 1602$json_schema$Json$Schema$Definitions$UnionType),
+			1602$json_schema$Util$foldResults(
+				A2(
+					elm$core$List$map,
+					1602$json_schema$Json$Schema$Definitions$stringToType,
+					elm$core$List$sort(otherList)))));
+};
+var 1602$json_schema$Json$Schema$Definitions$failIfValuesAreNotUnique = function (l) {
+	return elm$json$Json$Decode$succeed(l);
+};
+var elm$json$Json$Decode$andThen = _Json_andThen;
+var elm$json$Json$Decode$list = _Json_decodeList;
+var 1602$json_schema$Json$Schema$Definitions$nonEmptyUniqueArrayOfValuesDecoder = A2(
+	elm$json$Json$Decode$andThen,
+	1602$json_schema$Json$Schema$Definitions$failIfEmpty,
+	A2(
+		elm$json$Json$Decode$andThen,
+		1602$json_schema$Json$Schema$Definitions$failIfValuesAreNotUnique,
+		elm$json$Json$Decode$list(elm$json$Json$Decode$value)));
+var elm$core$Basics$ge = _Utils_ge;
+var elm$json$Json$Decode$int = _Json_decodeInt;
+var 1602$json_schema$Json$Schema$Definitions$nonNegativeInt = A2(
+	elm$json$Json$Decode$andThen,
+	function (x) {
+		return (x >= 0) ? elm$json$Json$Decode$succeed(x) : elm$json$Json$Decode$fail('Expected non-negative int');
+	},
+	elm$json$Json$Decode$int);
+var elm$json$Json$Decode$map2 = _Json_map2;
+var NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$custom = elm$json$Json$Decode$map2(elm$core$Basics$apR);
+var elm$json$Json$Decode$null = _Json_decodeNull;
+var elm$json$Json$Decode$oneOf = _Json_oneOf;
+var NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optionalDecoder = F3(
+	function (pathDecoder, valDecoder, fallback) {
+		var nullOr = function (decoder) {
+			return elm$json$Json$Decode$oneOf(
+				_List_fromArray(
+					[
+						decoder,
+						elm$json$Json$Decode$null(fallback)
+					]));
+		};
+		var handleResult = function (input) {
+			var _n0 = A2(elm$json$Json$Decode$decodeValue, pathDecoder, input);
+			if (_n0.$ === 'Ok') {
+				var rawValue = _n0.a;
+				var _n1 = A2(
+					elm$json$Json$Decode$decodeValue,
+					nullOr(valDecoder),
+					rawValue);
+				if (_n1.$ === 'Ok') {
+					var finalResult = _n1.a;
+					return elm$json$Json$Decode$succeed(finalResult);
+				} else {
+					var finalErr = _n1.a;
+					return elm$json$Json$Decode$fail(
+						elm$json$Json$Decode$errorToString(finalErr));
+				}
+			} else {
+				return elm$json$Json$Decode$succeed(fallback);
+			}
+		};
+		return A2(elm$json$Json$Decode$andThen, handleResult, elm$json$Json$Decode$value);
+	});
+var elm$json$Json$Decode$field = _Json_decodeField;
+var NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional = F4(
+	function (key, valDecoder, fallback, decoder) {
+		return A2(
+			NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$custom,
+			A3(
+				NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optionalDecoder,
+				A2(elm$json$Json$Decode$field, key, elm$json$Json$Decode$value),
+				valDecoder,
+				fallback),
+			decoder);
+	});
+var elm$json$Json$Decode$at = F2(
+	function (fields, decoder) {
+		return A3(elm$core$List$foldr, elm$json$Json$Decode$field, decoder, fields);
+	});
+var NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$requiredAt = F3(
+	function (path, valDecoder, decoder) {
+		return A2(
+			NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$custom,
+			A2(elm$json$Json$Decode$at, path, valDecoder),
+			decoder);
+	});
+var elm$json$Json$Decode$bool = _Json_decodeBool;
+var elm$json$Json$Decode$float = _Json_decodeFloat;
+var elm$json$Json$Decode$lazy = function (thunk) {
+	return A2(
+		elm$json$Json$Decode$andThen,
+		thunk,
+		elm$json$Json$Decode$succeed(_Utils_Tuple0));
+};
+var elm$json$Json$Decode$maybe = function (decoder) {
+	return elm$json$Json$Decode$oneOf(
+		_List_fromArray(
+			[
+				A2(elm$json$Json$Decode$map, elm$core$Maybe$Just, decoder),
+				elm$json$Json$Decode$succeed(elm$core$Maybe$Nothing)
+			]));
+};
+var elm$json$Json$Decode$nullable = function (decoder) {
+	return elm$json$Json$Decode$oneOf(
+		_List_fromArray(
+			[
+				elm$json$Json$Decode$null(elm$core$Maybe$Nothing),
+				A2(elm$json$Json$Decode$map, elm$core$Maybe$Just, decoder)
+			]));
+};
+var elm$json$Json$Decode$string = _Json_decodeString;
+function 1602$json_schema$Json$Schema$Definitions$cyclic$itemsDecoder() {
+	return elm$json$Json$Decode$oneOf(
+		_List_fromArray(
+			[
+				A2(
+				elm$json$Json$Decode$map,
+				1602$json_schema$Json$Schema$Definitions$ArrayOfItems,
+				elm$json$Json$Decode$list(
+					1602$json_schema$Json$Schema$Definitions$cyclic$decoder())),
+				A2(
+				elm$json$Json$Decode$map,
+				1602$json_schema$Json$Schema$Definitions$ItemDefinition,
+				1602$json_schema$Json$Schema$Definitions$cyclic$decoder())
+			]));
+}
+function 1602$json_schema$Json$Schema$Definitions$cyclic$dependenciesDecoder() {
+	return elm$json$Json$Decode$keyValuePairs(
+		elm$json$Json$Decode$oneOf(
+			_List_fromArray(
+				[
+					A2(
+					elm$json$Json$Decode$map,
+					1602$json_schema$Json$Schema$Definitions$ArrayPropNames,
+					elm$json$Json$Decode$list(elm$json$Json$Decode$string)),
+					A2(
+					elm$json$Json$Decode$map,
+					1602$json_schema$Json$Schema$Definitions$PropSchema,
+					1602$json_schema$Json$Schema$Definitions$cyclic$decoder())
+				])));
+}
+function 1602$json_schema$Json$Schema$Definitions$cyclic$decoder() {
+	var singleType = A2(elm$json$Json$Decode$andThen, 1602$json_schema$Json$Schema$Definitions$singleTypeDecoder, elm$json$Json$Decode$string);
+	var multipleTypes = A2(
+		elm$json$Json$Decode$andThen,
+		1602$json_schema$Json$Schema$Definitions$multipleTypesDecoder,
+		elm$json$Json$Decode$list(elm$json$Json$Decode$string));
+	var exclusiveBoundaryDecoder = elm$json$Json$Decode$oneOf(
+		_List_fromArray(
+			[
+				A2(elm$json$Json$Decode$map, 1602$json_schema$Json$Schema$Definitions$BoolBoundary, elm$json$Json$Decode$bool),
+				A2(elm$json$Json$Decode$map, 1602$json_schema$Json$Schema$Definitions$NumberBoundary, elm$json$Json$Decode$float)
+			]));
+	var objectSchemaDecoder = A3(
+		NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$requiredAt,
+		_List_Nil,
+		elm$json$Json$Decode$value,
+		A4(
+			NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+			'not',
+			elm$json$Json$Decode$nullable(
+				elm$json$Json$Decode$lazy(
+					function (_n14) {
+						return 1602$json_schema$Json$Schema$Definitions$cyclic$decoder();
+					})),
+			elm$core$Maybe$Nothing,
+			A4(
+				NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+				'oneOf',
+				elm$json$Json$Decode$nullable(
+					elm$json$Json$Decode$lazy(
+						function (_n13) {
+							return 1602$json_schema$Json$Schema$Definitions$cyclic$nonEmptyListOfSchemas();
+						})),
+				elm$core$Maybe$Nothing,
+				A4(
+					NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+					'anyOf',
+					elm$json$Json$Decode$nullable(
+						elm$json$Json$Decode$lazy(
+							function (_n12) {
+								return 1602$json_schema$Json$Schema$Definitions$cyclic$nonEmptyListOfSchemas();
+							})),
+					elm$core$Maybe$Nothing,
+					A4(
+						NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+						'allOf',
+						elm$json$Json$Decode$nullable(
+							elm$json$Json$Decode$lazy(
+								function (_n11) {
+									return 1602$json_schema$Json$Schema$Definitions$cyclic$nonEmptyListOfSchemas();
+								})),
+						elm$core$Maybe$Nothing,
+						A4(
+							NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+							'const',
+							A2(elm$json$Json$Decode$map, elm$core$Maybe$Just, elm$json$Json$Decode$value),
+							elm$core$Maybe$Nothing,
+							A4(
+								NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+								'enum',
+								elm$json$Json$Decode$nullable(1602$json_schema$Json$Schema$Definitions$nonEmptyUniqueArrayOfValuesDecoder),
+								elm$core$Maybe$Nothing,
+								A4(
+									NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+									'propertyNames',
+									elm$json$Json$Decode$nullable(
+										elm$json$Json$Decode$lazy(
+											function (_n10) {
+												return 1602$json_schema$Json$Schema$Definitions$cyclic$decoder();
+											})),
+									elm$core$Maybe$Nothing,
+									A4(
+										NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+										'dependencies',
+										elm$json$Json$Decode$lazy(
+											function (_n9) {
+												return 1602$json_schema$Json$Schema$Definitions$cyclic$dependenciesDecoder();
+											}),
+										_List_Nil,
+										A4(
+											NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+											'additionalProperties',
+											elm$json$Json$Decode$nullable(
+												elm$json$Json$Decode$lazy(
+													function (_n8) {
+														return 1602$json_schema$Json$Schema$Definitions$cyclic$decoder();
+													})),
+											elm$core$Maybe$Nothing,
+											A4(
+												NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+												'patternProperties',
+												elm$json$Json$Decode$nullable(
+													elm$json$Json$Decode$lazy(
+														function (_n7) {
+															return 1602$json_schema$Json$Schema$Definitions$cyclic$schemataDecoder();
+														})),
+												elm$core$Maybe$Nothing,
+												A4(
+													NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+													'properties',
+													elm$json$Json$Decode$nullable(
+														elm$json$Json$Decode$lazy(
+															function (_n6) {
+																return 1602$json_schema$Json$Schema$Definitions$cyclic$schemataDecoder();
+															})),
+													elm$core$Maybe$Nothing,
+													A4(
+														NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+														'required',
+														elm$json$Json$Decode$nullable(
+															elm$json$Json$Decode$list(elm$json$Json$Decode$string)),
+														elm$core$Maybe$Nothing,
+														A4(
+															NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+															'minProperties',
+															elm$json$Json$Decode$nullable(1602$json_schema$Json$Schema$Definitions$nonNegativeInt),
+															elm$core$Maybe$Nothing,
+															A4(
+																NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																'maxProperties',
+																elm$json$Json$Decode$nullable(1602$json_schema$Json$Schema$Definitions$nonNegativeInt),
+																elm$core$Maybe$Nothing,
+																A4(
+																	NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																	'contains',
+																	elm$json$Json$Decode$nullable(
+																		elm$json$Json$Decode$lazy(
+																			function (_n5) {
+																				return 1602$json_schema$Json$Schema$Definitions$cyclic$decoder();
+																			})),
+																	elm$core$Maybe$Nothing,
+																	A4(
+																		NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																		'uniqueItems',
+																		elm$json$Json$Decode$nullable(elm$json$Json$Decode$bool),
+																		elm$core$Maybe$Nothing,
+																		A4(
+																			NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																			'minItems',
+																			elm$json$Json$Decode$nullable(1602$json_schema$Json$Schema$Definitions$nonNegativeInt),
+																			elm$core$Maybe$Nothing,
+																			A4(
+																				NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																				'maxItems',
+																				elm$json$Json$Decode$nullable(1602$json_schema$Json$Schema$Definitions$nonNegativeInt),
+																				elm$core$Maybe$Nothing,
+																				A4(
+																					NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																					'additionalItems',
+																					elm$json$Json$Decode$nullable(
+																						elm$json$Json$Decode$lazy(
+																							function (_n4) {
+																								return 1602$json_schema$Json$Schema$Definitions$cyclic$decoder();
+																							})),
+																					elm$core$Maybe$Nothing,
+																					A4(
+																						NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																						'items',
+																						elm$json$Json$Decode$lazy(
+																							function (_n3) {
+																								return 1602$json_schema$Json$Schema$Definitions$cyclic$itemsDecoder();
+																							}),
+																						1602$json_schema$Json$Schema$Definitions$NoItems,
+																						A4(
+																							NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																							'format',
+																							elm$json$Json$Decode$nullable(elm$json$Json$Decode$string),
+																							elm$core$Maybe$Nothing,
+																							A4(
+																								NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																								'pattern',
+																								elm$json$Json$Decode$nullable(elm$json$Json$Decode$string),
+																								elm$core$Maybe$Nothing,
+																								A4(
+																									NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																									'minLength',
+																									elm$json$Json$Decode$nullable(1602$json_schema$Json$Schema$Definitions$nonNegativeInt),
+																									elm$core$Maybe$Nothing,
+																									A4(
+																										NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																										'maxLength',
+																										elm$json$Json$Decode$nullable(1602$json_schema$Json$Schema$Definitions$nonNegativeInt),
+																										elm$core$Maybe$Nothing,
+																										A4(
+																											NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																											'exclusiveMinimum',
+																											elm$json$Json$Decode$nullable(exclusiveBoundaryDecoder),
+																											elm$core$Maybe$Nothing,
+																											A4(
+																												NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																												'minimum',
+																												elm$json$Json$Decode$nullable(elm$json$Json$Decode$float),
+																												elm$core$Maybe$Nothing,
+																												A4(
+																													NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																													'exclusiveMaximum',
+																													elm$json$Json$Decode$nullable(exclusiveBoundaryDecoder),
+																													elm$core$Maybe$Nothing,
+																													A4(
+																														NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																														'maximum',
+																														elm$json$Json$Decode$nullable(elm$json$Json$Decode$float),
+																														elm$core$Maybe$Nothing,
+																														A4(
+																															NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																															'multipleOf',
+																															elm$json$Json$Decode$nullable(elm$json$Json$Decode$float),
+																															elm$core$Maybe$Nothing,
+																															A4(
+																																NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																																'definitions',
+																																elm$json$Json$Decode$nullable(
+																																	elm$json$Json$Decode$lazy(
+																																		function (_n2) {
+																																			return 1602$json_schema$Json$Schema$Definitions$cyclic$schemataDecoder();
+																																		})),
+																																elm$core$Maybe$Nothing,
+																																A4(
+																																	NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																																	'examples',
+																																	elm$json$Json$Decode$nullable(
+																																		elm$json$Json$Decode$list(elm$json$Json$Decode$value)),
+																																	elm$core$Maybe$Nothing,
+																																	A4(
+																																		NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																																		'default',
+																																		A2(elm$json$Json$Decode$map, elm$core$Maybe$Just, elm$json$Json$Decode$value),
+																																		elm$core$Maybe$Nothing,
+																																		A4(
+																																			NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																																			'description',
+																																			elm$json$Json$Decode$nullable(elm$json$Json$Decode$string),
+																																			elm$core$Maybe$Nothing,
+																																			A4(
+																																				NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																																				'title',
+																																				elm$json$Json$Decode$nullable(elm$json$Json$Decode$string),
+																																				elm$core$Maybe$Nothing,
+																																				A4(
+																																					NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																																					'$ref',
+																																					elm$json$Json$Decode$nullable(elm$json$Json$Decode$string),
+																																					elm$core$Maybe$Nothing,
+																																					A2(
+																																						NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$custom,
+																																						A3(
+																																							elm$json$Json$Decode$map2,
+																																							F2(
+																																								function (a, b) {
+																																									return _Utils_eq(a, elm$core$Maybe$Nothing) ? b : a;
+																																								}),
+																																							elm$json$Json$Decode$maybe(
+																																								A2(elm$json$Json$Decode$field, '$id', elm$json$Json$Decode$string)),
+																																							elm$json$Json$Decode$maybe(
+																																								A2(elm$json$Json$Decode$field, 'id', elm$json$Json$Decode$string))),
+																																						A4(
+																																							NoRedInk$elm_json_decode_pipeline$Json$Decode$Pipeline$optional,
+																																							'type',
+																																							elm$json$Json$Decode$oneOf(
+																																								_List_fromArray(
+																																									[
+																																										multipleTypes,
+																																										A2(elm$json$Json$Decode$map, 1602$json_schema$Json$Schema$Definitions$SingleType, singleType)
+																																									])),
+																																							1602$json_schema$Json$Schema$Definitions$AnyType,
+																																							elm$json$Json$Decode$succeed(1602$json_schema$Json$Schema$Definitions$SubSchema)))))))))))))))))))))))))))))))))))))));
+	var booleanSchemaDecoder = A2(
+		elm$json$Json$Decode$andThen,
+		function (b) {
+			return b ? elm$json$Json$Decode$succeed(
+				1602$json_schema$Json$Schema$Definitions$BooleanSchema(true)) : elm$json$Json$Decode$succeed(
+				1602$json_schema$Json$Schema$Definitions$BooleanSchema(false));
+		},
+		elm$json$Json$Decode$bool);
+	return elm$json$Json$Decode$oneOf(
+		_List_fromArray(
+			[
+				booleanSchemaDecoder,
+				A2(
+				elm$json$Json$Decode$andThen,
+				function (b) {
+					return elm$json$Json$Decode$succeed(
+						1602$json_schema$Json$Schema$Definitions$ObjectSchema(b));
+				},
+				objectSchemaDecoder)
+			]));
+}
+function 1602$json_schema$Json$Schema$Definitions$cyclic$nonEmptyListOfSchemas() {
+	return A2(
+		elm$json$Json$Decode$andThen,
+		1602$json_schema$Json$Schema$Definitions$failIfEmpty,
+		elm$json$Json$Decode$list(
+			elm$json$Json$Decode$lazy(
+				function (_n1) {
+					return 1602$json_schema$Json$Schema$Definitions$cyclic$decoder();
+				})));
+}
+function 1602$json_schema$Json$Schema$Definitions$cyclic$schemataDecoder() {
+	return A2(
+		elm$json$Json$Decode$map,
+		1602$json_schema$Json$Schema$Definitions$Schemata,
+		A2(
+			elm$json$Json$Decode$andThen,
+			function (x) {
+				return elm$json$Json$Decode$succeed(
+					elm$core$List$reverse(x));
+			},
+			elm$json$Json$Decode$keyValuePairs(
+				elm$json$Json$Decode$lazy(
+					function (_n0) {
+						return 1602$json_schema$Json$Schema$Definitions$cyclic$decoder();
+					}))));
+}
+try {
+	var 1602$json_schema$Json$Schema$Definitions$itemsDecoder = 1602$json_schema$Json$Schema$Definitions$cyclic$itemsDecoder();
+	1602$json_schema$Json$Schema$Definitions$cyclic$itemsDecoder = function () {
+		return 1602$json_schema$Json$Schema$Definitions$itemsDecoder;
+	};
+	var 1602$json_schema$Json$Schema$Definitions$dependenciesDecoder = 1602$json_schema$Json$Schema$Definitions$cyclic$dependenciesDecoder();
+	1602$json_schema$Json$Schema$Definitions$cyclic$dependenciesDecoder = function () {
+		return 1602$json_schema$Json$Schema$Definitions$dependenciesDecoder;
+	};
+	var 1602$json_schema$Json$Schema$Definitions$decoder = 1602$json_schema$Json$Schema$Definitions$cyclic$decoder();
+	1602$json_schema$Json$Schema$Definitions$cyclic$decoder = function () {
+		return 1602$json_schema$Json$Schema$Definitions$decoder;
+	};
+	var 1602$json_schema$Json$Schema$Definitions$nonEmptyListOfSchemas = 1602$json_schema$Json$Schema$Definitions$cyclic$nonEmptyListOfSchemas();
+	1602$json_schema$Json$Schema$Definitions$cyclic$nonEmptyListOfSchemas = function () {
+		return 1602$json_schema$Json$Schema$Definitions$nonEmptyListOfSchemas;
+	};
+	var 1602$json_schema$Json$Schema$Definitions$schemataDecoder = 1602$json_schema$Json$Schema$Definitions$cyclic$schemataDecoder();
+	1602$json_schema$Json$Schema$Definitions$cyclic$schemataDecoder = function () {
+		return 1602$json_schema$Json$Schema$Definitions$schemataDecoder;
+	};
+} catch ($) {
+throw 'Some top-level definitions from `Json.Schema.Definitions` are causing infinite recursion:\n\n  ┌─────┐\n  │    itemsDecoder\n  │     ↓\n  │    dependenciesDecoder\n  │     ↓\n  │    decoder\n  │     ↓\n  │    nonEmptyListOfSchemas\n  │     ↓\n  │    schemataDecoder\n  └─────┘\n\nThese errors are very tricky, so read https://elm-lang.org/0.19.0/halting-problem to learn how to fix it!';}
+var 1602$json_schema$Json$Schema$Helpers$makeJsonPointer = function (_n0) {
+	var isPointer = _n0.a;
+	var ns = _n0.b;
+	var path = _n0.c;
+	return isPointer ? _Utils_ap(
+		ns,
+		A2(
+			elm$core$String$join,
+			'/',
+			A2(elm$core$List$cons, '#', path))) : (elm$core$List$isEmpty(path) ? ns : _Utils_ap(
+		ns + '#',
+		A2(elm$core$String$join, '/', path)));
+};
+var elm$core$Maybe$withDefault = F2(
+	function (_default, maybe) {
+		if (maybe.$ === 'Just') {
+			var value = maybe.a;
+			return value;
+		} else {
+			return _default;
+		}
+	});
+var elm$regex$Regex$Match = F4(
+	function (match, index, number, submatches) {
+		return {index: index, match: match, number: number, submatches: submatches};
+	});
+var elm$regex$Regex$fromStringWith = _Regex_fromStringWith;
+var elm$regex$Regex$fromString = function (string) {
+	return A2(
+		elm$regex$Regex$fromStringWith,
+		{caseInsensitive: false, multiline: false},
+		string);
+};
+var elm$regex$Regex$never = _Regex_never;
+var 1602$json_schema$Ref$absoluteUri = A2(
+	elm$core$Maybe$withDefault,
+	elm$regex$Regex$never,
+	elm$regex$Regex$fromString('\\/\\/|^\\/'));
+var 1602$json_schema$Ref$lastFragment = A2(
+	elm$core$Maybe$withDefault,
+	elm$regex$Regex$never,
+	elm$regex$Regex$fromString('\\/[^\\/]*$'));
+var 1602$json_schema$Ref$percent = A2(
+	elm$core$Maybe$withDefault,
+	elm$regex$Regex$never,
+	elm$regex$Regex$fromString('%25'));
+var 1602$json_schema$Ref$slash = A2(
+	elm$core$Maybe$withDefault,
+	elm$regex$Regex$never,
+	elm$regex$Regex$fromString('~1'));
+var 1602$json_schema$Ref$tilde = A2(
+	elm$core$Maybe$withDefault,
+	elm$regex$Regex$never,
+	elm$regex$Regex$fromString('~0'));
+var elm$regex$Regex$replace = _Regex_replaceAtMost(_Regex_infinity);
+var 1602$json_schema$Ref$unescapeJsonPathFragment = function (s) {
+	return A3(
+		elm$regex$Regex$replace,
+		1602$json_schema$Ref$percent,
+		function (_n2) {
+			return '%';
+		},
+		A3(
+			elm$regex$Regex$replace,
+			1602$json_schema$Ref$slash,
+			function (_n1) {
+				return '/';
+			},
+			A3(
+				elm$regex$Regex$replace,
+				1602$json_schema$Ref$tilde,
+				function (_n0) {
+					return '~';
+				},
+				s)));
+};
+var elm$regex$Regex$contains = _Regex_contains;
+var 1602$json_schema$Ref$parseJsonPointer = F2(
+	function (pointer, currentNamespace) {
+		var isAbsolute = elm$regex$Regex$contains(1602$json_schema$Ref$absoluteUri);
+		var hasFragments = elm$regex$Regex$contains(1602$json_schema$Ref$lastFragment);
+		var merge = F2(
+			function (base, relative) {
+				return (isAbsolute(base) && hasFragments(base)) ? A3(
+					elm$regex$Regex$replace,
+					1602$json_schema$Ref$lastFragment,
+					function (_n3) {
+						return '/' + relative;
+					},
+					base) : relative;
+			});
+		var _n0 = function () {
+			var _n1 = A2(elm$core$String$split, '#', pointer);
+			if (!_n1.b) {
+				return _Utils_Tuple2(currentNamespace, '');
+			} else {
+				if (!_n1.b.b) {
+					var a = _n1.a;
+					return (a === '') ? _Utils_Tuple2(currentNamespace, '') : (isAbsolute(a) ? _Utils_Tuple2(a, '') : _Utils_Tuple2(
+						A2(merge, currentNamespace, a),
+						''));
+				} else {
+					var a = _n1.a;
+					var _n2 = _n1.b;
+					var b = _n2.a;
+					return (a === '') ? _Utils_Tuple2(currentNamespace, b) : (isAbsolute(a) ? _Utils_Tuple2(a, b) : _Utils_Tuple2(
+						A2(merge, currentNamespace, a),
+						b));
+				}
+			}
+		}();
+		var ns = _n0.a;
+		var hash = _n0.b;
+		var isPointer = hasFragments(hash);
+		return _Utils_Tuple3(
+			isPointer,
+			ns,
+			isPointer ? A2(
+				elm$core$List$map,
+				1602$json_schema$Ref$unescapeJsonPathFragment,
+				A2(
+					elm$core$List$drop,
+					1,
+					A2(elm$core$String$split, '/', hash))) : ((hash !== '') ? _List_fromArray(
+				[hash]) : _List_Nil));
+	});
+var elm$core$Dict$Black = {$: 'Black'};
+var elm$core$Dict$RBNode_elm_builtin = F5(
+	function (a, b, c, d, e) {
+		return {$: 'RBNode_elm_builtin', a: a, b: b, c: c, d: d, e: e};
+	});
+var elm$core$Basics$compare = _Utils_compare;
+var elm$core$Dict$Red = {$: 'Red'};
+var elm$core$Dict$balance = F5(
+	function (color, key, value, left, right) {
+		if ((right.$ === 'RBNode_elm_builtin') && (right.a.$ === 'Red')) {
+			var _n1 = right.a;
+			var rK = right.b;
+			var rV = right.c;
+			var rLeft = right.d;
+			var rRight = right.e;
+			if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) {
+				var _n3 = left.a;
+				var lK = left.b;
+				var lV = left.c;
+				var lLeft = left.d;
+				var lRight = left.e;
+				return A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					elm$core$Dict$Red,
+					key,
+					value,
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Black, lK, lV, lLeft, lRight),
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Black, rK, rV, rLeft, rRight));
+			} else {
+				return A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					color,
+					rK,
+					rV,
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, key, value, left, rLeft),
+					rRight);
+			}
+		} else {
+			if ((((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) && (left.d.$ === 'RBNode_elm_builtin')) && (left.d.a.$ === 'Red')) {
+				var _n5 = left.a;
+				var lK = left.b;
+				var lV = left.c;
+				var _n6 = left.d;
+				var _n7 = _n6.a;
+				var llK = _n6.b;
+				var llV = _n6.c;
+				var llLeft = _n6.d;
+				var llRight = _n6.e;
+				var lRight = left.e;
+				return A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					elm$core$Dict$Red,
+					lK,
+					lV,
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Black, llK, llV, llLeft, llRight),
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Black, key, value, lRight, right));
+			} else {
+				return A5(elm$core$Dict$RBNode_elm_builtin, color, key, value, left, right);
+			}
+		}
+	});
+var elm$core$Dict$insertHelp = F3(
+	function (key, value, dict) {
+		if (dict.$ === 'RBEmpty_elm_builtin') {
+			return A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, key, value, elm$core$Dict$RBEmpty_elm_builtin, elm$core$Dict$RBEmpty_elm_builtin);
+		} else {
+			var nColor = dict.a;
+			var nKey = dict.b;
+			var nValue = dict.c;
+			var nLeft = dict.d;
+			var nRight = dict.e;
+			var _n1 = A2(elm$core$Basics$compare, key, nKey);
+			switch (_n1.$) {
+				case 'LT':
+					return A5(
+						elm$core$Dict$balance,
+						nColor,
+						nKey,
+						nValue,
+						A3(elm$core$Dict$insertHelp, key, value, nLeft),
+						nRight);
+				case 'EQ':
+					return A5(elm$core$Dict$RBNode_elm_builtin, nColor, nKey, value, nLeft, nRight);
+				default:
+					return A5(
+						elm$core$Dict$balance,
+						nColor,
+						nKey,
+						nValue,
+						nLeft,
+						A3(elm$core$Dict$insertHelp, key, value, nRight));
+			}
+		}
+	});
+var elm$core$Dict$insert = F3(
+	function (key, value, dict) {
+		var _n0 = A3(elm$core$Dict$insertHelp, key, value, dict);
+		if ((_n0.$ === 'RBNode_elm_builtin') && (_n0.a.$ === 'Red')) {
+			var _n1 = _n0.a;
+			var k = _n0.b;
+			var v = _n0.c;
+			var l = _n0.d;
+			var r = _n0.e;
+			return A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Black, k, v, l, r);
+		} else {
+			var x = _n0;
+			return x;
+		}
+	});
+var 1602$json_schema$Json$Schema$Helpers$collectIds = F2(
+	function (schema, pool) {
+		var manageId = F4(
+			function (ns, source, poolLocal, obj) {
+				var _n6 = A2(
+					elm$core$List$filter,
+					function (_n7) {
+						var name = _n7.a;
+						return (name === 'id') || (name === '$id');
+					},
+					obj);
+				if (_n6.b) {
+					var _n8 = _n6.a;
+					var val = _n8.b;
+					return A2(
+						elm$core$Result$withDefault,
+						_Utils_Tuple2(
+							obj,
+							_Utils_Tuple2(poolLocal, ns)),
+						A2(
+							elm$core$Result$map,
+							function (id) {
+								var _n9 = A2(1602$json_schema$Ref$parseJsonPointer, id, ns);
+								var isPointer = _n9.a;
+								var newNs = _n9.b;
+								var path = _n9.c;
+								var _n10 = A2(elm$json$Json$Decode$decodeValue, 1602$json_schema$Json$Schema$Definitions$decoder, source);
+								if (_n10.$ === 'Ok') {
+									var schemaLocal = _n10.a;
+									return _Utils_Tuple2(
+										obj,
+										_Utils_Tuple2(
+											A3(
+												elm$core$Dict$insert,
+												1602$json_schema$Json$Schema$Helpers$makeJsonPointer(
+													_Utils_Tuple3(isPointer, newNs, path)),
+												schemaLocal,
+												poolLocal),
+											newNs));
+								} else {
+									return _Utils_Tuple2(
+										obj,
+										_Utils_Tuple2(poolLocal, ns));
+								}
+							},
+							A2(elm$json$Json$Decode$decodeValue, elm$json$Json$Decode$string, val)));
+				} else {
+					return _Utils_Tuple2(
+						obj,
+						_Utils_Tuple2(poolLocal, ns));
+				}
+			});
+		var walkValue = F2(
+			function (source, _n0) {
+				var poolLocal = _n0.a;
+				var ns = _n0.b;
+				return function (_n1) {
+					var list = _n1.a;
+					var res = _n1.b;
+					return A3(
+						elm$core$List$foldl,
+						function (_n2) {
+							var key = _n2.a;
+							var val = _n2.b;
+							return walkValue(val);
+						},
+						res,
+						list);
+				}(
+					A4(
+						manageId,
+						ns,
+						source,
+						poolLocal,
+						A2(
+							elm$core$Result$withDefault,
+							_List_Nil,
+							A2(
+								elm$json$Json$Decode$decodeValue,
+								elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+								source))));
+			});
+		var getNs = function (uri) {
+			if (uri.$ === 'Just') {
+				var s = uri.a;
+				var _n5 = A2(1602$json_schema$Ref$parseJsonPointer, s, '');
+				var isPointer = _n5.a;
+				var ns = _n5.b;
+				return ns;
+			} else {
+				return '';
+			}
+		};
+		if (schema.$ === 'ObjectSchema') {
+			var id = schema.a.id;
+			var source = schema.a.source;
+			return A2(
+				walkValue,
+				source,
+				_Utils_Tuple2(
+					pool,
+					getNs(id)));
+		} else {
+			return _Utils_Tuple2(pool, '');
+		}
+	});
+var 1602$json_schema$Json$Schema$Validation$AdditionalPropertiesDisallowed = function (a) {
+	return {$: 'AdditionalPropertiesDisallowed', a: a};
+};
+var 1602$json_schema$Json$Schema$Validation$AdditionalPropertyDisallowed = {$: 'AdditionalPropertyDisallowed'};
+var 1602$json_schema$Json$Schema$Validation$AlwaysFail = {$: 'AlwaysFail'};
+var 1602$json_schema$Json$Schema$Validation$Const = {$: 'Const'};
+var 1602$json_schema$Json$Schema$Validation$Contains = {$: 'Contains'};
+var 1602$json_schema$Json$Schema$Validation$Enum = {$: 'Enum'};
+var 1602$json_schema$Json$Schema$Validation$Error = F2(
+	function (jsonPointer, details) {
+		return {details: details, jsonPointer: jsonPointer};
+	});
+var 1602$json_schema$Json$Schema$Validation$ExclusiveMaximum = F2(
+	function (a, b) {
+		return {$: 'ExclusiveMaximum', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$ExclusiveMinimum = F2(
+	function (a, b) {
+		return {$: 'ExclusiveMinimum', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$InvalidPropertyName = function (a) {
+	return {$: 'InvalidPropertyName', a: a};
+};
+var 1602$json_schema$Json$Schema$Validation$InvalidType = function (a) {
+	return {$: 'InvalidType', a: a};
+};
+var 1602$json_schema$Json$Schema$Validation$JsonPointer = F2(
+	function (ns, path) {
+		return {ns: ns, path: path};
+	});
+var 1602$json_schema$Json$Schema$Validation$MaxItems = F2(
+	function (a, b) {
+		return {$: 'MaxItems', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$MaxLength = F2(
+	function (a, b) {
+		return {$: 'MaxLength', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$MaxProperties = F2(
+	function (a, b) {
+		return {$: 'MaxProperties', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$Maximum = F2(
+	function (a, b) {
+		return {$: 'Maximum', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$MinItems = F2(
+	function (a, b) {
+		return {$: 'MinItems', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$MinLength = F2(
+	function (a, b) {
+		return {$: 'MinLength', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$MinProperties = F2(
+	function (a, b) {
+		return {$: 'MinProperties', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$Minimum = F2(
+	function (a, b) {
+		return {$: 'Minimum', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$MultipleOf = F2(
+	function (a, b) {
+		return {$: 'MultipleOf', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$Not = {$: 'Not'};
+var 1602$json_schema$Json$Schema$Validation$OneOfManySucceed = function (a) {
+	return {$: 'OneOfManySucceed', a: a};
+};
+var 1602$json_schema$Json$Schema$Validation$OneOfNoneSucceed = {$: 'OneOfNoneSucceed'};
+var 1602$json_schema$Json$Schema$Validation$Pattern = F2(
+	function (a, b) {
+		return {$: 'Pattern', a: a, b: b};
+	});
+var 1602$json_schema$Json$Schema$Validation$Required = function (a) {
+	return {$: 'Required', a: a};
+};
+var 1602$json_schema$Json$Schema$Validation$RequiredProperty = {$: 'RequiredProperty'};
+var 1602$json_schema$Json$Schema$Validation$UniqueItems = function (a) {
+	return {$: 'UniqueItems', a: a};
+};
+var 1602$json_schema$Json$Schema$Validation$UnresolvableReference = function (a) {
+	return {$: 'UnresolvableReference', a: a};
+};
+var 1602$json_schema$Json$Schema$Validation$stringify = elm$json$Json$Encode$encode(0);
+var 1602$json_schema$Json$Schema$Validation$canonical = function (v) {
+	var _n0 = A2(
+		elm$json$Json$Decode$decodeValue,
+		elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+		v);
+	if (_n0.$ === 'Ok') {
+		var obj = _n0.a;
+		return 1602$json_schema$Json$Schema$Validation$stringify(
+			elm$json$Json$Encode$object(
+				A2(
+					elm$core$List$sortBy,
+					function (_n1) {
+						var k = _n1.a;
+						return k;
+					},
+					obj)));
+	} else {
+		return 1602$json_schema$Json$Schema$Validation$stringify(v);
+	}
+};
+var 1602$json_schema$Json$Schema$Validation$concatErrors = elm$core$List$foldl(
+	F2(
+		function (x, res) {
+			if (x.$ === 'Ok') {
+				return res;
+			} else {
+				var list = x.a;
+				if (res.$ === 'Ok') {
+					var xx = res.a;
+					return x;
+				} else {
+					var list2 = res.a;
+					return elm$core$Result$Err(
+						_Utils_ap(list2, list));
+				}
+			}
+		}));
+var 1602$json_schema$Ref$makeJsonPointer = function (_n0) {
+	var isPointer = _n0.a;
+	var ns = _n0.b;
+	var path = _n0.c;
+	return isPointer ? _Utils_ap(
+		ns,
+		A2(
+			elm$core$String$join,
+			'/',
+			A2(elm$core$List$cons, '#', path))) : (elm$core$List$isEmpty(path) ? ns : _Utils_ap(
+		ns + '#',
+		A2(elm$core$String$join, '/', path)));
+};
+var elm$core$Basics$negate = function (n) {
+	return -n;
+};
+var elm$core$String$slice = _String_slice;
+var elm$core$String$dropRight = F2(
+	function (n, string) {
+		return (n < 1) ? string : A3(elm$core$String$slice, 0, -n, string);
+	});
+var elm$core$String$endsWith = _String_endsWith;
+var 1602$json_schema$Ref$removeTrailingSlash = function (s) {
+	return A2(elm$core$String$endsWith, '#', s) ? A2(elm$core$String$dropRight, 1, s) : s;
+};
+var 1602$json_schema$Ref$whenObjectSchema = function (schema) {
+	if (schema.$ === 'ObjectSchema') {
+		var os = schema.a;
+		return elm$core$Maybe$Just(os);
+	} else {
+		return elm$core$Maybe$Nothing;
+	}
+};
+var elm$core$Dict$get = F2(
+	function (targetKey, dict) {
+		get:
+		while (true) {
+			if (dict.$ === 'RBEmpty_elm_builtin') {
+				return elm$core$Maybe$Nothing;
+			} else {
+				var key = dict.b;
+				var value = dict.c;
+				var left = dict.d;
+				var right = dict.e;
+				var _n1 = A2(elm$core$Basics$compare, targetKey, key);
+				switch (_n1.$) {
+					case 'LT':
+						var $temp$targetKey = targetKey,
+							$temp$dict = left;
+						targetKey = $temp$targetKey;
+						dict = $temp$dict;
+						continue get;
+					case 'EQ':
+						return elm$core$Maybe$Just(value);
+					default:
+						var $temp$targetKey = targetKey,
+							$temp$dict = right;
+						targetKey = $temp$targetKey;
+						dict = $temp$dict;
+						continue get;
+				}
+			}
+		}
+	});
+var elm$core$Maybe$andThen = F2(
+	function (callback, maybeValue) {
+		if (maybeValue.$ === 'Just') {
+			var value = maybeValue.a;
+			return callback(value);
+		} else {
+			return elm$core$Maybe$Nothing;
+		}
+	});
+var elm$core$Maybe$map = F2(
+	function (f, maybe) {
+		if (maybe.$ === 'Just') {
+			var value = maybe.a;
+			return elm$core$Maybe$Just(
+				f(value));
+		} else {
+			return elm$core$Maybe$Nothing;
+		}
+	});
+var elm$core$Result$toMaybe = function (result) {
+	if (result.$ === 'Ok') {
+		var v = result.a;
+		return elm$core$Maybe$Just(v);
+	} else {
+		return elm$core$Maybe$Nothing;
+	}
+};
+var 1602$json_schema$Ref$resolveReference = F4(
+	function (ns, pool, schema, ref) {
+		var rootNs = A2(
+			elm$core$Maybe$withDefault,
+			ns,
+			A2(
+				elm$core$Maybe$map,
+				1602$json_schema$Ref$removeTrailingSlash,
+				A2(
+					elm$core$Maybe$andThen,
+					function ($) {
+						return $.id;
+					},
+					1602$json_schema$Ref$whenObjectSchema(schema))));
+		var resolveRecursively = F4(
+			function (namespace, limit, localSchema, localRef) {
+				var a = elm$core$Dict$keys(pool);
+				var _n0 = A2(1602$json_schema$Ref$parseJsonPointer, localRef, namespace);
+				var isPointer = _n0.a;
+				var localNs = _n0.b;
+				var path = _n0.c;
+				var newJsonPointer = 1602$json_schema$Ref$makeJsonPointer(
+					_Utils_Tuple3(isPointer, localNs, path));
+				return (limit > 0) ? (isPointer ? A2(
+					elm$core$Maybe$andThen,
+					function (os) {
+						return A2(
+							elm$core$Maybe$andThen,
+							function (def) {
+								if (def.$ === 'ObjectSchema') {
+									var oss = def.a;
+									var _n2 = oss.ref;
+									if (_n2.$ === 'Just') {
+										var r = _n2.a;
+										return A4(resolveRecursively, localNs, limit - 1, localSchema, r);
+									} else {
+										return elm$core$Maybe$Just(
+											_Utils_Tuple2(localNs, def));
+									}
+								} else {
+									return elm$core$Maybe$Just(
+										_Utils_Tuple2(localNs, def));
+								}
+							},
+							elm$core$Result$toMaybe(
+								A2(
+									elm$json$Json$Decode$decodeValue,
+									A2(elm$json$Json$Decode$at, path, 1602$json_schema$Json$Schema$Definitions$decoder),
+									os.source)));
+					},
+					A2(
+						elm$core$Maybe$andThen,
+						1602$json_schema$Ref$whenObjectSchema,
+						(localNs === '') ? elm$core$Maybe$Just(localSchema) : A2(elm$core$Dict$get, localNs, pool))) : ((newJsonPointer === '') ? elm$core$Maybe$Just(
+					_Utils_Tuple2('', localSchema)) : A2(
+					elm$core$Maybe$map,
+					function (x) {
+						return _Utils_Tuple2(localNs, x);
+					},
+					A2(elm$core$Dict$get, newJsonPointer, pool)))) : elm$core$Maybe$Just(
+					_Utils_Tuple2(localNs, localSchema));
+			});
+		return A4(resolveRecursively, rootNs, 10, schema, ref);
+	});
+var elm$core$List$any = F2(
+	function (isOkay, list) {
+		any:
+		while (true) {
+			if (!list.b) {
+				return false;
+			} else {
+				var x = list.a;
+				var xs = list.b;
+				if (isOkay(x)) {
+					return true;
+				} else {
+					var $temp$isOkay = isOkay,
+						$temp$list = xs;
+					isOkay = $temp$isOkay;
+					list = $temp$list;
+					continue any;
+				}
+			}
+		}
+	});
+var elm$core$List$member = F2(
+	function (x, xs) {
+		return A2(
+			elm$core$List$any,
+			function (a) {
+				return _Utils_eq(a, x);
+			},
+			xs);
+	});
+var 1602$json_schema$Util$indexOfFirstDuplicate = function (list) {
+	return function (_n1) {
+		var r = _n1.b;
+		return r;
+	}(
+		A3(
+			elm$core$List$foldl,
+			F2(
+				function (x, _n0) {
+					var index = _n0.a;
+					var res = _n0.b;
+					var sublist = _n0.c;
+					return _Utils_Tuple3(
+						index + 1,
+						(_Utils_cmp(res, -1) > 0) ? res : (A2(elm$core$List$member, x, sublist) ? index : (-1)),
+						A2(elm$core$List$drop, 1, sublist));
+				}),
+			_Utils_Tuple3(
+				0,
+				-1,
+				A2(elm$core$List$drop, 1, list)),
+			list));
+};
+var elm$core$Basics$round = _Basics_round;
+var 1602$json_schema$Util$isInt = function (x) {
+	return _Utils_eq(
+		x,
+		A2(elm$core$Basics$composeR, elm$core$Basics$round, elm$core$Basics$toFloat)(x));
+};
+var elm$core$Basics$not = _Basics_not;
+var elm$core$Dict$fromList = function (assocs) {
+	return A3(
+		elm$core$List$foldl,
+		F2(
+			function (_n0, dict) {
+				var key = _n0.a;
+				var value = _n0.b;
+				return A3(elm$core$Dict$insert, key, value, dict);
+			}),
+		elm$core$Dict$empty,
+		assocs);
+};
+var elm$core$Dict$member = F2(
+	function (key, dict) {
+		var _n0 = A2(elm$core$Dict$get, key, dict);
+		if (_n0.$ === 'Just') {
+			return true;
+		} else {
+			return false;
+		}
+	});
+var elm$core$List$append = F2(
+	function (xs, ys) {
+		if (!ys.b) {
+			return xs;
+		} else {
+			return A3(elm$core$List$foldr, elm$core$List$cons, ys, xs);
+		}
+	});
+var elm$core$List$concat = function (lists) {
+	return A3(elm$core$List$foldr, elm$core$List$append, _List_Nil, lists);
+};
+var elm$core$List$maybeCons = F3(
+	function (f, mx, xs) {
+		var _n0 = f(mx);
+		if (_n0.$ === 'Just') {
+			var x = _n0.a;
+			return A2(elm$core$List$cons, x, xs);
+		} else {
+			return xs;
+		}
+	});
+var elm$core$List$filterMap = F2(
+	function (f, xs) {
+		return A3(
+			elm$core$List$foldr,
+			elm$core$List$maybeCons(f),
+			_List_Nil,
+			xs);
+	});
+var elm$core$Result$mapError = F2(
+	function (f, result) {
+		if (result.$ === 'Ok') {
+			var v = result.a;
+			return elm$core$Result$Ok(v);
+		} else {
+			var e = result.a;
+			return elm$core$Result$Err(
+				f(e));
+		}
+	});
+var elm$core$String$foldl = _String_foldl;
+var zwilias$elm_utf_tools$String$UTF32$foldl = F3(
+	function (op, initial, input) {
+		return A3(
+			elm$core$String$foldl,
+			F2(
+				function (c, acc) {
+					return A2(
+						op,
+						elm$core$Char$toCode(c),
+						acc);
+				}),
+			initial,
+			input);
+	});
+var zwilias$elm_utf_tools$String$UTF32$length = function (input) {
+	return A3(
+		zwilias$elm_utf_tools$String$UTF32$foldl,
+		F2(
+			function (_n0, acc) {
+				return acc + 1;
+			}),
+		0,
+		input);
+};
+var 1602$json_schema$Json$Schema$Validation$validate = F5(
+	function (validationOptions, pool, value, rootSchema, schema) {
+		var whenSubschema = F5(
+			function (propOf, decoder, fn, valueLocal, schemaLocal) {
+				var _n63 = propOf(schemaLocal);
+				if (_n63.$ === 'Just') {
+					var v = _n63.a;
+					var _n64 = A2(elm$json$Json$Decode$decodeValue, decoder, valueLocal);
+					if (_n64.$ === 'Ok') {
+						var decoded = _n64.a;
+						return A2(
+							elm$core$Result$map,
+							function (_n65) {
+								return valueLocal;
+							},
+							A2(fn, v, decoded));
+					} else {
+						var s = _n64.a;
+						return elm$core$Result$Ok(valueLocal);
+					}
+				} else {
+					return elm$core$Result$Ok(valueLocal);
+				}
+			});
+		var when = F5(
+			function (propOf, decoder, fn, valueLocal, schemaLocal) {
+				var _n61 = propOf(schemaLocal);
+				if (_n61.$ === 'Just') {
+					var v = _n61.a;
+					var _n62 = A2(elm$json$Json$Decode$decodeValue, decoder, valueLocal);
+					if (_n62.$ === 'Ok') {
+						var decoded = _n62.a;
+						return A2(fn, v, decoded);
+					} else {
+						var s = _n62.a;
+						return elm$core$Result$Ok(valueLocal);
+					}
+				} else {
+					return elm$core$Result$Ok(valueLocal);
+				}
+			});
+		var validateSingleType = F4(
+			function (validationOptionsLocal, jsonPointer, st, val) {
+				var test = function (d) {
+					return A2(
+						elm$core$Result$mapError,
+						function (s) {
+							return _List_fromArray(
+								[
+									A2(
+									1602$json_schema$Json$Schema$Validation$Error,
+									jsonPointer,
+									1602$json_schema$Json$Schema$Validation$InvalidType(
+										elm$json$Json$Decode$errorToString(s)))
+								]);
+						},
+						A2(
+							elm$core$Result$map,
+							function (_n60) {
+								return val;
+							},
+							A2(elm$json$Json$Decode$decodeValue, d, val)));
+				};
+				switch (st.$) {
+					case 'IntegerType':
+						return test(elm$json$Json$Decode$int);
+					case 'NumberType':
+						return test(elm$json$Json$Decode$float);
+					case 'StringType':
+						return test(elm$json$Json$Decode$string);
+					case 'BooleanType':
+						return test(elm$json$Json$Decode$bool);
+					case 'NullType':
+						return test(
+							elm$json$Json$Decode$null(elm$core$Maybe$Nothing));
+					case 'ArrayType':
+						return test(
+							elm$json$Json$Decode$list(elm$json$Json$Decode$value));
+					default:
+						return test(
+							elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value));
+				}
+			});
+		var validateType = F4(
+			function (validationOptionsLocal, jsonPointer, val, s) {
+				var _n57 = s.type_;
+				switch (_n57.$) {
+					case 'AnyType':
+						return elm$core$Result$Ok(val);
+					case 'SingleType':
+						var st = _n57.a;
+						return A4(validateSingleType, validationOptionsLocal, jsonPointer, st, val);
+					case 'NullableType':
+						var st = _n57.a;
+						var _n58 = A4(validateSingleType, validationOptionsLocal, jsonPointer, 1602$json_schema$Json$Schema$Definitions$NullType, val);
+						if (_n58.$ === 'Err') {
+							return A4(validateSingleType, validationOptionsLocal, jsonPointer, st, val);
+						} else {
+							return elm$core$Result$Ok(val);
+						}
+					default:
+						var listTypes = _n57.a;
+						return A2(
+							elm$core$List$any,
+							function (st) {
+								return _Utils_eq(
+									A4(validateSingleType, validationOptionsLocal, jsonPointer, st, val),
+									elm$core$Result$Ok(val));
+							},
+							listTypes) ? elm$core$Result$Ok(val) : elm$core$Result$Err(
+							_List_fromArray(
+								[
+									A2(
+									1602$json_schema$Json$Schema$Validation$Error,
+									jsonPointer,
+									1602$json_schema$Json$Schema$Validation$InvalidType('None of desired types match'))
+								]));
+				}
+			});
+		var validateRequired = F4(
+			function (validationOptionsLocal, jsonPointer, v, s) {
+				return A5(
+					when,
+					function ($) {
+						return $.required;
+					},
+					elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+					F2(
+						function (required, obj) {
+							var keys = A2(
+								elm$core$List$map,
+								function (_n56) {
+									var key = _n56.a;
+									return key;
+								},
+								obj);
+							var missing = A2(
+								elm$core$List$filter,
+								A2(
+									elm$core$Basics$composeR,
+									function (a) {
+										return A2(elm$core$List$member, a, keys);
+									},
+									elm$core$Basics$not),
+								required);
+							return elm$core$List$isEmpty(missing) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								A2(
+									elm$core$List$cons,
+									A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										1602$json_schema$Json$Schema$Validation$Required(missing)),
+									A2(
+										elm$core$List$map,
+										function (key) {
+											return A2(
+												1602$json_schema$Json$Schema$Validation$Error,
+												_Utils_update(
+													jsonPointer,
+													{
+														path: _Utils_ap(
+															jsonPointer.path,
+															_List_fromArray(
+																[key]))
+													}),
+												1602$json_schema$Json$Schema$Validation$RequiredProperty);
+										},
+										missing)));
+						}),
+					v,
+					s);
+			});
+		var validatePattern = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.pattern;
+					},
+					elm$json$Json$Decode$string,
+					F2(
+						function (pattern, str) {
+							return A2(
+								elm$regex$Regex$contains,
+								A2(
+									elm$core$Maybe$withDefault,
+									elm$regex$Regex$never,
+									elm$regex$Regex$fromString(pattern)),
+								str) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										A2(1602$json_schema$Json$Schema$Validation$Pattern, pattern, str))
+									]));
+						}),
+					v);
+			});
+		var validateMultipleOf = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.multipleOf;
+					},
+					elm$json$Json$Decode$float,
+					F2(
+						function (multipleOf, x) {
+							return 1602$json_schema$Util$isInt(x / multipleOf) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										A2(1602$json_schema$Json$Schema$Validation$MultipleOf, multipleOf, x))
+									]));
+						}),
+					v);
+			});
+		var validateMinimum = F4(
+			function (validationOptionsLocal, jsonPointer, v, s) {
+				return A5(
+					when,
+					function ($) {
+						return $.minimum;
+					},
+					elm$json$Json$Decode$float,
+					F2(
+						function (min, x) {
+							var _n55 = s.exclusiveMinimum;
+							if (((_n55.$ === 'Just') && (_n55.a.$ === 'BoolBoundary')) && _n55.a.a) {
+								return (_Utils_cmp(x, min) > 0) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+									_List_fromArray(
+										[
+											A2(
+											1602$json_schema$Json$Schema$Validation$Error,
+											jsonPointer,
+											A2(1602$json_schema$Json$Schema$Validation$ExclusiveMinimum, min, x))
+										]));
+							} else {
+								return (_Utils_cmp(x, min) > -1) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+									_List_fromArray(
+										[
+											A2(
+											1602$json_schema$Json$Schema$Validation$Error,
+											jsonPointer,
+											A2(1602$json_schema$Json$Schema$Validation$Minimum, min, x))
+										]));
+							}
+						}),
+					v,
+					s);
+			});
+		var validateMinProperties = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.minProperties;
+					},
+					elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+					F2(
+						function (minProperties, obj) {
+							var x = elm$core$List$length(obj);
+							return (_Utils_cmp(x, minProperties) > -1) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										A2(1602$json_schema$Json$Schema$Validation$MinProperties, minProperties, x))
+									]));
+						}),
+					v);
+			});
+		var validateMinLength = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.minLength;
+					},
+					elm$json$Json$Decode$string,
+					F2(
+						function (minLength, str) {
+							var x = zwilias$elm_utf_tools$String$UTF32$length(str);
+							return (_Utils_cmp(x, minLength) > -1) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										A2(1602$json_schema$Json$Schema$Validation$MinLength, minLength, x))
+									]));
+						}),
+					v);
+			});
+		var validateMinItems = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.minItems;
+					},
+					elm$json$Json$Decode$list(elm$json$Json$Decode$value),
+					F2(
+						function (minItems, list) {
+							var x = elm$core$List$length(list);
+							return (_Utils_cmp(x, minItems) > -1) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										A2(1602$json_schema$Json$Schema$Validation$MinItems, minItems, x))
+									]));
+						}),
+					v);
+			});
+		var validateMaximum = F4(
+			function (validationOptionsLocal, jsonPointer, v, s) {
+				return A5(
+					when,
+					function ($) {
+						return $.maximum;
+					},
+					elm$json$Json$Decode$float,
+					F2(
+						function (max, x) {
+							var _n54 = s.exclusiveMaximum;
+							if (((_n54.$ === 'Just') && (_n54.a.$ === 'BoolBoundary')) && _n54.a.a) {
+								return (_Utils_cmp(x, max) < 0) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+									_List_fromArray(
+										[
+											A2(
+											1602$json_schema$Json$Schema$Validation$Error,
+											jsonPointer,
+											A2(1602$json_schema$Json$Schema$Validation$ExclusiveMaximum, max, x))
+										]));
+							} else {
+								return (_Utils_cmp(x, max) < 1) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+									_List_fromArray(
+										[
+											A2(
+											1602$json_schema$Json$Schema$Validation$Error,
+											jsonPointer,
+											A2(1602$json_schema$Json$Schema$Validation$Maximum, max, x))
+										]));
+							}
+						}),
+					v,
+					s);
+			});
+		var validateMaxProperties = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.maxProperties;
+					},
+					elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+					F2(
+						function (maxProperties, obj) {
+							var x = elm$core$List$length(obj);
+							return (_Utils_cmp(x, maxProperties) < 1) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										A2(1602$json_schema$Json$Schema$Validation$MaxProperties, maxProperties, x))
+									]));
+						}),
+					v);
+			});
+		var validateMaxLength = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.maxLength;
+					},
+					elm$json$Json$Decode$string,
+					F2(
+						function (maxLength, str) {
+							var x = zwilias$elm_utf_tools$String$UTF32$length(str);
+							return (_Utils_cmp(x, maxLength) < 1) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										A2(1602$json_schema$Json$Schema$Validation$MaxLength, maxLength, x))
+									]));
+						}),
+					v);
+			});
+		var validateMaxItems = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.maxItems;
+					},
+					elm$json$Json$Decode$list(elm$json$Json$Decode$value),
+					F2(
+						function (maxItems, list) {
+							var x = elm$core$List$length(list);
+							return (_Utils_cmp(x, maxItems) < 1) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										A2(1602$json_schema$Json$Schema$Validation$MaxItems, maxItems, x))
+									]));
+						}),
+					v);
+			});
+		var validateExclusiveMinimum = F4(
+			function (validationOptionsLocal, jsonPointer, v, s) {
+				return A5(
+					when,
+					function ($) {
+						return $.exclusiveMinimum;
+					},
+					elm$json$Json$Decode$float,
+					F2(
+						function (min, x) {
+							if (min.$ === 'NumberBoundary') {
+								var m = min.a;
+								return (_Utils_cmp(x, m) > 0) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+									_List_fromArray(
+										[
+											A2(
+											1602$json_schema$Json$Schema$Validation$Error,
+											jsonPointer,
+											A2(1602$json_schema$Json$Schema$Validation$ExclusiveMinimum, m, x))
+										]));
+							} else {
+								return elm$core$Result$Ok(v);
+							}
+						}),
+					v,
+					s);
+			});
+		var validateExclusiveMaximum = F4(
+			function (validationOptionsLocal, jsonPointer, v, s) {
+				return A5(
+					when,
+					function ($) {
+						return $.exclusiveMaximum;
+					},
+					elm$json$Json$Decode$float,
+					F2(
+						function (max, x) {
+							if (max.$ === 'NumberBoundary') {
+								var m = max.a;
+								return (_Utils_cmp(x, m) < 0) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+									_List_fromArray(
+										[
+											A2(
+											1602$json_schema$Json$Schema$Validation$Error,
+											jsonPointer,
+											A2(1602$json_schema$Json$Schema$Validation$ExclusiveMaximum, m, x))
+										]));
+							} else {
+								return elm$core$Result$Ok(v);
+							}
+						}),
+					v,
+					s);
+			});
+		var validateEnum = F2(
+			function (validationOptionsLocal, jsonPointer) {
+				return A3(
+					when,
+					function ($) {
+						return $._enum;
+					},
+					elm$json$Json$Decode$value,
+					F2(
+						function (_enum, val) {
+							return A2(
+								elm$core$List$any,
+								function (item) {
+									return _Utils_eq(
+										1602$json_schema$Json$Schema$Validation$stringify(item),
+										1602$json_schema$Json$Schema$Validation$stringify(val));
+								},
+								_enum) ? elm$core$Result$Ok(val) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(1602$json_schema$Json$Schema$Validation$Error, jsonPointer, 1602$json_schema$Json$Schema$Validation$Enum)
+									]));
+						}));
+			});
+		var validateConst = F2(
+			function (validationOptionsLocal, jsonPointer) {
+				return A3(
+					when,
+					function ($) {
+						return $._const;
+					},
+					elm$json$Json$Decode$value,
+					F2(
+						function (_const, val) {
+							var expected = 1602$json_schema$Json$Schema$Validation$canonical(_const);
+							var actual = 1602$json_schema$Json$Schema$Validation$canonical(val);
+							return _Utils_eq(expected, actual) ? elm$core$Result$Ok(val) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(1602$json_schema$Json$Schema$Validation$Error, jsonPointer, 1602$json_schema$Json$Schema$Validation$Const)
+									]));
+						}));
+			});
+		var getSchema = F2(
+			function (key, _n51) {
+				var props = _n51.a;
+				return elm$core$List$head(
+					A2(
+						elm$core$List$map,
+						function (_n50) {
+							var s = _n50.b;
+							return s;
+						},
+						A2(
+							elm$core$List$filter,
+							function (_n49) {
+								var k = _n49.a;
+								return _Utils_eq(k, key);
+							},
+							props)));
+			});
+		var getPropsByPattern = F2(
+			function (pattern, props) {
+				return A2(
+					elm$core$List$filter,
+					function (_n48) {
+						var k = _n48.a;
+						return A2(
+							elm$regex$Regex$contains,
+							A2(
+								elm$core$Maybe$withDefault,
+								elm$regex$Regex$never,
+								elm$regex$Regex$fromString(pattern)),
+							k);
+					},
+					props);
+			});
+		var findDuplicateItem = function (list) {
+			return function (x) {
+				return _Utils_eq(x, -1) ? elm$core$Maybe$Nothing : elm$core$List$head(
+					A2(elm$core$List$drop, x, list));
+			}(
+				1602$json_schema$Util$indexOfFirstDuplicate(
+					A2(
+						elm$core$List$map,
+						elm$json$Json$Encode$encode(0),
+						list)));
+		};
+		var validateUniqueItems = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.uniqueItems;
+					},
+					elm$json$Json$Decode$list(elm$json$Json$Decode$value),
+					F2(
+						function (uniqueItems, list) {
+							if (!uniqueItems) {
+								return elm$core$Result$Ok(v);
+							} else {
+								var _n47 = findDuplicateItem(list);
+								if (_n47.$ === 'Just') {
+									var vv = _n47.a;
+									return elm$core$Result$Err(
+										_List_fromArray(
+											[
+												A2(
+												1602$json_schema$Json$Schema$Validation$Error,
+												jsonPointer,
+												1602$json_schema$Json$Schema$Validation$UniqueItems(vv))
+											]));
+								} else {
+									return elm$core$Result$Ok(v);
+								}
+							}
+						}),
+					v);
+			});
+		var failWithListErrors = F5(
+			function (validationOptionsLocal, jsonPointer, valueLocal, schemaLocal, validators) {
+				return function (_n45) {
+					var errors = _n45.a;
+					var v = _n45.b;
+					if (!errors.b) {
+						return elm$core$Result$Ok(v);
+					} else {
+						var list = errors;
+						return elm$core$Result$Err(list);
+					}
+				}(
+					A3(
+						elm$core$List$foldl,
+						F2(
+							function (fn, _n43) {
+								var errors = _n43.a;
+								var val = _n43.b;
+								var _n44 = A4(fn, validationOptionsLocal, jsonPointer, val, schemaLocal);
+								if (_n44.$ === 'Ok') {
+									var newValue = _n44.a;
+									return _Utils_Tuple2(errors, newValue);
+								} else {
+									var list = _n44.a;
+									return _Utils_Tuple2(
+										_Utils_ap(errors, list),
+										val);
+								}
+							}),
+						_Utils_Tuple2(_List_Nil, valueLocal),
+						validators));
+			});
+		var addDefaultProperties = F4(
+			function (validationOptionsLocal, jsonPointer, properties, obj) {
+				var missing = F2(
+					function (name, objLocal) {
+						return elm$core$List$isEmpty(
+							A2(
+								elm$core$List$filter,
+								function (_n42) {
+									var n = _n42.a;
+									return _Utils_eq(n, name);
+								},
+								objLocal));
+					});
+				var defaultFor = F3(
+					function (objLocal, propName, schemaLocal) {
+						if (A2(missing, propName, objLocal)) {
+							if (schemaLocal.$ === 'ObjectSchema') {
+								var os = schemaLocal.a;
+								return A2(
+									elm$core$Maybe$andThen,
+									function (valueLocal) {
+										return elm$core$Result$toMaybe(
+											A4(
+												validateSchema,
+												_Utils_update(
+													validationOptionsLocal,
+													{applyDefaults: false}),
+												_Utils_update(
+													jsonPointer,
+													{
+														path: _Utils_ap(
+															jsonPointer.path,
+															_List_fromArray(
+																[propName]))
+													}),
+												valueLocal,
+												schemaLocal));
+									},
+									os._default);
+							} else {
+								return elm$core$Maybe$Nothing;
+							}
+						} else {
+							return elm$core$Maybe$Nothing;
+						}
+					});
+				if (validationOptionsLocal.applyDefaults) {
+					if (properties.$ === 'Just') {
+						var knownProps = properties.a.a;
+						return elm$core$List$reverse(
+							A3(
+								elm$core$List$foldl,
+								F2(
+									function (_n39, resultingObject) {
+										var propName = _n39.a;
+										var schemaLocalLocal = _n39.b;
+										var _n40 = A3(defaultFor, obj, propName, schemaLocalLocal);
+										if (_n40.$ === 'Just') {
+											var valueLocal = _n40.a;
+											return A2(
+												elm$core$List$cons,
+												_Utils_Tuple2(propName, valueLocal),
+												resultingObject);
+										} else {
+											return resultingObject;
+										}
+									}),
+								_List_Nil,
+								knownProps));
+					} else {
+						return _List_Nil;
+					}
+				} else {
+					return _List_Nil;
+				}
+			});
+		var validateSchema = F4(
+			function (validationOptionsLocal, jsonPointer, valueLocal, s) {
+				if (s.$ === 'BooleanSchema') {
+					var bs = s.a;
+					return bs ? elm$core$Result$Ok(valueLocal) : elm$core$Result$Err(
+						_List_fromArray(
+							[
+								A2(1602$json_schema$Json$Schema$Validation$Error, jsonPointer, 1602$json_schema$Json$Schema$Validation$AlwaysFail)
+							]));
+				} else {
+					var os = s.a;
+					var _n34 = os.ref;
+					if (_n34.$ === 'Just') {
+						var ref = _n34.a;
+						var _n35 = A4(1602$json_schema$Ref$resolveReference, jsonPointer.ns, pool, rootSchema, ref);
+						if (_n35.$ === 'Just') {
+							if (_n35.a.b.$ === 'ObjectSchema') {
+								var _n36 = _n35.a;
+								var ns = _n36.a;
+								var oss = _n36.b.a;
+								return A4(
+									validateSubschema,
+									validationOptionsLocal,
+									_Utils_update(
+										jsonPointer,
+										{ns: ns}),
+									oss,
+									valueLocal);
+							} else {
+								var _n37 = _n35.a;
+								var ns = _n37.a;
+								var bs = _n37.b.a;
+								return bs ? elm$core$Result$Ok(valueLocal) : elm$core$Result$Err(
+									_List_fromArray(
+										[
+											A2(1602$json_schema$Json$Schema$Validation$Error, jsonPointer, 1602$json_schema$Json$Schema$Validation$AlwaysFail)
+										]));
+							}
+						} else {
+							return elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(
+										1602$json_schema$Json$Schema$Validation$Error,
+										jsonPointer,
+										1602$json_schema$Json$Schema$Validation$UnresolvableReference(ref))
+									]));
+						}
+					} else {
+						return A4(validateSubschema, validationOptionsLocal, jsonPointer, os, valueLocal);
+					}
+				}
+			});
+		var validateSubschema = F4(
+			function (validationOptionsLocal, jsonPointer, os, valueLocal) {
+				return A5(
+					failWithListErrors,
+					validationOptionsLocal,
+					jsonPointer,
+					valueLocal,
+					os,
+					_List_fromArray(
+						[validateMultipleOf, validateMaximum, validateMinimum, validateExclusiveMaximum, validateExclusiveMinimum, validateMaxLength, validateMinLength, validatePattern, validateItems, validateMaxItems, validateMinItems, validateUniqueItems, validateContains, validateProperties, validateMaxProperties, validateMinProperties, validateRequired, validatePatternProperties, validateAdditionalProperties, validateDependencies, validatePropertyNames, validateEnum, validateConst, validateType, validateAllOf, validateAnyOf, validateOneOf, validateNot]));
+			});
+		var validateAdditionalProperties = F4(
+			function (validationOptionsLocal, jsonPointer, v, s) {
+				var rejectMatching = F3(
+					function (props, fn, obj) {
+						if (props.$ === 'Just') {
+							var p = props.a.a;
+							var whitelist = A2(
+								elm$core$List$map,
+								function (_n32) {
+									var k = _n32.a;
+									return k;
+								},
+								p);
+							return A2(
+								elm$core$List$filter,
+								function (_n31) {
+									var key = _n31.a;
+									return !A2(
+										elm$core$List$any,
+										function (allowed) {
+											return A2(fn, allowed, key);
+										},
+										whitelist);
+								},
+								obj);
+						} else {
+							return obj;
+						}
+					});
+				return A5(
+					whenSubschema,
+					function ($) {
+						return $.additionalProperties;
+					},
+					elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+					F2(
+						function (additionalProperties, obj) {
+							return function (objLocal) {
+								if (additionalProperties.$ === 'BooleanSchema') {
+									var bs = additionalProperties.a;
+									return bs ? elm$core$Result$Ok(v) : (elm$core$List$isEmpty(objLocal) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+										A2(
+											elm$core$List$cons,
+											A2(
+												1602$json_schema$Json$Schema$Validation$Error,
+												jsonPointer,
+												1602$json_schema$Json$Schema$Validation$AdditionalPropertiesDisallowed(
+													A2(
+														elm$core$List$map,
+														function (_n28) {
+															var name = _n28.a;
+															return name;
+														},
+														objLocal))),
+											A2(
+												elm$core$List$map,
+												function (_n27) {
+													var name = _n27.a;
+													return A2(
+														1602$json_schema$Json$Schema$Validation$Error,
+														_Utils_update(
+															jsonPointer,
+															{
+																path: _Utils_ap(
+																	jsonPointer.path,
+																	_List_fromArray(
+																		[name]))
+															}),
+														1602$json_schema$Json$Schema$Validation$AdditionalPropertyDisallowed);
+												},
+												objLocal))));
+								} else {
+									return A2(
+										1602$json_schema$Json$Schema$Validation$concatErrors,
+										elm$core$Result$Ok(v),
+										A2(
+											elm$core$List$map,
+											function (_n29) {
+												var key = _n29.a;
+												var val = _n29.b;
+												return A4(
+													validateSchema,
+													validationOptionsLocal,
+													_Utils_update(
+														jsonPointer,
+														{
+															path: _Utils_ap(
+																jsonPointer.path,
+																_List_fromArray(
+																	[key]))
+														}),
+													val,
+													additionalProperties);
+											},
+											objLocal));
+								}
+							}(
+								A3(
+									rejectMatching,
+									s.patternProperties,
+									F2(
+										function (a, b) {
+											return A2(
+												elm$regex$Regex$contains,
+												A2(
+													elm$core$Maybe$withDefault,
+													elm$regex$Regex$never,
+													elm$regex$Regex$fromString(a)),
+												b);
+										}),
+									A3(
+										rejectMatching,
+										s.properties,
+										F2(
+											function (a, b) {
+												return _Utils_eq(a, b);
+											}),
+										obj)));
+						}),
+					v,
+					s);
+			});
+		var validateAllOf = F2(
+			function (validationOptionsLocal, jsonPointer) {
+				return A3(
+					when,
+					function ($) {
+						return $.allOf;
+					},
+					elm$json$Json$Decode$value,
+					F2(
+						function (allOf, val) {
+							return A3(
+								elm$core$List$foldl,
+								F2(
+									function (schemaLocal, res) {
+										return _Utils_eq(
+											res,
+											elm$core$Result$Ok(val)) ? A4(validateSchema, validationOptionsLocal, jsonPointer, val, schemaLocal) : res;
+									}),
+								elm$core$Result$Ok(val),
+								allOf);
+						}));
+			});
+		var validateAnyOf = F2(
+			function (validationOptionsLocal, jsonPointer) {
+				return A3(
+					when,
+					function ($) {
+						return $.anyOf;
+					},
+					elm$json$Json$Decode$value,
+					F2(
+						function (anyOf, val) {
+							var validationResults = A2(
+								elm$core$List$map,
+								A3(validateSchema, validationOptionsLocal, jsonPointer, val),
+								anyOf);
+							var isOk = function (res) {
+								if (res.$ === 'Ok') {
+									return true;
+								} else {
+									return false;
+								}
+							};
+							return A2(elm$core$List$any, isOk, validationResults) ? elm$core$Result$Ok(val) : A2(
+								1602$json_schema$Json$Schema$Validation$concatErrors,
+								elm$core$Result$Ok(val),
+								validationResults);
+						}));
+			});
+		var validateContains = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					whenSubschema,
+					function ($) {
+						return $.contains;
+					},
+					elm$json$Json$Decode$list(elm$json$Json$Decode$value),
+					F2(
+						function (contains, list) {
+							return A2(
+								elm$core$List$any,
+								function (item) {
+									var _n24 = A4(validateSchema, validationOptionsLocal, jsonPointer, item, contains);
+									if (_n24.$ === 'Ok') {
+										return true;
+									} else {
+										return false;
+									}
+								},
+								list) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(1602$json_schema$Json$Schema$Validation$Error, jsonPointer, 1602$json_schema$Json$Schema$Validation$Contains)
+									]));
+						}),
+					v);
+			});
+		var validateDependencies = F4(
+			function (validationOptionsLocal, jsonPointer, v, s) {
+				var validateDep = function (obj) {
+					return A3(
+						elm$core$List$foldl,
+						F2(
+							function (_n21, res) {
+								var depName = _n21.a;
+								var dep = _n21.b;
+								if (res.$ === 'Err') {
+									return res;
+								} else {
+									if (A2(
+										elm$core$Dict$member,
+										depName,
+										elm$core$Dict$fromList(obj))) {
+										if (dep.$ === 'PropSchema') {
+											var ss = dep.a;
+											return A4(validateSchema, validationOptionsLocal, jsonPointer, v, ss);
+										} else {
+											var keys = dep.a;
+											return A4(
+												validateSchema,
+												validationOptionsLocal,
+												jsonPointer,
+												v,
+												1602$json_schema$Json$Schema$Definitions$ObjectSchema(
+													_Utils_update(
+														1602$json_schema$Json$Schema$Definitions$blankSubSchema,
+														{
+															required: elm$core$Maybe$Just(keys)
+														})));
+										}
+									} else {
+										return res;
+									}
+								}
+							}),
+						elm$core$Result$Ok(v),
+						s.dependencies);
+				};
+				if (elm$core$List$isEmpty(s.dependencies)) {
+					return elm$core$Result$Ok(v);
+				} else {
+					var _n20 = A2(
+						elm$json$Json$Decode$decodeValue,
+						elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+						v);
+					if (_n20.$ === 'Ok') {
+						var vv = _n20.a;
+						return validateDep(vv);
+					} else {
+						return elm$core$Result$Ok(v);
+					}
+				}
+			});
+		var validateItems = F4(
+			function (validationOptionsLocal, jsonPointer, valueLocal, schemaLocal) {
+				var validateItem = F3(
+					function (item, schemaLocalLocal, index) {
+						return A2(
+							elm$core$Result$map,
+							function (_n19) {
+								return index + 1;
+							},
+							A4(
+								validateSchema,
+								validationOptionsLocal,
+								_Utils_update(
+									jsonPointer,
+									{
+										path: _Utils_ap(
+											jsonPointer.path,
+											_List_fromArray(
+												[
+													elm$core$String$fromInt(index)
+												]))
+									}),
+								item,
+								schemaLocalLocal));
+					});
+				var _n10 = schemaLocal.items;
+				switch (_n10.$) {
+					case 'ItemDefinition':
+						var itemSchema = _n10.a;
+						var _n11 = A2(
+							elm$json$Json$Decode$decodeValue,
+							elm$json$Json$Decode$list(elm$json$Json$Decode$value),
+							valueLocal);
+						if (_n11.$ === 'Ok') {
+							var decoded = _n11.a;
+							return A2(
+								elm$core$Result$map,
+								function (_n13) {
+									return valueLocal;
+								},
+								A3(
+									elm$core$List$foldl,
+									F2(
+										function (item, res) {
+											if (res.$ === 'Ok') {
+												var index = res.a;
+												return A3(validateItem, item, itemSchema, index);
+											} else {
+												return res;
+											}
+										}),
+									elm$core$Result$Ok(0),
+									decoded));
+						} else {
+							return elm$core$Result$Ok(valueLocal);
+						}
+					case 'ArrayOfItems':
+						var listItemSchemas = _n10.a;
+						var _n14 = A2(
+							elm$json$Json$Decode$decodeValue,
+							elm$json$Json$Decode$list(elm$json$Json$Decode$value),
+							valueLocal);
+						if (_n14.$ === 'Ok') {
+							var decoded = _n14.a;
+							return A2(
+								elm$core$Result$map,
+								function (_n18) {
+									return valueLocal;
+								},
+								A3(
+									elm$core$List$foldl,
+									F2(
+										function (item, res) {
+											if (res.$ === 'Ok') {
+												var index = res.a;
+												var _n16 = elm$core$List$head(
+													A2(elm$core$List$drop, index, listItemSchemas));
+												if (_n16.$ === 'Just') {
+													var itemSchema = _n16.a;
+													return A3(validateItem, item, itemSchema, index);
+												} else {
+													var _n17 = schemaLocal.additionalItems;
+													if (_n17.$ === 'Just') {
+														var itemSchema = _n17.a;
+														return A3(validateItem, item, itemSchema, index);
+													} else {
+														return elm$core$Result$Ok(index + 1);
+													}
+												}
+											} else {
+												return res;
+											}
+										}),
+									elm$core$Result$Ok(0),
+									decoded));
+						} else {
+							return elm$core$Result$Ok(valueLocal);
+						}
+					default:
+						return elm$core$Result$Ok(valueLocal);
+				}
+			});
+		var validateNot = F2(
+			function (validationOptionsLocal, jsonPointer) {
+				return A3(
+					whenSubschema,
+					function ($) {
+						return $.not;
+					},
+					elm$json$Json$Decode$value,
+					F2(
+						function (notSchema, val) {
+							return _Utils_eq(
+								A4(validateSchema, validationOptionsLocal, jsonPointer, val, notSchema),
+								elm$core$Result$Ok(val)) ? elm$core$Result$Err(
+								_List_fromArray(
+									[
+										A2(1602$json_schema$Json$Schema$Validation$Error, jsonPointer, 1602$json_schema$Json$Schema$Validation$Not)
+									])) : elm$core$Result$Ok(val);
+						}));
+			});
+		var validateOneOf = F2(
+			function (validationOptionsLocal, jsonPointer) {
+				return A3(
+					when,
+					function ($) {
+						return $.oneOf;
+					},
+					elm$json$Json$Decode$value,
+					F2(
+						function (oneOf, val) {
+							var validSubschema = function (schemaLocal) {
+								return _Utils_eq(
+									A4(validateSchema, validationOptionsLocal, jsonPointer, val, schemaLocal),
+									elm$core$Result$Ok(val));
+							};
+							var _n9 = elm$core$List$length(
+								A2(elm$core$List$filter, validSubschema, oneOf));
+							switch (_n9) {
+								case 1:
+									return elm$core$Result$Ok(val);
+								case 0:
+									return elm$core$Result$Err(
+										_List_fromArray(
+											[
+												A2(1602$json_schema$Json$Schema$Validation$Error, jsonPointer, 1602$json_schema$Json$Schema$Validation$OneOfNoneSucceed)
+											]));
+								default:
+									var len = _n9;
+									return elm$core$Result$Err(
+										_List_fromArray(
+											[
+												A2(
+												1602$json_schema$Json$Schema$Validation$Error,
+												jsonPointer,
+												1602$json_schema$Json$Schema$Validation$OneOfManySucceed(len))
+											]));
+							}
+						}));
+			});
+		var validatePatternProperties = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				return A4(
+					when,
+					function ($) {
+						return $.patternProperties;
+					},
+					elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+					F2(
+						function (_n5, obj) {
+							var patternProperties = _n5.a;
+							return A3(
+								elm$core$List$foldl,
+								F2(
+									function (_n6, res) {
+										var pattern = _n6.a;
+										var schemaLocal = _n6.b;
+										if (res.$ === 'Ok') {
+											return A2(
+												1602$json_schema$Json$Schema$Validation$concatErrors,
+												elm$core$Result$Ok(v),
+												A2(
+													elm$core$List$map,
+													function (_n8) {
+														var key = _n8.a;
+														var valueLocal = _n8.b;
+														return A4(
+															validateSchema,
+															validationOptionsLocal,
+															_Utils_update(
+																jsonPointer,
+																{
+																	path: _Utils_ap(
+																		jsonPointer.path,
+																		_List_fromArray(
+																			[key]))
+																}),
+															valueLocal,
+															schemaLocal);
+													},
+													A2(getPropsByPattern, pattern, obj)));
+										} else {
+											return res;
+										}
+									}),
+								elm$core$Result$Ok(v),
+								patternProperties);
+						}),
+					v);
+			});
+		var validateProperties = F4(
+			function (validationOptionsLocal, jsonPointer, v, subSchema) {
+				return A5(
+					when,
+					function ($) {
+						return $.properties;
+					},
+					elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+					F2(
+						function (properties, obj) {
+							var revObj = elm$core$List$reverse(obj);
+							var newProps = A4(addDefaultProperties, validationOptionsLocal, jsonPointer, subSchema.properties, revObj);
+							var upgradedObject = _Utils_ap(revObj, newProps);
+							var addedPropNames = A2(
+								elm$core$List$map,
+								function (_n4) {
+									var name = _n4.a;
+									return name;
+								},
+								newProps);
+							return A2(
+								1602$json_schema$Json$Schema$Validation$concatErrors,
+								elm$core$Result$Ok(
+									elm$json$Json$Encode$object(upgradedObject)),
+								A2(
+									elm$core$List$map,
+									function (_n2) {
+										var key = _n2.a;
+										var valueLocal = _n2.b;
+										if (A2(elm$core$List$member, key, addedPropNames)) {
+											return elm$core$Result$Ok(valueLocal);
+										} else {
+											var _n3 = A2(getSchema, key, properties);
+											if (_n3.$ === 'Just') {
+												var schemaLocalLocal = _n3.a;
+												return A4(
+													validateSchema,
+													validationOptionsLocal,
+													_Utils_update(
+														jsonPointer,
+														{
+															path: _Utils_ap(
+																jsonPointer.path,
+																_List_fromArray(
+																	[key]))
+														}),
+													valueLocal,
+													schemaLocalLocal);
+											} else {
+												return elm$core$Result$Ok(valueLocal);
+											}
+										}
+									},
+									upgradedObject));
+						}),
+					v,
+					subSchema);
+			});
+		var validatePropertyNames = F3(
+			function (validationOptionsLocal, jsonPointer, v) {
+				var validatePropertyName = F2(
+					function (schemaLocal, key) {
+						var _n1 = A4(
+							validateSchema,
+							validationOptionsLocal,
+							_Utils_update(
+								jsonPointer,
+								{
+									path: _Utils_ap(
+										jsonPointer.path,
+										_List_fromArray(
+											[key]))
+								}),
+							elm$json$Json$Encode$string(key),
+							schemaLocal);
+						if (_n1.$ === 'Ok') {
+							var x = _n1.a;
+							return elm$core$Maybe$Nothing;
+						} else {
+							var list = _n1.a;
+							return elm$core$Maybe$Just(list);
+						}
+					});
+				return A4(
+					whenSubschema,
+					function ($) {
+						return $.propertyNames;
+					},
+					elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+					F2(
+						function (propertyNames, obj) {
+							return function (invalidNames) {
+								return elm$core$List$isEmpty(invalidNames) ? elm$core$Result$Ok(v) : elm$core$Result$Err(
+									_List_fromArray(
+										[
+											A2(
+											1602$json_schema$Json$Schema$Validation$Error,
+											jsonPointer,
+											1602$json_schema$Json$Schema$Validation$InvalidPropertyName(
+												elm$core$List$concat(invalidNames)))
+										]));
+							}(
+								A2(
+									elm$core$List$filterMap,
+									validatePropertyName(propertyNames),
+									A2(
+										elm$core$List$map,
+										function (_n0) {
+											var key = _n0.a;
+											return key;
+										},
+										obj)));
+						}),
+					v);
+			});
+		return A4(
+			validateSchema,
+			validationOptions,
+			A2(1602$json_schema$Json$Schema$Validation$JsonPointer, '', _List_Nil),
+			value,
+			schema);
+	});
+var elm$json$Json$Decode$decodeString = _Json_runOnString;
+var 1602$json_schema$Json$Schemata$decodeUnsafe = A2(
+	elm$core$Basics$composeR,
+	elm$json$Json$Decode$decodeString(1602$json_schema$Json$Schema$Definitions$decoder),
+	elm$core$Result$withDefault(1602$json_schema$Json$Schema$Definitions$blankSchema));
+var 1602$json_schema$Json$Schemata$draft4 = 1602$json_schema$Json$Schemata$decodeUnsafe('\n    {\n    "id": "http://json-schema.org/draft-04/schema#",\n    "$schema": "http://json-schema.org/draft-04/schema#",\n    "description": "Core schema meta-schema",\n    "definitions": {\n        "schemaArray": {\n            "type": "array",\n            "minItems": 1,\n            "items": { "$ref": "#" }\n        },\n        "positiveInteger": {\n            "type": "integer",\n            "minimum": 0\n        },\n        "positiveIntegerDefault0": {\n            "allOf": [ { "$ref": "#/definitions/positiveInteger" }, { "default": 0 } ]\n        },\n        "simpleTypes": {\n            "enum": [ "array", "boolean", "integer", "null", "number", "object", "string" ]\n        },\n        "stringArray": {\n            "type": "array",\n            "items": { "type": "string" },\n            "minItems": 1,\n            "uniqueItems": true\n        }\n    },\n    "type": "object",\n    "properties": {\n        "id": {\n            "type": "string",\n            "format": "uri",\n            "description": "Identifier of schema"\n        },\n        "$schema": {\n            "type": "string",\n            "format": "uri",\n            "description": "Link to a schema which validates this object"\n        },\n        "title": {\n            "type": "string"\n        },\n        "description": {\n            "type": "string"\n        },\n        "default": {},\n        "multipleOf": {\n            "type": "number",\n            "minimum": 0,\n            "exclusiveMinimum": true\n        },\n        "maximum": {\n            "type": "number"\n        },\n        "exclusiveMaximum": {\n            "type": "boolean",\n            "default": false\n        },\n        "minimum": {\n            "type": "number"\n        },\n        "exclusiveMinimum": {\n            "type": "boolean",\n            "default": false\n        },\n        "maxLength": { "$ref": "#/definitions/positiveInteger" },\n        "minLength": { "$ref": "#/definitions/positiveIntegerDefault0" },\n        "pattern": {\n            "type": "string",\n            "format": "regex"\n        },\n        "additionalItems": {\n            "anyOf": [\n                { "type": "boolean" },\n                { "$ref": "#" }\n            ],\n            "default": {}\n        },\n        "items": {\n            "anyOf": [\n                { "$ref": "#" },\n                { "$ref": "#/definitions/schemaArray" }\n            ],\n            "default": {}\n        },\n        "maxItems": { "$ref": "#/definitions/positiveInteger" },\n        "minItems": { "$ref": "#/definitions/positiveIntegerDefault0" },\n        "uniqueItems": {\n            "type": "boolean",\n            "default": false\n        },\n        "maxProperties": { "$ref": "#/definitions/positiveInteger" },\n        "minProperties": { "$ref": "#/definitions/positiveIntegerDefault0" },\n        "required": { "$ref": "#/definitions/stringArray" },\n        "additionalProperties": {\n            "anyOf": [\n                { "type": "boolean" },\n                { "$ref": "#" }\n            ],\n            "default": {}\n        },\n        "definitions": {\n            "type": "object",\n            "additionalProperties": { "$ref": "#" },\n            "default": {}\n        },\n        "properties": {\n            "type": "object",\n            "additionalProperties": { "$ref": "#" },\n            "default": {}\n        },\n        "patternProperties": {\n            "type": "object",\n            "additionalProperties": { "$ref": "#" },\n            "default": {}\n        },\n        "dependencies": {\n            "type": "object",\n            "additionalProperties": {\n                "anyOf": [\n                    { "$ref": "#" },\n                    { "$ref": "#/definitions/stringArray" }\n                ]\n            }\n        },\n        "enum": {\n            "type": "array",\n            "minItems": 1,\n            "uniqueItems": true\n        },\n        "type": {\n            "anyOf": [\n                { "$ref": "#/definitions/simpleTypes" },\n                {\n                    "type": "array",\n                    "items": { "$ref": "#/definitions/simpleTypes" },\n                    "minItems": 1,\n                    "uniqueItems": true\n                }\n            ]\n        },\n        "allOf": { "$ref": "#/definitions/schemaArray" },\n        "anyOf": { "$ref": "#/definitions/schemaArray" },\n        "oneOf": { "$ref": "#/definitions/schemaArray" },\n        "not": { "$ref": "#" }\n    },\n    "dependencies": {\n        "exclusiveMaximum": [ "maximum" ],\n        "exclusiveMinimum": [ "minimum" ]\n    },\n    "default": {}\n    }\n    ');
+var 1602$json_schema$Json$Schemata$draft6 = 1602$json_schema$Json$Schemata$decodeUnsafe('\n    {\n    "$schema": "http://json-schema.org/draft-06/schema#",\n    "$id": "http://json-schema.org/draft-06/schema#",\n    "title": "Core schema meta-schema",\n    "definitions": {\n        "schemaArray": {\n            "type": "array",\n            "minItems": 1,\n            "items": { "$ref": "#" }\n        },\n        "nonNegativeInteger": {\n            "type": "integer",\n            "minimum": 0\n        },\n        "nonNegativeIntegerDefault0": {\n            "allOf": [\n                { "$ref": "#/definitions/nonNegativeInteger" },\n                { "default": 0 }\n            ]\n        },\n        "simpleTypes": {\n            "enum": [\n                "array",\n                "boolean",\n                "integer",\n                "null",\n                "number",\n                "object",\n                "string"\n            ]\n        },\n        "stringArray": {\n            "type": "array",\n            "items": { "type": "string" },\n            "uniqueItems": true,\n            "default": []\n        }\n    },\n    "type": ["object", "boolean"],\n    "properties": {\n        "$id": {\n            "type": "string",\n            "format": "uri-reference",\n            "description": "Identifier of schema"\n        },\n        "$schema": {\n            "type": "string",\n            "format": "uri",\n            "description": "Link to a schema which validates this object"\n        },\n        "$ref": {\n            "type": "string",\n            "format": "uri-reference"\n        },\n        "title": {\n            "type": "string"\n        },\n        "description": {\n            "type": "string"\n        },\n        "default": {},\n        "multipleOf": {\n            "type": "number",\n            "exclusiveMinimum": 0\n        },\n        "maximum": {\n            "type": "number"\n        },\n        "exclusiveMaximum": {\n            "type": "number"\n        },\n        "minimum": {\n            "type": "number"\n        },\n        "exclusiveMinimum": {\n            "type": "number"\n        },\n        "maxLength": { "$ref": "#/definitions/nonNegativeInteger" },\n        "minLength": { "$ref": "#/definitions/nonNegativeIntegerDefault0" },\n        "pattern": {\n            "type": "string",\n            "format": "regex"\n        },\n        "additionalItems": { "$ref": "#" },\n        "items": {\n            "anyOf": [\n                { "$ref": "#" },\n                { "$ref": "#/definitions/schemaArray" }\n            ],\n            "default": {}\n        },\n        "maxItems": { "$ref": "#/definitions/nonNegativeInteger" },\n        "minItems": { "$ref": "#/definitions/nonNegativeIntegerDefault0" },\n        "uniqueItems": {\n            "type": "boolean",\n            "default": false\n        },\n        "contains": { "$ref": "#" },\n        "maxProperties": { "$ref": "#/definitions/nonNegativeInteger" },\n        "minProperties": { "$ref": "#/definitions/nonNegativeIntegerDefault0" },\n        "required": { "$ref": "#/definitions/stringArray" },\n        "additionalProperties": { "$ref": "#" },\n        "definitions": {\n            "type": "object",\n            "additionalProperties": { "$ref": "#" },\n            "default": {}\n        },\n        "properties": {\n            "type": "object",\n            "additionalProperties": { "$ref": "#" },\n            "default": {}\n        },\n        "patternProperties": {\n            "type": "object",\n            "additionalProperties": { "$ref": "#" },\n            "default": {}\n        },\n        "dependencies": {\n            "type": "object",\n            "additionalProperties": {\n                "anyOf": [\n                    { "$ref": "#" },\n                    { "$ref": "#/definitions/stringArray" }\n                ]\n            }\n        },\n        "propertyNames": { "$ref": "#" },\n        "const": {},\n        "enum": {\n            "type": "array",\n            "minItems": 1,\n            "uniqueItems": true\n        },\n        "type": {\n            "anyOf": [\n                { "$ref": "#/definitions/simpleTypes" },\n                {\n                    "type": "array",\n                    "items": { "$ref": "#/definitions/simpleTypes" },\n                    "minItems": 1,\n                    "uniqueItems": true\n                }\n            ]\n        },\n        "format": { "type": "string" },\n        "allOf": { "$ref": "#/definitions/schemaArray" },\n        "anyOf": { "$ref": "#/definitions/schemaArray" },\n        "oneOf": { "$ref": "#/definitions/schemaArray" },\n        "not": { "$ref": "#" }\n    },\n    "default": {}\n    }\n    ');
+var 1602$json_schema$Ref$defaultPool = A3(
+	elm$core$Dict$insert,
+	'http://json-schema.org/draft-04/schema',
+	1602$json_schema$Json$Schemata$draft4,
+	A3(
+		elm$core$Dict$insert,
+		'http://json-schema.org/draft-06/schema#',
+		1602$json_schema$Json$Schemata$draft6,
+		A3(elm$core$Dict$insert, 'http://json-schema.org/draft-06/schema', 1602$json_schema$Json$Schemata$draft6, elm$core$Dict$empty)));
+var 1602$json_schema$Json$Schema$validateValue = F3(
+	function (validationOptions, value, schema) {
+		var _n0 = A2(1602$json_schema$Json$Schema$Helpers$collectIds, schema, 1602$json_schema$Ref$defaultPool);
+		var pool = _n0.a;
+		return A5(1602$json_schema$Json$Schema$Validation$validate, validationOptions, pool, value, schema, schema);
+	});
+var 1602$json_value$Json$Value$NullValue = {$: 'NullValue'};
+var 1602$json_value$Json$Value$ArrayValue = function (a) {
+	return {$: 'ArrayValue', a: a};
+};
+var 1602$json_value$Json$Value$BoolValue = function (a) {
+	return {$: 'BoolValue', a: a};
+};
+var 1602$json_value$Json$Value$ObjectValue = function (a) {
+	return {$: 'ObjectValue', a: a};
+};
+function 1602$json_value$Json$Value$cyclic$decoder() {
+	var objectValueDecoder = A2(
+		elm$json$Json$Decode$map,
+		1602$json_value$Json$Value$ObjectValue,
+		A2(
+			elm$json$Json$Decode$andThen,
+			A2(elm$core$Basics$composeR, elm$core$List$reverse, elm$json$Json$Decode$succeed),
+			elm$json$Json$Decode$keyValuePairs(
+				elm$json$Json$Decode$lazy(
+					function (_n1) {
+						return 1602$json_value$Json$Value$cyclic$decoder();
+					}))));
+	var arrayValueDecoder = A2(
+		elm$json$Json$Decode$map,
+		1602$json_value$Json$Value$ArrayValue,
+		elm$json$Json$Decode$list(
+			elm$json$Json$Decode$lazy(
+				function (_n0) {
+					return 1602$json_value$Json$Value$cyclic$decoder();
+				})));
+	return elm$json$Json$Decode$oneOf(
+		_List_fromArray(
+			[
+				objectValueDecoder,
+				arrayValueDecoder,
+				elm$json$Json$Decode$null(1602$json_value$Json$Value$NullValue),
+				A2(elm$json$Json$Decode$map, 1602$json_value$Json$Value$StringValue, elm$json$Json$Decode$string),
+				A2(elm$json$Json$Decode$map, 1602$json_value$Json$Value$NumericValue, elm$json$Json$Decode$float),
+				A2(elm$json$Json$Decode$map, 1602$json_value$Json$Value$BoolValue, elm$json$Json$Decode$bool)
+			]));
+}
+try {
+	var 1602$json_value$Json$Value$decoder = 1602$json_value$Json$Value$cyclic$decoder();
+	1602$json_value$Json$Value$cyclic$decoder = function () {
+		return 1602$json_value$Json$Value$decoder;
+	};
+} catch ($) {
+throw 'Some top-level definitions from `Json.Value` are causing infinite recursion:\n\n  ┌─────┐\n  │    decoder\n  └─────┘\n\nThese errors are very tricky, so read https://elm-lang.org/0.19.0/halting-problem to learn how to fix it!';}
+var elm$json$Json$Encode$null = _Json_encodeNull;
+var 1602$json_value$Json$Value$encode = function (v) {
+	switch (v.$) {
+		case 'ObjectValue':
+			var ov = v.a;
+			return elm$json$Json$Encode$object(
+				A2(
+					elm$core$List$map,
+					function (_n1) {
+						var key = _n1.a;
+						var jv = _n1.b;
+						return _Utils_Tuple2(
+							key,
+							1602$json_value$Json$Value$encode(jv));
+					},
+					ov));
+		case 'ArrayValue':
+			var av = v.a;
+			return A2(elm$json$Json$Encode$list, 1602$json_value$Json$Value$encode, av);
+		case 'StringValue':
+			var s = v.a;
+			return elm$json$Json$Encode$string(s);
+		case 'BoolValue':
+			var b = v.a;
+			return elm$json$Json$Encode$bool(b);
+		case 'NullValue':
+			return elm$json$Json$Encode$null;
+		default:
+			var n = v.a;
+			return elm$json$Json$Encode$float(n);
+	}
+};
+var 1602$json_value$Json$Value$setProperty = F3(
+	function (key, value, object) {
+		var updateOrAppend = function (list) {
+			return A2(
+				elm$core$List$any,
+				function (_n1) {
+					var k = _n1.a;
+					return _Utils_eq(k, key);
+				},
+				list) ? A2(
+				elm$core$List$map,
+				function (_n2) {
+					var k = _n2.a;
+					var v = _n2.b;
+					return _Utils_eq(k, key) ? _Utils_Tuple2(key, value) : _Utils_Tuple2(k, v);
+				},
+				list) : _Utils_ap(
+				list,
+				_List_fromArray(
+					[
+						_Utils_Tuple2(key, value)
+					]));
+		};
+		switch (object.$) {
+			case 'ObjectValue':
+				var o = object.a;
+				return elm$core$Result$Ok(
+					1602$json_value$Json$Value$ObjectValue(
+						updateOrAppend(o)));
+			case 'ArrayValue':
+				var list = object.a;
+				var index = A2(
+					elm$core$Result$withDefault,
+					elm$core$List$length(list),
+					A2(elm$json$Json$Decode$decodeString, elm$json$Json$Decode$int, key));
+				return (_Utils_cmp(
+					elm$core$List$length(list),
+					index) > 0) ? elm$core$Result$Ok(
+					1602$json_value$Json$Value$ArrayValue(
+						A2(
+							elm$core$List$indexedMap,
+							F2(
+								function (i, v) {
+									return _Utils_eq(i, index) ? value : v;
+								}),
+							list))) : elm$core$Result$Ok(
+					1602$json_value$Json$Value$ArrayValue(
+						_Utils_ap(
+							list,
+							_List_fromArray(
+								[value]))));
+			default:
+				return (key === '0') ? elm$core$Result$Ok(
+					1602$json_value$Json$Value$ArrayValue(
+						_List_fromArray(
+							[value]))) : elm$core$Result$Ok(
+					1602$json_value$Json$Value$ObjectValue(
+						_List_fromArray(
+							[
+								_Utils_Tuple2(key, value)
+							])));
+		}
+	});
+var 1602$json_value$Json$Value$setIn = F3(
+	function (pathInJson, valueToSet, hostValue) {
+		var path = elm$core$List$reverse(pathInJson);
+		var newValue = function () {
+			if (!path.b) {
+				return elm$core$Result$Ok(valueToSet);
+			} else {
+				var subpath = path.b;
+				return function (_n3) {
+					var v = _n3.b;
+					return v;
+				}(
+					A3(
+						elm$core$List$foldl,
+						F2(
+							function (key, _n1) {
+								var thisPath = _n1.a;
+								var value = _n1.b;
+								var p = elm$core$List$reverse(thisPath);
+								var v = A2(
+									elm$core$Result$andThen,
+									function (vv) {
+										return A2(
+											elm$core$Result$andThen,
+											A2(1602$json_value$Json$Value$setProperty, key, vv),
+											A2(1602$json_value$Json$Value$getIn, p, hostValue));
+									},
+									value);
+								if (!thisPath.b) {
+									return _Utils_Tuple2(_List_Nil, v);
+								} else {
+									var tail = thisPath.b;
+									return _Utils_Tuple2(tail, v);
+								}
+							}),
+						_Utils_Tuple2(
+							subpath,
+							elm$core$Result$Ok(valueToSet)),
+						path));
+			}
+		}();
+		return newValue;
+	});
+var author$project$Json$Form$UpdateValue = F2(
+	function (a, b) {
+		return {$: 'UpdateValue', a: a, b: b};
+	});
+var author$project$ErrorMessages$encodeString = A2(
+	elm$core$Basics$composeR,
+	elm$json$Json$Encode$string,
+	elm$json$Json$Encode$encode(0));
+var elm$core$String$fromFloat = _String_fromNumber;
+var author$project$ErrorMessages$floatToString = elm$core$String$fromFloat;
+var author$project$ErrorMessages$intToString = elm$core$String$fromInt;
+var author$project$ErrorMessages$pluralize = F2(
+	function (n, name) {
+		if (n === 1) {
+			return '1 ' + name;
+		} else {
+			return author$project$ErrorMessages$intToString(n) + (' ' + (name + 's'));
+		}
+	});
+var author$project$ErrorMessages$stringifyError = function (e) {
+	switch (e.$) {
+		case 'MultipleOf':
+			var multiplier = e.a;
+			var actual = e.b;
+			return author$project$ErrorMessages$floatToString(actual) + (' is not a multiple of ' + author$project$ErrorMessages$floatToString(multiplier));
+		case 'Maximum':
+			var max = e.a;
+			var actual = e.b;
+			return author$project$ErrorMessages$floatToString(actual) + (' is more than maximum ' + author$project$ErrorMessages$floatToString(max));
+		case 'Minimum':
+			var min = e.a;
+			var actual = e.b;
+			return author$project$ErrorMessages$floatToString(actual) + (' is less than minimum ' + author$project$ErrorMessages$floatToString(min));
+		case 'ExclusiveMaximum':
+			var max = e.a;
+			var actual = e.b;
+			return author$project$ErrorMessages$floatToString(actual) + (' is not less than exclusive maximum ' + author$project$ErrorMessages$floatToString(max));
+		case 'ExclusiveMinimum':
+			var min = e.a;
+			var actual = e.b;
+			return author$project$ErrorMessages$floatToString(actual) + (' is not more than exclusive minimum ' + author$project$ErrorMessages$floatToString(min));
+		case 'MaxLength':
+			var expected = e.a;
+			var actual = e.b;
+			return 'Expected string not longer than ' + (A2(author$project$ErrorMessages$pluralize, expected, 'character') + (' but actual length is ' + A2(author$project$ErrorMessages$pluralize, actual, 'character')));
+		case 'MinLength':
+			var expected = e.a;
+			var actual = e.b;
+			return 'Expected string to be at least ' + (A2(author$project$ErrorMessages$pluralize, expected, 'character') + (' long but its length is ' + A2(author$project$ErrorMessages$pluralize, actual, 'character')));
+		case 'Pattern':
+			var pattern = e.a;
+			var string = e.b;
+			return 'String ' + (author$project$ErrorMessages$encodeString(string) + (' does not match pattern ' + pattern));
+		case 'MaxItems':
+			var expected = e.a;
+			var actual = e.b;
+			return 'List expected to have at most ' + (A2(author$project$ErrorMessages$pluralize, expected, 'item') + (' but it has ' + A2(author$project$ErrorMessages$pluralize, actual, 'item')));
+		case 'MinItems':
+			var expected = e.a;
+			var actual = e.b;
+			return 'List expected to have at least ' + (A2(author$project$ErrorMessages$pluralize, expected, 'item') + (' but it has ' + A2(author$project$ErrorMessages$pluralize, actual, 'item')));
+		case 'UniqueItems':
+			var x = e.a;
+			return 'Expected array of unique items, but a duplicate found: ' + A2(elm$json$Json$Encode$encode, 0, x);
+		case 'Contains':
+			return 'None of array items is valid against the given schema';
+		case 'MaxProperties':
+			var expected = e.a;
+			var actual = e.b;
+			return 'MaxProperties';
+		case 'MinProperties':
+			var expected = e.a;
+			var actual = e.b;
+			return 'MinProperties';
+		case 'RequiredProperty':
+			return 'This property is required';
+		case 'Required':
+			var missingPropertyNames = e.a;
+			return '';
+		case 'AdditionalPropertyDisallowed':
+			return 'This is an additional property and it is not allowed';
+		case 'AdditionalPropertiesDisallowed':
+			var extraPropertyNames = e.a;
+			return '';
+		case 'InvalidPropertyName':
+			var invalidPropertyNames = e.a;
+			return 'Some property names are not passing validation: ';
+		case 'Enum':
+			return 'Value does not match enumeration defined in the schema';
+		case 'Const':
+			return 'Value does not match const defined in the schema';
+		case 'InvalidType':
+			var s = e.a;
+			return s;
+		case 'OneOfNoneSucceed':
+			return 'Value does not pass the validation with none of the schemata listed in \'.oneOf\'';
+		case 'OneOfManySucceed':
+			var _int = e.a;
+			return 'Value should pass validation with exactly one schema, but ' + (author$project$ErrorMessages$intToString(_int) + ' return a positive result');
+		case 'Not':
+			return 'This value expected to fail validation';
+		case 'AlwaysFail':
+			return 'This is not expected to succeed';
+		default:
+			var ref = e.a;
+			return 'Reference ' + (author$project$ErrorMessages$encodeString(ref) + ' can not be resolved');
+	}
+};
+var elm$core$Dict$getMin = function (dict) {
+	getMin:
+	while (true) {
+		if ((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) {
+			var left = dict.d;
+			var $temp$dict = left;
+			dict = $temp$dict;
+			continue getMin;
+		} else {
+			return dict;
+		}
+	}
+};
+var elm$core$Dict$moveRedLeft = function (dict) {
+	if (((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) && (dict.e.$ === 'RBNode_elm_builtin')) {
+		if ((dict.e.d.$ === 'RBNode_elm_builtin') && (dict.e.d.a.$ === 'Red')) {
+			var clr = dict.a;
+			var k = dict.b;
+			var v = dict.c;
+			var _n1 = dict.d;
+			var lClr = _n1.a;
+			var lK = _n1.b;
+			var lV = _n1.c;
+			var lLeft = _n1.d;
+			var lRight = _n1.e;
+			var _n2 = dict.e;
+			var rClr = _n2.a;
+			var rK = _n2.b;
+			var rV = _n2.c;
+			var rLeft = _n2.d;
+			var _n3 = rLeft.a;
+			var rlK = rLeft.b;
+			var rlV = rLeft.c;
+			var rlL = rLeft.d;
+			var rlR = rLeft.e;
+			var rRight = _n2.e;
+			return A5(
+				elm$core$Dict$RBNode_elm_builtin,
+				elm$core$Dict$Red,
+				rlK,
+				rlV,
+				A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					elm$core$Dict$Black,
+					k,
+					v,
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					rlL),
+				A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Black, rK, rV, rlR, rRight));
+		} else {
+			var clr = dict.a;
+			var k = dict.b;
+			var v = dict.c;
+			var _n4 = dict.d;
+			var lClr = _n4.a;
+			var lK = _n4.b;
+			var lV = _n4.c;
+			var lLeft = _n4.d;
+			var lRight = _n4.e;
+			var _n5 = dict.e;
+			var rClr = _n5.a;
+			var rK = _n5.b;
+			var rV = _n5.c;
+			var rLeft = _n5.d;
+			var rRight = _n5.e;
+			if (clr.$ === 'Black') {
+				return A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					elm$core$Dict$Black,
+					k,
+					v,
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, rK, rV, rLeft, rRight));
+			} else {
+				return A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					elm$core$Dict$Black,
+					k,
+					v,
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, rK, rV, rLeft, rRight));
+			}
+		}
+	} else {
+		return dict;
+	}
+};
+var elm$core$Dict$moveRedRight = function (dict) {
+	if (((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) && (dict.e.$ === 'RBNode_elm_builtin')) {
+		if ((dict.d.d.$ === 'RBNode_elm_builtin') && (dict.d.d.a.$ === 'Red')) {
+			var clr = dict.a;
+			var k = dict.b;
+			var v = dict.c;
+			var _n1 = dict.d;
+			var lClr = _n1.a;
+			var lK = _n1.b;
+			var lV = _n1.c;
+			var _n2 = _n1.d;
+			var _n3 = _n2.a;
+			var llK = _n2.b;
+			var llV = _n2.c;
+			var llLeft = _n2.d;
+			var llRight = _n2.e;
+			var lRight = _n1.e;
+			var _n4 = dict.e;
+			var rClr = _n4.a;
+			var rK = _n4.b;
+			var rV = _n4.c;
+			var rLeft = _n4.d;
+			var rRight = _n4.e;
+			return A5(
+				elm$core$Dict$RBNode_elm_builtin,
+				elm$core$Dict$Red,
+				lK,
+				lV,
+				A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Black, llK, llV, llLeft, llRight),
+				A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					elm$core$Dict$Black,
+					k,
+					v,
+					lRight,
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, rK, rV, rLeft, rRight)));
+		} else {
+			var clr = dict.a;
+			var k = dict.b;
+			var v = dict.c;
+			var _n5 = dict.d;
+			var lClr = _n5.a;
+			var lK = _n5.b;
+			var lV = _n5.c;
+			var lLeft = _n5.d;
+			var lRight = _n5.e;
+			var _n6 = dict.e;
+			var rClr = _n6.a;
+			var rK = _n6.b;
+			var rV = _n6.c;
+			var rLeft = _n6.d;
+			var rRight = _n6.e;
+			if (clr.$ === 'Black') {
+				return A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					elm$core$Dict$Black,
+					k,
+					v,
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, rK, rV, rLeft, rRight));
+			} else {
+				return A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					elm$core$Dict$Black,
+					k,
+					v,
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, lK, lV, lLeft, lRight),
+					A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, rK, rV, rLeft, rRight));
+			}
+		}
+	} else {
+		return dict;
+	}
+};
+var elm$core$Dict$removeHelpPrepEQGT = F7(
+	function (targetKey, dict, color, key, value, left, right) {
+		if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Red')) {
+			var _n1 = left.a;
+			var lK = left.b;
+			var lV = left.c;
+			var lLeft = left.d;
+			var lRight = left.e;
+			return A5(
+				elm$core$Dict$RBNode_elm_builtin,
+				color,
+				lK,
+				lV,
+				lLeft,
+				A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Red, key, value, lRight, right));
+		} else {
+			_n2$2:
+			while (true) {
+				if ((right.$ === 'RBNode_elm_builtin') && (right.a.$ === 'Black')) {
+					if (right.d.$ === 'RBNode_elm_builtin') {
+						if (right.d.a.$ === 'Black') {
+							var _n3 = right.a;
+							var _n4 = right.d;
+							var _n5 = _n4.a;
+							return elm$core$Dict$moveRedRight(dict);
+						} else {
+							break _n2$2;
+						}
+					} else {
+						var _n6 = right.a;
+						var _n7 = right.d;
+						return elm$core$Dict$moveRedRight(dict);
+					}
+				} else {
+					break _n2$2;
+				}
+			}
+			return dict;
+		}
+	});
+var elm$core$Dict$removeMin = function (dict) {
+	if ((dict.$ === 'RBNode_elm_builtin') && (dict.d.$ === 'RBNode_elm_builtin')) {
+		var color = dict.a;
+		var key = dict.b;
+		var value = dict.c;
+		var left = dict.d;
+		var lColor = left.a;
+		var lLeft = left.d;
+		var right = dict.e;
+		if (lColor.$ === 'Black') {
+			if ((lLeft.$ === 'RBNode_elm_builtin') && (lLeft.a.$ === 'Red')) {
+				var _n3 = lLeft.a;
+				return A5(
+					elm$core$Dict$RBNode_elm_builtin,
+					color,
+					key,
+					value,
+					elm$core$Dict$removeMin(left),
+					right);
+			} else {
+				var _n4 = elm$core$Dict$moveRedLeft(dict);
+				if (_n4.$ === 'RBNode_elm_builtin') {
+					var nColor = _n4.a;
+					var nKey = _n4.b;
+					var nValue = _n4.c;
+					var nLeft = _n4.d;
+					var nRight = _n4.e;
+					return A5(
+						elm$core$Dict$balance,
+						nColor,
+						nKey,
+						nValue,
+						elm$core$Dict$removeMin(nLeft),
+						nRight);
+				} else {
+					return elm$core$Dict$RBEmpty_elm_builtin;
+				}
+			}
+		} else {
+			return A5(
+				elm$core$Dict$RBNode_elm_builtin,
+				color,
+				key,
+				value,
+				elm$core$Dict$removeMin(left),
+				right);
+		}
+	} else {
+		return elm$core$Dict$RBEmpty_elm_builtin;
+	}
+};
+var elm$core$Dict$removeHelp = F2(
+	function (targetKey, dict) {
+		if (dict.$ === 'RBEmpty_elm_builtin') {
+			return elm$core$Dict$RBEmpty_elm_builtin;
+		} else {
+			var color = dict.a;
+			var key = dict.b;
+			var value = dict.c;
+			var left = dict.d;
+			var right = dict.e;
+			if (_Utils_cmp(targetKey, key) < 0) {
+				if ((left.$ === 'RBNode_elm_builtin') && (left.a.$ === 'Black')) {
+					var _n4 = left.a;
+					var lLeft = left.d;
+					if ((lLeft.$ === 'RBNode_elm_builtin') && (lLeft.a.$ === 'Red')) {
+						var _n6 = lLeft.a;
+						return A5(
+							elm$core$Dict$RBNode_elm_builtin,
+							color,
+							key,
+							value,
+							A2(elm$core$Dict$removeHelp, targetKey, left),
+							right);
+					} else {
+						var _n7 = elm$core$Dict$moveRedLeft(dict);
+						if (_n7.$ === 'RBNode_elm_builtin') {
+							var nColor = _n7.a;
+							var nKey = _n7.b;
+							var nValue = _n7.c;
+							var nLeft = _n7.d;
+							var nRight = _n7.e;
+							return A5(
+								elm$core$Dict$balance,
+								nColor,
+								nKey,
+								nValue,
+								A2(elm$core$Dict$removeHelp, targetKey, nLeft),
+								nRight);
+						} else {
+							return elm$core$Dict$RBEmpty_elm_builtin;
+						}
+					}
+				} else {
+					return A5(
+						elm$core$Dict$RBNode_elm_builtin,
+						color,
+						key,
+						value,
+						A2(elm$core$Dict$removeHelp, targetKey, left),
+						right);
+				}
+			} else {
+				return A2(
+					elm$core$Dict$removeHelpEQGT,
+					targetKey,
+					A7(elm$core$Dict$removeHelpPrepEQGT, targetKey, dict, color, key, value, left, right));
+			}
+		}
+	});
+var elm$core$Dict$removeHelpEQGT = F2(
+	function (targetKey, dict) {
+		if (dict.$ === 'RBNode_elm_builtin') {
+			var color = dict.a;
+			var key = dict.b;
+			var value = dict.c;
+			var left = dict.d;
+			var right = dict.e;
+			if (_Utils_eq(targetKey, key)) {
+				var _n1 = elm$core$Dict$getMin(right);
+				if (_n1.$ === 'RBNode_elm_builtin') {
+					var minKey = _n1.b;
+					var minValue = _n1.c;
+					return A5(
+						elm$core$Dict$balance,
+						color,
+						minKey,
+						minValue,
+						left,
+						elm$core$Dict$removeMin(right));
+				} else {
+					return elm$core$Dict$RBEmpty_elm_builtin;
+				}
+			} else {
+				return A5(
+					elm$core$Dict$balance,
+					color,
+					key,
+					value,
+					left,
+					A2(elm$core$Dict$removeHelp, targetKey, right));
+			}
+		} else {
+			return elm$core$Dict$RBEmpty_elm_builtin;
+		}
+	});
+var elm$core$Dict$remove = F2(
+	function (key, dict) {
+		var _n0 = A2(elm$core$Dict$removeHelp, key, dict);
+		if ((_n0.$ === 'RBNode_elm_builtin') && (_n0.a.$ === 'Red')) {
+			var _n1 = _n0.a;
+			var k = _n0.b;
+			var v = _n0.c;
+			var l = _n0.d;
+			var r = _n0.e;
+			return A5(elm$core$Dict$RBNode_elm_builtin, elm$core$Dict$Black, k, v, l, r);
+		} else {
+			var x = _n0;
+			return x;
+		}
+	});
+var elm$core$Dict$update = F3(
+	function (targetKey, alter, dictionary) {
+		var _n0 = alter(
+			A2(elm$core$Dict$get, targetKey, dictionary));
+		if (_n0.$ === 'Just') {
+			var value = _n0.a;
+			return A3(elm$core$Dict$insert, targetKey, value, dictionary);
+		} else {
+			return A2(elm$core$Dict$remove, targetKey, dictionary);
+		}
+	});
+var author$project$Json$Form$dictFromListErrors = function (list) {
+	return A3(
+		elm$core$List$foldl,
+		F2(
+			function (error, dict) {
+				return A3(
+					elm$core$Dict$update,
+					error.jsonPointer.path,
+					function (listDetails) {
+						return elm$core$Maybe$Just(
+							function () {
+								if (listDetails.$ === 'Just') {
+									var l = listDetails.a;
+									return _Utils_ap(
+										l,
+										_List_fromArray(
+											[
+												author$project$ErrorMessages$stringifyError(error.details)
+											]));
+								} else {
+									return _List_fromArray(
+										[
+											author$project$ErrorMessages$stringifyError(error.details)
+										]);
+								}
+							}());
+					},
+					dict);
+			}),
+		elm$core$Dict$empty,
+		list);
+};
+var author$project$Json$Form$editValue = F3(
+	function (model, path, val) {
+		var updatedJsonValue = A2(
+			elm$core$Maybe$withDefault,
+			1602$json_value$Json$Value$NullValue,
+			elm$core$Result$toMaybe(
+				A3(
+					1602$json_value$Json$Value$setIn,
+					path,
+					val,
+					A2(elm$core$Maybe$withDefault, 1602$json_value$Json$Value$NullValue, model.value))));
+		var updatedValue = 1602$json_value$Json$Value$encode(updatedJsonValue);
+		var validationResult = A3(
+			1602$json_schema$Json$Schema$validateValue,
+			{applyDefaults: true},
+			updatedValue,
+			model.schema);
+		if (validationResult.$ === 'Ok') {
+			var v = validationResult.a;
+			return _Utils_Tuple2(
+				_Utils_Tuple2(
+					_Utils_update(
+						model,
+						{
+							errors: elm$core$Dict$empty,
+							value: elm$core$Result$toMaybe(
+								A2(elm$json$Json$Decode$decodeValue, 1602$json_value$Json$Value$decoder, v))
+						}),
+					elm$core$Platform$Cmd$none),
+				A2(
+					author$project$Json$Form$UpdateValue,
+					elm$core$Maybe$Just(updatedJsonValue),
+					true));
+		} else {
+			var e = validationResult.a;
+			return _Utils_Tuple2(
+				_Utils_Tuple2(
+					_Utils_update(
+						model,
+						{
+							errors: author$project$Json$Form$dictFromListErrors(e),
+							value: elm$core$Maybe$Just(updatedJsonValue)
+						}),
+					elm$core$Platform$Cmd$none),
+				A2(
+					author$project$Json$Form$UpdateValue,
+					elm$core$Maybe$Just(updatedJsonValue),
+					false));
+		}
+	});
+var author$project$Json$Form$touch = F3(
+	function (path, focused, beingEdited) {
+		return _Utils_eq(path, elm$core$Maybe$Nothing) ? A2(
+			elm$core$List$cons,
+			A2(elm$core$Maybe$withDefault, _List_Nil, focused),
+			beingEdited) : beingEdited;
+	});
+var author$project$Util$jsonValueToString = function (jv) {
+	switch (jv.$) {
+		case 'StringValue':
+			var s = jv.a;
+			return s;
+		case 'NumericValue':
+			var n = jv.a;
+			return elm$core$String$fromFloat(n);
+		default:
+			return '';
+	}
+};
+var elm$core$String$toFloat = _String_toFloat;
+var author$project$Json$Form$update = F2(
+	function (msg, model) {
+		switch (msg.$) {
+			case 'FocusInput':
+				var focused = msg.a;
+				return _Utils_Tuple2(
+					_Utils_Tuple2(
+						_Utils_update(
+							model,
+							{
+								beingEdited: A3(author$project$Json$Form$touch, focused, model.focused, model.beingEdited),
+								focused: focused
+							}),
+						elm$core$Platform$Cmd$none),
+					author$project$Json$Form$None);
+			case 'FocusNumericInput':
+				var focused = msg.a;
+				if (focused.$ === 'Nothing') {
+					return A3(
+						author$project$Json$Form$editValue,
+						_Utils_update(
+							model,
+							{
+								beingEdited: A3(author$project$Json$Form$touch, focused, model.focused, model.beingEdited)
+							}),
+						A2(elm$core$Maybe$withDefault, _List_Nil, model.focused),
+						function () {
+							var _n2 = elm$core$String$toFloat(model.editedNumber);
+							if (_n2.$ === 'Just') {
+								var num = _n2.a;
+								return 1602$json_value$Json$Value$NumericValue(num);
+							} else {
+								return 1602$json_value$Json$Value$StringValue(model.editedNumber);
+							}
+						}());
+				} else {
+					var somePath = focused.a;
+					return _Utils_Tuple2(
+						_Utils_Tuple2(
+							_Utils_update(
+								model,
+								{
+									editedNumber: A2(
+										elm$core$Maybe$withDefault,
+										'',
+										A2(
+											elm$core$Maybe$map,
+											author$project$Util$jsonValueToString,
+											A2(
+												elm$core$Maybe$andThen,
+												elm$core$Result$toMaybe,
+												A2(
+													elm$core$Maybe$map,
+													1602$json_value$Json$Value$getIn(somePath),
+													model.value)))),
+									focused: focused
+								}),
+							elm$core$Platform$Cmd$none),
+						author$project$Json$Form$None);
+				}
+			case 'EditValue':
+				var path = msg.a;
+				var val = msg.b;
+				return A3(author$project$Json$Form$editValue, model, path, val);
+			default:
+				var str = msg.a;
+				var _n3 = elm$core$String$toFloat(str);
+				if (_n3.$ === 'Just') {
+					var num = _n3.a;
+					return A3(
+						author$project$Json$Form$editValue,
+						_Utils_update(
+							model,
+							{editedNumber: str}),
+						A2(elm$core$Maybe$withDefault, _List_Nil, model.focused),
+						1602$json_value$Json$Value$NumericValue(num));
+				} else {
+					return _Utils_Tuple2(
+						_Utils_Tuple2(
+							_Utils_update(
+								model,
+								{editedNumber: str}),
+							elm$core$Platform$Cmd$none),
+						author$project$Json$Form$None);
+				}
+		}
+	});
+var author$project$JsonViewer$toggle = F2(
+	function (path, expandedNodes) {
+		return A2(elm$core$List$member, path, expandedNodes) ? A2(
+			elm$core$List$filter,
+			elm$core$Basics$neq(path),
+			expandedNodes) : A2(elm$core$List$cons, path, expandedNodes);
+	});
+var elm$core$Platform$Cmd$map = _Platform_map;
+var author$project$Demo$update = F2(
+	function (message, model) {
+		switch (message.$) {
+			case 'JsonFormMsg':
+				var msg = message.a;
+				var _n1 = A2(author$project$Json$Form$update, msg, model.form);
+				var _n2 = _n1.a;
+				var m = _n2.a;
+				var cmd = _n2.b;
+				var exMsg = _n1.b;
+				return _Utils_Tuple2(
+					_Utils_update(
+						model,
+						{
+							editedValue: function () {
+								if (exMsg.$ === 'UpdateValue') {
+									var v = exMsg.a;
+									return v;
+								} else {
+									return model.editedValue;
+								}
+							}(),
+							form: m
+						}),
+					A2(elm$core$Platform$Cmd$map, author$project$Demo$JsonFormMsg, cmd));
+			case 'ToggleNode':
+				var path = message.a;
+				return _Utils_Tuple2(
+					_Utils_update(
+						model,
+						{
+							expandedNodes: A2(author$project$JsonViewer$toggle, path, model.expandedNodes)
+						}),
+					elm$core$Platform$Cmd$none);
+			default:
+				var s = message.a;
+				return _Utils_Tuple2(
+					_Utils_update(
+						model,
+						{
+							editedValue: elm$core$Maybe$Nothing,
+							form: A2(
+								author$project$Json$Form$init,
+								author$project$Snippets$getSnippet(s),
+								elm$core$Maybe$Nothing),
+							showcase: s
+						}),
+					elm$core$Platform$Cmd$none);
+		}
+	});
+var author$project$Demo$ToggleNode = function (a) {
+	return {$: 'ToggleNode', a: a};
+};
+var author$project$Json$Form$Definitions$Checkbox = {$: 'Checkbox'};
+var author$project$Json$Form$Definitions$Switch = {$: 'Switch'};
+var 1602$json_schema$Json$Schema$Definitions$getCustomKeywordValue = F2(
+	function (key, schema) {
+		if (schema.$ === 'ObjectSchema') {
+			var os = schema.a;
+			return elm$core$List$head(
+				A2(
+					elm$core$List$filterMap,
+					function (_n1) {
+						var k = _n1.a;
+						var v = _n1.b;
+						return _Utils_eq(k, key) ? elm$core$Maybe$Just(v) : elm$core$Maybe$Nothing;
+					},
+					A2(
+						elm$core$Result$withDefault,
+						_List_Nil,
+						A2(
+							elm$json$Json$Decode$decodeValue,
+							elm$json$Json$Decode$keyValuePairs(elm$json$Json$Decode$value),
+							os.source))));
+		} else {
+			return elm$core$Maybe$Nothing;
+		}
+	});
+var author$project$Json$Form$UiSpec$Unknown = function (a) {
+	return {$: 'Unknown', a: a};
+};
+var author$project$Json$Form$UiSpec$PasswordField = {$: 'PasswordField'};
+var author$project$Json$Form$UiSpec$Switch = {$: 'Switch'};
+var author$project$Json$Form$UiSpec$decoder = elm$json$Json$Decode$oneOf(
+	_List_fromArray(
+		[
+			A2(
+			elm$json$Json$Decode$andThen,
+			function (widget) {
+				return (widget === 'password') ? elm$json$Json$Decode$succeed(author$project$Json$Form$UiSpec$PasswordField) : ((widget === 'switch') ? elm$json$Json$Decode$succeed(author$project$Json$Form$UiSpec$Switch) : elm$json$Json$Decode$fail(''));
+			},
+			A2(elm$json$Json$Decode$field, 'widget', elm$json$Json$Decode$string)),
+			A2(elm$json$Json$Decode$map, author$project$Json$Form$UiSpec$Unknown, elm$json$Json$Decode$value)
+		]));
+var author$project$Util$getUiSpec = function (schema) {
+	return A2(
+		elm$core$Maybe$withDefault,
+		author$project$Json$Form$UiSpec$Unknown(elm$json$Json$Encode$null),
+		A2(
+			elm$core$Maybe$andThen,
+			function (settings) {
+				return elm$core$Result$toMaybe(
+					A2(elm$json$Json$Decode$decodeValue, author$project$Json$Form$UiSpec$decoder, settings));
+			},
+			A2(1602$json_schema$Json$Schema$Definitions$getCustomKeywordValue, 'ui', schema)));
+};
+var author$project$Json$Form$getBooleanUiWidget = function (schema) {
+	var _n0 = author$project$Util$getUiSpec(schema);
+	if (_n0.$ === 'Switch') {
+		return author$project$Json$Form$Definitions$Switch;
+	} else {
+		return author$project$Json$Form$Definitions$Checkbox;
+	}
+};
+var author$project$Json$Form$Definitions$JsonEditor = {$: 'JsonEditor'};
+var author$project$Json$Form$Definitions$NumberField = {$: 'NumberField'};
+var author$project$Json$Form$Definitions$Object = {$: 'Object'};
+var author$project$Json$Form$Definitions$TextField = {$: 'TextField'};
+var author$project$Json$Form$editingMode = F2(
+	function (model, schema) {
+		if (schema.$ === 'ObjectSchema') {
+			var os = schema.a;
+			var _n1 = os.type_;
+			_n1$4:
+			while (true) {
+				if (_n1.$ === 'SingleType') {
+					switch (_n1.a.$) {
+						case 'NumberType':
+							var _n2 = _n1.a;
+							return author$project$Json$Form$Definitions$NumberField;
+						case 'StringType':
+							var _n3 = _n1.a;
+							return author$project$Json$Form$Definitions$TextField;
+						case 'BooleanType':
+							var _n4 = _n1.a;
+							return author$project$Json$Form$getBooleanUiWidget(schema);
+						case 'ObjectType':
+							var _n5 = _n1.a;
+							return author$project$Json$Form$Definitions$Object;
+						default:
+							break _n1$4;
+					}
+				} else {
+					break _n1$4;
+				}
+			}
+			return author$project$Json$Form$Definitions$JsonEditor;
+		} else {
+			return author$project$Json$Form$Definitions$JsonEditor;
+		}
+	});
+var author$project$Json$Form$Definitions$EditValue = F2(
+	function (a, b) {
+		return {$: 'EditValue', a: a, b: b};
+	});
+var author$project$Json$Form$Definitions$FocusInput = function (a) {
+	return {$: 'FocusInput', a: a};
+};
+var author$project$Util$getTextProp = F3(
+	function (schema, prop, def) {
+		if (schema.$ === 'ObjectSchema') {
+			var os = schema.a;
+			return A2(
+				elm$core$Maybe$withDefault,
+				def,
+				prop(os));
+		} else {
+			return def;
+		}
+	});
+var author$project$Util$getDescription = function (schema) {
+	return A3(
+		author$project$Util$getTextProp,
+		schema,
+		function ($) {
+			return $.description;
+		},
+		'');
+};
+var elm$virtual_dom$VirtualDom$toHandlerInt = function (handler) {
+	switch (handler.$) {
+		case 'Normal':
+			return 0;
+		case 'MayStopPropagation':
+			return 1;
+		case 'MayPreventDefault':
+			return 2;
+		default:
+			return 3;
+	}
+};
+var elm$virtual_dom$VirtualDom$text = _VirtualDom_text;
+var elm$html$Html$text = elm$virtual_dom$VirtualDom$text;
+var author$project$Json$Form$Helper$view = F3(
+	function (model, schema, path) {
+		var errors = A2(elm$core$Dict$get, path, model.errors);
+		var hasError = (!_Utils_eq(errors, elm$core$Maybe$Nothing)) && A2(elm$core$List$member, path, model.beingEdited);
+		return _Utils_Tuple2(
+			hasError,
+			hasError ? elm$html$Html$text(
+				'Error: ' + A2(
+					elm$core$String$join,
+					', ',
+					A2(elm$core$Maybe$withDefault, _List_Nil, errors))) : elm$html$Html$text(
+				author$project$Util$getDescription(schema)));
+	});
+var author$project$Util$getTitle = F2(
+	function (isRequired, schema) {
+		return function (title) {
+			return isRequired ? (title + ' *') : title;
+		}(
+			A3(
+				author$project$Util$getTextProp,
+				schema,
+				function ($) {
+					return $.title;
+				},
+				''));
+	});
+var elm$html$Html$div = _VirtualDom_node('div');
+var elm$html$Html$input = _VirtualDom_node('input');
+var elm$html$Html$label = _VirtualDom_node('label');
+var elm$html$Html$span = _VirtualDom_node('span');
+var elm$html$Html$Attributes$boolProperty = F2(
+	function (key, bool) {
+		return A2(
+			_VirtualDom_property,
+			key,
+			elm$json$Json$Encode$bool(bool));
+	});
+var elm$html$Html$Attributes$checked = elm$html$Html$Attributes$boolProperty('checked');
+var elm$html$Html$Attributes$stringProperty = F2(
+	function (key, string) {
+		return A2(
+			_VirtualDom_property,
+			key,
+			elm$json$Json$Encode$string(string));
+	});
+var elm$html$Html$Attributes$class = elm$html$Html$Attributes$stringProperty('className');
+var elm$core$Tuple$second = function (_n0) {
+	var y = _n0.b;
+	return y;
+};
+var elm$html$Html$Attributes$classList = function (classes) {
+	return elm$html$Html$Attributes$class(
+		A2(
+			elm$core$String$join,
+			' ',
+			A2(
+				elm$core$List$map,
+				elm$core$Tuple$first,
+				A2(elm$core$List$filter, elm$core$Tuple$second, classes))));
+};
+var elm$html$Html$Attributes$type_ = elm$html$Html$Attributes$stringProperty('type');
+var elm$virtual_dom$VirtualDom$Normal = function (a) {
+	return {$: 'Normal', a: a};
+};
+var elm$virtual_dom$VirtualDom$on = _VirtualDom_on;
+var elm$html$Html$Events$on = F2(
+	function (event, decoder) {
+		return A2(
+			elm$virtual_dom$VirtualDom$on,
+			event,
+			elm$virtual_dom$VirtualDom$Normal(decoder));
+	});
+var elm$html$Html$Events$onBlur = function (msg) {
+	return A2(
+		elm$html$Html$Events$on,
+		'blur',
+		elm$json$Json$Decode$succeed(msg));
+};
+var elm$html$Html$Events$targetChecked = A2(
+	elm$json$Json$Decode$at,
+	_List_fromArray(
+		['target', 'checked']),
+	elm$json$Json$Decode$bool);
+var elm$html$Html$Events$onCheck = function (tagger) {
+	return A2(
+		elm$html$Html$Events$on,
+		'change',
+		A2(elm$json$Json$Decode$map, tagger, elm$html$Html$Events$targetChecked));
+};
+var elm$html$Html$Events$onFocus = function (msg) {
+	return A2(
+		elm$html$Html$Events$on,
+		'focus',
+		elm$json$Json$Decode$succeed(msg));
+};
+var author$project$Json$Form$Selection$checkbox = F4(
+	function (model, schema, isRequired, path) {
+		var isChecked = function () {
+			var _n1 = A2(
+				elm$core$Maybe$andThen,
+				A2(
+					elm$core$Basics$composeR,
+					1602$json_value$Json$Value$getIn(path),
+					elm$core$Result$toMaybe),
+				model.value);
+			if ((_n1.$ === 'Just') && (_n1.a.$ === 'BoolValue')) {
+				var x = _n1.a.a;
+				return x;
+			} else {
+				return false;
+			}
+		}();
+		var _n0 = A3(author$project$Json$Form$Helper$view, model, schema, path);
+		var hasError = _n0.a;
+		var helperText = _n0.b;
+		return A2(
+			elm$html$Html$label,
+			_List_fromArray(
+				[
+					elm$html$Html$Attributes$classList(
+					_List_fromArray(
+						[
+							_Utils_Tuple2('jf-checkbox', true),
+							_Utils_Tuple2('jf-checkbox--on', isChecked),
+							_Utils_Tuple2(
+							'jf-checkbox--focused',
+							A2(
+								elm$core$Maybe$withDefault,
+								false,
+								A2(
+									elm$core$Maybe$map,
+									elm$core$Basics$eq(path),
+									model.focused))),
+							_Utils_Tuple2('jf-checkbox--invalid', hasError)
+						]))
+				]),
+			_List_fromArray(
+				[
+					A2(
+					elm$html$Html$input,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$type_('checkbox'),
+							elm$html$Html$Attributes$class('jf-checkbox__input'),
+							elm$html$Html$Attributes$checked(isChecked),
+							elm$html$Html$Events$onFocus(
+							author$project$Json$Form$Definitions$FocusInput(
+								elm$core$Maybe$Just(path))),
+							elm$html$Html$Events$onBlur(
+							author$project$Json$Form$Definitions$FocusInput(elm$core$Maybe$Nothing)),
+							elm$html$Html$Events$onCheck(
+							A2(
+								elm$core$Basics$composeR,
+								1602$json_value$Json$Value$BoolValue,
+								author$project$Json$Form$Definitions$EditValue(path)))
+						]),
+					_List_Nil),
+					A2(
+					elm$html$Html$span,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-checkbox__label')
+						]),
+					_List_fromArray(
+						[
+							elm$html$Html$text(
+							A2(author$project$Util$getTitle, isRequired, schema))
+						])),
+					A2(
+					elm$html$Html$div,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-checkbox__box-outline')
+						]),
+					_List_fromArray(
+						[
+							A2(
+							elm$html$Html$div,
+							_List_fromArray(
+								[
+									elm$html$Html$Attributes$class('jf-checkbox__tick-outline')
+								]),
+							_List_Nil)
+						])),
+					A2(
+					elm$html$Html$div,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-checkbox__helper-text')
+						]),
+					_List_fromArray(
+						[helperText]))
+				]));
+	});
+var author$project$Json$Form$Selection$switch = F4(
+	function (model, schema, isRequired, path) {
+		var isChecked = function () {
+			var _n1 = A2(
+				elm$core$Maybe$andThen,
+				A2(
+					elm$core$Basics$composeR,
+					1602$json_value$Json$Value$getIn(path),
+					elm$core$Result$toMaybe),
+				model.value);
+			if ((_n1.$ === 'Just') && (_n1.a.$ === 'BoolValue')) {
+				var x = _n1.a.a;
+				return x;
+			} else {
+				return false;
+			}
+		}();
+		var _n0 = A3(author$project$Json$Form$Helper$view, model, schema, path);
+		var hasError = _n0.a;
+		var helperText = _n0.b;
+		return A2(
+			elm$html$Html$label,
+			_List_fromArray(
+				[
+					elm$html$Html$Attributes$classList(
+					_List_fromArray(
+						[
+							_Utils_Tuple2('jf-switch', true),
+							_Utils_Tuple2('jf-switch--on', isChecked),
+							_Utils_Tuple2(
+							'jf-switch--focused',
+							A2(
+								elm$core$Maybe$withDefault,
+								false,
+								A2(
+									elm$core$Maybe$map,
+									elm$core$Basics$eq(path),
+									model.focused))),
+							_Utils_Tuple2('jf-switch--invalid', hasError)
+						]))
+				]),
+			_List_fromArray(
+				[
+					A2(
+					elm$html$Html$input,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$type_('checkbox'),
+							elm$html$Html$Attributes$class('jf-switch__input'),
+							elm$html$Html$Attributes$checked(isChecked),
+							elm$html$Html$Events$onFocus(
+							author$project$Json$Form$Definitions$FocusInput(
+								elm$core$Maybe$Just(path))),
+							elm$html$Html$Events$onBlur(
+							author$project$Json$Form$Definitions$FocusInput(elm$core$Maybe$Nothing)),
+							elm$html$Html$Events$onCheck(
+							A2(
+								elm$core$Basics$composeR,
+								1602$json_value$Json$Value$BoolValue,
+								author$project$Json$Form$Definitions$EditValue(path)))
+						]),
+					_List_Nil),
+					A2(
+					elm$html$Html$span,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-switch__label')
+						]),
+					_List_fromArray(
+						[
+							elm$html$Html$text(
+							A2(author$project$Util$getTitle, isRequired, schema))
+						])),
+					A2(
+					elm$html$Html$div,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-switch__track')
+						]),
+					_List_Nil),
+					A2(
+					elm$html$Html$div,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-switch__thumb')
+						]),
+					_List_Nil),
+					A2(
+					elm$html$Html$div,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-switch__helper-text')
+						]),
+					_List_fromArray(
+						[helperText]))
+				]));
+	});
+var elm$html$Html$Attributes$value = elm$html$Html$Attributes$stringProperty('value');
+var elm$html$Html$Events$alwaysStop = function (x) {
+	return _Utils_Tuple2(x, true);
+};
+var elm$virtual_dom$VirtualDom$MayStopPropagation = function (a) {
+	return {$: 'MayStopPropagation', a: a};
+};
+var elm$html$Html$Events$stopPropagationOn = F2(
+	function (event, decoder) {
+		return A2(
+			elm$virtual_dom$VirtualDom$on,
+			event,
+			elm$virtual_dom$VirtualDom$MayStopPropagation(decoder));
+	});
+var elm$html$Html$Events$targetValue = A2(
+	elm$json$Json$Decode$at,
+	_List_fromArray(
+		['target', 'value']),
+	elm$json$Json$Decode$string);
+var elm$html$Html$Events$onInput = function (tagger) {
+	return A2(
+		elm$html$Html$Events$stopPropagationOn,
+		'input',
+		A2(
+			elm$json$Json$Decode$map,
+			elm$html$Html$Events$alwaysStop,
+			A2(elm$json$Json$Decode$map, tagger, elm$html$Html$Events$targetValue)));
+};
+var author$project$Json$Form$TextField$view = F4(
+	function (model, schema, isRequired, path) {
+		var isPassword = function () {
+			var _n1 = author$project$Util$getUiSpec(schema);
+			if (_n1.$ === 'PasswordField') {
+				return true;
+			} else {
+				return false;
+			}
+		}();
+		var editedValue = A2(
+			elm$core$Maybe$withDefault,
+			'',
+			A2(
+				elm$core$Maybe$map,
+				author$project$Util$jsonValueToString,
+				A2(
+					elm$core$Maybe$andThen,
+					elm$core$Result$toMaybe,
+					A2(
+						elm$core$Maybe$map,
+						1602$json_value$Json$Value$getIn(path),
+						model.value))));
+		var _n0 = A3(author$project$Json$Form$Helper$view, model, schema, path);
+		var hasError = _n0.a;
+		var helperText = _n0.b;
+		return A2(
+			elm$html$Html$div,
+			_List_fromArray(
+				[
+					elm$html$Html$Attributes$classList(
+					_List_fromArray(
+						[
+							_Utils_Tuple2('jf-textfield', true),
+							_Utils_Tuple2(
+							'jf-textfield--focused',
+							A2(
+								elm$core$Maybe$withDefault,
+								false,
+								A2(
+									elm$core$Maybe$map,
+									elm$core$Basics$eq(path),
+									model.focused))),
+							_Utils_Tuple2('jf-textfield--empty', editedValue === ''),
+							_Utils_Tuple2('jf-textfield--invalid', hasError)
+						]))
+				]),
+			_List_fromArray(
+				[
+					A2(
+					elm$html$Html$input,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-textfield__input'),
+							elm$html$Html$Events$onFocus(
+							author$project$Json$Form$Definitions$FocusInput(
+								elm$core$Maybe$Just(path))),
+							elm$html$Html$Events$onBlur(
+							author$project$Json$Form$Definitions$FocusInput(elm$core$Maybe$Nothing)),
+							elm$html$Html$Events$onInput(
+							function (str) {
+								return A2(
+									author$project$Json$Form$Definitions$EditValue,
+									path,
+									1602$json_value$Json$Value$StringValue(str));
+							}),
+							elm$html$Html$Attributes$value(editedValue),
+							isPassword ? elm$html$Html$Attributes$type_('password') : elm$html$Html$Attributes$type_('text')
+						]),
+					_List_Nil),
+					A2(
+					elm$html$Html$label,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-textfield__label')
+						]),
+					_List_fromArray(
+						[
+							elm$html$Html$text(
+							A2(author$project$Util$getTitle, isRequired, schema))
+						])),
+					A2(
+					elm$html$Html$div,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-textfield__helper-text')
+						]),
+					_List_fromArray(
+						[helperText]))
+				]));
+	});
+var author$project$Json$Form$Definitions$EditNumber = function (a) {
+	return {$: 'EditNumber', a: a};
+};
+var author$project$Json$Form$Definitions$FocusNumericInput = function (a) {
+	return {$: 'FocusNumericInput', a: a};
+};
+var author$project$Json$Form$TextField$viewNumeric = F4(
+	function (model, schema, isRequired, path) {
+		var isFocused = A2(
+			elm$core$Maybe$withDefault,
+			false,
+			A2(
+				elm$core$Maybe$map,
+				elm$core$Basics$eq(path),
+				model.focused));
+		var editedValue = isFocused ? model.editedNumber : A2(
+			elm$core$Maybe$withDefault,
+			'',
+			A2(
+				elm$core$Maybe$map,
+				author$project$Util$jsonValueToString,
+				A2(
+					elm$core$Maybe$andThen,
+					elm$core$Result$toMaybe,
+					A2(
+						elm$core$Maybe$map,
+						1602$json_value$Json$Value$getIn(path),
+						model.value))));
+		var _n0 = A3(author$project$Json$Form$Helper$view, model, schema, path);
+		var hasError = _n0.a;
+		var helperText = _n0.b;
+		return A2(
+			elm$html$Html$div,
+			_List_fromArray(
+				[
+					elm$html$Html$Attributes$classList(
+					_List_fromArray(
+						[
+							_Utils_Tuple2('jf-textfield', true),
+							_Utils_Tuple2('jf-textfield--focused', isFocused),
+							_Utils_Tuple2('jf-textfield--empty', editedValue === ''),
+							_Utils_Tuple2('jf-textfield--invalid', hasError)
+						]))
+				]),
+			_List_fromArray(
+				[
+					A2(
+					elm$html$Html$input,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-textfield__input'),
+							elm$html$Html$Events$onFocus(
+							author$project$Json$Form$Definitions$FocusNumericInput(
+								elm$core$Maybe$Just(path))),
+							elm$html$Html$Events$onBlur(
+							author$project$Json$Form$Definitions$FocusNumericInput(elm$core$Maybe$Nothing)),
+							elm$html$Html$Events$onInput(author$project$Json$Form$Definitions$EditNumber),
+							elm$html$Html$Attributes$value(editedValue),
+							elm$html$Html$Attributes$type_('number')
+						]),
+					_List_Nil),
+					A2(
+					elm$html$Html$label,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-textfield__label')
+						]),
+					_List_fromArray(
+						[
+							elm$html$Html$text(
+							A2(author$project$Util$getTitle, isRequired, schema))
+						])),
+					A2(
+					elm$html$Html$div,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('jf-textfield__helper-text')
+						]),
+					_List_fromArray(
+						[helperText]))
+				]));
+	});
+var author$project$Json$Form$viewNode = F4(
+	function (model, schema, isRequired, path) {
+		var _n3 = A2(author$project$Json$Form$editingMode, model, schema);
+		switch (_n3.$) {
+			case 'TextField':
+				return A4(author$project$Json$Form$TextField$view, model, schema, isRequired, path);
+			case 'NumberField':
+				return A4(author$project$Json$Form$TextField$viewNumeric, model, schema, isRequired, path);
+			case 'Switch':
+				return A4(author$project$Json$Form$Selection$switch, model, schema, isRequired, path);
+			case 'Checkbox':
+				return A4(author$project$Json$Form$Selection$checkbox, model, schema, isRequired, path);
+			case 'Object':
+				return A4(author$project$Json$Form$viewObject, model, schema, isRequired, path);
+			default:
+				var x = _n3;
+				return elm$html$Html$text('not implemented');
+		}
+	});
+var author$project$Json$Form$viewObject = F4(
+	function (model, schema, isRequired, path) {
+		var iterateOverSchemata = F3(
+			function (propsDict, required, _n2) {
+				var schemata = _n2.a;
+				return A2(
+					elm$core$List$map,
+					function (_n1) {
+						var propName = _n1.a;
+						var subSchema = _n1.b;
+						return A4(
+							author$project$Json$Form$viewNode,
+							model,
+							subSchema,
+							A2(
+								elm$core$List$member,
+								propName,
+								A2(elm$core$Maybe$withDefault, _List_Nil, required)),
+							_Utils_ap(
+								path,
+								_List_fromArray(
+									[propName])));
+					},
+					schemata);
+			});
+		if (schema.$ === 'ObjectSchema') {
+			var os = schema.a;
+			return A2(
+				elm$html$Html$div,
+				_List_Nil,
+				A2(
+					elm$core$Maybe$withDefault,
+					_List_Nil,
+					A2(
+						elm$core$Maybe$map,
+						A2(iterateOverSchemata, elm$core$Dict$empty, os.required),
+						os.properties)));
+		} else {
+			return elm$html$Html$text('');
+		}
+	});
+var author$project$Json$Form$view = function (model) {
+	return A4(author$project$Json$Form$viewNode, model, model.schema, false, _List_Nil);
+};
+var author$project$JsonViewer$JsonBoolean = {$: 'JsonBoolean'};
+var author$project$JsonViewer$JsonNull = {$: 'JsonNull'};
+var author$project$JsonViewer$JsonNumber = {$: 'JsonNumber'};
+var author$project$JsonViewer$JsonString = {$: 'JsonString'};
+var author$project$JsonViewer$boolToString = function (bv) {
+	return bv ? 'true' : 'false';
+};
+var author$project$JsonViewer$jsonTypeToString = function (t) {
+	switch (t.$) {
+		case 'JsonBoolean':
+			return 'bool';
+		case 'JsonString':
+			return 'string';
+		case 'JsonNumber':
+			return 'number';
+		default:
+			return 'null';
+	}
+};
+var author$project$JsonViewer$inline = F2(
+	function (jsonType, el) {
+		return A2(
+			elm$html$Html$span,
+			_List_fromArray(
+				[
+					elm$html$Html$Attributes$class(
+					'json-viewer json-viewer--' + author$project$JsonViewer$jsonTypeToString(jsonType))
+				]),
+			_List_fromArray(
+				[el]));
+	});
+var author$project$JsonViewer$toString = A2(
+	elm$core$Basics$composeR,
+	elm$json$Json$Encode$string,
+	elm$json$Json$Encode$encode(0));
+var elm$core$List$takeReverse = F3(
+	function (n, list, kept) {
+		takeReverse:
+		while (true) {
+			if (n <= 0) {
+				return kept;
+			} else {
+				if (!list.b) {
+					return kept;
+				} else {
+					var x = list.a;
+					var xs = list.b;
+					var $temp$n = n - 1,
+						$temp$list = xs,
+						$temp$kept = A2(elm$core$List$cons, x, kept);
+					n = $temp$n;
+					list = $temp$list;
+					kept = $temp$kept;
+					continue takeReverse;
+				}
+			}
+		}
+	});
+var elm$core$List$takeTailRec = F2(
+	function (n, list) {
+		return elm$core$List$reverse(
+			A3(elm$core$List$takeReverse, n, list, _List_Nil));
+	});
+var elm$core$List$takeFast = F3(
+	function (ctr, n, list) {
+		if (n <= 0) {
+			return _List_Nil;
+		} else {
+			var _n0 = _Utils_Tuple2(n, list);
+			_n0$1:
+			while (true) {
+				_n0$5:
+				while (true) {
+					if (!_n0.b.b) {
+						return list;
+					} else {
+						if (_n0.b.b.b) {
+							switch (_n0.a) {
+								case 1:
+									break _n0$1;
+								case 2:
+									var _n2 = _n0.b;
+									var x = _n2.a;
+									var _n3 = _n2.b;
+									var y = _n3.a;
+									return _List_fromArray(
+										[x, y]);
+								case 3:
+									if (_n0.b.b.b.b) {
+										var _n4 = _n0.b;
+										var x = _n4.a;
+										var _n5 = _n4.b;
+										var y = _n5.a;
+										var _n6 = _n5.b;
+										var z = _n6.a;
+										return _List_fromArray(
+											[x, y, z]);
+									} else {
+										break _n0$5;
+									}
+								default:
+									if (_n0.b.b.b.b && _n0.b.b.b.b.b) {
+										var _n7 = _n0.b;
+										var x = _n7.a;
+										var _n8 = _n7.b;
+										var y = _n8.a;
+										var _n9 = _n8.b;
+										var z = _n9.a;
+										var _n10 = _n9.b;
+										var w = _n10.a;
+										var tl = _n10.b;
+										return (ctr > 1000) ? A2(
+											elm$core$List$cons,
+											x,
+											A2(
+												elm$core$List$cons,
+												y,
+												A2(
+													elm$core$List$cons,
+													z,
+													A2(
+														elm$core$List$cons,
+														w,
+														A2(elm$core$List$takeTailRec, n - 4, tl))))) : A2(
+											elm$core$List$cons,
+											x,
+											A2(
+												elm$core$List$cons,
+												y,
+												A2(
+													elm$core$List$cons,
+													z,
+													A2(
+														elm$core$List$cons,
+														w,
+														A3(elm$core$List$takeFast, ctr + 1, n - 4, tl)))));
+									} else {
+										break _n0$5;
+									}
+							}
+						} else {
+							if (_n0.a === 1) {
+								break _n0$1;
+							} else {
+								break _n0$5;
+							}
+						}
+					}
+				}
+				return list;
+			}
+			var _n1 = _n0.b;
+			var x = _n1.a;
+			return _List_fromArray(
+				[x]);
+		}
+	});
+var elm$core$List$take = F2(
+	function (n, list) {
+		return A3(elm$core$List$takeFast, 0, n, list);
+	});
+var elm$html$Html$Events$onClick = function (msg) {
+	return A2(
+		elm$html$Html$Events$on,
+		'click',
+		elm$json$Json$Decode$succeed(msg));
+};
+var author$project$JsonViewer$view = F3(
+	function (jvr, path, jv) {
+		switch (jv.$) {
+			case 'BoolValue':
+				var bv = jv.a;
+				return A2(
+					author$project$JsonViewer$inline,
+					author$project$JsonViewer$JsonBoolean,
+					elm$html$Html$text(
+						author$project$JsonViewer$boolToString(bv)));
+			case 'NumericValue':
+				var nv = jv.a;
+				return A2(
+					author$project$JsonViewer$inline,
+					author$project$JsonViewer$JsonNumber,
+					elm$html$Html$text(
+						elm$core$String$fromFloat(nv)));
+			case 'StringValue':
+				var sv = jv.a;
+				return A2(
+					author$project$JsonViewer$inline,
+					author$project$JsonViewer$JsonString,
+					elm$html$Html$text(
+						author$project$JsonViewer$toString(sv)));
+			case 'NullValue':
+				return A2(
+					author$project$JsonViewer$inline,
+					author$project$JsonViewer$JsonNull,
+					elm$html$Html$text('null'));
+			case 'ObjectValue':
+				var props = jv.a;
+				return A2(elm$core$List$member, path, jvr.expandedNodes) ? A2(
+					elm$html$Html$div,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('json-viewer json-viewer--expandable')
+						]),
+					A2(
+						elm$core$List$map,
+						function (_n1) {
+							var k = _n1.a;
+							var v = _n1.b;
+							return A2(
+								elm$html$Html$div,
+								_List_fromArray(
+									[
+										elm$html$Html$Attributes$class('json-viewer json-viewer__object-property')
+									]),
+								_List_fromArray(
+									[
+										A2(
+										elm$html$Html$span,
+										_List_fromArray(
+											[
+												elm$html$Html$Attributes$class('json-viewer json-viewer__key')
+											]),
+										_List_fromArray(
+											[
+												elm$html$Html$text(k)
+											])),
+										A3(
+										author$project$JsonViewer$view,
+										jvr,
+										_Utils_ap(
+											path,
+											_List_fromArray(
+												[k])),
+										v)
+									]));
+						},
+						props)) : function (s) {
+					return A2(
+						elm$html$Html$span,
+						_List_fromArray(
+							[
+								elm$html$Html$Attributes$class('json-viewer json-viewer--collapsed'),
+								elm$html$Html$Events$onClick(
+								jvr.onToggle(path))
+							]),
+						_List_fromArray(
+							[
+								elm$html$Html$text('{ ' + (s + '... }'))
+							]));
+				}(
+					A2(
+						elm$core$String$join,
+						', ',
+						A2(
+							elm$core$List$map,
+							function (_n2) {
+								var k = _n2.a;
+								return k;
+							},
+							A2(elm$core$List$take, 5, props))));
+			default:
+				var items = jv.a;
+				return A2(elm$core$List$member, path, jvr.expandedNodes) ? A2(
+					elm$html$Html$div,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('json-viewer json-viewer--expandable')
+						]),
+					A2(
+						elm$core$List$indexedMap,
+						F2(
+							function (index, v) {
+								return A2(
+									elm$html$Html$div,
+									_List_fromArray(
+										[
+											elm$html$Html$Attributes$class('json-viewer json-viewer__array-item')
+										]),
+									_List_fromArray(
+										[
+											A2(
+											elm$html$Html$span,
+											_List_fromArray(
+												[
+													elm$html$Html$Attributes$class('json-viewer json-viewer__key')
+												]),
+											_List_fromArray(
+												[
+													elm$html$Html$text(
+													elm$core$String$fromInt(index))
+												])),
+											A3(
+											author$project$JsonViewer$view,
+											jvr,
+											_Utils_ap(
+												path,
+												_List_fromArray(
+													[
+														elm$core$String$fromInt(index)
+													])),
+											v)
+										]));
+							}),
+						items)) : A2(
+					elm$html$Html$span,
+					_List_fromArray(
+						[
+							elm$html$Html$Attributes$class('json-viewer json-viewer--collapsed'),
+							elm$html$Html$Events$onClick(
+							jvr.onToggle(path))
+						]),
+					_List_fromArray(
+						[
+							elm$html$Html$text(
+							'[ ' + (elm$core$String$fromInt(
+								elm$core$List$length(items)) + ' items... ]'))
+						]));
+		}
+	});
+var author$project$Snippets$getSnippetTitle = function (ds) {
+	switch (ds.$) {
+		case 'SimpleField':
+			return 'Simple Text Field';
+		case 'FlatObject':
+			return 'Flat Object';
+		case 'LoginForm':
+			return 'Login Form';
+		default:
+			return 'Flight Booking';
+	}
+};
+var elm$html$Html$h3 = _VirtualDom_node('h3');
+var elm$html$Html$h4 = _VirtualDom_node('h4');
+var elm$virtual_dom$VirtualDom$map = _VirtualDom_map;
+var elm$html$Html$map = elm$virtual_dom$VirtualDom$map;
+var elm$html$Html$pre = _VirtualDom_node('pre');
+var elm$virtual_dom$VirtualDom$style = _VirtualDom_style;
+var elm$html$Html$Attributes$style = elm$virtual_dom$VirtualDom$style;
+var author$project$Demo$content = function (model) {
+	var jsonSchema = A2(
+		elm$html$Html$div,
+		_List_fromArray(
+			[
+				A2(elm$html$Html$Attributes$style, 'width', '50%'),
+				A2(elm$html$Html$Attributes$style, 'vertical-align', 'top'),
+				A2(elm$html$Html$Attributes$style, 'display', 'inline-block'),
+				A2(elm$html$Html$Attributes$style, 'min-width', '300px'),
+				A2(elm$html$Html$Attributes$style, 'max-width', '80ch'),
+				A2(elm$html$Html$Attributes$style, 'overflow', 'auto')
+			]),
+		_List_fromArray(
+			[
+				A2(
+				elm$html$Html$h4,
+				_List_Nil,
+				_List_fromArray(
+					[
+						elm$html$Html$text('JSON Schema')
+					])),
+				A2(
+				elm$html$Html$pre,
+				_List_fromArray(
+					[
+						A2(elm$html$Html$Attributes$style, 'line-height', '1.3')
+					]),
+				_List_fromArray(
+					[
+						elm$html$Html$text(
+						A2(
+							elm$json$Json$Encode$encode,
+							4,
+							1602$json_schema$Json$Schema$Definitions$encode(
+								author$project$Snippets$getSnippet(model.showcase))))
+					]))
+			]));
+	var generatedForm = A2(
+		elm$html$Html$div,
+		_List_fromArray(
+			[
+				A2(elm$html$Html$Attributes$style, 'width', '50%'),
+				A2(elm$html$Html$Attributes$style, 'display', 'inline-block'),
+				A2(elm$html$Html$Attributes$style, 'min-width', '300px')
+			]),
+		_List_fromArray(
+			[
+				A2(
+				elm$html$Html$map,
+				author$project$Demo$JsonFormMsg,
+				author$project$Json$Form$view(model.form)),
+				A2(
+				elm$html$Html$h4,
+				_List_Nil,
+				_List_fromArray(
+					[
+						elm$html$Html$text('Result')
+					])),
+				A2(
+				elm$core$Maybe$withDefault,
+				elm$html$Html$text(''),
+				A2(
+					elm$core$Maybe$map,
+					A2(
+						author$project$JsonViewer$view,
+						{expandedNodes: model.expandedNodes, onToggle: author$project$Demo$ToggleNode},
+						_List_Nil),
+					model.editedValue))
+			]));
+	return A2(
+		elm$html$Html$div,
+		_List_fromArray(
+			[
+				elm$html$Html$Attributes$class('app-content')
+			]),
+		_List_fromArray(
+			[
+				A2(
+				elm$html$Html$h3,
+				_List_fromArray(
+					[
+						A2(elm$html$Html$Attributes$style, 'padding', '8px'),
+						A2(elm$html$Html$Attributes$style, 'border-bottom', '1px solid #e8e8e8')
+					]),
+				_List_fromArray(
+					[
+						elm$html$Html$text(
+						'Showcase: ' + author$project$Snippets$getSnippetTitle(model.showcase))
+					])),
+				A2(
+				elm$html$Html$div,
+				_List_Nil,
+				_List_fromArray(
+					[generatedForm, jsonSchema]))
+			]));
+};
+var author$project$Demo$SetShowcase = function (a) {
+	return {$: 'SetShowcase', a: a};
+};
+var author$project$Demo$snippetTab = F2(
+	function (activeSnippet, snippet) {
+		return A2(
+			elm$html$Html$div,
+			_List_fromArray(
+				[
+					elm$html$Html$Attributes$classList(
+					_List_fromArray(
+						[
+							_Utils_Tuple2('tab', true),
+							_Utils_Tuple2(
+							'tab--active',
+							_Utils_eq(snippet, activeSnippet))
+						])),
+					elm$html$Html$Events$onClick(
+					author$project$Demo$SetShowcase(snippet))
+				]),
+			_List_fromArray(
+				[
+					elm$html$Html$text(
+					author$project$Snippets$getSnippetTitle(snippet))
+				]));
+	});
+var author$project$Snippets$FlatObject = {$: 'FlatObject'};
+var author$project$Snippets$LoginForm = {$: 'LoginForm'};
+var author$project$Snippets$SimpleField = {$: 'SimpleField'};
+var author$project$Snippets$index = _List_fromArray(
+	[author$project$Snippets$SimpleField, author$project$Snippets$FlatObject, author$project$Snippets$LoginForm, author$project$Snippets$FlightBooking]);
+var author$project$Demo$topbar = function (model) {
+	return A2(
+		elm$html$Html$div,
+		_List_fromArray(
+			[
+				elm$html$Html$Attributes$class('app-topbar')
+			]),
+		A2(
+			elm$core$List$map,
+			author$project$Demo$snippetTab(model.showcase),
+			author$project$Snippets$index));
+};
+var author$project$Demo$view = function (model) {
+	return A2(
+		elm$html$Html$div,
+		_List_Nil,
+		_List_fromArray(
+			[
+				author$project$Demo$topbar(model),
+				author$project$Demo$content(model)
+			]));
+};
+var elm$browser$Browser$External = function (a) {
+	return {$: 'External', a: a};
+};
+var elm$browser$Browser$Internal = function (a) {
+	return {$: 'Internal', a: a};
+};
+var elm$browser$Browser$Dom$NotFound = function (a) {
+	return {$: 'NotFound', a: a};
+};
+var elm$core$Basics$never = function (_n0) {
+	never:
+	while (true) {
+		var nvr = _n0.a;
+		var $temp$_n0 = nvr;
+		_n0 = $temp$_n0;
+		continue never;
+	}
+};
+var elm$core$Task$Perform = function (a) {
+	return {$: 'Perform', a: a};
+};
+var elm$core$Task$succeed = _Scheduler_succeed;
+var elm$core$Task$init = elm$core$Task$succeed(_Utils_Tuple0);
+var elm$core$Task$andThen = _Scheduler_andThen;
+var elm$core$Task$map = F2(
+	function (func, taskA) {
+		return A2(
+			elm$core$Task$andThen,
+			function (a) {
+				return elm$core$Task$succeed(
+					func(a));
+			},
+			taskA);
+	});
+var elm$core$Task$map2 = F3(
+	function (func, taskA, taskB) {
+		return A2(
+			elm$core$Task$andThen,
+			function (a) {
+				return A2(
+					elm$core$Task$andThen,
+					function (b) {
+						return elm$core$Task$succeed(
+							A2(func, a, b));
+					},
+					taskB);
+			},
+			taskA);
+	});
+var elm$core$Task$sequence = function (tasks) {
+	return A3(
+		elm$core$List$foldr,
+		elm$core$Task$map2(elm$core$List$cons),
+		elm$core$Task$succeed(_List_Nil),
+		tasks);
+};
+var elm$core$Platform$sendToApp = _Platform_sendToApp;
+var elm$core$Task$spawnCmd = F2(
+	function (router, _n0) {
+		var task = _n0.a;
+		return _Scheduler_spawn(
+			A2(
+				elm$core$Task$andThen,
+				elm$core$Platform$sendToApp(router),
+				task));
+	});
+var elm$core$Task$onEffects = F3(
+	function (router, commands, state) {
+		return A2(
+			elm$core$Task$map,
+			function (_n0) {
+				return _Utils_Tuple0;
+			},
+			elm$core$Task$sequence(
+				A2(
+					elm$core$List$map,
+					elm$core$Task$spawnCmd(router),
+					commands)));
+	});
+var elm$core$Task$onSelfMsg = F3(
+	function (_n0, _n1, _n2) {
+		return elm$core$Task$succeed(_Utils_Tuple0);
+	});
+var elm$core$Task$cmdMap = F2(
+	function (tagger, _n0) {
+		var task = _n0.a;
+		return elm$core$Task$Perform(
+			A2(elm$core$Task$map, tagger, task));
+	});
+_Platform_effectManagers['Task'] = _Platform_createManager(elm$core$Task$init, elm$core$Task$onEffects, elm$core$Task$onSelfMsg, elm$core$Task$cmdMap);
+var elm$core$Task$command = _Platform_leaf('Task');
+var elm$core$Task$perform = F2(
+	function (toMessage, task) {
+		return elm$core$Task$command(
+			elm$core$Task$Perform(
+				A2(elm$core$Task$map, toMessage, task)));
+	});
+var elm$core$String$length = _String_length;
+var elm$core$String$dropLeft = F2(
+	function (n, string) {
+		return (n < 1) ? string : A3(
+			elm$core$String$slice,
+			n,
+			elm$core$String$length(string),
+			string);
+	});
+var elm$core$String$startsWith = _String_startsWith;
+var elm$url$Url$Http = {$: 'Http'};
+var elm$url$Url$Https = {$: 'Https'};
+var elm$core$String$indexes = _String_indexes;
+var elm$core$String$isEmpty = function (string) {
+	return string === '';
+};
+var elm$core$String$left = F2(
+	function (n, string) {
+		return (n < 1) ? '' : A3(elm$core$String$slice, 0, n, string);
+	});
+var elm$core$String$contains = _String_contains;
+var elm$url$Url$Url = F6(
+	function (protocol, host, port_, path, query, fragment) {
+		return {fragment: fragment, host: host, path: path, port_: port_, protocol: protocol, query: query};
+	});
+var elm$url$Url$chompBeforePath = F5(
+	function (protocol, path, params, frag, str) {
+		if (elm$core$String$isEmpty(str) || A2(elm$core$String$contains, '@', str)) {
+			return elm$core$Maybe$Nothing;
+		} else {
+			var _n0 = A2(elm$core$String$indexes, ':', str);
+			if (!_n0.b) {
+				return elm$core$Maybe$Just(
+					A6(elm$url$Url$Url, protocol, str, elm$core$Maybe$Nothing, path, params, frag));
+			} else {
+				if (!_n0.b.b) {
+					var i = _n0.a;
+					var _n1 = elm$core$String$toInt(
+						A2(elm$core$String$dropLeft, i + 1, str));
+					if (_n1.$ === 'Nothing') {
+						return elm$core$Maybe$Nothing;
+					} else {
+						var port_ = _n1;
+						return elm$core$Maybe$Just(
+							A6(
+								elm$url$Url$Url,
+								protocol,
+								A2(elm$core$String$left, i, str),
+								port_,
+								path,
+								params,
+								frag));
+					}
+				} else {
+					return elm$core$Maybe$Nothing;
+				}
+			}
+		}
+	});
+var elm$url$Url$chompBeforeQuery = F4(
+	function (protocol, params, frag, str) {
+		if (elm$core$String$isEmpty(str)) {
+			return elm$core$Maybe$Nothing;
+		} else {
+			var _n0 = A2(elm$core$String$indexes, '/', str);
+			if (!_n0.b) {
+				return A5(elm$url$Url$chompBeforePath, protocol, '/', params, frag, str);
+			} else {
+				var i = _n0.a;
+				return A5(
+					elm$url$Url$chompBeforePath,
+					protocol,
+					A2(elm$core$String$dropLeft, i, str),
+					params,
+					frag,
+					A2(elm$core$String$left, i, str));
+			}
+		}
+	});
+var elm$url$Url$chompBeforeFragment = F3(
+	function (protocol, frag, str) {
+		if (elm$core$String$isEmpty(str)) {
+			return elm$core$Maybe$Nothing;
+		} else {
+			var _n0 = A2(elm$core$String$indexes, '?', str);
+			if (!_n0.b) {
+				return A4(elm$url$Url$chompBeforeQuery, protocol, elm$core$Maybe$Nothing, frag, str);
+			} else {
+				var i = _n0.a;
+				return A4(
+					elm$url$Url$chompBeforeQuery,
+					protocol,
+					elm$core$Maybe$Just(
+						A2(elm$core$String$dropLeft, i + 1, str)),
+					frag,
+					A2(elm$core$String$left, i, str));
+			}
+		}
+	});
+var elm$url$Url$chompAfterProtocol = F2(
+	function (protocol, str) {
+		if (elm$core$String$isEmpty(str)) {
+			return elm$core$Maybe$Nothing;
+		} else {
+			var _n0 = A2(elm$core$String$indexes, '#', str);
+			if (!_n0.b) {
+				return A3(elm$url$Url$chompBeforeFragment, protocol, elm$core$Maybe$Nothing, str);
+			} else {
+				var i = _n0.a;
+				return A3(
+					elm$url$Url$chompBeforeFragment,
+					protocol,
+					elm$core$Maybe$Just(
+						A2(elm$core$String$dropLeft, i + 1, str)),
+					A2(elm$core$String$left, i, str));
+			}
+		}
+	});
+var elm$url$Url$fromString = function (str) {
+	return A2(elm$core$String$startsWith, 'http://', str) ? A2(
+		elm$url$Url$chompAfterProtocol,
+		elm$url$Url$Http,
+		A2(elm$core$String$dropLeft, 7, str)) : (A2(elm$core$String$startsWith, 'https://', str) ? A2(
+		elm$url$Url$chompAfterProtocol,
+		elm$url$Url$Https,
+		A2(elm$core$String$dropLeft, 8, str)) : elm$core$Maybe$Nothing);
+};
+var elm$browser$Browser$element = _Browser_element;
+var elm$core$Platform$Sub$batch = _Platform_batch;
+var elm$core$Platform$Sub$none = elm$core$Platform$Sub$batch(_List_Nil);
+var author$project$Main$main = elm$browser$Browser$element(
+	{
+		init: author$project$Demo$init,
+		subscriptions: function (_n0) {
+			return elm$core$Platform$Sub$none;
+		},
+		update: author$project$Demo$update,
+		view: author$project$Demo$view
+	});
+_Platform_export({'Main':{'init':author$project$Main$main(elm$json$Json$Decode$value)(0)}});}(this));
+
+var app = Elm.Main.init({ node: document.getElementById("elm-f0111bc4e658d0f98db96260c16f7e49") });
+if (document.getElementById("elm-f0111bc4e658d0f98db96260c16f7e49"))
+{
+  document.getElementById("elm-f0111bc4e658d0f98db96260c16f7e49").innerText = 'This is a headless program, meaning there is nothing to show here.\n\nI started the program anyway though, and you can access it as `app` in the developer console.';
+}
+</script>
+</body>
+</html>
\ No newline at end of file
diff --git a/package.json b/package.json
index 4c80436..ae7a5c7 100644
--- a/package.json
+++ b/package.json
@@ -24,10 +24,10 @@
     "clean-webpack-plugin": "^0.1.17",
     "copy-webpack-plugin": "^4.2.3",
     "css-loader": "^0.28.7",
-    "elm": "^0.18.0",
+    "elm": "^0.19.0",
     "elm-hot-loader": "^0.5.4",
     "elm-verify-examples": "^2.3.1",
-    "elm-webpack-loader": "^4.4.0",
+    "elm-webpack-loader": "https://github.com/xtian/elm-webpack-loader.git#0.19",
     "extract-text-webpack-plugin": "^3.0.2",
     "file-loader": "^1.1.5",
     "gh-pages": "^1.1.0",
diff --git a/src/CustomElement.elm b/src/CustomElement.elm
index 1d268b6..9e210ea 100644
--- a/src/CustomElement.elm
+++ b/src/CustomElement.elm
@@ -1,22 +1,20 @@
-port module CustomElement exposing (init, update, view, subscriptions)
-
-import Html exposing (Html, div, text, h3)
-
+port module CustomElement exposing (init, subscriptions, update, view)
 
 --import Html.Attributes exposing (class, classList)
 --import Html.Events exposing (onClick)
 
+import Html exposing (Html, div, h3, text)
 import Json.Decode exposing (Value, decodeValue)
 import Json.Encode as Encode
-import JsonValue exposing (decoder)
 import Json.Form
 import Json.Schema.Definitions
+import Json.Value exposing (decoder)
 
 
 type alias Model =
     { form : Json.Form.Model
     , schema : Json.Schema.Definitions.Schema
-    , editedValue : Maybe JsonValue.JsonValue
+    , editedValue : Maybe Json.Value.JsonValue
     }
 
 
@@ -26,19 +24,20 @@ init v =
         schema =
             v
                 |> decodeValue (Json.Decode.at [ "schema" ] Json.Schema.Definitions.decoder)
-                |> Result.mapError Debug.log
+                |> Result.mapError (Json.Decode.errorToString >> Debug.log)
                 |> Result.withDefault Json.Schema.Definitions.blankSchema
 
-        value =
+        valueLocal =
             v
-                |> decodeValue (Json.Decode.at [ "value" ] JsonValue.decoder)
+                |> decodeValue (Json.Decode.at [ "value" ] Json.Value.decoder)
                 |> Result.toMaybe
     in
-        { form = Json.Form.init schema value
-        , editedValue = value
-        , schema = schema
-        }
-            ! []
+    ( { form = Json.Form.init schema valueLocal
+      , editedValue = valueLocal
+      , schema = schema
+      }
+    , Cmd.none
+    )
 
 
 type Msg
@@ -57,24 +56,26 @@ update message model =
                         |> decodeValue Json.Schema.Definitions.decoder
                         |> Result.withDefault Json.Schema.Definitions.blankSchema
             in
-                { model
-                    | schema = schema
-                    , form = Json.Form.init schema model.editedValue
-                }
-                    ! []
+            ( { model
+                | schema = schema
+                , form = Json.Form.init schema model.editedValue
+              }
+            , Cmd.none
+            )
 
         ChangeValue v ->
             let
-                value =
+                valueLocal =
                     v
-                        |> decodeValue JsonValue.decoder
+                        |> decodeValue Json.Value.decoder
                         |> Result.toMaybe
             in
-                { model
-                    | editedValue = value
-                    , form = Json.Form.init model.schema value
-                }
-                    ! []
+            ( { model
+                | editedValue = valueLocal
+                , form = Json.Form.init model.schema valueLocal
+              }
+            , Cmd.none
+            )
 
         JsonFormMsg msg ->
             let
@@ -88,8 +89,8 @@ update message model =
                             , Encode.object
                                 [ ( "value"
                                   , v
-                                        |> Maybe.withDefault JsonValue.NullValue
-                                        |> JsonValue.encode
+                                        |> Maybe.withDefault Json.Value.NullValue
+                                        |> Json.Value.encode
                                   )
                                 , ( "isValid", Encode.bool isValid )
                                 ]
@@ -99,11 +100,12 @@ update message model =
                         _ ->
                             ( model.editedValue, Cmd.none )
             in
-                { model
-                    | form = m
-                    , editedValue = editedValue
-                }
-                    ! [ cmd |> Cmd.map JsonFormMsg, exCmd ]
+            ( { model
+                | form = m
+                , editedValue = editedValue
+              }
+            , Cmd.batch [ cmd |> Cmd.map JsonFormMsg, exCmd ]
+            )
 
 
 view : Model -> Html Msg
diff --git a/src/Demo.elm b/src/Demo.elm
index 92efb27..0c070d6 100644
--- a/src/Demo.elm
+++ b/src/Demo.elm
@@ -1,14 +1,14 @@
 module Demo exposing (init, update, view)
 
-import Html exposing (Html, div, text, h3, h4, pre)
+import Html exposing (Html, div, h3, h4, pre, text)
 import Html.Attributes exposing (class, classList, style)
 import Html.Events exposing (onClick)
-import JsonViewer
-import JsonValue exposing (JsonValue)
+import Json.Encode exposing (Value)
 import Json.Form
-import Snippets exposing (Snippet(..), getSnippet, getSnippetTitle)
 import Json.Schema.Definitions
-import Json.Encode
+import Json.Value exposing (JsonValue)
+import JsonViewer
+import Snippets exposing (Snippet(..), getSnippet, getSnippetTitle)
 
 
 type alias Model =
@@ -24,14 +24,15 @@ initialShowcase =
     FlightBooking
 
 
-init : ( Model, Cmd Msg )
-init =
-    { showcase = initialShowcase
-    , form = Json.Form.init (getSnippet initialShowcase) Nothing
-    , editedValue = Nothing
-    , expandedNodes = [ [] ]
-    }
-        ! []
+init : Value -> ( Model, Cmd Msg )
+init _ =
+    ( { showcase = initialShowcase
+      , form = Json.Form.init (getSnippet initialShowcase) Nothing
+      , editedValue = Nothing
+      , expandedNodes = [ [] ]
+      }
+    , Cmd.none
+    )
 
 
 type Msg
@@ -48,28 +49,32 @@ update message model =
                 ( ( m, cmd ), exMsg ) =
                     Json.Form.update msg model.form
             in
-                { model
-                    | form = m
-                    , editedValue =
-                        case exMsg of
-                            Json.Form.UpdateValue v _ ->
-                                v
-
-                            _ ->
-                                model.editedValue
-                }
-                    ! [ cmd |> Cmd.map JsonFormMsg ]
+            ( { model
+                | form = m
+                , editedValue =
+                    case exMsg of
+                        Json.Form.UpdateValue v _ ->
+                            v
+
+                        _ ->
+                            model.editedValue
+              }
+            , cmd |> Cmd.map JsonFormMsg
+            )
 
         ToggleNode path ->
-            { model
+            ( { model
                 | expandedNodes =
                     model.expandedNodes
                         |> JsonViewer.toggle path
-            }
-                ! []
+              }
+            , Cmd.none
+            )
 
         SetShowcase s ->
-            { model | showcase = s, form = Json.Form.init (getSnippet s) Nothing, editedValue = Nothing } ! []
+            ( { model | showcase = s, form = Json.Form.init (getSnippet s) Nothing, editedValue = Nothing }
+            , Cmd.none
+            )
 
 
 view : Model -> Html Msg
@@ -106,13 +111,13 @@ content : Model -> Html Msg
 content model =
     let
         jsonSchema =
-            div [ style [ ( "width", "50%" ), ( "vertical-align", "top" ), ( "display", "inline-block" ), ( "min-width", "300px" ), ( "max-width", "80ch" ), ( "overflow", "auto" ) ] ]
+            div [ style "width" "50%", style "vertical-align" "top", style "display" "inline-block", style "min-width" "300px", style "max-width" "80ch", style "overflow" "auto" ]
                 [ h4 [] [ text <| "JSON Schema" ]
-                , pre [ style [ ( "line-height", "1.3" ) ] ] [ getSnippet model.showcase |> Json.Schema.Definitions.encode |> Json.Encode.encode 4 |> text ]
+                , pre [ style "line-height" "1.3" ] [ getSnippet model.showcase |> Json.Schema.Definitions.encode |> Json.Encode.encode 4 |> text ]
                 ]
 
         generatedForm =
-            div [ style [ ( "width", "50%" ), ( "display", "inline-block" ), ( "min-width", "300px" ) ] ]
+            div [ style "width" "50%", style "display" "inline-block", style "min-width" "300px" ]
                 [ model.form
                     |> Json.Form.view
                     |> Html.map JsonFormMsg
@@ -128,10 +133,10 @@ content model =
                     |> Maybe.withDefault (text "")
                 ]
     in
-        div [ class "app-content" ]
-            [ h3 [ style [ ( "padding", "8px" ), ( "border-bottom", "1px solid #e8e8e8" ) ] ] [ text <| "Showcase: " ++ (getSnippetTitle model.showcase) ]
-            , div [ style [] ]
-                [ generatedForm
-                , jsonSchema
-                ]
+    div [ class "app-content" ]
+        [ h3 [ style "padding" "8px", style "border-bottom" "1px solid #e8e8e8" ] [ text <| "Showcase: " ++ getSnippetTitle model.showcase ]
+        , div []
+            [ generatedForm
+            , jsonSchema
             ]
+        ]
diff --git a/src/ErrorMessages.elm b/src/ErrorMessages.elm
index a692bec..d8453f1 100644
--- a/src/ErrorMessages.elm
+++ b/src/ErrorMessages.elm
@@ -1,7 +1,7 @@
 module ErrorMessages exposing (stringifyError)
 
-import Json.Schema.Validation as Validation exposing (ValidationError(..))
 import Json.Encode as Encode
+import Json.Schema.Validation as Validation exposing (ValidationError(..))
 
 
 pluralize : Int -> String -> String
@@ -11,58 +11,73 @@ pluralize n name =
             "1 " ++ name
 
         _ ->
-            toString n ++ " " ++ name ++ "s"
+            intToString n ++ " " ++ name ++ "s"
+
+
+encodeString : String -> String
+encodeString =
+    Encode.string >> Encode.encode 0
+
+
+intToString : Int -> String
+intToString =
+    String.fromInt
+
+
+floatToString : Float -> String
+floatToString =
+    String.fromFloat
 
 
 stringifyError : Validation.ValidationError -> String
 stringifyError e =
     case e of
         MultipleOf multiplier actual ->
-            toString actual
+            floatToString actual
                 ++ " is not a multiple of "
-                ++ (toString multiplier)
+                ++ floatToString multiplier
 
         Maximum max actual ->
-            toString actual ++ " is more than maximum " ++ (toString max)
+            floatToString actual ++ " is more than maximum " ++ floatToString max
 
         Minimum min actual ->
-            toString actual ++ " is less than minimum " ++ (toString min)
+            floatToString actual ++ " is less than minimum " ++ floatToString min
 
         ExclusiveMaximum max actual ->
-            toString actual ++ " is not less than exclusive maximum " ++ (toString max)
+            floatToString actual ++ " is not less than exclusive maximum " ++ floatToString max
 
         ExclusiveMinimum min actual ->
-            toString actual ++ " is not more than exclusive minimum " ++ (toString min)
+            floatToString actual ++ " is not more than exclusive minimum " ++ floatToString min
 
         MaxLength expected actual ->
             "Expected string not longer than "
-                ++ (pluralize expected "character")
+                ++ pluralize expected "character"
                 ++ " but actual length is "
-                ++ (pluralize actual "character")
+                ++ pluralize actual "character"
 
         MinLength expected actual ->
             "Expected string to be at least "
-                ++ (pluralize expected "character")
+                ++ pluralize expected "character"
                 ++ " long but its length is "
-                ++ (pluralize actual "character")
+                ++ pluralize actual "character"
 
         Pattern pattern string ->
-            "String " ++ (toString string) ++ " does not match pattern " ++ pattern
+            "String " ++ encodeString string ++ " does not match pattern " ++ pattern
 
         MaxItems expected actual ->
             "List expected to have at most "
-                ++ (pluralize expected "item")
+                ++ pluralize expected "item"
                 ++ " but it has "
-                ++ (pluralize actual "item")
+                ++ pluralize actual "item"
 
         MinItems expected actual ->
             "List expected to have at least "
-                ++ (pluralize expected "item")
+                ++ pluralize expected "item"
                 ++ " but it has "
-                ++ (pluralize actual "item")
+                ++ pluralize actual "item"
 
         UniqueItems x ->
-            "Expected array of unique items, but a duplicate found: " ++ (Encode.encode 0 x)
+            "Expected array of unique items, but a duplicate found: " ++ Encode.encode 0 x
 
         Contains ->
             "None of array items is valid against the given schema"
@@ -90,9 +105,10 @@ stringifyError e =
                ++ (extraPropertyNames |> List.map toString |> String.join ", ")
         -}
         InvalidPropertyName invalidPropertyNames ->
+            -- TODO stringify this somehow
             "Some property names are not passing validation: "
-                ++ (invalidPropertyNames |> List.map toString |> String.join ", ")
 
+        --++ (invalidPropertyNames |> List.map encodeString |> String.join ", ")
         Enum ->
             "Value does not match enumeration defined in the schema"
 
@@ -106,7 +122,7 @@ stringifyError e =
             "Value does not pass the validation with none of the schemata listed in '.oneOf'"
 
         OneOfManySucceed int ->
-            "Value should pass validation with exactly one schema, but " ++ (toString int) ++ " return a positive result"
+            "Value should pass validation with exactly one schema, but " ++ intToString int ++ " return a positive result"
 
         Not ->
             "This value expected to fail validation"
@@ -115,4 +131,4 @@ stringifyError e =
             "This is not expected to succeed"
 
         UnresolvableReference ref ->
-            "Reference " ++ (toString ref) ++ " can not be resolved"
+            "Reference " ++ encodeString ref ++ " can not be resolved"
diff --git a/src/Json/Form.elm b/src/Json/Form.elm
index 7542118..96517a9 100644
--- a/src/Json/Form.elm
+++ b/src/Json/Form.elm
@@ -1,25 +1,24 @@
-module Json.Form
-    exposing
-        ( Model
-        , Msg
-        , ExternalMsg(..)
-        , init
-        , update
-        , view
-        )
+module Json.Form exposing
+    ( ExternalMsg(..)
+    , Model
+    , Msg
+    , init
+    , update
+    , view
+    )
 
+import Dict exposing (Dict)
+import ErrorMessages exposing (stringifyError)
 import Html exposing (..)
+import Json.Decode as Decode exposing (decodeValue)
+import Json.Form.Definitions as Definitions exposing (EditingMode(..), Msg(..), Path)
+import Json.Form.Selection as Selection
+import Json.Form.TextField as TextField
 import Json.Form.UiSpec as UiSpec
-import Json.Form.Definitions as Definitions exposing (Path, EditingMode(..), Msg(..))
-import Json.Schema.Definitions exposing (..)
 import Json.Schema
+import Json.Schema.Definitions exposing (..)
 import Json.Schema.Validation exposing (Error)
-import JsonValue exposing (JsonValue(..))
-import Json.Decode as Decode exposing (decodeValue)
-import ErrorMessages exposing (stringifyError)
-import Dict exposing (Dict)
-import Json.Form.TextField as TextField
-import Json.Form.Selection as Selection
+import Json.Value exposing (JsonValue(..))
 import Util exposing (..)
 
 
@@ -65,7 +64,7 @@ viewNode model schema isRequired path =
             viewObject model schema isRequired path
 
         x ->
-            text (toString x ++ ": not implemented")
+            text "not implemented"
 
 
 editingMode : Model -> Schema -> EditingMode
@@ -112,27 +111,29 @@ viewObject model schema isRequired path =
                         viewNode model subSchema (required |> Maybe.withDefault [] |> List.member propName) (path ++ [ propName ])
                     )
     in
-        case schema of
-            ObjectSchema os ->
-                os.properties
-                    |> Maybe.map (iterateOverSchemata Dict.empty os.required)
-                    |> Maybe.withDefault []
-                    |> div []
+    case schema of
+        ObjectSchema os ->
+            os.properties
+                |> Maybe.map (iterateOverSchemata Dict.empty os.required)
+                |> Maybe.withDefault []
+                |> div []
 
-            _ ->
-                text ""
+        _ ->
+            text ""
 
 
 update : Msg -> Model -> ( ( Model, Cmd Msg ), ExternalMsg )
 update msg model =
     case msg of
         FocusInput focused ->
-            { model
-                | focused = focused
-                , beingEdited = touch focused model.focused model.beingEdited
-            }
-                ! []
-                => None
+            ( ( { model
+                    | focused = focused
+                    , beingEdited = touch focused model.focused model.beingEdited
+                }
+              , Cmd.none
+              )
+            , None
+            )
 
         FocusNumericInput focused ->
             case focused of
@@ -141,36 +142,42 @@ update msg model =
                         { model | beingEdited = touch focused model.focused model.beingEdited }
                         (model.focused |> Maybe.withDefault [])
                         (case model.editedNumber |> String.toFloat of
-                            Ok num ->
-                                JsonValue.NumericValue num
+                            Just num ->
+                                Json.Value.NumericValue num
 
                             _ ->
-                                JsonValue.StringValue model.editedNumber
+                                Json.Value.StringValue model.editedNumber
                         )
 
                 Just somePath ->
-                    { model
-                        | focused = focused
-                        , editedNumber =
-                            model.value
-                                |> Maybe.map (JsonValue.getIn somePath)
-                                |> Maybe.andThen Result.toMaybe
-                                |> Maybe.map jsonValueToString
-                                |> Maybe.withDefault ""
-                    }
-                        ! []
-                        => None
+                    ( ( { model
+                            | focused = focused
+                            , editedNumber =
+                                model.value
+                                    |> Maybe.map (Json.Value.getIn somePath)
+                                    |> Maybe.andThen Result.toMaybe
+                                    |> Maybe.map jsonValueToString
+                                    |> Maybe.withDefault ""
+                        }
+                      , Cmd.none
+                      )
+                    , None
+                    )
 
         EditValue path val ->
             editValue model path val
 
         EditNumber str ->
             case str |> String.toFloat of
-                Ok num ->
-                    editValue { model | editedNumber = str } (model.focused |> Maybe.withDefault []) (JsonValue.NumericValue num)
+                Just num ->
+                    editValue { model | editedNumber = str } (model.focused |> Maybe.withDefault []) (Json.Value.NumericValue num)
 
                 _ ->
-                    { model | editedNumber = str } ! [] => None
+                    ( ( { model | editedNumber = str }
+                      , Cmd.none
+                      )
+                    , None
+                    )
 
 
 touch : Maybe Path -> Maybe Path -> List Path -> List Path
@@ -178,6 +185,7 @@ touch path focused beingEdited =
     if path == Nothing then
         beingEdited
             |> (::) (focused |> Maybe.withDefault [])
+
     else
         beingEdited
 
@@ -187,38 +195,42 @@ editValue model path val =
     let
         updatedJsonValue =
             model.value
-                |> Maybe.withDefault JsonValue.NullValue
-                |> JsonValue.setIn path val
+                |> Maybe.withDefault Json.Value.NullValue
+                |> Json.Value.setIn path val
                 |> Result.toMaybe
-                |> Maybe.withDefault JsonValue.NullValue
+                |> Maybe.withDefault Json.Value.NullValue
 
         updatedValue =
             updatedJsonValue
-                |> JsonValue.encode
+                |> Json.Value.encode
 
         validationResult =
             model.schema
                 |> Json.Schema.validateValue { applyDefaults = True } updatedValue
     in
-        case validationResult of
-            Ok v ->
-                { model
+    case validationResult of
+        Ok v ->
+            ( ( { model
                     | value =
                         v
-                            |> decodeValue JsonValue.decoder
+                            |> decodeValue Json.Value.decoder
                             |> Result.toMaybe
                     , errors = Dict.empty
                 }
-                    ! []
-                    => UpdateValue (Just updatedJsonValue) True
+              , Cmd.none
+              )
+            , UpdateValue (Just updatedJsonValue) True
+            )
 
-            Err e ->
-                { model
+        Err e ->
+            ( ( { model
                     | value = Just updatedJsonValue
                     , errors = dictFromListErrors e
                 }
-                    ! []
-                    => UpdateValue (Just updatedJsonValue) False
+              , Cmd.none
+              )
+            , UpdateValue (Just updatedJsonValue) False
+            )
 
 
 dictFromListErrors : List Error -> Dict Path (List String)
diff --git a/src/Json/Form/Definitions.elm b/src/Json/Form/Definitions.elm
index 921feb6..4a67490 100644
--- a/src/Json/Form/Definitions.elm
+++ b/src/Json/Form/Definitions.elm
@@ -1,8 +1,8 @@
-module Json.Form.Definitions exposing (Model, Msg(..), Path, EditingMode(..), init)
+module Json.Form.Definitions exposing (EditingMode(..), Model, Msg(..), Path, init)
 
-import Json.Schema.Definitions exposing (..)
-import JsonValue exposing (JsonValue)
 import Dict exposing (Dict)
+import Json.Schema.Definitions exposing (..)
+import Json.Value exposing (JsonValue)
 
 
 type alias Model =
diff --git a/src/Json/Form/Helper.elm b/src/Json/Form/Helper.elm
index b984152..45022b8 100644
--- a/src/Json/Form/Helper.elm
+++ b/src/Json/Form/Helper.elm
@@ -1,9 +1,9 @@
 module Json.Form.Helper exposing (view)
 
-import Json.Form.Definitions exposing (..)
-import Json.Schema.Definitions exposing (Schema)
 import Dict exposing (Dict)
 import Html exposing (Html, text)
+import Json.Form.Definitions exposing (..)
+import Json.Schema.Definitions exposing (Schema)
 import Util exposing (..)
 
 
@@ -17,15 +17,16 @@ view model schema path =
         hasError =
             errors /= Nothing && List.member path model.beingEdited
     in
-        ( hasError
-        , if hasError then
-            errors
-                |> Maybe.withDefault []
-                |> String.join ", "
-                |> (++) "Error: "
-                |> text
-          else
-            schema
-                |> getDescription
-                |> text
-        )
+    ( hasError
+    , if hasError then
+        errors
+            |> Maybe.withDefault []
+            |> String.join ", "
+            |> (++) "Error: "
+            |> text
+
+      else
+        schema
+            |> getDescription
+            |> text
+    )
diff --git a/src/Json/Form/Selection.elm b/src/Json/Form/Selection.elm
index 78af96b..c065534 100644
--- a/src/Json/Form/Selection.elm
+++ b/src/Json/Form/Selection.elm
@@ -1,20 +1,20 @@
 module Json.Form.Selection exposing (checkbox, switch)
 
-import Json.Form.Definitions exposing (..)
-import Json.Schema.Definitions exposing (Schema, getCustomKeywordValue)
 import Html exposing (..)
 import Html.Attributes exposing (..)
-import Html.Events exposing (onFocus, onBlur, onInput, onCheck)
-import JsonValue exposing (JsonValue(BoolValue))
-import Util exposing (..)
+import Html.Events exposing (onBlur, onCheck, onFocus, onInput)
+import Json.Form.Definitions exposing (..)
 import Json.Form.Helper as Helper
+import Json.Schema.Definitions exposing (Schema, getCustomKeywordValue)
+import Json.Value exposing (JsonValue(..))
+import Util exposing (..)
 
 
 switch : Model -> Schema -> Bool -> Path -> Html Msg
 switch model schema isRequired path =
     let
         isChecked =
-            case model.value |> Maybe.andThen (JsonValue.getIn path >> Result.toMaybe) of
+            case model.value |> Maybe.andThen (Json.Value.getIn path >> Result.toMaybe) of
                 Just (BoolValue x) ->
                     x
 
@@ -24,35 +24,35 @@ switch model schema isRequired path =
         ( hasError, helperText ) =
             Helper.view model schema path
     in
-        label
-            [ classList
-                [ ( "jf-switch", True )
-                , ( "jf-switch--on", isChecked )
-                , ( "jf-switch--focused", model.focused |> Maybe.map ((==) path) |> Maybe.withDefault False )
-                , ( "jf-switch--invalid", hasError )
-                ]
+    label
+        [ classList
+            [ ( "jf-switch", True )
+            , ( "jf-switch--on", isChecked )
+            , ( "jf-switch--focused", model.focused |> Maybe.map ((==) path) |> Maybe.withDefault False )
+            , ( "jf-switch--invalid", hasError )
             ]
-            [ input
-                [ type_ "checkbox"
-                , class "jf-switch__input"
-                , checked isChecked
-                , onFocus <| FocusInput (Just path)
-                , onBlur <| FocusInput Nothing
-                , onCheck <| (JsonValue.BoolValue >> EditValue path)
-                ]
-                []
-            , span [ class "jf-switch__label" ] [ schema |> getTitle isRequired |> text ]
-            , div [ class "jf-switch__track" ] []
-            , div [ class "jf-switch__thumb" ] []
-            , div [ class "jf-switch__helper-text" ] [ helperText ]
+        ]
+        [ input
+            [ type_ "checkbox"
+            , class "jf-switch__input"
+            , checked isChecked
+            , onFocus <| FocusInput (Just path)
+            , onBlur <| FocusInput Nothing
+            , onCheck <| (Json.Value.BoolValue >> EditValue path)
             ]
+            []
+        , span [ class "jf-switch__label" ] [ schema |> getTitle isRequired |> text ]
+        , div [ class "jf-switch__track" ] []
+        , div [ class "jf-switch__thumb" ] []
+        , div [ class "jf-switch__helper-text" ] [ helperText ]
+        ]
 
 
 checkbox : Model -> Schema -> Bool -> Path -> Html Msg
 checkbox model schema isRequired path =
     let
         isChecked =
-            case model.value |> Maybe.andThen (JsonValue.getIn path >> Result.toMaybe) of
+            case model.value |> Maybe.andThen (Json.Value.getIn path >> Result.toMaybe) of
                 Just (BoolValue x) ->
                     x
 
@@ -62,26 +62,26 @@ checkbox model schema isRequired path =
         ( hasError, helperText ) =
             Helper.view model schema path
     in
-        label
-            [ classList
-                [ ( "jf-checkbox", True )
-                , ( "jf-checkbox--on", isChecked )
-                , ( "jf-checkbox--focused", model.focused |> Maybe.map ((==) path) |> Maybe.withDefault False )
-                , ( "jf-checkbox--invalid", hasError )
-                ]
+    label
+        [ classList
+            [ ( "jf-checkbox", True )
+            , ( "jf-checkbox--on", isChecked )
+            , ( "jf-checkbox--focused", model.focused |> Maybe.map ((==) path) |> Maybe.withDefault False )
+            , ( "jf-checkbox--invalid", hasError )
+            ]
+        ]
+        [ input
+            [ type_ "checkbox"
+            , class "jf-checkbox__input"
+            , checked isChecked
+            , onFocus <| FocusInput (Just path)
+            , onBlur <| FocusInput Nothing
+            , onCheck <| (Json.Value.BoolValue >> EditValue path)
             ]
-            [ input
-                [ type_ "checkbox"
-                , class "jf-checkbox__input"
-                , checked isChecked
-                , onFocus <| FocusInput (Just path)
-                , onBlur <| FocusInput Nothing
-                , onCheck <| (JsonValue.BoolValue >> EditValue path)
-                ]
-                []
-            , span [ class "jf-checkbox__label" ] [ schema |> getTitle isRequired |> text ]
-            , div [ class "jf-checkbox__box-outline" ]
-                [ div [ class "jf-checkbox__tick-outline" ] []
-                ]
-            , div [ class "jf-checkbox__helper-text" ] [ helperText ]
+            []
+        , span [ class "jf-checkbox__label" ] [ schema |> getTitle isRequired |> text ]
+        , div [ class "jf-checkbox__box-outline" ]
+            [ div [ class "jf-checkbox__tick-outline" ] []
             ]
+        , div [ class "jf-checkbox__helper-text" ] [ helperText ]
+        ]
diff --git a/src/Json/Form/TextField.elm b/src/Json/Form/TextField.elm
index 50b2a49..8fbc449 100644
--- a/src/Json/Form/TextField.elm
+++ b/src/Json/Form/TextField.elm
@@ -1,14 +1,14 @@
 module Json.Form.TextField exposing (view, viewNumeric)
 
-import Json.Form.Definitions exposing (..)
-import Json.Schema.Definitions exposing (Schema, getCustomKeywordValue)
-import Json.Form.UiSpec exposing (UiSpec(..))
 import Html exposing (..)
 import Html.Attributes exposing (..)
-import Html.Events exposing (onFocus, onBlur, onInput)
-import JsonValue exposing (JsonValue)
-import Util exposing (..)
+import Html.Events exposing (onBlur, onFocus, onInput)
+import Json.Form.Definitions exposing (..)
 import Json.Form.Helper as Helper
+import Json.Form.UiSpec exposing (UiSpec(..))
+import Json.Schema.Definitions exposing (Schema, getCustomKeywordValue)
+import Json.Value exposing (JsonValue)
+import Util exposing (..)
 
 
 view : Model -> Schema -> Bool -> Path -> Html Msg
@@ -16,7 +16,7 @@ view model schema isRequired path =
     let
         editedValue =
             model.value
-                |> Maybe.map (JsonValue.getIn path)
+                |> Maybe.map (Json.Value.getIn path)
                 |> Maybe.andThen Result.toMaybe
                 |> Maybe.map jsonValueToString
                 |> Maybe.withDefault ""
@@ -32,29 +32,30 @@ view model schema isRequired path =
                 _ ->
                     False
     in
-        div
-            [ classList
-                [ ( "jf-textfield", True )
-                , ( "jf-textfield--focused", model.focused |> Maybe.map ((==) path) |> Maybe.withDefault False )
-                , ( "jf-textfield--empty", editedValue == "" )
-                , ( "jf-textfield--invalid", hasError )
-                ]
+    div
+        [ classList
+            [ ( "jf-textfield", True )
+            , ( "jf-textfield--focused", model.focused |> Maybe.map ((==) path) |> Maybe.withDefault False )
+            , ( "jf-textfield--empty", editedValue == "" )
+            , ( "jf-textfield--invalid", hasError )
             ]
-            [ input
-                [ class "jf-textfield__input"
-                , onFocus <| FocusInput (Just path)
-                , onBlur <| FocusInput Nothing
-                , onInput <| (\str -> EditValue path (JsonValue.StringValue str))
-                , value <| editedValue
-                , if isPassword then
-                    type_ "password"
-                  else
-                    type_ "text"
-                ]
-                []
-            , label [ class "jf-textfield__label" ] [ schema |> getTitle isRequired |> text ]
-            , div [ class "jf-textfield__helper-text" ] [ helperText ]
+        ]
+        [ input
+            [ class "jf-textfield__input"
+            , onFocus <| FocusInput (Just path)
+            , onBlur <| FocusInput Nothing
+            , onInput <| \str -> EditValue path (Json.Value.StringValue str)
+            , value <| editedValue
+            , if isPassword then
+                type_ "password"
+
+              else
+                type_ "text"
             ]
+            []
+        , label [ class "jf-textfield__label" ] [ schema |> getTitle isRequired |> text ]
+        , div [ class "jf-textfield__helper-text" ] [ helperText ]
+        ]
 
 
 viewNumeric : Model -> Schema -> Bool -> Path -> Html Msg
@@ -68,9 +69,10 @@ viewNumeric model schema isRequired path =
         editedValue =
             if isFocused then
                 model.editedNumber
+
             else
                 model.value
-                    |> Maybe.map (JsonValue.getIn path)
+                    |> Maybe.map (Json.Value.getIn path)
                     |> Maybe.andThen Result.toMaybe
                     |> Maybe.map Util.jsonValueToString
                     |> Maybe.withDefault ""
@@ -78,23 +80,23 @@ viewNumeric model schema isRequired path =
         ( hasError, helperText ) =
             Helper.view model schema path
     in
-        div
-            [ classList
-                [ ( "jf-textfield", True )
-                , ( "jf-textfield--focused", isFocused )
-                , ( "jf-textfield--empty", editedValue == "" )
-                , ( "jf-textfield--invalid", hasError )
-                ]
+    div
+        [ classList
+            [ ( "jf-textfield", True )
+            , ( "jf-textfield--focused", isFocused )
+            , ( "jf-textfield--empty", editedValue == "" )
+            , ( "jf-textfield--invalid", hasError )
             ]
-            [ input
-                [ class "jf-textfield__input"
-                , onFocus <| FocusNumericInput (Just path)
-                , onBlur <| FocusNumericInput Nothing
-                , onInput <| EditNumber
-                , value <| editedValue
-                , type_ "number"
-                ]
-                []
-            , label [ class "jf-textfield__label" ] [ schema |> getTitle isRequired |> text ]
-            , div [ class "jf-textfield__helper-text" ] [ helperText ]
+        ]
+        [ input
+            [ class "jf-textfield__input"
+            , onFocus <| FocusNumericInput (Just path)
+            , onBlur <| FocusNumericInput Nothing
+            , onInput <| EditNumber
+            , value <| editedValue
+            , type_ "number"
             ]
+            []
+        , label [ class "jf-textfield__label" ] [ schema |> getTitle isRequired |> text ]
+        , div [ class "jf-textfield__helper-text" ] [ helperText ]
+        ]
diff --git a/src/Json/Form/UiSpec.elm b/src/Json/Form/UiSpec.elm
index 4b31df9..4d0ccdd 100644
--- a/src/Json/Form/UiSpec.elm
+++ b/src/Json/Form/UiSpec.elm
@@ -1,6 +1,6 @@
 module Json.Form.UiSpec exposing (UiSpec(..), decoder)
 
-import Json.Decode as Decode exposing (Decoder, Value, succeed, fail)
+import Json.Decode as Decode exposing (Decoder, Value, fail, succeed)
 
 
 type UiSpec
@@ -17,8 +17,10 @@ decoder =
                 (\widget ->
                     if widget == "password" then
                         succeed PasswordField
+
                     else if widget == "switch" then
                         succeed Switch
+
                     else
                         fail ""
                 )
diff --git a/src/JsonFormCustomElement.elm b/src/JsonFormCustomElement.elm
index 6a5977a..0a71c80 100644
--- a/src/JsonFormCustomElement.elm
+++ b/src/JsonFormCustomElement.elm
@@ -1,11 +1,12 @@
 module JsonFormCustomElement exposing (main)
 
+import Browser
+import CustomElement exposing (init, subscriptions, update, view)
 import Html
-import CustomElement exposing (init, update, view, subscriptions)
 
 
 main =
-    Html.programWithFlags
+    Browser.element
         { init = init
         , update = update
         , view = view
diff --git a/src/JsonViewer.elm b/src/JsonViewer.elm
index e2e48af..d8b44da 100644
--- a/src/JsonViewer.elm
+++ b/src/JsonViewer.elm
@@ -1,36 +1,42 @@
 module JsonViewer exposing (JsonViewer, ExpandedNodes, Path, view, toggle)
 
 {-|
+
 @docs JsonViewer, ExpandedNodes, Path, view, toggle
+
 -}
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (onClick)
-import JsonValue exposing (JsonValue)
+import Json.Encode as Encode
+import Json.Value exposing (JsonValue)
 
 
-{-|
-Expanded nodes in JSON value, use it to define model
+toString : String -> String
+toString =
+    Encode.string >> Encode.encode 0
+
+
+{-| Expanded nodes in JSON value, use it to define model
 
     type alias Model =
         { expandedNodes : JsonViewer.ExpandedNodes
         , {- ... the rest of applications model -}
         }
+
 -}
 type alias ExpandedNodes =
     List Path
 
 
-{-|
-Path in JSON value
+{-| Path in JSON value
 -}
 type alias Path =
     List String
 
 
-{-|
-Configuration for JsonViewer component
+{-| Configuration for JsonViewer component
 -}
 type alias JsonViewer msg =
     { expandedNodes : ExpandedNodes
@@ -38,8 +44,7 @@ type alias JsonViewer msg =
     }
 
 
-{-|
-Toggle expandable node. A helper to use in update function:
+{-| Toggle expandable node. A helper to use in update function:
 
     type Msg
         = ToggleNode Path
@@ -61,46 +66,48 @@ toggle : Path -> ExpandedNodes -> ExpandedNodes
 toggle path expandedNodes =
     if List.member path expandedNodes then
         expandedNodes |> List.filter ((/=) path)
+
     else
         path :: expandedNodes
 
 
-{-|
-Render JsonViewer
+{-| Render JsonViewer
 
     jsonValue
         |> view
             { expandedNodes = expandedNodes
             , onToggle = ToggleNode
-            } []
+            }
+            []
+
 -}
 view : JsonViewer msg -> Path -> JsonValue -> Html msg
 view jvr path jv =
     case jv of
-        JsonValue.BoolValue bv ->
+        Json.Value.BoolValue bv ->
             bv
                 |> boolToString
                 |> text
                 |> inline JsonBoolean
 
-        JsonValue.NumericValue nv ->
+        Json.Value.NumericValue nv ->
             nv
-                |> toString
+                |> String.fromFloat
                 |> text
                 |> inline JsonNumber
 
-        JsonValue.StringValue sv ->
+        Json.Value.StringValue sv ->
             sv
                 |> toString
                 |> text
                 |> inline JsonString
 
-        JsonValue.NullValue ->
+        Json.Value.NullValue ->
             "null"
                 |> text
                 |> inline JsonNull
 
-        JsonValue.ObjectValue props ->
+        Json.Value.ObjectValue props ->
             if List.member path jvr.expandedNodes then
                 props
                     |> List.map
@@ -111,6 +118,7 @@ view jvr path jv =
                                 ]
                         )
                     |> div [ class "json-viewer json-viewer--expandable" ]
+
             else
                 props
                     |> List.take 5
@@ -124,23 +132,24 @@ view jvr path jv =
                                 [ "{ " ++ s ++ "... }" |> text ]
                        )
 
-        JsonValue.ArrayValue items ->
+        Json.Value.ArrayValue items ->
             if List.member path jvr.expandedNodes then
                 items
                     |> List.indexedMap
                         (\index v ->
                             div [ class "json-viewer json-viewer__array-item" ]
-                                [ span [ class "json-viewer json-viewer__key" ] [ toString index |> text ]
-                                , v |> view jvr (path ++ [ toString index ])
+                                [ span [ class "json-viewer json-viewer__key" ] [ index |> String.fromInt |> text ]
+                                , v |> view jvr (path ++ [ index |> String.fromInt ])
                                 ]
                         )
                     |> div [ class "json-viewer json-viewer--expandable" ]
+
             else
                 span
                     [ class "json-viewer json-viewer--collapsed"
                     , onClick <| jvr.onToggle path
                     ]
-                    [ "[ " ++ (List.length items |> toString) ++ " items... ]" |> text
+                    [ "[ " ++ (List.length items |> String.fromInt) ++ " items... ]" |> text
                     ]
 
 
@@ -154,7 +163,7 @@ type JsonType
 inline : JsonType -> Html msg -> Html msg
 inline jsonType el =
     span
-        [ class <| "json-viewer json-viewer--" ++ (jsonTypeToString jsonType) ]
+        [ class <| "json-viewer json-viewer--" ++ jsonTypeToString jsonType ]
         [ el ]
 
 
@@ -178,5 +187,6 @@ boolToString : Bool -> String
 boolToString bv =
     if bv then
         "true"
+
     else
         "false"
diff --git a/src/LegacyFormComponent.elm b/src/LegacyFormComponent.elm
index 056a782..704bebe 100644
--- a/src/LegacyFormComponent.elm
+++ b/src/LegacyFormComponent.elm
@@ -1,76 +1,66 @@
-module StatefulComponent.Form
-    exposing
-        ( Model
-        , Msg
-        , ExternalMsg(UpdateValue, SaveExpandedNodes)
-        , init
-        , update
-        , updateValue
-        , updateSchema
-        , view
-        , defaultOptions
-        , FormOptions
-        )
+module StatefulComponent.Form exposing
+    ( ExternalMsg(..)
+    , FormOptions
+    , Model
+    , Msg
+    , defaultOptions
+    , init
+    , update
+    , updateSchema
+    , updateValue
+    , view
+    )
 
-import Task
-import Dom
-import ErrorMessages exposing (stringifyError)
 import Dict exposing (Dict)
-import Ref
-import Json.Decode as Decode exposing (Decoder, decodeValue)
-import Json.Encode as Encode exposing (Value)
-import JsonValue exposing (JsonValue(..), getIn)
-import Json.Schema
-import Json.Schema.Validation exposing (Error, ValidationError)
-import Json.Schema.Definitions as Schema
-    exposing
-        ( Schemata(Schemata)
-        , Type(SingleType)
-        , SingleType(StringType, IntegerType, NumberType)
-        , Schema(ObjectSchema, BooleanSchema)
-        , Items(NoItems, ItemDefinition, ArrayOfItems)
-        , blankSchema
-        , blankSubSchema
-        )
-import Element.Events as Events exposing (onInput, onClick, onFocus, onBlur)
-import FeatherIcons as Icons
+import Dom
+import Element exposing (Element, column, el, empty, paragraph, row, text)
 import Element.Attributes as Attributes
     exposing
         ( center
-        , verticalCenter
-        , vary
+        , class
+        , fill
+        , height
         , inlineStyle
-        , spacing
+        , minWidth
         , padding
-        , paddingTop
+        , paddingBottom
         , paddingLeft
         , paddingRight
-        , paddingBottom
-        , height
-        , minWidth
-        , width
-        , fill
-        , px
+        , paddingTop
         , percent
-        , class
+        , px
+        , spacing
         , tabindex
+        , vary
+        , verticalCenter
+        , width
+        )
+import Element.Events as Events exposing (onBlur, onClick, onFocus, onInput)
+import ErrorMessages exposing (stringifyError)
+import FeatherIcons as Icons
+import Json.Decode as Decode exposing (Decoder, decodeValue)
+import Json.Encode as Encode exposing (Value)
+import Json.Schema
+import Json.Schema.Definitions as Schema
+    exposing
+        ( Items(..)
+        , Schema(..)
+        , Schemata(..)
+        , SingleType(..)
+        , Type(..)
+        , blankSchema
+        , blankSubSchema
         )
-import Element exposing (Element, el, row, text, column, paragraph, empty)
+import Json.Schema.Validation exposing (Error, ValidationError)
+import JsonValue exposing (JsonValue(..), getIn)
+import Ref
 import Styles
     exposing
-        ( Styles
-            ( None
-            , Main
-            , SourceCode
-            , TextInput
-            , InputRow
-            , MenuItem
-            , PropertyName
-            , InlineError
-            )
-        , Variations(Active)
+        ( Styles(..)
+        , Variations(..)
         , stylesheet
         )
+import Task
 
 
 type alias View =
@@ -132,7 +122,8 @@ type alias FormOptions =
     , useTitleAsLabel : Bool
     , allowExpandingNodes :
         Bool
-        --, monospaceTitle : Bool
+
+    --, monospaceTitle : Bool
     }
 
 
@@ -146,7 +137,8 @@ defaultOptions =
     , useTitleAsLabel = False
     , allowExpandingNodes =
         True
-        --, monospaceTitle = AlwaysMonospace | MonospaceWhenKeyUsedAsLabel | NeverMonospace
+
+    --, monospaceTitle = AlwaysMonospace | MonospaceWhenKeyUsedAsLabel | NeverMonospace
     }
 
 
@@ -203,7 +195,7 @@ init formOptions v =
             , editPropName = ""
             }
     in
-        blankModel
+    blankModel
 
 
 updateValue : Value -> Model -> Model
@@ -225,7 +217,10 @@ update : Msg -> Model -> ( ( Model, Cmd Msg ), ExternalMsg )
 update msg model =
     case msg of
         NoMsg ->
-            model ! [] => NoOp
+            ( model
+            , Cmd.none
+            )
+                => NoOp
 
         ValueInput path str ->
             let
@@ -237,12 +232,10 @@ update msg model =
                                 model.value
                                     |> JsonValue.setIn path v
                                     --  TODO display setIn error
-                                    |>
-                                        Result.mapError (Debug.log "ValueInput.setIn")
+                                    |> Result.mapError (Debug.log "ValueInput.setIn")
                             )
                         --  TODO display parse error
-                        |>
-                            Result.mapError (Debug.log "ValueInput.parse")
+                        |> Result.mapError (Debug.log "ValueInput.parse")
                         |> Result.withDefault model.value
 
                 encodedValue =
@@ -259,15 +252,17 @@ update msg model =
                         Err list ->
                             ( updatedValue, list |> dictFromListErrors )
             in
-                { model
-                    | value = updatedValue
-                    , editingNow = str
-                    , validationErrors =
-                        validationErrors
-                        --, edited = model.edited |> Dict.insert path True
-                }
-                    ! []
-                    => UpdateValue (value |> JsonValue.encode)
+            ( { model
+                | value = updatedValue
+                , editingNow = str
+                , validationErrors =
+                    validationErrors
+
+                --, edited = model.edited |> Dict.insert path True
+              }
+            , Cmd.none
+            )
+                => UpdateValue (value |> JsonValue.encode)
 
         StringInput path str ->
             let
@@ -291,15 +286,17 @@ update msg model =
                         Err list ->
                             ( updatedValue, list |> dictFromListErrors )
             in
-                { model
-                    | value = updatedValue
-                    , editingNow = str
-                    , validationErrors =
-                        validationErrors
-                        --, edited = model.edited |> Dict.insert path True
-                }
-                    ! []
-                    => UpdateValue (value |> JsonValue.encode)
+            ( { model
+                | value = updatedValue
+                , editingNow = str
+                , validationErrors =
+                    validationErrors
+
+                --, edited = model.edited |> Dict.insert path True
+              }
+            , Cmd.none
+            )
+                => UpdateValue (value |> JsonValue.encode)
 
         NumericInput path str ->
             let
@@ -324,15 +321,17 @@ update msg model =
                         Err list ->
                             ( updatedValue, list |> dictFromListErrors )
             in
-                { model
-                    | value = value
-                    , editingNow = str
-                    , validationErrors =
-                        validationErrors
-                        --, edited = model.edited |> Dict.insert path True
-                }
-                    ! []
-                    => UpdateValue (value |> JsonValue.encode)
+            ( { model
+                | value = value
+                , editingNow = str
+                , validationErrors =
+                    validationErrors
+
+                --, edited = model.edited |> Dict.insert path True
+              }
+            , Cmd.none
+            )
+                => UpdateValue (value |> JsonValue.encode)
 
         BoolInput path bool ->
             let
@@ -342,9 +341,10 @@ update msg model =
                         |> Result.mapError (Debug.log "BoolInput")
                         |> Result.withDefault model.value
             in
-                { model | value = updatedValue }
-                    ! []
-                    => UpdateValue (updatedValue |> JsonValue.encode)
+            ( { model | value = updatedValue }
+            , Cmd.none
+            )
+                => UpdateValue (updatedValue |> JsonValue.encode)
 
         DeletePath path ->
             let
@@ -354,7 +354,10 @@ update msg model =
                         |> Result.mapError (Debug.log "DeletePath")
                         |> Result.withDefault model.value
             in
-                { model | value = value } ! [] => UpdateValue (value |> JsonValue.encode)
+            ( { model | value = value }
+            , Cmd.none
+            )
+                => UpdateValue (value |> JsonValue.encode)
 
         AddItem path ->
             let
@@ -380,7 +383,10 @@ update msg model =
                         |> Result.mapError (Debug.log "AddItem")
                         |> Result.withDefault model.value
             in
-                { model | value = value } ! [ makeId itemPath |> Dom.focus |> Task.attempt (\_ -> NoMsg) ] => UpdateValue (value |> JsonValue.encode)
+            ( { model | value = value }
+            , makeId itemPath |> Dom.focus |> Task.attempt (\_ -> NoMsg)
+            )
+                => UpdateValue (value |> JsonValue.encode)
 
         AddProperty path ->
             let
@@ -412,47 +418,50 @@ update msg model =
                 en =
                     path :: options.expandedNodes
             in
-                { model
-                    | value = value
-                    , editPropPath = path
-                    , editPropIndex = Just nextIndex |> Debug.log "index"
-                    , editPropName = ""
-                    , options = { options | expandedNodes = en }
-                    , focusInput = []
-                }
-                    ! [ path
-                            |> String.join "/"
-                            |> (\x -> x ++ ":propname")
-                            |> Debug.log "will focus"
-                            |> Dom.focus
-                            |> Task.attempt
-                                (\x ->
-                                    let
-                                        a =
-                                            Debug.log "focus" x
-                                    in
-                                        NoMsg
-                                )
-                      ]
-                    => SaveExpandedNodes en
+            ( { model
+                | value = value
+                , editPropPath = path
+                , editPropIndex = Just nextIndex |> Debug.log "index"
+                , editPropName = ""
+                , options = { options | expandedNodes = en }
+                , focusInput = []
+              }
+            , path
+                |> String.join "/"
+                |> (\x -> x ++ ":propname")
+                |> Debug.log "will focus"
+                |> Dom.focus
+                |> Task.attempt
+                    (\x ->
+                        let
+                            a =
+                                Debug.log "focus" x
+                        in
+                        NoMsg
+                    )
+            )
+                => SaveExpandedNodes en
 
         SetEditPropertyName propName path index ->
-            { model
+            ( { model
                 | editPropPath = path
                 , editPropIndex = Just index
                 , editPropName = propName
                 , focusInput = []
-            }
-                ! [ path
-                        |> String.join "/"
-                        |> (\x -> x ++ ":propname")
-                        |> Dom.focus
-                        |> Task.attempt (\x -> NoMsg)
-                  ]
+              }
+            , path
+                |> String.join "/"
+                |> (\x -> x ++ ":propname")
+                |> Dom.focus
+                |> Task.attempt (\x -> NoMsg)
+            )
                 => NoOp
 
         EditPropertyName str ->
-            { model | editPropName = str } ! [] => NoOp
+            ( { model | editPropName = str }
+            , Cmd.none
+            )
+                => NoOp
 
         StopEditingPropertyName ->
             let
@@ -465,13 +474,14 @@ update msg model =
                             model.editPropName
                         |> Result.withDefault model.value
             in
-                { model
-                    | editPropPath = []
-                    , editPropIndex = Nothing
-                    , value = updatedValue
-                }
-                    ! []
-                    => UpdateValue (updatedValue |> JsonValue.encode)
+            ( { model
+                | editPropPath = []
+                , editPropIndex = Nothing
+                , value = updatedValue
+              }
+            , Cmd.none
+            )
+                => UpdateValue (updatedValue |> JsonValue.encode)
 
         ExpandNode path ->
             let
@@ -481,7 +491,10 @@ update msg model =
                 en =
                     path :: options.expandedNodes
             in
-                { model | options = { options | expandedNodes = en } } ! [] => SaveExpandedNodes en
+            ( { model | options = { options | expandedNodes = en } }
+            , Cmd.none
+            )
+                => SaveExpandedNodes en
 
         CollapseNode path ->
             let
@@ -492,16 +505,25 @@ update msg model =
                     options.expandedNodes
                         |> List.filter ((/=) path)
             in
-                { model | options = { options | expandedNodes = en } } ! [] => SaveExpandedNodes en
+            ( { model | options = { options | expandedNodes = en } }
+            , Cmd.none
+            )
+                => SaveExpandedNodes en
 
         OpenMenu path ->
-            { model | menu = Just path } ! [] => NoOp
+            ( { model | menu = Just path }
+            , Cmd.none
+            )
+                => NoOp
 
         CloseMenu ->
-            { model | menu = Nothing } ! [] => NoOp
+            ( { model | menu = Nothing }
+            , Cmd.none
+            )
+                => NoOp
 
         FocusInput path schema ->
-            { model
+            ( { model
                 | focusInput = path
                 , editingSchema = Just schema
                 , editingNow =
@@ -514,21 +536,27 @@ update msg model =
 
                         _ ->
                             ""
-            }
-                ! []
+              }
+            , Cmd.none
+            )
                 => NoOp
 
         BlurInput path ->
             if path == model.focusInput then
-                { model
+                ( { model
                     | focusInput = []
                     , editingSchema = Nothing
                     , edited = model.edited |> Dict.insert path True
-                }
-                    ! []
+                  }
+                , Cmd.none
+                )
                     => NoOp
+
             else
-                model ! [] => NoOp
+                ( model
+                , Cmd.none
+                )
+                    => NoOp
 
 
 view : Model -> View
@@ -555,7 +583,7 @@ delete path =
 
 isBlankSchema : Schema -> Bool
 isBlankSchema =
-    Schema.encode >> (Encode.encode 0) >> ((==) "{}")
+    Schema.encode >> Encode.encode 0 >> (==) "{}"
 
 
 pickOneOf : List Schema -> Value -> Schema
@@ -571,27 +599,26 @@ pickOneOf listSchemas value =
                 |> Result.toMaybe
                 |> (/=) Nothing
     in
-        listSchemas
-            |> List.filter isValid
-            |> List.head
-            |> Maybe.withDefault defaultResult
+    listSchemas
+        |> List.filter isValid
+        |> List.head
+        |> Maybe.withDefault defaultResult
 
 
 resolve : Schema -> Schema -> Schema
 resolve rootSchema rawSubSchema =
     let
         ( _, resolvedSchema ) =
-            (case rawSubSchema of
+            case rawSubSchema of
                 ObjectSchema os ->
                     os.ref
                         |> Maybe.andThen (Ref.resolveReference "" Ref.defaultPool rootSchema)
-                        |> Maybe.withDefault (( "", rawSubSchema ))
+                        |> Maybe.withDefault ( "", rawSubSchema )
 
                 _ ->
                     ( "", rawSubSchema )
-            )
     in
-        resolvedSchema
+    resolvedSchema
 
 
 viewProperty : Model -> Bool -> Maybe Int -> Path -> String -> Schema -> JsonValue -> View
@@ -656,6 +683,7 @@ viewProperty model deletionAllowed indexInObject path key rawSubSchema value =
                     -}
                     _ ->
                         False
+
             else
                 False
 
@@ -677,6 +705,7 @@ viewProperty model deletionAllowed indexInObject path key rawSubSchema value =
                     --List.member deeperLevelPath model.expandedNodes
                     _ ->
                         True
+
             else
                 True
 
@@ -694,25 +723,26 @@ viewProperty model deletionAllowed indexInObject path key rawSubSchema value =
                                         _ ->
                                             []
                             in
-                                list
-                                    |> List.filterMap
-                                        (\( propName, _ ) ->
-                                            if List.member propName existingProps then
-                                                Nothing
-                                            else
-                                                text propName
-                                                    |> Element.node "option"
-                                                    |> Just
+                            list
+                                |> List.filterMap
+                                    (\( propName, _ ) ->
+                                        if List.member propName existingProps then
+                                            Nothing
+
+                                        else
+                                            text propName
+                                                |> Element.node "option"
+                                                |> Just
+                                    )
+                                |> row None
+                                    [ inlineStyle [ ( "display", "none" ) ]
+                                    , Attributes.id
+                                        (deeperLevelPath
+                                            |> String.join "/"
+                                            |> (\x -> x ++ ":props")
                                         )
-                                    |> row None
-                                        [ inlineStyle [ ( "display", "none" ) ]
-                                        , Attributes.id
-                                            (deeperLevelPath
-                                                |> String.join "/"
-                                                |> (\x -> x ++ ":props")
-                                            )
-                                        ]
-                                    |> Element.node "datalist"
+                                    ]
+                                |> Element.node "datalist"
 
                         Nothing ->
                             empty
@@ -720,151 +750,162 @@ viewProperty model deletionAllowed indexInObject path key rawSubSchema value =
                 _ ->
                     empty
     in
-        column None
-            [ paddingTop 0 ]
-            [ row None
-                [ verticalCenter, spacing 5, class "key-container" ]
-                [ (if isExpandable then
-                    (if isExpanded then
-                        Icons.chevronDown
-                     else
-                        Icons.chevronRight
-                    )
-                        |> Icons.withSize 18
-                        |> Icons.withStrokeWidth 2
-                        |> Icons.toHtml []
-                        |> Element.html
-                        |> el None
-                            [ width <| px 18
-                            , height <| px 18
-                            , inlineStyle [ ( "cursor", "pointer" ) ]
-                            , if isExpanded then
-                                onClick <| CollapseNode deeperLevelPath
-                              else
-                                onClick <| ExpandNode deeperLevelPath
-                            ]
-                   else
+    column None
+        [ paddingTop 0 ]
+        [ row None
+            [ verticalCenter, spacing 5, class "key-container" ]
+            [ if isExpandable then
+                (if isExpanded then
                     Icons.chevronDown
-                        |> Icons.withSize 18
-                        |> Icons.withStrokeWidth 2
-                        |> Icons.toHtml []
-                        |> Element.html
-                        |> el None
-                            [ width <| px 18
-                            , height <| px 18
-                            , inlineStyle [ ( "visibility", "hidden" ) ]
-                            ]
-                  )
-                , if indexInObject /= Nothing && indexInObject == model.editPropIndex && path == model.editPropPath then
-                    row InputRow
-                        [ vary Active True ]
-                        [ model.editPropName
-                            |> Element.inputText TextInput
-                                [ onInput EditPropertyName
-                                , onBlur <| StopEditingPropertyName
-                                , path
-                                    |> String.join "/"
-                                    |> (\x -> x ++ ":propname")
-                                    |> Attributes.id
-                                , path
-                                    |> String.join "/"
-                                    |> (\x -> x ++ ":props")
-                                    |> Attributes.list
-                                ]
-                        ]
-                  else
-                    (if model.options.useTitleAsLabel then
-                        objectSchema
-                            |> Maybe.map
-                                (\os ->
-                                    case os.type_ of
-                                        SingleType StringType ->
-                                            empty
 
-                                        SingleType IntegerType ->
-                                            empty
+                 else
+                    Icons.chevronRight
+                )
+                    |> Icons.withSize 18
+                    |> Icons.withStrokeWidth 2
+                    |> Icons.toHtml []
+                    |> Element.html
+                    |> el None
+                        [ width <| px 18
+                        , height <| px 18
+                        , inlineStyle [ ( "cursor", "pointer" ) ]
+                        , if isExpanded then
+                            onClick <| CollapseNode deeperLevelPath
 
-                                        SingleType NumberType ->
-                                            empty
+                          else
+                            onClick <| ExpandNode deeperLevelPath
+                        ]
 
-                                        _ ->
-                                            key |> text
-                                )
-                            |> Maybe.withDefault (key |> text)
-                     else
-                        key |> text
-                    )
-                        |> el PropertyName
-                            [ vary Active <| deeperLevelPath == model.focusInput
-                            ]
-                  {-
-                     , objectSchema
-                         |> Maybe.andThen .title
-                         |> Maybe.withDefault key
-                         |> text
-                  -}
-                , Icons.moreVertical
+              else
+                Icons.chevronDown
                     |> Icons.withSize 18
                     |> Icons.withStrokeWidth 2
                     |> Icons.toHtml []
                     |> Element.html
                     |> el None
-                        [ class "action"
-                        , inlineStyle [ ( "cursor", "pointer" ), ( "outline", "none" ) ]
-                        , width <| px 18
+                        [ width <| px 18
                         , height <| px 18
-                        , tabindex 2
-                        , onFocus <| OpenMenu deeperLevelPath
-                        , onBlur <| CloseMenu
+                        , inlineStyle [ ( "visibility", "hidden" ) ]
                         ]
-                    |> Element.below
-                        [ if Just deeperLevelPath == model.menu then
-                            [ text "Edit as JSON" |> el MenuItem []
-                            , case indexInObject of
-                                Just index ->
-                                    text "Edit property name"
-                                        |> el MenuItem
-                                            [ onClick <| SetEditPropertyName key path index
-                                            ]
-
-                                _ ->
-                                    empty
-                            , if isArray then
-                                text "Add item" |> el MenuItem [ onClick <| AddItem deeperLevelPath ]
-                              else if isDictionary then
-                                text "Add property" |> el MenuItem [ onClick <| AddProperty deeperLevelPath ]
-                              else
-                                empty
+            , if indexInObject /= Nothing && indexInObject == model.editPropIndex && path == model.editPropPath then
+                row InputRow
+                    [ vary Active True ]
+                    [ model.editPropName
+                        |> Element.inputText TextInput
+                            [ onInput EditPropertyName
+                            , onBlur <| StopEditingPropertyName
+                            , path
+                                |> String.join "/"
+                                |> (\x -> x ++ ":propname")
+                                |> Attributes.id
+                            , path
+                                |> String.join "/"
+                                |> (\x -> x ++ ":props")
+                                |> Attributes.list
                             ]
-                                |> column None
-                                    [ inlineStyle
-                                        [ ( "z-index", "2" )
-                                        , ( "background", "white" )
-                                        , ( "min-width", "200px" )
-                                        , ( "border-radius", "2px" )
-                                        , ( "box-shadow", "0 2px 2px 0 rgba(0,0,0,.14), 0 3px 1px -2px rgba(0,0,0,.2), 0 1px 5px 0 rgba(0,0,0,.12)" )
+                    ]
+
+              else
+                (if model.options.useTitleAsLabel then
+                    objectSchema
+                        |> Maybe.map
+                            (\os ->
+                                case os.type_ of
+                                    SingleType StringType ->
+                                        empty
+
+                                    SingleType IntegerType ->
+                                        empty
+
+                                    SingleType NumberType ->
+                                        empty
+
+                                    _ ->
+                                        key |> text
+                            )
+                        |> Maybe.withDefault (key |> text)
+
+                 else
+                    key |> text
+                )
+                    |> el PropertyName
+                        [ vary Active <| deeperLevelPath == model.focusInput
+                        ]
+
+            {-
+               , objectSchema
+                   |> Maybe.andThen .title
+                   |> Maybe.withDefault key
+                   |> text
+            -}
+            , Icons.moreVertical
+                |> Icons.withSize 18
+                |> Icons.withStrokeWidth 2
+                |> Icons.toHtml []
+                |> Element.html
+                |> el None
+                    [ class "action"
+                    , inlineStyle [ ( "cursor", "pointer" ), ( "outline", "none" ) ]
+                    , width <| px 18
+                    , height <| px 18
+                    , tabindex 2
+                    , onFocus <| OpenMenu deeperLevelPath
+                    , onBlur <| CloseMenu
+                    ]
+                |> Element.below
+                    [ if Just deeperLevelPath == model.menu then
+                        [ text "Edit as JSON" |> el MenuItem []
+                        , case indexInObject of
+                            Just index ->
+                                text "Edit property name"
+                                    |> el MenuItem
+                                        [ onClick <| SetEditPropertyName key path index
                                         ]
-                                    , padding 2
-                                    ]
+
+                            _ ->
+                                empty
+                        , if isArray then
+                            text "Add item" |> el MenuItem [ onClick <| AddItem deeperLevelPath ]
+
+                          else if isDictionary then
+                            text "Add property" |> el MenuItem [ onClick <| AddProperty deeperLevelPath ]
+
                           else
                             empty
                         ]
-                , if deletionAllowed then
-                    delete deeperLevelPath
-                  else
-                    empty
-                ]
-              --, displayDescription subSchema
-            , if isExpanded then
-                row None
-                    []
-                    [ viewValue model subSchema value deeperLevelPath
-                    , propertyNamesAutocomplete
+                            |> column None
+                                [ inlineStyle
+                                    [ ( "z-index", "2" )
+                                    , ( "background", "white" )
+                                    , ( "min-width", "200px" )
+                                    , ( "border-radius", "2px" )
+                                    , ( "box-shadow", "0 2px 2px 0 rgba(0,0,0,.14), 0 3px 1px -2px rgba(0,0,0,.2), 0 1px 5px 0 rgba(0,0,0,.12)" )
+                                    ]
+                                , padding 2
+                                ]
+
+                      else
+                        empty
                     ]
+            , if deletionAllowed then
+                delete deeperLevelPath
+
               else
                 empty
             ]
 
+        --, displayDescription subSchema
+        , if isExpanded then
+            row None
+                []
+                [ viewValue model subSchema value deeperLevelPath
+                , propertyNamesAutocomplete
+                ]
+
+          else
+            empty
+        ]
+
 
 viewObject : Model -> Schema -> List ( String, JsonValue ) -> Bool -> Path -> List View
 viewObject model schema props isArray path =
@@ -880,14 +921,14 @@ viewObject model schema props isArray path =
         shouldRenderDefault required propName =
             if model.options.showEmptyOptionalProps then
                 True
+
             else
-                (case required of
+                case required of
                     Just names ->
                         List.member propName names
 
                     Nothing ->
                         False
-                )
 
         iterateOverSchemata propsDict required (Schemata schemata) =
             schemata
@@ -895,11 +936,12 @@ viewObject model schema props isArray path =
                     (\( propName, subSchema ) ->
                         case propsDict |> Dict.get propName of
                             Just value ->
-                                viewProperty model (isOptional propName required && (not model.options.showEmptyOptionalProps)) Nothing path propName subSchema value
+                                viewProperty model (isOptional propName required && not model.options.showEmptyOptionalProps) Nothing path propName subSchema value
 
                             Nothing ->
                                 if shouldRenderDefault required propName then
-                                    viewProperty model (isOptional propName required && (not model.options.showEmptyOptionalProps)) Nothing path propName subSchema JsonValue.NullValue
+                                    viewProperty model (isOptional propName required && not model.options.showEmptyOptionalProps) Nothing path propName subSchema JsonValue.NullValue
+
                                 else
                                     empty
                     )
@@ -914,6 +956,7 @@ viewObject model schema props isArray path =
                                     True
                                     (if isObject then
                                         Just index
+
                                      else
                                         Nothing
                                     )
@@ -926,73 +969,75 @@ viewObject model schema props isArray path =
                                 empty
                     )
     in
-        case schema of
-            BooleanSchema True ->
-                iterateOverProps True (props |> List.map Just) blankSchema
+    case schema of
+        BooleanSchema True ->
+            iterateOverProps True (props |> List.map Just) blankSchema
 
-            BooleanSchema False ->
-                iterateOverProps True (props |> List.map Just) disallowEverythingSchema
+        BooleanSchema False ->
+            iterateOverProps True (props |> List.map Just) disallowEverythingSchema
 
-            ObjectSchema os ->
-                let
-                    knownProperties =
-                        case os.properties of
-                            Just (Schemata x) ->
-                                x
-                                    |> List.map (\( key, _ ) -> key)
+        ObjectSchema os ->
+            let
+                knownProperties =
+                    case os.properties of
+                        Just (Schemata x) ->
+                            x
+                                |> List.map (\( key, _ ) -> key)
 
-                            _ ->
-                                []
+                        _ ->
+                            []
 
-                    justProps =
-                        props
-                            |> List.map Just
+                justProps =
+                    props
+                        |> List.map Just
 
-                    extraProps =
-                        props
-                            |> List.map
-                                (\( name, v ) ->
-                                    if List.member name knownProperties then
-                                        Nothing
-                                    else
-                                        Just ( name, v )
-                                )
-                in
-                    if isBlankSchema schema then
-                        [ (ObjectValue props)
-                            |> JsonValue.encode
-                            |> Encode.encode 4
-                            |> text
-                            |> el SourceCode [ paddingLeft 10 ]
-                        ]
-                    else
-                        (if isArray then
-                            case os.items of
-                                NoItems ->
-                                    iterateOverProps False justProps blankSchema
+                extraProps =
+                    props
+                        |> List.map
+                            (\( name, v ) ->
+                                if List.member name knownProperties then
+                                    Nothing
 
-                                ItemDefinition s ->
-                                    iterateOverProps False justProps s
+                                else
+                                    Just ( name, v )
+                            )
+            in
+            if isBlankSchema schema then
+                [ ObjectValue props
+                    |> JsonValue.encode
+                    |> Encode.encode 4
+                    |> text
+                    |> el SourceCode [ paddingLeft 10 ]
+                ]
 
-                                -- TODO: hande arrayOfItems
-                                _ ->
-                                    iterateOverProps False justProps disallowEverythingSchema
-                         else
-                            [ os.properties
-                                |> Maybe.map (iterateOverSchemata (Dict.fromList props) os.required)
-                                |> Maybe.withDefault []
-                            , case os.additionalProperties of
-                                Just (ObjectSchema os) ->
-                                    iterateOverProps True extraProps (ObjectSchema os)
-
-                                Just (BooleanSchema False) ->
-                                    iterateOverProps True extraProps disallowEverythingSchema
+            else
+                if isArray then
+                    case os.items of
+                        NoItems ->
+                            iterateOverProps False justProps blankSchema
 
-                                _ ->
-                                    iterateOverProps True extraProps blankSchema
-                            ]
-                                |> List.concat
-                        )
+                        ItemDefinition s ->
+                            iterateOverProps False justProps s
+
+                        -- TODO: hande arrayOfItems
+                        _ ->
+                            iterateOverProps False justProps disallowEverythingSchema
+
+                else
+                    [ os.properties
+                        |> Maybe.map (iterateOverSchemata (Dict.fromList props) os.required)
+                        |> Maybe.withDefault []
+                    , case os.additionalProperties of
+                        Just (ObjectSchema os) ->
+                            iterateOverProps True extraProps (ObjectSchema os)
+
+                        Just (BooleanSchema False) ->
+                            iterateOverProps True extraProps disallowEverythingSchema
+
+                        _ ->
+                            iterateOverProps True extraProps blankSchema
+                    ]
+                        |> List.concat
 
 
 disallowEverythingSchema : Schema
@@ -1024,23 +1069,24 @@ viewNumber model schema numValue path =
         isFocused =
             path == model.focusInput
     in
-        row
-            InputRow
-            [ vary Active isFocused ]
-            [ (if isFocused then
-                model.editingNow
-               else
-                numValue |> Maybe.map toString |> Maybe.withDefault ""
-              )
-                |> Element.inputText TextInput
-                    [ onInput <| NumericInput path
-                    , onFocus <| FocusInput path schema
-                    , onBlur <| BlurInput path
-                    , Attributes.type_ "number"
-                    , width <| fill 1
-                    , Attributes.id <| makeId path
-                    ]
-            ]
+    row
+        InputRow
+        [ vary Active isFocused ]
+        [ (if isFocused then
+            model.editingNow
+
+           else
+            numValue |> Maybe.map toString |> Maybe.withDefault ""
+          )
+            |> Element.inputText TextInput
+                [ onInput <| NumericInput path
+                , onFocus <| FocusInput path schema
+                , onBlur <| BlurInput path
+                , Attributes.type_ "number"
+                , width <| fill 1
+                , Attributes.id <| makeId path
+                ]
+        ]
 
 
 viewBool : Model -> Schema -> Bool -> Path -> View
@@ -1049,23 +1095,24 @@ viewBool model schema boolValue path =
         ( icon, label, color ) =
             if boolValue then
                 ( Icons.toggleRight, "true", "darkgreen" )
+
             else
                 ( Icons.toggleLeft, "false", "darkred" )
     in
-        row None
-            [ onClick <| BoolInput path <| not boolValue
-            , verticalCenter
-            , spacing 5
-            , inlineStyle [ ( "cursor", "pointer" ), ( "color", color ) ]
-            ]
-            [ icon
-                |> Icons.withSize 18
-                |> Icons.toHtml []
-                |> Element.html
-                |> el None
-                    [ width <| px 18, height <| px 18 ]
-            , label |> text
-            ]
+    row None
+        [ onClick <| BoolInput path <| not boolValue
+        , verticalCenter
+        , spacing 5
+        , inlineStyle [ ( "cursor", "pointer" ), ( "color", color ) ]
+        ]
+        [ icon
+            |> Icons.withSize 18
+            |> Icons.toHtml []
+            |> Element.html
+            |> el None
+                [ width <| px 18, height <| px 18 ]
+        , label |> text
+        ]
 
 
 labeledInput : Model -> (Path -> String -> Msg) -> Schema -> String -> Path -> View
@@ -1097,7 +1144,7 @@ labeledInput model inputHandler schema stringValue path =
                                         strValue =
                                             v |> decodeValue Decode.string |> Result.withDefault ""
                                     in
-                                        Element.node "option" <| text strValue
+                                    Element.node "option" <| text strValue
                                 )
                             |> row None [ inlineStyle [ ( "display", "none" ) ], Attributes.id listId ]
                             |> Element.node "datalist"
@@ -1110,6 +1157,7 @@ labeledInput model inputHandler schema stringValue path =
         hasValue =
             (if isFocused then
                 model.editingNow
+
              else
                 stringValue
             )
@@ -1125,91 +1173,96 @@ labeledInput model inputHandler schema stringValue path =
         highlightAsError =
             hasError && (model.options.showInitialValidationErrors || (model.edited |> Dict.member path))
     in
-        if isBlankSchema schema then
-            row
-                InputRow
-                [ vary Active isFocused ]
-                [ stringValue
-                    |> toString
-                    |> Element.textArea TextInput
-                        [ onInput <| ValueInput path
-                        , onFocus <| FocusInput path schema
-                        , onBlur <| BlurInput path
-                        , width <| fill 1
-                        , Attributes.id <| makeId path
-                        ]
-                ]
-        else
-            column
-                InputRow
-                [ vary Active isFocused
-                , paddingLeft 16
-                , paddingRight 16
-                , inlineStyle [ ( "background", "transparent" ), ( "height", "56px" ), ( "position", "relative" ) ]
-                ]
-                [ (if isFocused then
-                    model.editingNow
-                   else
-                    stringValue
-                  )
-                    |> Element.inputText TextInput
-                        [ onFocus <| FocusInput path schema
-                        , onBlur <| BlurInput path
-                        , onInput <| inputHandler path
-                        , Attributes.list listId
-                        , Attributes.id inputId
-                        , Attributes.autocomplete False
-                        , inlineStyle
-                            [ ( "position", "absolute" )
-                            , ( "bottom", "8px" )
-                            , ( "left", "16px" )
-                            , ( "right", "16px" )
-                            , ( "width", "calc(100% - 32px)" )
-                            , ( "top", "auto" )
-                            ]
+    if isBlankSchema schema then
+        row
+            InputRow
+            [ vary Active isFocused ]
+            [ stringValue
+                |> toString
+                |> Element.textArea TextInput
+                    [ onInput <| ValueInput path
+                    , onFocus <| FocusInput path schema
+                    , onBlur <| BlurInput path
+                    , width <| fill 1
+                    , Attributes.id <| makeId path
+                    ]
+            ]
+
+    else
+        column
+            InputRow
+            [ vary Active isFocused
+            , paddingLeft 16
+            , paddingRight 16
+            , inlineStyle [ ( "background", "transparent" ), ( "height", "56px" ), ( "position", "relative" ) ]
+            ]
+            [ (if isFocused then
+                model.editingNow
+
+               else
+                stringValue
+              )
+                |> Element.inputText TextInput
+                    [ onFocus <| FocusInput path schema
+                    , onBlur <| BlurInput path
+                    , onInput <| inputHandler path
+                    , Attributes.list listId
+                    , Attributes.id inputId
+                    , Attributes.autocomplete False
+                    , inlineStyle
+                        [ ( "position", "absolute" )
+                        , ( "bottom", "8px" )
+                        , ( "left", "16px" )
+                        , ( "right", "16px" )
+                        , ( "width", "calc(100% - 32px)" )
+                        , ( "top", "auto" )
                         ]
-                , autocompleteOptions
-                , (if model.options.useTitleAsLabel then
-                    objectSchema
-                        |> Maybe.andThen .title
-                        |> (\x ->
-                                case x of
-                                    Just t ->
-                                        Just t
+                    ]
+            , autocompleteOptions
+            , (if model.options.useTitleAsLabel then
+                objectSchema
+                    |> Maybe.andThen .title
+                    |> (\x ->
+                            case x of
+                                Just t ->
+                                    Just t
 
-                                    Nothing ->
-                                        path |> List.reverse |> List.head
-                           )
-                        |> Maybe.map text
-                        |> Maybe.withDefault empty
-                   else
-                    empty
-                  )
-                    |> el None
-                        [ inlineStyle
-                            [ ( "transform-origin", "left top" )
-                            , if isFocused || hasValue then
-                                ( "transform", "translateY(-100%) scale(0.75, 0.75)" )
-                              else
-                                ( "cursor", "text" )
-                            , ( "transform-origin", "left top" )
-                            , ( "left", "16px" )
-                            , ( "position", "absolute" )
-                            , ( "bottom", "8px" )
-                            , ( "top", "auto" )
-                            , ( "font-size", "14px" )
-                            , ( "transition", "transform 180ms cubic-bezier(0.4, 0, 0.2, 1)" )
-                            , ( "color"
-                              , if highlightAsError then
-                                    "red"
-                                else
-                                    "black"
-                              )
-                            ]
-                        , Attributes.for inputId
+                                Nothing ->
+                                    path |> List.reverse |> List.head
+                       )
+                    |> Maybe.map text
+                    |> Maybe.withDefault empty
+
+               else
+                empty
+              )
+                |> el None
+                    [ inlineStyle
+                        [ ( "transform-origin", "left top" )
+                        , if isFocused || hasValue then
+                            ( "transform", "translateY(-100%) scale(0.75, 0.75)" )
+
+                          else
+                            ( "cursor", "text" )
+                        , ( "transform-origin", "left top" )
+                        , ( "left", "16px" )
+                        , ( "position", "absolute" )
+                        , ( "bottom", "8px" )
+                        , ( "top", "auto" )
+                        , ( "font-size", "14px" )
+                        , ( "transition", "transform 180ms cubic-bezier(0.4, 0, 0.2, 1)" )
+                        , ( "color"
+                          , if highlightAsError then
+                                "red"
+
+                            else
+                                "black"
+                          )
                         ]
-                    |> Element.node "label"
-                ]
+                    , Attributes.for inputId
+                    ]
+                |> Element.node "label"
+            ]
 
 
 viewValue : Model -> Schema -> JsonValue -> Path -> View
@@ -1218,86 +1271,88 @@ viewValue model schema value path =
         isFocused =
             model.focusInput == path
     in
-        (case value of
-            JsonValue.ObjectValue ov ->
-                viewObject model schema ov False path
+    (case value of
+        JsonValue.ObjectValue ov ->
+            viewObject model schema ov False path
 
-            JsonValue.ArrayValue av ->
-                viewObject model schema (av |> List.indexedMap (\index val -> ( toString index, val ))) True path
+        JsonValue.ArrayValue av ->
+            viewObject model schema (av |> List.indexedMap (\index val -> ( toString index, val ))) True path
 
-            JsonValue.StringValue sv ->
-                [ labeledInput model StringInput schema sv path ]
+        JsonValue.StringValue sv ->
+            [ labeledInput model StringInput schema sv path ]
 
-            JsonValue.NumericValue nv ->
-                [ labeledInput model NumericInput schema (toString nv) path ]
+        JsonValue.NumericValue nv ->
+            [ labeledInput model NumericInput schema (toString nv) path ]
 
-            JsonValue.BoolValue bv ->
-                [ viewBool model schema bv path ]
+        JsonValue.BoolValue bv ->
+            [ viewBool model schema bv path ]
 
-            JsonValue.NullValue ->
-                case schema of
-                    ObjectSchema os ->
-                        case os.type_ of
-                            SingleType StringType ->
-                                [ labeledInput model StringInput schema "" path ]
+        JsonValue.NullValue ->
+            case schema of
+                ObjectSchema os ->
+                    case os.type_ of
+                        SingleType StringType ->
+                            [ labeledInput model StringInput schema "" path ]
 
-                            SingleType IntegerType ->
-                                [ viewNumber model schema Nothing path ]
+                        SingleType IntegerType ->
+                            [ viewNumber model schema Nothing path ]
 
-                            _ ->
-                                [ row InputRow
-                                    [ vary Active <| isFocused ]
-                                    [ "null"
-                                        |> Element.textArea TextInput
-                                            [ onInput <| ValueInput path
-                                            , width <| fill 1
-                                            , onFocus <| FocusInput path schema
-                                            , onBlur <| BlurInput path
-                                            ]
-                                    ]
+                        _ ->
+                            [ row InputRow
+                                [ vary Active <| isFocused ]
+                                [ "null"
+                                    |> Element.textArea TextInput
+                                        [ onInput <| ValueInput path
+                                        , width <| fill 1
+                                        , onFocus <| FocusInput path schema
+                                        , onBlur <| BlurInput path
+                                        ]
                                 ]
-
-                    _ ->
-                        [ row InputRow
-                            [ vary Active <| model.focusInput == path ]
-                            [ "null"
-                                |> Element.textArea TextInput
-                                    [ onInput <| ValueInput path
-                                    , width <| fill 1
-                                    , onFocus <| FocusInput path schema
-                                    , onBlur <| BlurInput path
-                                    ]
                             ]
+
+                _ ->
+                    [ row InputRow
+                        [ vary Active <| model.focusInput == path ]
+                        [ "null"
+                            |> Element.textArea TextInput
+                                [ onInput <| ValueInput path
+                                , width <| fill 1
+                                , onFocus <| FocusInput path schema
+                                , onBlur <| BlurInput path
+                                ]
                         ]
-        )
-            |> column None [ spacing 0, width <| fill 1 ]
-            |> Element.below
-                [ case model.validationErrors |> Dict.get path of
-                    Just errors ->
-                        if model.options.showInitialValidationErrors || (model.edited |> Dict.member path) then
-                            errors
-                                |> List.filter ((/=) "")
-                                |> List.map (((++) "Error: ") >> text >> (el InlineError []))
-                                |> column None [ paddingLeft 16, paddingTop 8 ]
-                        else
-                            empty
+                    ]
+    )
+        |> column None [ spacing 0, width <| fill 1 ]
+        |> Element.below
+            [ case model.validationErrors |> Dict.get path of
+                Just errors ->
+                    if model.options.showInitialValidationErrors || (model.edited |> Dict.member path) then
+                        errors
+                            |> List.filter ((/=) "")
+                            |> List.map ((++) "Error: " >> text >> el InlineError [])
+                            |> column None [ paddingLeft 16, paddingTop 8 ]
 
-                    Nothing ->
-                        case schema of
-                            ObjectSchema os ->
-                                case os.description of
-                                    Just d ->
-                                        if isFocused then
-                                            text d |> el None [ paddingLeft 16, paddingTop 8, inlineStyle [ ( "font-size", "10px" ) ] ]
-                                        else
-                                            empty
+                    else
+                        empty
+
+                Nothing ->
+                    case schema of
+                        ObjectSchema os ->
+                            case os.description of
+                                Just d ->
+                                    if isFocused then
+                                        text d |> el None [ paddingLeft 16, paddingTop 8, inlineStyle [ ( "font-size", "10px" ) ] ]
 
-                                    Nothing ->
+                                    else
                                         empty
 
-                            _ ->
-                                empty
-                ]
+                                Nothing ->
+                                    empty
+
+                        _ ->
+                            empty
+            ]
 
 
 (=>) : a -> b -> ( a, b )
diff --git a/src/Main.elm b/src/Main.elm
index 013d3e9..8a02dfc 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -1,11 +1,12 @@
 module Main exposing (main)
 
-import Html
+import Browser
 import Demo exposing (init, update, view)
+import Html
 
 
 main =
-    Html.program
+    Browser.element
         { init = init
         , update = update
         , view = view
diff --git a/src/Snippets.elm b/src/Snippets.elm
index 7e6b9a7..4a09a9d 100644
--- a/src/Snippets.elm
+++ b/src/Snippets.elm
@@ -1,8 +1,8 @@
-module Snippets exposing (Snippet(..), index, getSnippet, getSnippetTitle)
+module Snippets exposing (Snippet(..), getSnippet, getSnippetTitle, index)
 
-import Json.Schema.Definitions exposing (Schema(..), blankSchema, blankSubSchema, Type(..), SingleType(..))
-import Json.Schema.Builder exposing (..)
 import Json.Encode as Encode exposing (string)
+import Json.Schema.Builder exposing (..)
+import Json.Schema.Definitions exposing (Schema(..), SingleType(..), Type(..), blankSchema, blankSubSchema)
 
 
 type Snippet
diff --git a/src/Util.elm b/src/Util.elm
index 82d9747..94c9ae5 100644
--- a/src/Util.elm
+++ b/src/Util.elm
@@ -1,20 +1,20 @@
-module Util exposing (..)
+module Util exposing (getDescription, getTextProp, getTitle, getUiSpec, jsonValueToString)
 
-import JsonValue exposing (JsonValue)
-import Json.Encode as Encode
 import Json.Decode as Decode
+import Json.Encode as Encode
 import Json.Form.UiSpec exposing (UiSpec, decoder)
 import Json.Schema.Definitions exposing (Schema(..), SubSchema, getCustomKeywordValue)
+import Json.Value exposing (JsonValue)
 
 
 jsonValueToString : JsonValue -> String
 jsonValueToString jv =
     case jv of
-        JsonValue.StringValue s ->
+        Json.Value.StringValue s ->
             s
 
-        JsonValue.NumericValue n ->
-            toString n
+        Json.Value.NumericValue n ->
+            n |> String.fromFloat
 
         _ ->
             ""
@@ -26,6 +26,7 @@ getTitle isRequired schema =
         |> (\title ->
                 if isRequired then
                     title ++ " *"
+
                 else
                     title
            )
@@ -59,8 +60,3 @@ getUiSpec schema =
                     |> Result.toMaybe
             )
         |> Maybe.withDefault (Json.Form.UiSpec.Unknown Encode.null)
-
-
-(=>) : a -> b -> ( a, b )
-(=>) a b =
-    ( a, b )
diff --git a/webpack.config.js b/webpack.config.js
index 29a997f..60e2984 100644
--- a/webpack.config.js
+++ b/webpack.config.js
@@ -109,9 +109,7 @@ if (TARGET_ENV === "development") {
                     test: /\.elm$/,
                     exclude: [/elm-stuff/, /node_modules/],
                     use: [
-                        {
-                            loader: "elm-hot-loader"
-                        },
+                        // { loader: "elm-hot-loader" },
                         {
                             loader: "elm-webpack-loader",
                             // add Elm's debug overlay to output
diff --git a/yarn-error.log b/yarn-error.log
index c4d6bf2..8f8b468 100644
--- a/yarn-error.log
+++ b/yarn-error.log
@@ -1,5 +1,5 @@
 Arguments: 
-  /usr/local/bin/node /usr/local/bin/yarn run add to-string-loader --dev
+  /usr/local/bin/node /usr/local/bin/yarn rudev
 
 PATH: 
   /Users/anatoliy/.local/bin/luna-studio:/Users/anatoliy/google-cloud-sdk/bin:./node_modules/.bin:/usr/local/bin:/usr/bin:/bin:/usr/sbin:/sbin:/Users/anatoliy/Library/Android/sdk/tools:/Users/anatoliy/Library/Android/sdk/platform-tools:/usr/local/opt/go/libexec/bin
@@ -16,11 +16,11 @@ Platform:
 npm manifest: 
   {
     "name": "json-form-custom-element",
-    "private": true,
-    "version": "1.0.0",
+    "private": false,
+    "version": "1.1.0",
     "description": "JSON Schema based form generator",
     "main": "build/custom-element.js",
-    "repository": "git@github.com:1602/json-form.git",
+    "repository": "git://github.com/1602/json-form.git",
     "author": "Anatoliy <mail@anatoliy.in>",
     "license": "GNU GENERAL PUBLIC LICENSE v3",
     "scripts": {
@@ -40,10 +40,10 @@ npm manifest:
       "clean-webpack-plugin": "^0.1.17",
       "copy-webpack-plugin": "^4.2.3",
       "css-loader": "^0.28.7",
-      "elm": "^0.18.0",
+      "elm": "^0.19.0",
       "elm-hot-loader": "^0.5.4",
       "elm-verify-examples": "^2.3.1",
-      "elm-webpack-loader": "^4.4.0",
+      "elm-webpack-loader": "https://github.com/xtian/elm-webpack-loader.git#0.19",
       "extract-text-webpack-plugin": "^3.0.2",
       "file-loader": "^1.1.5",
       "gh-pages": "^1.1.0",
@@ -52,6 +52,7 @@ npm manifest:
       "postcss-loader": "^2.0.9",
       "resolve-url-loader": "^2.2.1",
       "style-loader": "^0.19.0",
+      "to-string-loader": "^1.1.5",
       "uglifyjs-webpack-plugin": "^1.2.7",
       "url-loader": "^0.6.2",
       "webpack": "^3.10.0",
@@ -122,7 +123,7 @@ Lockfile:
       co "^4.6.0"
       json-stable-stringify "^1.0.1"
   
-  ajv@^5.0.0, ajv@^5.1.0:
+  ajv@^5.0.0, ajv@^5.1.0, ajv@^5.3.0:
     version "5.5.2"
     resolved "https://registry.yarnpkg.com/ajv/-/ajv-5.5.2.tgz#73b5eeca3fab653e3d3f9422b341ad42205dc965"
     dependencies:
@@ -280,10 +281,6 @@ Lockfile:
     version "1.0.1"
     resolved "https://registry.yarnpkg.com/arrify/-/arrify-1.0.1.tgz#898508da2226f380df904728456849c1501a4b0d"
   
-  asap@~2.0.3:
-    version "2.0.6"
-    resolved "https://registry.yarnpkg.com/asap/-/asap-2.0.6.tgz#e50347611d7e690943208bbdafebcbc2fb866d46"
-  
   asn1.js@^4.0.0:
     version "4.10.1"
     resolved "https://registry.yarnpkg.com/asn1.js/-/asn1.js-4.10.1.tgz#b9c2bf5805f1e64aadeed6df3a2bfafb5a73f5a0"
@@ -322,7 +319,7 @@ Lockfile:
     version "0.1.3"
     resolved "https://registry.yarnpkg.com/async-foreach/-/async-foreach-0.1.3.tgz#36121f845c0578172de419a97dbeb1d16ec34542"
   
-  async@2.6.0, async@^2.0.1, async@^2.1.2, async@^2.4.1:
+  async@2.6.0, async@^2.1.2, async@^2.4.1:
     version "2.6.0"
     resolved "https://registry.yarnpkg.com/async/-/async-2.6.0.tgz#61a29abb6fcc026fea77e56d1c6ec53a795951f4"
     dependencies:
@@ -367,6 +364,10 @@ Lockfile:
     version "1.7.0"
     resolved "https://registry.yarnpkg.com/aws4/-/aws4-1.7.0.tgz#d4d0e9b9dbfca77bf08eeb0a8a471550fe39e289"
   
+  aws4@^1.8.0:
+    version "1.8.0"
+    resolved "https://registry.yarnpkg.com/aws4/-/aws4-1.8.0.tgz#f0e003d9ca9e7f59c7a508945d7b2ef9a04a542f"
+  
   babel-code-frame@^6.26.0:
     version "6.26.0"
     resolved "https://registry.yarnpkg.com/babel-code-frame/-/babel-code-frame-6.26.0.tgz#63fd43f7dc1e3bb7ce35947db8fe369a3f58c74b"
@@ -879,6 +880,13 @@ Lockfile:
     version "1.11.0"
     resolved "https://registry.yarnpkg.com/binary-extensions/-/binary-extensions-1.11.0.tgz#46aa1751fb6a2f93ee5e689bb1087d4b14c6c205"
   
+  "binary@>= 0.3.0 < 1":
+    version "0.3.0"
+    resolved "https://registry.yarnpkg.com/binary/-/binary-0.3.0.tgz#9f60553bc5ce8c3386f3b553cff47462adecaa79"
+    dependencies:
+      buffers "~0.1.1"
+      chainsaw "~0.1.0"
+  
   binstall@1.2.0:
     version "1.2.0"
     resolved "https://registry.yarnpkg.com/binstall/-/binstall-1.2.0.tgz#6b2c0f580b9e3c607f50ef7a22a54ce9fdc8d933"
@@ -886,11 +894,14 @@ Lockfile:
       request "2.79.0"
       tar "2.2.1"
   
-  bl@~1.1.2:
-    version "1.1.2"
-    resolved "https://registry.yarnpkg.com/bl/-/bl-1.1.2.tgz#fdca871a99713aa00d19e3bbba41c44787a65398"
+  binwrap@0.1.4:
+    version "0.1.4"
+    resolved "https://registry.yarnpkg.com/binwrap/-/binwrap-0.1.4.tgz#ca1f7870302212518fa24b07726f9c50a15c7559"
     dependencies:
-      readable-stream "~2.0.5"
+      request "^2.81.0"
+      request-promise "^4.2.0"
+      tar "^2.2.1"
+      unzip "^0.1.11"
   
   block-stream@*:
     version "0.0.9"
@@ -902,7 +913,7 @@ Lockfile:
     version "2.11.0"
     resolved "https://registry.yarnpkg.com/bluebird/-/bluebird-2.11.0.tgz#534b9033c022c9579c56ba3b3e5a5caafbb650e1"
   
-  bluebird@^3.4.7, bluebird@^3.5.1:
+  bluebird@^3.4.7, bluebird@^3.5.0, bluebird@^3.5.1:
     version "3.5.1"
     resolved "https://registry.yarnpkg.com/bluebird/-/bluebird-3.5.1.tgz#d9551f9de98f1fcda1e683d17ee91a0602ee2eb9"
   
@@ -1078,6 +1089,10 @@ Lockfile:
       ieee754 "^1.1.4"
       isarray "^1.0.0"
   
+  buffers@~0.1.1:
+    version "0.1.1"
+    resolved "https://registry.yarnpkg.com/buffers/-/buffers-0.1.1.tgz#b24579c3bed4d6d396aeee6d9a8ae7f5482ab7bb"
+  
   builtin-modules@^1.0.0:
     version "1.1.1"
     resolved "https://registry.yarnpkg.com/builtin-modules/-/builtin-modules-1.1.1.tgz#270f076c5a72c02f5b65a47df94c5fe3a278892f"
@@ -1184,6 +1199,12 @@ Lockfile:
       align-text "^0.1.3"
       lazy-cache "^1.0.3"
   
+  chainsaw@~0.1.0:
+    version "0.1.0"
+    resolved "https://registry.yarnpkg.com/chainsaw/-/chainsaw-0.1.0.tgz#5eab50b28afe58074d0d58291388828b5e5fbc98"
+    dependencies:
+      traverse ">=0.3.0 <0.4"
+  
   chalk@2.1.0:
     version "2.1.0"
     resolved "https://registry.yarnpkg.com/chalk/-/chalk-2.1.0.tgz#ac5becf14fa21b99c6c92ca7a7d7cfd5b17e743e"
@@ -1396,7 +1417,7 @@ Lockfile:
     version "1.1.2"
     resolved "https://registry.yarnpkg.com/colors/-/colors-1.1.2.tgz#168a4701756b6a7f51a12ce0c97bfa28c084ed63"
   
-  combined-stream@1.0.6, combined-stream@^1.0.5, combined-stream@~1.0.5:
+  combined-stream@1.0.6, combined-stream@^1.0.5, combined-stream@~1.0.5, combined-stream@~1.0.6:
     version "1.0.6"
     resolved "https://registry.yarnpkg.com/combined-stream/-/combined-stream-1.0.6.tgz#723e7df6e801ac5613113a7e445a9b69cb632818"
     dependencies:
@@ -2008,24 +2029,21 @@ Lockfile:
       rimraf "^2.6.2"
       yargs "^10.0.3"
   
-  elm-webpack-loader@^4.4.0:
-    version "4.5.0"
-    resolved "https://registry.yarnpkg.com/elm-webpack-loader/-/elm-webpack-loader-4.5.0.tgz#b39988ac7c70db3c0922daf695c97d1d6bdb1e41"
+  "elm-webpack-loader@https://github.com/xtian/elm-webpack-loader.git#0.19":
+    version "4.3.1"
+    resolved "https://github.com/xtian/elm-webpack-loader.git#f8c56b5f2ba46fcc513ee711bc023bb8595faa80"
     dependencies:
-      elm "^0.18.0"
+      elm "^0.19.0"
       glob "^7.1.1"
       loader-utils "^1.0.2"
-      node-elm-compiler "^4.5.0"
+      node-elm-compiler "^5.0.0-alpha1"
       yargs "^6.5.0"
   
-  elm@^0.18.0:
-    version "0.18.0"
-    resolved "https://registry.yarnpkg.com/elm/-/elm-0.18.0.tgz#919b8309cd939dfe2ff9d252d961b6c89509b970"
+  elm@^0.19.0:
+    version "0.19.0"
+    resolved "https://registry.yarnpkg.com/elm/-/elm-0.19.0.tgz#c6ad86afea9e971424ebe75e36c9d03412a787fa"
     dependencies:
-      mkdirp "0.5.1"
-      promise "7.1.1"
-      request "2.74.0"
-      tar "2.2.1"
+      binwrap "0.1.4"
   
   emojis-list@^2.0.0:
     version "2.1.0"
@@ -2296,6 +2314,10 @@ Lockfile:
     version "3.0.1"
     resolved "https://registry.yarnpkg.com/extend/-/extend-3.0.1.tgz#a755ea7bc1adfcc5a31ce7e762dbaadc5e636444"
   
+  extend@~3.0.2:
+    version "3.0.2"
+    resolved "https://registry.yarnpkg.com/extend/-/extend-3.0.2.tgz#f8b1136b4071fbd8eb140aff858b1019ec2915fa"
+  
   extglob@^0.3.1:
     version "0.3.2"
     resolved "https://registry.yarnpkg.com/extglob/-/extglob-0.3.2.tgz#2e18ff3d2f49ab2765cec9023f011daa8d8349a1"
@@ -2467,14 +2489,6 @@ Lockfile:
     version "0.6.1"
     resolved "https://registry.yarnpkg.com/forever-agent/-/forever-agent-0.6.1.tgz#fbc71f0c41adeb37f96c577ad1ed42d8fdacca91"
   
-  form-data@~1.0.0-rc4:
-    version "1.0.1"
-    resolved "https://registry.yarnpkg.com/form-data/-/form-data-1.0.1.tgz#ae315db9a4907fa065502304a66d7733475ee37c"
-    dependencies:
-      async "^2.0.1"
-      combined-stream "^1.0.5"
-      mime-types "^2.1.11"
-  
   form-data@~2.1.1:
     version "2.1.4"
     resolved "https://registry.yarnpkg.com/form-data/-/form-data-2.1.4.tgz#33c183acf193276ecaa98143a69e94bfee1750d1"
@@ -2483,7 +2497,7 @@ Lockfile:
       combined-stream "^1.0.5"
       mime-types "^2.1.12"
   
-  form-data@~2.3.1:
+  form-data@~2.3.1, form-data@~2.3.2:
     version "2.3.2"
     resolved "https://registry.yarnpkg.com/form-data/-/form-data-2.3.2.tgz#4970498be604c20c005d4f5c23aecd21d6b49099"
     dependencies:
@@ -2573,6 +2587,15 @@ Lockfile:
       inherits "2"
       minimatch "^3.0.0"
   
+  "fstream@>= 0.1.30 < 1":
+    version "0.1.31"
+    resolved "https://registry.yarnpkg.com/fstream/-/fstream-0.1.31.tgz#7337f058fbbbbefa8c9f561a28cab0849202c988"
+    dependencies:
+      graceful-fs "~3.0.2"
+      inherits "~2.0.0"
+      mkdirp "0.5"
+      rimraf "2"
+  
   fstream@^1.0.0, fstream@^1.0.10, fstream@^1.0.2:
     version "1.0.11"
     resolved "https://registry.yarnpkg.com/fstream/-/fstream-1.0.11.tgz#5c1fb1f117477114f0632a0eb4b71b3cb0fd3171"
@@ -2727,6 +2750,12 @@ Lockfile:
     version "4.1.11"
     resolved "https://registry.yarnpkg.com/graceful-fs/-/graceful-fs-4.1.11.tgz#0e8bdfe4d1ddb8854d64e04ea7c00e2a026e5658"
   
+  graceful-fs@~3.0.2:
+    version "3.0.11"
+    resolved "https://registry.yarnpkg.com/graceful-fs/-/graceful-fs-3.0.11.tgz#7613c778a1afea62f25c630a086d7f3acbbdd818"
+    dependencies:
+      natives "^1.1.0"
+  
   handle-thing@^1.2.5:
     version "1.2.5"
     resolved "https://registry.yarnpkg.com/handle-thing/-/handle-thing-1.2.5.tgz#fd7aad726bf1a5fd16dfc29b2f7a6601d27139c4"
@@ -2762,6 +2791,13 @@ Lockfile:
       ajv "^5.1.0"
       har-schema "^2.0.0"
   
+  har-validator@~5.1.0:
+    version "5.1.0"
+    resolved "https://registry.yarnpkg.com/har-validator/-/har-validator-5.1.0.tgz#44657f5688a22cfd4b72486e81b3a3fb11742c29"
+    dependencies:
+      ajv "^5.3.0"
+      har-schema "^2.0.0"
+  
   has-ansi@^2.0.0:
     version "2.0.0"
     resolved "https://registry.yarnpkg.com/has-ansi/-/has-ansi-2.0.0.tgz#34f5049ce1ecdf2b0649af3ef24e45ed35416d91"
@@ -3663,6 +3699,10 @@ Lockfile:
     version "4.17.5"
     resolved "https://registry.yarnpkg.com/lodash/-/lodash-4.17.5.tgz#99a92d65c0272debe8c96b6057bc8fbfa3bed511"
   
+  lodash@^4.13.1:
+    version "4.17.10"
+    resolved "https://registry.yarnpkg.com/lodash/-/lodash-4.17.10.tgz#1b7793cf7259ea38fb3661d4d38b3260af8ae4e7"
+  
   loglevel@^1.4.1:
     version "1.6.1"
     resolved "https://registry.yarnpkg.com/loglevel/-/loglevel-1.6.1.tgz#e0fc95133b6ef276cdc8887cdaf24aa6f156f8fa"
@@ -3719,6 +3759,13 @@ Lockfile:
     dependencies:
       object-visit "^1.0.0"
   
+  "match-stream@>= 0.0.2 < 1":
+    version "0.0.2"
+    resolved "https://registry.yarnpkg.com/match-stream/-/match-stream-0.0.2.tgz#99eb050093b34dffade421b9ac0b410a9cfa17cf"
+    dependencies:
+      buffers "~0.1.1"
+      readable-stream "~1.0.0"
+  
   math-expression-evaluator@^1.2.14:
     version "1.2.17"
     resolved "https://registry.yarnpkg.com/math-expression-evaluator/-/math-expression-evaluator-1.2.17.tgz#de819fdbcd84dccd8fae59c6aeb79615b9d266ac"
@@ -3817,12 +3864,22 @@ Lockfile:
     version "1.33.0"
     resolved "https://registry.yarnpkg.com/mime-db/-/mime-db-1.33.0.tgz#a3492050a5cb9b63450541e39d9788d2272783db"
   
-  mime-types@^2.1.11, mime-types@^2.1.12, mime-types@~2.1.17, mime-types@~2.1.18, mime-types@~2.1.7:
+  mime-db@~1.35.0:
+    version "1.35.0"
+    resolved "https://registry.yarnpkg.com/mime-db/-/mime-db-1.35.0.tgz#0569d657466491283709663ad379a99b90d9ab47"
+  
+  mime-types@^2.1.12, mime-types@~2.1.17, mime-types@~2.1.18, mime-types@~2.1.7:
     version "2.1.18"
     resolved "https://registry.yarnpkg.com/mime-types/-/mime-types-2.1.18.tgz#6f323f60a83d11146f831ff11fd66e2fe5503bb8"
     dependencies:
       mime-db "~1.33.0"
   
+  mime-types@~2.1.19:
+    version "2.1.19"
+    resolved "https://registry.yarnpkg.com/mime-types/-/mime-types-2.1.19.tgz#71e464537a7ef81c15f2db9d97e913fc0ff606f0"
+    dependencies:
+      mime-db "~1.35.0"
+  
   mime@1.4.1:
     version "1.4.1"
     resolved "https://registry.yarnpkg.com/mime/-/mime-1.4.1.tgz#121f9ebc49e3766f311a76e1fa1c8003c4b03aa6"
@@ -3879,7 +3936,7 @@ Lockfile:
       for-in "^1.0.2"
       is-extendable "^1.0.1"
   
-  mkdirp@0.5.1, mkdirp@0.5.x, "mkdirp@>=0.5 0", mkdirp@^0.5.0, mkdirp@^0.5.1, mkdirp@~0.5.0, mkdirp@~0.5.1:
+  mkdirp@0.5, mkdirp@0.5.x, "mkdirp@>=0.5 0", mkdirp@^0.5.0, mkdirp@^0.5.1, mkdirp@~0.5.0, mkdirp@~0.5.1:
     version "0.5.1"
     resolved "https://registry.yarnpkg.com/mkdirp/-/mkdirp-0.5.1.tgz#30057438eac6cf7f8c4767f38648d6697d75c903"
     dependencies:
@@ -3936,6 +3993,10 @@ Lockfile:
       snapdragon "^0.8.1"
       to-regex "^3.0.1"
   
+  natives@^1.1.0:
+    version "1.1.4"
+    resolved "https://registry.yarnpkg.com/natives/-/natives-1.1.4.tgz#2f0f224fc9a7dd53407c7667c84cf8dbe773de58"
+  
   negotiator@0.6.1:
     version "0.6.1"
     resolved "https://registry.yarnpkg.com/negotiator/-/negotiator-0.6.1.tgz#2b327184e8992101177b28563fb5e7102acd0ca9"
@@ -3963,9 +4024,9 @@ Lockfile:
       lodash "4.14.2"
       temp "^0.8.3"
   
-  node-elm-compiler@^4.5.0:
-    version "4.5.0"
-    resolved "https://registry.yarnpkg.com/node-elm-compiler/-/node-elm-compiler-4.5.0.tgz#3029f053cfbfc68730e75a54f93495cc58bf7ceb"
+  node-elm-compiler@^5.0.0-alpha1:
+    version "5.0.0-alpha1"
+    resolved "https://registry.yarnpkg.com/node-elm-compiler/-/node-elm-compiler-5.0.0-alpha1.tgz#ddfd35788595e5c127039975b50096188d1ae4f6"
     dependencies:
       cross-spawn "4.0.0"
       find-elm-dependencies "1.0.2"
@@ -4062,10 +4123,6 @@ Lockfile:
       stdout-stream "^1.4.0"
       "true-case-path" "^1.0.2"
   
-  node-uuid@~1.4.7:
-    version "1.4.8"
-    resolved "https://registry.yarnpkg.com/node-uuid/-/node-uuid-1.4.8.tgz#b040eb0923968afabf8d32fb1f17f1167fdab907"
-  
   "nopt@2 || 3":
     version "3.0.6"
     resolved "https://registry.yarnpkg.com/nopt/-/nopt-3.0.6.tgz#c6465dbf08abcd4db359317f79ac68a646b28ff9"
@@ -4140,6 +4197,10 @@ Lockfile:
     version "0.8.2"
     resolved "https://registry.yarnpkg.com/oauth-sign/-/oauth-sign-0.8.2.tgz#46a6ab7f0aead8deae9ec0565780b7d4efeb9d43"
   
+  oauth-sign@~0.9.0:
+    version "0.9.0"
+    resolved "https://registry.yarnpkg.com/oauth-sign/-/oauth-sign-0.9.0.tgz#47a7b016baa68b5fa0ecf3dee08a85c679ac6455"
+  
   object-assign@^4.0.1, object-assign@^4.1.0, object-assign@^4.1.1:
     version "4.1.1"
     resolved "https://registry.yarnpkg.com/object-assign/-/object-assign-4.1.1.tgz#2109adc7965887cfc05cbbd442cac8bfbb360863"
@@ -4244,6 +4305,10 @@ Lockfile:
       os-homedir "^1.0.0"
       os-tmpdir "^1.0.0"
   
+  "over@>= 0.0.5 < 1":
+    version "0.0.5"
+    resolved "https://registry.yarnpkg.com/over/-/over-0.0.5.tgz#f29852e70fd7e25f360e013a8ec44c82aedb5708"
+  
   p-finally@^1.0.0:
     version "1.0.0"
     resolved "https://registry.yarnpkg.com/p-finally/-/p-finally-1.0.0.tgz#3fbcfb15b899a44123b34b6dcc18b724336a2cae"
@@ -4730,10 +4795,6 @@ Lockfile:
     version "0.1.8"
     resolved "https://registry.yarnpkg.com/private/-/private-0.1.8.tgz#2381edb3689f7a53d653190060fcf822d2f368ff"
   
-  process-nextick-args@~1.0.6:
-    version "1.0.7"
-    resolved "https://registry.yarnpkg.com/process-nextick-args/-/process-nextick-args-1.0.7.tgz#150e20b756590ad3f91093f25a4f2ad8bff30ba3"
-  
   process-nextick-args@~2.0.0:
     version "2.0.0"
     resolved "https://registry.yarnpkg.com/process-nextick-args/-/process-nextick-args-2.0.0.tgz#a37d732f4271b4ab1ad070d35508e8290788ffaa"
@@ -4746,12 +4807,6 @@ Lockfile:
     version "1.0.1"
     resolved "https://registry.yarnpkg.com/promise-inflight/-/promise-inflight-1.0.1.tgz#98472870bf228132fcbdd868129bad12c3c029e3"
   
-  promise@7.1.1:
-    version "7.1.1"
-    resolved "https://registry.yarnpkg.com/promise/-/promise-7.1.1.tgz#489654c692616b8aa55b0724fa809bb7db49c5bf"
-    dependencies:
-      asap "~2.0.3"
-  
   proxy-addr@~2.0.3:
     version "2.0.3"
     resolved "https://registry.yarnpkg.com/proxy-addr/-/proxy-addr-2.0.3.tgz#355f262505a621646b3130a728eb647e22055341"
@@ -4767,6 +4822,10 @@ Lockfile:
     version "1.0.2"
     resolved "https://registry.yarnpkg.com/pseudomap/-/pseudomap-1.0.2.tgz#f052a28da70e618917ef0a8ac34c1ae5a68286b3"
   
+  psl@^1.1.24:
+    version "1.1.29"
+    resolved "https://registry.yarnpkg.com/psl/-/psl-1.1.29.tgz#60f580d360170bb722a797cc704411e6da850c67"
+  
   public-encrypt@^4.0.0:
     version "4.0.2"
     resolved "https://registry.yarnpkg.com/public-encrypt/-/public-encrypt-4.0.2.tgz#46eb9107206bf73489f8b85b69d91334c6610994"
@@ -4777,6 +4836,15 @@ Lockfile:
       parse-asn1 "^5.0.0"
       randombytes "^2.0.1"
   
+  "pullstream@>= 0.4.1 < 1":
+    version "0.4.1"
+    resolved "https://registry.yarnpkg.com/pullstream/-/pullstream-0.4.1.tgz#d6fb3bf5aed697e831150eb1002c25a3f8ae1314"
+    dependencies:
+      over ">= 0.0.5 < 1"
+      readable-stream "~1.0.31"
+      setimmediate ">= 1.0.2 < 2"
+      slice-stream ">= 1.0.0 < 2"
+  
   pump@^2.0.0, pump@^2.0.1:
     version "2.0.1"
     resolved "https://registry.yarnpkg.com/pump/-/pump-2.0.1.tgz#12399add6e4cf7526d973cbc8b5ce2e2908b3909"
@@ -4812,10 +4880,6 @@ Lockfile:
     version "6.5.1"
     resolved "https://registry.yarnpkg.com/qs/-/qs-6.5.1.tgz#349cdf6eef89ec45c12d7d5eb3fc0c870343a6d8"
   
-  qs@~6.2.0:
-    version "6.2.3"
-    resolved "https://registry.yarnpkg.com/qs/-/qs-6.2.3.tgz#1cfcb25c10a9b2b483053ff39f5dfc9233908cfe"
-  
   qs@~6.3.0:
     version "6.3.2"
     resolved "https://registry.yarnpkg.com/qs/-/qs-6.3.2.tgz#e75bd5f6e268122a2a0e0bda630b2550c166502c"
@@ -4824,6 +4888,10 @@ Lockfile:
     version "6.4.0"
     resolved "https://registry.yarnpkg.com/qs/-/qs-6.4.0.tgz#13e26d28ad6b0ffaa91312cd3bf708ed351e7233"
   
+  qs@~6.5.2:
+    version "6.5.2"
+    resolved "https://registry.yarnpkg.com/qs/-/qs-6.5.2.tgz#cb3ae806e8740444584ef154ce8ee98d403f3e36"
+  
   query-string@^4.1.0:
     version "4.3.4"
     resolved "https://registry.yarnpkg.com/query-string/-/query-string-4.3.4.tgz#bbb693b9ca915c232515b228b1a02b609043dbeb"
@@ -4931,7 +4999,7 @@ Lockfile:
       string_decoder "~1.1.1"
       util-deprecate "~1.0.1"
   
-  readable-stream@1.0:
+  readable-stream@1.0, readable-stream@~1.0.0, readable-stream@~1.0.31:
     version "1.0.34"
     resolved "https://registry.yarnpkg.com/readable-stream/-/readable-stream-1.0.34.tgz#125820e34bc842d2f2aaafafe4c2916ee32c157c"
     dependencies:
@@ -4940,17 +5008,6 @@ Lockfile:
       isarray "0.0.1"
       string_decoder "~0.10.x"
   
-  readable-stream@~2.0.5:
-    version "2.0.6"
-    resolved "https://registry.yarnpkg.com/readable-stream/-/readable-stream-2.0.6.tgz#8f90341e68a53ccc928788dacfcd11b36eb9b78e"
-    dependencies:
-      core-util-is "~1.0.0"
-      inherits "~2.0.1"
-      isarray "~1.0.0"
-      process-nextick-args "~1.0.6"
-      string_decoder "~0.10.x"
-      util-deprecate "~1.0.1"
-  
   readdirp@^2.0.0:
     version "2.1.0"
     resolved "https://registry.yarnpkg.com/readdirp/-/readdirp-2.1.0.tgz#4ed0ad060df3073300c48440373f72d1cc642d78"
@@ -5072,6 +5129,21 @@ Lockfile:
     dependencies:
       is-finite "^1.0.0"
   
+  request-promise-core@1.1.1:
+    version "1.1.1"
+    resolved "https://registry.yarnpkg.com/request-promise-core/-/request-promise-core-1.1.1.tgz#3eee00b2c5aa83239cfb04c5700da36f81cd08b6"
+    dependencies:
+      lodash "^4.13.1"
+  
+  request-promise@^4.2.0:
+    version "4.2.2"
+    resolved "https://registry.yarnpkg.com/request-promise/-/request-promise-4.2.2.tgz#d1ea46d654a6ee4f8ee6a4fea1018c22911904b4"
+    dependencies:
+      bluebird "^3.5.0"
+      request-promise-core "1.1.1"
+      stealthy-require "^1.1.0"
+      tough-cookie ">=2.3.3"
+  
   request@2:
     version "2.85.0"
     resolved "https://registry.yarnpkg.com/request/-/request-2.85.0.tgz#5a03615a47c61420b3eb99b7dba204f83603e1fa"
@@ -5099,32 +5171,6 @@ Lockfile:
       tunnel-agent "^0.6.0"
       uuid "^3.1.0"
   
-  request@2.74.0:
-    version "2.74.0"
-    resolved "https://registry.yarnpkg.com/request/-/request-2.74.0.tgz#7693ca768bbb0ea5c8ce08c084a45efa05b892ab"
-    dependencies:
-      aws-sign2 "~0.6.0"
-      aws4 "^1.2.1"
-      bl "~1.1.2"
-      caseless "~0.11.0"
-      combined-stream "~1.0.5"
-      extend "~3.0.0"
-      forever-agent "~0.6.1"
-      form-data "~1.0.0-rc4"
-      har-validator "~2.0.6"
-      hawk "~3.1.3"
-      http-signature "~1.1.0"
-      is-typedarray "~1.0.0"
-      isstream "~0.1.2"
-      json-stringify-safe "~5.0.1"
-      mime-types "~2.1.7"
-      node-uuid "~1.4.7"
-      oauth-sign "~0.8.1"
-      qs "~6.2.0"
-      stringstream "~0.0.4"
-      tough-cookie "~2.3.0"
-      tunnel-agent "~0.4.1"
-  
   request@2.79.0, request@~2.79.0:
     version "2.79.0"
     resolved "https://registry.yarnpkg.com/request/-/request-2.79.0.tgz#4dfe5bf6be8b8cdc37fcf93e04b65577722710de"
@@ -5177,6 +5223,31 @@ Lockfile:
       tunnel-agent "^0.6.0"
       uuid "^3.0.0"
   
+  request@^2.81.0:
+    version "2.88.0"
+    resolved "https://registry.yarnpkg.com/request/-/request-2.88.0.tgz#9c2fca4f7d35b592efe57c7f0a55e81052124fef"
+    dependencies:
+      aws-sign2 "~0.7.0"
+      aws4 "^1.8.0"
+      caseless "~0.12.0"
+      combined-stream "~1.0.6"
+      extend "~3.0.2"
+      forever-agent "~0.6.1"
+      form-data "~2.3.2"
+      har-validator "~5.1.0"
+      http-signature "~1.2.0"
+      is-typedarray "~1.0.0"
+      isstream "~0.1.2"
+      json-stringify-safe "~5.0.1"
+      mime-types "~2.1.19"
+      oauth-sign "~0.9.0"
+      performance-now "^2.1.0"
+      qs "~6.5.2"
+      safe-buffer "^5.1.2"
+      tough-cookie "~2.4.3"
+      tunnel-agent "^0.6.0"
+      uuid "^3.3.2"
+  
   require-directory@^2.1.1:
     version "2.1.1"
     resolved "https://registry.yarnpkg.com/require-directory/-/require-directory-2.1.1.tgz#8c64ad5fd30dab1c976e2344ffe7f792a6a6df42"
@@ -5269,6 +5340,10 @@ Lockfile:
     version "5.1.1"
     resolved "https://registry.yarnpkg.com/safe-buffer/-/safe-buffer-5.1.1.tgz#893312af69b2123def71f57889001671eeb2c853"
   
+  safe-buffer@^5.1.2:
+    version "5.1.2"
+    resolved "https://registry.yarnpkg.com/safe-buffer/-/safe-buffer-5.1.2.tgz#991ec69d296e0313747d59bdfd2b745c35f8828d"
+  
   safe-regex@^1.1.0:
     version "1.1.0"
     resolved "https://registry.yarnpkg.com/safe-regex/-/safe-regex-1.1.0.tgz#40a3669f3b077d1e943d44629e157dd48023bf2e"
@@ -5395,7 +5470,7 @@ Lockfile:
       is-plain-object "^2.0.3"
       split-string "^3.0.1"
   
-  setimmediate@^1.0.4:
+  "setimmediate@>= 1.0.1 < 2", "setimmediate@>= 1.0.2 < 2", setimmediate@^1.0.4:
     version "1.0.5"
     resolved "https://registry.yarnpkg.com/setimmediate/-/setimmediate-1.0.5.tgz#290cbb232e306942d7d7ea9b83732ab7856f8285"
   
@@ -5441,6 +5516,12 @@ Lockfile:
     version "1.0.0"
     resolved "https://registry.yarnpkg.com/slash/-/slash-1.0.0.tgz#c41f2f6c39fc16d1cd17ad4b5d896114ae470d55"
   
+  "slice-stream@>= 1.0.0 < 2":
+    version "1.0.0"
+    resolved "https://registry.yarnpkg.com/slice-stream/-/slice-stream-1.0.0.tgz#5b33bd66f013b1a7f86460b03d463dec39ad3ea0"
+    dependencies:
+      readable-stream "~1.0.31"
+  
   snapdragon-node@^2.0.1:
     version "2.1.1"
     resolved "https://registry.yarnpkg.com/snapdragon-node/-/snapdragon-node-2.1.1.tgz#6c175f86ff14bdb0724563e8f3c1b021a286853b"
@@ -5663,6 +5744,10 @@ Lockfile:
     dependencies:
       readable-stream "^2.0.1"
   
+  stealthy-require@^1.1.0:
+    version "1.1.1"
+    resolved "https://registry.yarnpkg.com/stealthy-require/-/stealthy-require-1.1.1.tgz#35b09875b4ff49f26a777e509b3090a3226bf24b"
+  
   stream-browserify@^2.0.1:
     version "2.0.1"
     resolved "https://registry.yarnpkg.com/stream-browserify/-/stream-browserify-2.0.1.tgz#66266ee5f9bdb9940a4e4514cafb43bb71e5c9db"
@@ -5894,16 +5979,33 @@ Lockfile:
       regex-not "^1.0.2"
       safe-regex "^1.1.0"
   
+  to-string-loader@^1.1.5:
+    version "1.1.5"
+    resolved "https://registry.yarnpkg.com/to-string-loader/-/to-string-loader-1.1.5.tgz#7b7aa17891b7bb4947a7a11bfb03b5fde9c6e695"
+    dependencies:
+      loader-utils "^0.2.16"
+  
   toposort@^1.0.0:
     version "1.0.6"
     resolved "https://registry.yarnpkg.com/toposort/-/toposort-1.0.6.tgz#c31748e55d210effc00fdcdc7d6e68d7d7bb9cec"
   
+  tough-cookie@>=2.3.3, tough-cookie@~2.4.3:
+    version "2.4.3"
+    resolved "https://registry.yarnpkg.com/tough-cookie/-/tough-cookie-2.4.3.tgz#53f36da3f47783b0925afa06ff9f3b165280f781"
+    dependencies:
+      psl "^1.1.24"
+      punycode "^1.4.1"
+  
   tough-cookie@~2.3.0, tough-cookie@~2.3.3:
     version "2.3.4"
     resolved "https://registry.yarnpkg.com/tough-cookie/-/tough-cookie-2.3.4.tgz#ec60cee38ac675063ffc97a5c18970578ee83655"
     dependencies:
       punycode "^1.4.1"
   
+  "traverse@>=0.3.0 <0.4":
+    version "0.3.9"
+    resolved "https://registry.yarnpkg.com/traverse/-/traverse-0.3.9.tgz#717b8f220cc0bb7b44e40514c22b2e8bbc70d8b9"
+  
   trim-newlines@^1.0.0:
     version "1.0.0"
     resolved "https://registry.yarnpkg.com/trim-newlines/-/trim-newlines-1.0.0.tgz#5887966bb582a4503a41eb524f7d35011815a613"
@@ -6049,6 +6151,17 @@ Lockfile:
       has-value "^0.3.1"
       isobject "^3.0.0"
   
+  unzip@^0.1.11:
+    version "0.1.11"
+    resolved "https://registry.yarnpkg.com/unzip/-/unzip-0.1.11.tgz#89749c63b058d7d90d619f86b98aa1535d3b97f0"
+    dependencies:
+      binary ">= 0.3.0 < 1"
+      fstream ">= 0.1.30 < 1"
+      match-stream ">= 0.0.2 < 1"
+      pullstream ">= 0.4.1 < 1"
+      readable-stream "~1.0.31"
+      setimmediate ">= 1.0.1 < 2"
+  
   upath@^1.0.0:
     version "1.0.4"
     resolved "https://registry.yarnpkg.com/upath/-/upath-1.0.4.tgz#ee2321ba0a786c50973db043a50b7bcba822361d"
@@ -6128,6 +6241,10 @@ Lockfile:
     version "3.2.1"
     resolved "https://registry.yarnpkg.com/uuid/-/uuid-3.2.1.tgz#12c528bb9d58d0b9265d9a2f6f0fe8be17ff1f14"
   
+  uuid@^3.3.2:
+    version "3.3.2"
+    resolved "https://registry.yarnpkg.com/uuid/-/uuid-3.3.2.tgz#1b4af4955eb3077c501c23872fc6513811587131"
+  
   validate-npm-package-license@^3.0.1:
     version "3.0.3"
     resolved "https://registry.yarnpkg.com/validate-npm-package-license/-/validate-npm-package-license-3.0.3.tgz#81643bcbef1bdfecd4623793dc4648948ba98338"
@@ -6454,7 +6571,7 @@ Lockfile:
       window-size "0.1.0"
 
 Trace: 
-  Error: Command "add" not found.
+  Error: Command "rudev" not found.
       at new MessageError (/usr/local/lib/node_modules/yarn/lib/cli.js:186:110)
       at /usr/local/lib/node_modules/yarn/lib/cli.js:87307:17
       at Generator.next (<anonymous>)
diff --git a/yarn.lock b/yarn.lock
index 14b05de..9f5683c 100644
--- a/yarn.lock
+++ b/yarn.lock
@@ -56,7 +56,7 @@ ajv@^4.9.1:
     co "^4.6.0"
     json-stable-stringify "^1.0.1"
 
-ajv@^5.0.0, ajv@^5.1.0:
+ajv@^5.0.0, ajv@^5.1.0, ajv@^5.3.0:
   version "5.5.2"
   resolved "https://registry.yarnpkg.com/ajv/-/ajv-5.5.2.tgz#73b5eeca3fab653e3d3f9422b341ad42205dc965"
   dependencies:
@@ -214,10 +214,6 @@ arrify@^1.0.1:
   version "1.0.1"
   resolved "https://registry.yarnpkg.com/arrify/-/arrify-1.0.1.tgz#898508da2226f380df904728456849c1501a4b0d"
 
-asap@~2.0.3:
-  version "2.0.6"
-  resolved "https://registry.yarnpkg.com/asap/-/asap-2.0.6.tgz#e50347611d7e690943208bbdafebcbc2fb866d46"
-
 asn1.js@^4.0.0:
   version "4.10.1"
   resolved "https://registry.yarnpkg.com/asn1.js/-/asn1.js-4.10.1.tgz#b9c2bf5805f1e64aadeed6df3a2bfafb5a73f5a0"
@@ -256,7 +252,7 @@ async-foreach@^0.1.3:
   version "0.1.3"
   resolved "https://registry.yarnpkg.com/async-foreach/-/async-foreach-0.1.3.tgz#36121f845c0578172de419a97dbeb1d16ec34542"
 
-async@2.6.0, async@^2.0.1, async@^2.1.2, async@^2.4.1:
+async@2.6.0, async@^2.1.2, async@^2.4.1:
   version "2.6.0"
   resolved "https://registry.yarnpkg.com/async/-/async-2.6.0.tgz#61a29abb6fcc026fea77e56d1c6ec53a795951f4"
   dependencies:
@@ -301,6 +297,10 @@ aws4@^1.2.1, aws4@^1.6.0:
   version "1.7.0"
   resolved "https://registry.yarnpkg.com/aws4/-/aws4-1.7.0.tgz#d4d0e9b9dbfca77bf08eeb0a8a471550fe39e289"
 
+aws4@^1.8.0:
+  version "1.8.0"
+  resolved "https://registry.yarnpkg.com/aws4/-/aws4-1.8.0.tgz#f0e003d9ca9e7f59c7a508945d7b2ef9a04a542f"
+
 babel-code-frame@^6.26.0:
   version "6.26.0"
   resolved "https://registry.yarnpkg.com/babel-code-frame/-/babel-code-frame-6.26.0.tgz#63fd43f7dc1e3bb7ce35947db8fe369a3f58c74b"
@@ -813,6 +813,13 @@ binary-extensions@^1.0.0:
   version "1.11.0"
   resolved "https://registry.yarnpkg.com/binary-extensions/-/binary-extensions-1.11.0.tgz#46aa1751fb6a2f93ee5e689bb1087d4b14c6c205"
 
+"binary@>= 0.3.0 < 1":
+  version "0.3.0"
+  resolved "https://registry.yarnpkg.com/binary/-/binary-0.3.0.tgz#9f60553bc5ce8c3386f3b553cff47462adecaa79"
+  dependencies:
+    buffers "~0.1.1"
+    chainsaw "~0.1.0"
+
 binstall@1.2.0:
   version "1.2.0"
   resolved "https://registry.yarnpkg.com/binstall/-/binstall-1.2.0.tgz#6b2c0f580b9e3c607f50ef7a22a54ce9fdc8d933"
@@ -820,11 +827,14 @@ binstall@1.2.0:
     request "2.79.0"
     tar "2.2.1"
 
-bl@~1.1.2:
-  version "1.1.2"
-  resolved "https://registry.yarnpkg.com/bl/-/bl-1.1.2.tgz#fdca871a99713aa00d19e3bbba41c44787a65398"
+binwrap@0.1.4:
+  version "0.1.4"
+  resolved "https://registry.yarnpkg.com/binwrap/-/binwrap-0.1.4.tgz#ca1f7870302212518fa24b07726f9c50a15c7559"
   dependencies:
-    readable-stream "~2.0.5"
+    request "^2.81.0"
+    request-promise "^4.2.0"
+    tar "^2.2.1"
+    unzip "^0.1.11"
 
 block-stream@*:
   version "0.0.9"
@@ -836,7 +846,7 @@ bluebird@^2.9.24:
   version "2.11.0"
   resolved "https://registry.yarnpkg.com/bluebird/-/bluebird-2.11.0.tgz#534b9033c022c9579c56ba3b3e5a5caafbb650e1"
 
-bluebird@^3.4.7, bluebird@^3.5.1:
+bluebird@^3.4.7, bluebird@^3.5.0, bluebird@^3.5.1:
   version "3.5.1"
   resolved "https://registry.yarnpkg.com/bluebird/-/bluebird-3.5.1.tgz#d9551f9de98f1fcda1e683d17ee91a0602ee2eb9"
 
@@ -1012,6 +1022,10 @@ buffer@^4.3.0:
     ieee754 "^1.1.4"
     isarray "^1.0.0"
 
+buffers@~0.1.1:
+  version "0.1.1"
+  resolved "https://registry.yarnpkg.com/buffers/-/buffers-0.1.1.tgz#b24579c3bed4d6d396aeee6d9a8ae7f5482ab7bb"
+
 builtin-modules@^1.0.0:
   version "1.1.1"
   resolved "https://registry.yarnpkg.com/builtin-modules/-/builtin-modules-1.1.1.tgz#270f076c5a72c02f5b65a47df94c5fe3a278892f"
@@ -1118,6 +1132,12 @@ center-align@^0.1.1:
     align-text "^0.1.3"
     lazy-cache "^1.0.3"
 
+chainsaw@~0.1.0:
+  version "0.1.0"
+  resolved "https://registry.yarnpkg.com/chainsaw/-/chainsaw-0.1.0.tgz#5eab50b28afe58074d0d58291388828b5e5fbc98"
+  dependencies:
+    traverse ">=0.3.0 <0.4"
+
 chalk@2.1.0:
   version "2.1.0"
   resolved "https://registry.yarnpkg.com/chalk/-/chalk-2.1.0.tgz#ac5becf14fa21b99c6c92ca7a7d7cfd5b17e743e"
@@ -1330,7 +1350,7 @@ colors@~1.1.2:
   version "1.1.2"
   resolved "https://registry.yarnpkg.com/colors/-/colors-1.1.2.tgz#168a4701756b6a7f51a12ce0c97bfa28c084ed63"
 
-combined-stream@1.0.6, combined-stream@^1.0.5, combined-stream@~1.0.5:
+combined-stream@1.0.6, combined-stream@^1.0.5, combined-stream@~1.0.5, combined-stream@~1.0.6:
   version "1.0.6"
   resolved "https://registry.yarnpkg.com/combined-stream/-/combined-stream-1.0.6.tgz#723e7df6e801ac5613113a7e445a9b69cb632818"
   dependencies:
@@ -1942,24 +1962,21 @@ elm-verify-examples@^2.3.1:
     rimraf "^2.6.2"
     yargs "^10.0.3"
 
-elm-webpack-loader@^4.4.0:
-  version "4.5.0"
-  resolved "https://registry.yarnpkg.com/elm-webpack-loader/-/elm-webpack-loader-4.5.0.tgz#b39988ac7c70db3c0922daf695c97d1d6bdb1e41"
+"elm-webpack-loader@https://github.com/xtian/elm-webpack-loader.git#0.19":
+  version "4.3.1"
+  resolved "https://github.com/xtian/elm-webpack-loader.git#f8c56b5f2ba46fcc513ee711bc023bb8595faa80"
   dependencies:
-    elm "^0.18.0"
+    elm "^0.19.0"
     glob "^7.1.1"
     loader-utils "^1.0.2"
-    node-elm-compiler "^4.5.0"
+    node-elm-compiler "^5.0.0-alpha1"
     yargs "^6.5.0"
 
-elm@^0.18.0:
-  version "0.18.0"
-  resolved "https://registry.yarnpkg.com/elm/-/elm-0.18.0.tgz#919b8309cd939dfe2ff9d252d961b6c89509b970"
+elm@^0.19.0:
+  version "0.19.0"
+  resolved "https://registry.yarnpkg.com/elm/-/elm-0.19.0.tgz#c6ad86afea9e971424ebe75e36c9d03412a787fa"
   dependencies:
-    mkdirp "0.5.1"
-    promise "7.1.1"
-    request "2.74.0"
-    tar "2.2.1"
+    binwrap "0.1.4"
 
 emojis-list@^2.0.0:
   version "2.1.0"
@@ -2230,6 +2247,10 @@ extend@~3.0.0, extend@~3.0.1:
   version "3.0.1"
   resolved "https://registry.yarnpkg.com/extend/-/extend-3.0.1.tgz#a755ea7bc1adfcc5a31ce7e762dbaadc5e636444"
 
+extend@~3.0.2:
+  version "3.0.2"
+  resolved "https://registry.yarnpkg.com/extend/-/extend-3.0.2.tgz#f8b1136b4071fbd8eb140aff858b1019ec2915fa"
+
 extglob@^0.3.1:
   version "0.3.2"
   resolved "https://registry.yarnpkg.com/extglob/-/extglob-0.3.2.tgz#2e18ff3d2f49ab2765cec9023f011daa8d8349a1"
@@ -2401,14 +2422,6 @@ forever-agent@~0.6.1:
   version "0.6.1"
   resolved "https://registry.yarnpkg.com/forever-agent/-/forever-agent-0.6.1.tgz#fbc71f0c41adeb37f96c577ad1ed42d8fdacca91"
 
-form-data@~1.0.0-rc4:
-  version "1.0.1"
-  resolved "https://registry.yarnpkg.com/form-data/-/form-data-1.0.1.tgz#ae315db9a4907fa065502304a66d7733475ee37c"
-  dependencies:
-    async "^2.0.1"
-    combined-stream "^1.0.5"
-    mime-types "^2.1.11"
-
 form-data@~2.1.1:
   version "2.1.4"
   resolved "https://registry.yarnpkg.com/form-data/-/form-data-2.1.4.tgz#33c183acf193276ecaa98143a69e94bfee1750d1"
@@ -2417,7 +2430,7 @@ form-data@~2.1.1:
     combined-stream "^1.0.5"
     mime-types "^2.1.12"
 
-form-data@~2.3.1:
+form-data@~2.3.1, form-data@~2.3.2:
   version "2.3.2"
   resolved "https://registry.yarnpkg.com/form-data/-/form-data-2.3.2.tgz#4970498be604c20c005d4f5c23aecd21d6b49099"
   dependencies:
@@ -2507,6 +2520,15 @@ fstream-ignore@^1.0.5:
     inherits "2"
     minimatch "^3.0.0"
 
+"fstream@>= 0.1.30 < 1":
+  version "0.1.31"
+  resolved "https://registry.yarnpkg.com/fstream/-/fstream-0.1.31.tgz#7337f058fbbbbefa8c9f561a28cab0849202c988"
+  dependencies:
+    graceful-fs "~3.0.2"
+    inherits "~2.0.0"
+    mkdirp "0.5"
+    rimraf "2"
+
 fstream@^1.0.0, fstream@^1.0.10, fstream@^1.0.2:
   version "1.0.11"
   resolved "https://registry.yarnpkg.com/fstream/-/fstream-1.0.11.tgz#5c1fb1f117477114f0632a0eb4b71b3cb0fd3171"
@@ -2661,6 +2683,12 @@ graceful-fs@4.1.11, graceful-fs@^4.1.11, graceful-fs@^4.1.2, graceful-fs@^4.1.6,
   version "4.1.11"
   resolved "https://registry.yarnpkg.com/graceful-fs/-/graceful-fs-4.1.11.tgz#0e8bdfe4d1ddb8854d64e04ea7c00e2a026e5658"
 
+graceful-fs@~3.0.2:
+  version "3.0.11"
+  resolved "https://registry.yarnpkg.com/graceful-fs/-/graceful-fs-3.0.11.tgz#7613c778a1afea62f25c630a086d7f3acbbdd818"
+  dependencies:
+    natives "^1.1.0"
+
 handle-thing@^1.2.5:
   version "1.2.5"
   resolved "https://registry.yarnpkg.com/handle-thing/-/handle-thing-1.2.5.tgz#fd7aad726bf1a5fd16dfc29b2f7a6601d27139c4"
@@ -2696,6 +2724,13 @@ har-validator@~5.0.3:
     ajv "^5.1.0"
     har-schema "^2.0.0"
 
+har-validator@~5.1.0:
+  version "5.1.0"
+  resolved "https://registry.yarnpkg.com/har-validator/-/har-validator-5.1.0.tgz#44657f5688a22cfd4b72486e81b3a3fb11742c29"
+  dependencies:
+    ajv "^5.3.0"
+    har-schema "^2.0.0"
+
 has-ansi@^2.0.0:
   version "2.0.0"
   resolved "https://registry.yarnpkg.com/has-ansi/-/has-ansi-2.0.0.tgz#34f5049ce1ecdf2b0649af3ef24e45ed35416d91"
@@ -3597,6 +3632,10 @@ lodash@^4.0.0, lodash@^4.14.0, lodash@^4.17.2, lodash@^4.17.3, lodash@^4.17.4, l
   version "4.17.5"
   resolved "https://registry.yarnpkg.com/lodash/-/lodash-4.17.5.tgz#99a92d65c0272debe8c96b6057bc8fbfa3bed511"
 
+lodash@^4.13.1:
+  version "4.17.10"
+  resolved "https://registry.yarnpkg.com/lodash/-/lodash-4.17.10.tgz#1b7793cf7259ea38fb3661d4d38b3260af8ae4e7"
+
 loglevel@^1.4.1:
   version "1.6.1"
   resolved "https://registry.yarnpkg.com/loglevel/-/loglevel-1.6.1.tgz#e0fc95133b6ef276cdc8887cdaf24aa6f156f8fa"
@@ -3653,6 +3692,13 @@ map-visit@^1.0.0:
   dependencies:
     object-visit "^1.0.0"
 
+"match-stream@>= 0.0.2 < 1":
+  version "0.0.2"
+  resolved "https://registry.yarnpkg.com/match-stream/-/match-stream-0.0.2.tgz#99eb050093b34dffade421b9ac0b410a9cfa17cf"
+  dependencies:
+    buffers "~0.1.1"
+    readable-stream "~1.0.0"
+
 math-expression-evaluator@^1.2.14:
   version "1.2.17"
   resolved "https://registry.yarnpkg.com/math-expression-evaluator/-/math-expression-evaluator-1.2.17.tgz#de819fdbcd84dccd8fae59c6aeb79615b9d266ac"
@@ -3751,12 +3797,22 @@ miller-rabin@^4.0.0:
   version "1.33.0"
   resolved "https://registry.yarnpkg.com/mime-db/-/mime-db-1.33.0.tgz#a3492050a5cb9b63450541e39d9788d2272783db"
 
-mime-types@^2.1.11, mime-types@^2.1.12, mime-types@~2.1.17, mime-types@~2.1.18, mime-types@~2.1.7:
+mime-db@~1.35.0:
+  version "1.35.0"
+  resolved "https://registry.yarnpkg.com/mime-db/-/mime-db-1.35.0.tgz#0569d657466491283709663ad379a99b90d9ab47"
+
+mime-types@^2.1.12, mime-types@~2.1.17, mime-types@~2.1.18, mime-types@~2.1.7:
   version "2.1.18"
   resolved "https://registry.yarnpkg.com/mime-types/-/mime-types-2.1.18.tgz#6f323f60a83d11146f831ff11fd66e2fe5503bb8"
   dependencies:
     mime-db "~1.33.0"
 
+mime-types@~2.1.19:
+  version "2.1.19"
+  resolved "https://registry.yarnpkg.com/mime-types/-/mime-types-2.1.19.tgz#71e464537a7ef81c15f2db9d97e913fc0ff606f0"
+  dependencies:
+    mime-db "~1.35.0"
+
 mime@1.4.1:
   version "1.4.1"
   resolved "https://registry.yarnpkg.com/mime/-/mime-1.4.1.tgz#121f9ebc49e3766f311a76e1fa1c8003c4b03aa6"
@@ -3813,7 +3869,7 @@ mixin-deep@^1.2.0:
     for-in "^1.0.2"
     is-extendable "^1.0.1"
 
-mkdirp@0.5.1, mkdirp@0.5.x, "mkdirp@>=0.5 0", mkdirp@^0.5.0, mkdirp@^0.5.1, mkdirp@~0.5.0, mkdirp@~0.5.1:
+mkdirp@0.5, mkdirp@0.5.x, "mkdirp@>=0.5 0", mkdirp@^0.5.0, mkdirp@^0.5.1, mkdirp@~0.5.0, mkdirp@~0.5.1:
   version "0.5.1"
   resolved "https://registry.yarnpkg.com/mkdirp/-/mkdirp-0.5.1.tgz#30057438eac6cf7f8c4767f38648d6697d75c903"
   dependencies:
@@ -3870,6 +3926,10 @@ nanomatch@^1.2.9:
     snapdragon "^0.8.1"
     to-regex "^3.0.1"
 
+natives@^1.1.0:
+  version "1.1.4"
+  resolved "https://registry.yarnpkg.com/natives/-/natives-1.1.4.tgz#2f0f224fc9a7dd53407c7667c84cf8dbe773de58"
+
 negotiator@0.6.1:
   version "0.6.1"
   resolved "https://registry.yarnpkg.com/negotiator/-/negotiator-0.6.1.tgz#2b327184e8992101177b28563fb5e7102acd0ca9"
@@ -3897,9 +3957,9 @@ node-elm-compiler@4.3.3:
     lodash "4.14.2"
     temp "^0.8.3"
 
-node-elm-compiler@^4.5.0:
-  version "4.5.0"
-  resolved "https://registry.yarnpkg.com/node-elm-compiler/-/node-elm-compiler-4.5.0.tgz#3029f053cfbfc68730e75a54f93495cc58bf7ceb"
+node-elm-compiler@^5.0.0-alpha1:
+  version "5.0.0-alpha1"
+  resolved "https://registry.yarnpkg.com/node-elm-compiler/-/node-elm-compiler-5.0.0-alpha1.tgz#ddfd35788595e5c127039975b50096188d1ae4f6"
   dependencies:
     cross-spawn "4.0.0"
     find-elm-dependencies "1.0.2"
@@ -3996,10 +4056,6 @@ node-sass@^4.7.2:
     stdout-stream "^1.4.0"
     "true-case-path" "^1.0.2"
 
-node-uuid@~1.4.7:
-  version "1.4.8"
-  resolved "https://registry.yarnpkg.com/node-uuid/-/node-uuid-1.4.8.tgz#b040eb0923968afabf8d32fb1f17f1167fdab907"
-
 "nopt@2 || 3":
   version "3.0.6"
   resolved "https://registry.yarnpkg.com/nopt/-/nopt-3.0.6.tgz#c6465dbf08abcd4db359317f79ac68a646b28ff9"
@@ -4074,6 +4130,10 @@ oauth-sign@~0.8.1, oauth-sign@~0.8.2:
   version "0.8.2"
   resolved "https://registry.yarnpkg.com/oauth-sign/-/oauth-sign-0.8.2.tgz#46a6ab7f0aead8deae9ec0565780b7d4efeb9d43"
 
+oauth-sign@~0.9.0:
+  version "0.9.0"
+  resolved "https://registry.yarnpkg.com/oauth-sign/-/oauth-sign-0.9.0.tgz#47a7b016baa68b5fa0ecf3dee08a85c679ac6455"
+
 object-assign@^4.0.1, object-assign@^4.1.0, object-assign@^4.1.1:
   version "4.1.1"
   resolved "https://registry.yarnpkg.com/object-assign/-/object-assign-4.1.1.tgz#2109adc7965887cfc05cbbd442cac8bfbb360863"
@@ -4178,6 +4238,10 @@ osenv@0, osenv@^0.1.4:
     os-homedir "^1.0.0"
     os-tmpdir "^1.0.0"
 
+"over@>= 0.0.5 < 1":
+  version "0.0.5"
+  resolved "https://registry.yarnpkg.com/over/-/over-0.0.5.tgz#f29852e70fd7e25f360e013a8ec44c82aedb5708"
+
 p-finally@^1.0.0:
   version "1.0.0"
   resolved "https://registry.yarnpkg.com/p-finally/-/p-finally-1.0.0.tgz#3fbcfb15b899a44123b34b6dcc18b724336a2cae"
@@ -4664,10 +4728,6 @@ private@^0.1.6, private@^0.1.7:
   version "0.1.8"
   resolved "https://registry.yarnpkg.com/private/-/private-0.1.8.tgz#2381edb3689f7a53d653190060fcf822d2f368ff"
 
-process-nextick-args@~1.0.6:
-  version "1.0.7"
-  resolved "https://registry.yarnpkg.com/process-nextick-args/-/process-nextick-args-1.0.7.tgz#150e20b756590ad3f91093f25a4f2ad8bff30ba3"
-
 process-nextick-args@~2.0.0:
   version "2.0.0"
   resolved "https://registry.yarnpkg.com/process-nextick-args/-/process-nextick-args-2.0.0.tgz#a37d732f4271b4ab1ad070d35508e8290788ffaa"
@@ -4680,12 +4740,6 @@ promise-inflight@^1.0.1:
   version "1.0.1"
   resolved "https://registry.yarnpkg.com/promise-inflight/-/promise-inflight-1.0.1.tgz#98472870bf228132fcbdd868129bad12c3c029e3"
 
-promise@7.1.1:
-  version "7.1.1"
-  resolved "https://registry.yarnpkg.com/promise/-/promise-7.1.1.tgz#489654c692616b8aa55b0724fa809bb7db49c5bf"
-  dependencies:
-    asap "~2.0.3"
-
 proxy-addr@~2.0.3:
   version "2.0.3"
   resolved "https://registry.yarnpkg.com/proxy-addr/-/proxy-addr-2.0.3.tgz#355f262505a621646b3130a728eb647e22055341"
@@ -4701,6 +4755,10 @@ pseudomap@^1.0.2:
   version "1.0.2"
   resolved "https://registry.yarnpkg.com/pseudomap/-/pseudomap-1.0.2.tgz#f052a28da70e618917ef0a8ac34c1ae5a68286b3"
 
+psl@^1.1.24:
+  version "1.1.29"
+  resolved "https://registry.yarnpkg.com/psl/-/psl-1.1.29.tgz#60f580d360170bb722a797cc704411e6da850c67"
+
 public-encrypt@^4.0.0:
   version "4.0.2"
   resolved "https://registry.yarnpkg.com/public-encrypt/-/public-encrypt-4.0.2.tgz#46eb9107206bf73489f8b85b69d91334c6610994"
@@ -4711,6 +4769,15 @@ public-encrypt@^4.0.0:
     parse-asn1 "^5.0.0"
     randombytes "^2.0.1"
 
+"pullstream@>= 0.4.1 < 1":
+  version "0.4.1"
+  resolved "https://registry.yarnpkg.com/pullstream/-/pullstream-0.4.1.tgz#d6fb3bf5aed697e831150eb1002c25a3f8ae1314"
+  dependencies:
+    over ">= 0.0.5 < 1"
+    readable-stream "~1.0.31"
+    setimmediate ">= 1.0.2 < 2"
+    slice-stream ">= 1.0.0 < 2"
+
 pump@^2.0.0, pump@^2.0.1:
   version "2.0.1"
   resolved "https://registry.yarnpkg.com/pump/-/pump-2.0.1.tgz#12399add6e4cf7526d973cbc8b5ce2e2908b3909"
@@ -4746,10 +4813,6 @@ qs@6.5.1, qs@~6.5.1:
   version "6.5.1"
   resolved "https://registry.yarnpkg.com/qs/-/qs-6.5.1.tgz#349cdf6eef89ec45c12d7d5eb3fc0c870343a6d8"
 
-qs@~6.2.0:
-  version "6.2.3"
-  resolved "https://registry.yarnpkg.com/qs/-/qs-6.2.3.tgz#1cfcb25c10a9b2b483053ff39f5dfc9233908cfe"
-
 qs@~6.3.0:
   version "6.3.2"
   resolved "https://registry.yarnpkg.com/qs/-/qs-6.3.2.tgz#e75bd5f6e268122a2a0e0bda630b2550c166502c"
@@ -4758,6 +4821,10 @@ qs@~6.4.0:
   version "6.4.0"
   resolved "https://registry.yarnpkg.com/qs/-/qs-6.4.0.tgz#13e26d28ad6b0ffaa91312cd3bf708ed351e7233"
 
+qs@~6.5.2:
+  version "6.5.2"
+  resolved "https://registry.yarnpkg.com/qs/-/qs-6.5.2.tgz#cb3ae806e8740444584ef154ce8ee98d403f3e36"
+
 query-string@^4.1.0:
   version "4.3.4"
   resolved "https://registry.yarnpkg.com/query-string/-/query-string-4.3.4.tgz#bbb693b9ca915c232515b228b1a02b609043dbeb"
@@ -4865,7 +4932,7 @@ read-pkg@^2.0.0:
     string_decoder "~1.1.1"
     util-deprecate "~1.0.1"
 
-readable-stream@1.0:
+readable-stream@1.0, readable-stream@~1.0.0, readable-stream@~1.0.31:
   version "1.0.34"
   resolved "https://registry.yarnpkg.com/readable-stream/-/readable-stream-1.0.34.tgz#125820e34bc842d2f2aaafafe4c2916ee32c157c"
   dependencies:
@@ -4874,17 +4941,6 @@ readable-stream@1.0:
     isarray "0.0.1"
     string_decoder "~0.10.x"
 
-readable-stream@~2.0.5:
-  version "2.0.6"
-  resolved "https://registry.yarnpkg.com/readable-stream/-/readable-stream-2.0.6.tgz#8f90341e68a53ccc928788dacfcd11b36eb9b78e"
-  dependencies:
-    core-util-is "~1.0.0"
-    inherits "~2.0.1"
-    isarray "~1.0.0"
-    process-nextick-args "~1.0.6"
-    string_decoder "~0.10.x"
-    util-deprecate "~1.0.1"
-
 readdirp@^2.0.0:
   version "2.1.0"
   resolved "https://registry.yarnpkg.com/readdirp/-/readdirp-2.1.0.tgz#4ed0ad060df3073300c48440373f72d1cc642d78"
@@ -5006,6 +5062,21 @@ repeating@^2.0.0:
   dependencies:
     is-finite "^1.0.0"
 
+request-promise-core@1.1.1:
+  version "1.1.1"
+  resolved "https://registry.yarnpkg.com/request-promise-core/-/request-promise-core-1.1.1.tgz#3eee00b2c5aa83239cfb04c5700da36f81cd08b6"
+  dependencies:
+    lodash "^4.13.1"
+
+request-promise@^4.2.0:
+  version "4.2.2"
+  resolved "https://registry.yarnpkg.com/request-promise/-/request-promise-4.2.2.tgz#d1ea46d654a6ee4f8ee6a4fea1018c22911904b4"
+  dependencies:
+    bluebird "^3.5.0"
+    request-promise-core "1.1.1"
+    stealthy-require "^1.1.0"
+    tough-cookie ">=2.3.3"
+
 request@2:
   version "2.85.0"
   resolved "https://registry.yarnpkg.com/request/-/request-2.85.0.tgz#5a03615a47c61420b3eb99b7dba204f83603e1fa"
@@ -5033,32 +5104,6 @@ request@2:
     tunnel-agent "^0.6.0"
     uuid "^3.1.0"
 
-request@2.74.0:
-  version "2.74.0"
-  resolved "https://registry.yarnpkg.com/request/-/request-2.74.0.tgz#7693ca768bbb0ea5c8ce08c084a45efa05b892ab"
-  dependencies:
-    aws-sign2 "~0.6.0"
-    aws4 "^1.2.1"
-    bl "~1.1.2"
-    caseless "~0.11.0"
-    combined-stream "~1.0.5"
-    extend "~3.0.0"
-    forever-agent "~0.6.1"
-    form-data "~1.0.0-rc4"
-    har-validator "~2.0.6"
-    hawk "~3.1.3"
-    http-signature "~1.1.0"
-    is-typedarray "~1.0.0"
-    isstream "~0.1.2"
-    json-stringify-safe "~5.0.1"
-    mime-types "~2.1.7"
-    node-uuid "~1.4.7"
-    oauth-sign "~0.8.1"
-    qs "~6.2.0"
-    stringstream "~0.0.4"
-    tough-cookie "~2.3.0"
-    tunnel-agent "~0.4.1"
-
 request@2.79.0, request@~2.79.0:
   version "2.79.0"
   resolved "https://registry.yarnpkg.com/request/-/request-2.79.0.tgz#4dfe5bf6be8b8cdc37fcf93e04b65577722710de"
@@ -5111,6 +5156,31 @@ request@2.81.0:
     tunnel-agent "^0.6.0"
     uuid "^3.0.0"
 
+request@^2.81.0:
+  version "2.88.0"
+  resolved "https://registry.yarnpkg.com/request/-/request-2.88.0.tgz#9c2fca4f7d35b592efe57c7f0a55e81052124fef"
+  dependencies:
+    aws-sign2 "~0.7.0"
+    aws4 "^1.8.0"
+    caseless "~0.12.0"
+    combined-stream "~1.0.6"
+    extend "~3.0.2"
+    forever-agent "~0.6.1"
+    form-data "~2.3.2"
+    har-validator "~5.1.0"
+    http-signature "~1.2.0"
+    is-typedarray "~1.0.0"
+    isstream "~0.1.2"
+    json-stringify-safe "~5.0.1"
+    mime-types "~2.1.19"
+    oauth-sign "~0.9.0"
+    performance-now "^2.1.0"
+    qs "~6.5.2"
+    safe-buffer "^5.1.2"
+    tough-cookie "~2.4.3"
+    tunnel-agent "^0.6.0"
+    uuid "^3.3.2"
+
 require-directory@^2.1.1:
   version "2.1.1"
   resolved "https://registry.yarnpkg.com/require-directory/-/require-directory-2.1.1.tgz#8c64ad5fd30dab1c976e2344ffe7f792a6a6df42"
@@ -5203,6 +5273,10 @@ safe-buffer@5.1.1, safe-buffer@^5.0.1, safe-buffer@^5.1.0, safe-buffer@^5.1.1, s
   version "5.1.1"
   resolved "https://registry.yarnpkg.com/safe-buffer/-/safe-buffer-5.1.1.tgz#893312af69b2123def71f57889001671eeb2c853"
 
+safe-buffer@^5.1.2:
+  version "5.1.2"
+  resolved "https://registry.yarnpkg.com/safe-buffer/-/safe-buffer-5.1.2.tgz#991ec69d296e0313747d59bdfd2b745c35f8828d"
+
 safe-regex@^1.1.0:
   version "1.1.0"
   resolved "https://registry.yarnpkg.com/safe-regex/-/safe-regex-1.1.0.tgz#40a3669f3b077d1e943d44629e157dd48023bf2e"
@@ -5329,7 +5403,7 @@ set-value@^2.0.0:
     is-plain-object "^2.0.3"
     split-string "^3.0.1"
 
-setimmediate@^1.0.4:
+"setimmediate@>= 1.0.1 < 2", "setimmediate@>= 1.0.2 < 2", setimmediate@^1.0.4:
   version "1.0.5"
   resolved "https://registry.yarnpkg.com/setimmediate/-/setimmediate-1.0.5.tgz#290cbb232e306942d7d7ea9b83732ab7856f8285"
 
@@ -5375,6 +5449,12 @@ slash@^1.0.0:
   version "1.0.0"
   resolved "https://registry.yarnpkg.com/slash/-/slash-1.0.0.tgz#c41f2f6c39fc16d1cd17ad4b5d896114ae470d55"
 
+"slice-stream@>= 1.0.0 < 2":
+  version "1.0.0"
+  resolved "https://registry.yarnpkg.com/slice-stream/-/slice-stream-1.0.0.tgz#5b33bd66f013b1a7f86460b03d463dec39ad3ea0"
+  dependencies:
+    readable-stream "~1.0.31"
+
 snapdragon-node@^2.0.1:
   version "2.1.1"
   resolved "https://registry.yarnpkg.com/snapdragon-node/-/snapdragon-node-2.1.1.tgz#6c175f86ff14bdb0724563e8f3c1b021a286853b"
@@ -5597,6 +5677,10 @@ stdout-stream@^1.4.0:
   dependencies:
     readable-stream "^2.0.1"
 
+stealthy-require@^1.1.0:
+  version "1.1.1"
+  resolved "https://registry.yarnpkg.com/stealthy-require/-/stealthy-require-1.1.1.tgz#35b09875b4ff49f26a777e509b3090a3226bf24b"
+
 stream-browserify@^2.0.1:
   version "2.0.1"
   resolved "https://registry.yarnpkg.com/stream-browserify/-/stream-browserify-2.0.1.tgz#66266ee5f9bdb9940a4e4514cafb43bb71e5c9db"
@@ -5838,12 +5922,23 @@ toposort@^1.0.0:
   version "1.0.6"
   resolved "https://registry.yarnpkg.com/toposort/-/toposort-1.0.6.tgz#c31748e55d210effc00fdcdc7d6e68d7d7bb9cec"
 
+tough-cookie@>=2.3.3, tough-cookie@~2.4.3:
+  version "2.4.3"
+  resolved "https://registry.yarnpkg.com/tough-cookie/-/tough-cookie-2.4.3.tgz#53f36da3f47783b0925afa06ff9f3b165280f781"
+  dependencies:
+    psl "^1.1.24"
+    punycode "^1.4.1"
+
 tough-cookie@~2.3.0, tough-cookie@~2.3.3:
   version "2.3.4"
   resolved "https://registry.yarnpkg.com/tough-cookie/-/tough-cookie-2.3.4.tgz#ec60cee38ac675063ffc97a5c18970578ee83655"
   dependencies:
     punycode "^1.4.1"
 
+"traverse@>=0.3.0 <0.4":
+  version "0.3.9"
+  resolved "https://registry.yarnpkg.com/traverse/-/traverse-0.3.9.tgz#717b8f220cc0bb7b44e40514c22b2e8bbc70d8b9"
+
 trim-newlines@^1.0.0:
   version "1.0.0"
   resolved "https://registry.yarnpkg.com/trim-newlines/-/trim-newlines-1.0.0.tgz#5887966bb582a4503a41eb524f7d35011815a613"
@@ -5989,6 +6084,17 @@ unset-value@^1.0.0:
     has-value "^0.3.1"
     isobject "^3.0.0"
 
+unzip@^0.1.11:
+  version "0.1.11"
+  resolved "https://registry.yarnpkg.com/unzip/-/unzip-0.1.11.tgz#89749c63b058d7d90d619f86b98aa1535d3b97f0"
+  dependencies:
+    binary ">= 0.3.0 < 1"
+    fstream ">= 0.1.30 < 1"
+    match-stream ">= 0.0.2 < 1"
+    pullstream ">= 0.4.1 < 1"
+    readable-stream "~1.0.31"
+    setimmediate ">= 1.0.1 < 2"
+
 upath@^1.0.0:
   version "1.0.4"
   resolved "https://registry.yarnpkg.com/upath/-/upath-1.0.4.tgz#ee2321ba0a786c50973db043a50b7bcba822361d"
@@ -6068,6 +6174,10 @@ uuid@^3.0.0, uuid@^3.0.1, uuid@^3.1.0:
   version "3.2.1"
   resolved "https://registry.yarnpkg.com/uuid/-/uuid-3.2.1.tgz#12c528bb9d58d0b9265d9a2f6f0fe8be17ff1f14"
 
+uuid@^3.3.2:
+  version "3.3.2"
+  resolved "https://registry.yarnpkg.com/uuid/-/uuid-3.3.2.tgz#1b4af4955eb3077c501c23872fc6513811587131"
+
 validate-npm-package-license@^3.0.1:
   version "3.0.3"
   resolved "https://registry.yarnpkg.com/validate-npm-package-license/-/validate-npm-package-license-3.0.3.tgz#81643bcbef1bdfecd4623793dc4648948ba98338"
