index.html

<!DOCTYPE HTML>
<html>
<head>
  <meta charset="UTF-8">
  <title>Main</title>
  <style>body { padding: 0; margin: 0; }</style>
</head>

<body>

<pre id="elm"></pre>

<script>
try {
(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.1/optimize for better performance and smaller assets.');


// 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 (x === y)
	{
		return true;
	}

	if (typeof x !== 'object' || x === null || y === null)
	{
		typeof x === 'function' && _Debug_crash(5);
		return false;
	}

	if (depth > 100)
	{
		stack.push(_Utils_Tuple2(x,y));
		return true;
	}

	/**/
	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 (typeof x.$ === 'undefined')
	//*/
	/**/
	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;
	}));
});


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 DataView === 'function' && value instanceof DataView)
	{
		return _Debug_stringColor(ansi, '<' + value.byteLength + ' bytes>');
	}

	if (typeof File !== 'undefined' && value instanceof File)
	{
		return _Debug_internalColor(ansi, '<' + value.name + '>');
	}

	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[36m' + string + '\x1b[0m' : string;
}

function _Debug_toHexDigit(n)
{
	return String.fromCharCode(n < 10 ? 48 + n : 55 + n);
}


// 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;
}


// 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; });


var _String_cons = F2(function(chr, str)
{
	return chr + str;
});

function _String_uncons(string)
{
	var word = string.charCodeAt(0);
	return !isNaN(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 _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, 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());
}


/**/
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
	};
}

function _Json_decodePrim(decoder)
{
	return { $: 2, b: decoder };
}

var _Json_decodeInt = _Json_decodePrim(function(value) {
	return (typeof value !== 'number')
		? _Json_expecting('an INT', value)
		:
	(-2147483647 < value && value < 2147483647 && (value | 0) === value)
		? $elm$core$Result$Ok(value)
		:
	(isFinite(value) && !(value % 1))
		? $elm$core$Result$Ok(value)
		: _Json_expecting('an INT', value);
});

var _Json_decodeBool = _Json_decodePrim(function(value) {
	return (typeof value === 'boolean')
		? $elm$core$Result$Ok(value)
		: _Json_expecting('a BOOL', value);
});

var _Json_decodeFloat = _Json_decodePrim(function(value) {
	return (typeof value === 'number')
		? $elm$core$Result$Ok(value)
		: _Json_expecting('a FLOAT', value);
});

var _Json_decodeValue = _Json_decodePrim(function(value) {
	return $elm$core$Result$Ok(_Json_wrap(value));
});

var _Json_decodeString = _Json_decodePrim(function(value) {
	return (typeof value === 'string')
		? $elm$core$Result$Ok(value)
		: (value instanceof String)
			? $elm$core$Result$Ok(value + '')
			: _Json_expecting('a STRING', value);
});

function _Json_decodeList(decoder) { return { $: 3, b: decoder }; }
function _Json_decodeArray(decoder) { return { $: 4, b: decoder }; }

function _Json_decodeNull(value) { return { $: 5, c: value }; }

var _Json_decodeField = F2(function(field, decoder)
{
	return {
		$: 6,
		d: field,
		b: decoder
	};
});

var _Json_decodeIndex = F2(function(index, decoder)
{
	return {
		$: 7,
		e: index,
		b: decoder
	};
});

function _Json_decodeKeyValuePairs(decoder)
{
	return {
		$: 8,
		b: decoder
	};
}

function _Json_mapMany(f, decoders)
{
	return {
		$: 9,
		f: f,
		g: decoders
	};
}

var _Json_andThen = F2(function(callback, decoder)
{
	return {
		$: 10,
		b: decoder,
		h: callback
	};
});

function _Json_oneOf(decoders)
{
	return {
		$: 11,
		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 2:
			return decoder.b(value);

		case 5:
			return (value === null)
				? $elm$core$Result$Ok(decoder.c)
				: _Json_expecting('null', value);

		case 3:
			if (!_Json_isArray(value))
			{
				return _Json_expecting('a LIST', value);
			}
			return _Json_runArrayDecoder(decoder.b, value, _List_fromArray);

		case 4:
			if (!_Json_isArray(value))
			{
				return _Json_expecting('an ARRAY', value);
			}
			return _Json_runArrayDecoder(decoder.b, value, _Json_toElmArray);

		case 6:
			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 7:
			var index = decoder.e;
			if (!_Json_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 8:
			if (typeof value !== 'object' || value === null || _Json_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 9:
			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 10:
			var result = _Json_runHelp(decoder.b, value);
			return (!$elm$core$Result$isOk(result))
				? result
				: _Json_runHelp(decoder.h(result.a), value);

		case 11:
			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_isArray(value)
{
	return Array.isArray(value) || (typeof FileList !== 'undefined' && value instanceof FileList);
}

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 2:
			return x.b === y.b;

		case 5:
			return x.c === y.c;

		case 3:
		case 4:
		case 8:
			return _Json_equality(x.b, y.b);

		case 6:
			return x.d === y.d && _Json_equality(x.b, y.b);

		case 7:
			return x.e === y.e && _Json_equality(x.b, y.b);

		case 9:
			return x.f === y.f && _Json_listEquality(x.g, y.g);

		case 10:
			return x.h === y.h && _Json_equality(x.b, y.b);

		case 11:
			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 = {};
	var initPair = init(result.a);
	var model = initPair.a;
	var stepper = stepperBuilder(sendToApp, model);
	var ports = _Platform_setupEffects(managers, sendToApp);

	function sendToApp(msg, viewMetadata)
	{
		var pair = A2(update, msg, model);
		stepper(model = pair.a, viewMetadata);
		_Platform_enqueueEffects(managers, pair.b, subscriptions(model));
	}

	_Platform_enqueueEffects(managers, initPair.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
//
// Effects must be queued!
//
// Say your init contains a synchronous command, like Time.now or Time.here
//
//   - This will produce a batch of effects (FX_1)
//   - The synchronous task triggers the subsequent `update` call
//   - This will produce a batch of effects (FX_2)
//
// If we just start dispatching FX_2, subscriptions from FX_2 can be processed
// before subscriptions from FX_1. No good! Earlier versions of this code had
// this problem, leading to these reports:
//
//   https://github.com/elm/core/issues/980
//   https://github.com/elm/core/pull/981
//   https://github.com/elm/compiler/issues/1776
//
// The queue is necessary to avoid ordering issues for synchronous commands.


// Why use true/false here? Why not just check the length of the queue?
// The goal is to detect "are we currently dispatching effects?" If we
// are, we need to bail and let the ongoing while loop handle things.
//
// Now say the queue has 1 element. When we dequeue the final element,
// the queue will be empty, but we are still actively dispatching effects.
// So you could get queue jumping in a really tricky category of cases.
//
var _Platform_effectsQueue = [];
var _Platform_effectsActive = false;


function _Platform_enqueueEffects(managers, cmdBag, subBag)
{
	_Platform_effectsQueue.push({ p: managers, q: cmdBag, r: subBag });

	if (_Platform_effectsActive) return;

	_Platform_effectsActive = true;
	for (var fx; fx = _Platform_effectsQueue.shift(); )
	{
		_Platform_dispatchEffects(fx.p, fx.q, fx.r);
	}
	_Platform_effectsActive = false;
}


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, {
				s: bag.n,
				t: taggers
			});
			return;
	}
}


function _Platform_toEffect(isCmd, home, taggers, value)
{
	function applyTaggers(x)
	{
		for (var temp = taggers; temp; temp = temp.t)
		{
			x = temp.s(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,
		u: 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].u;

	// 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,
		u: 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].u;

	// 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]);
	}
}


// 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];
		typeof value !== 'undefined'
			? 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;

		typeof value !== 'undefined'
			? 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;

		var newMatch = undefined;
		var oldMatch = undefined;

		// 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;
			oldMatch = yKey === xNextKey;
		}

		if (yNext)
		{
			var yNextKey = yNext.a;
			var yNextNode = yNext.b;
			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_cancelAnimationFrame =
	typeof cancelAnimationFrame !== 'undefined'
		? cancelAnimationFrame
		: function(id) { clearTimeout(id); };

var _Browser_requestAnimationFrame =
	typeof requestAnimationFrame !== 'undefined'
		? requestAnimationFrame
		: function(callback) { return 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.hasAttribute('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 = _Browser_requestAnimationFrame(function() {
			callback(_Scheduler_succeed(Date.now()));
		});

		return function() {
			_Browser_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);
		}
	}));
}


// DECODER

var _File_decoder = _Json_decodePrim(function(value) {
	// NOTE: checks if `File` exists in case this is run on node
	return (typeof File !== 'undefined' && value instanceof File)
		? $elm$core$Result$Ok(value)
		: _Json_expecting('a FILE', value);
});


// METADATA

function _File_name(file) { return file.name; }
function _File_mime(file) { return file.type; }
function _File_size(file) { return file.size; }

function _File_lastModified(file)
{
	return $elm$time$Time$millisToPosix(file.lastModified);
}


// DOWNLOAD

var _File_downloadNode;

function _File_getDownloadNode()
{
	return _File_downloadNode || (_File_downloadNode = document.createElement('a'));
}

var _File_download = F3(function(name, mime, content)
{
	return _Scheduler_binding(function(callback)
	{
		var blob = new Blob([content], {type: mime});

		// for IE10+
		if (navigator.msSaveOrOpenBlob)
		{
			navigator.msSaveOrOpenBlob(blob, name);
			return;
		}

		// for HTML5
		var node = _File_getDownloadNode();
		var objectUrl = URL.createObjectURL(blob);
		node.href = objectUrl;
		node.download = name;
		_File_click(node);
		URL.revokeObjectURL(objectUrl);
	});
});

function _File_downloadUrl(href)
{
	return _Scheduler_binding(function(callback)
	{
		var node = _File_getDownloadNode();
		node.href = href;
		node.download = '';
		node.origin === location.origin || (node.target = '_blank');
		_File_click(node);
	});
}


// IE COMPATIBILITY

function _File_makeBytesSafeForInternetExplorer(bytes)
{
	// only needed by IE10 and IE11 to fix https://github.com/elm/file/issues/10
	// all other browsers can just run `new Blob([bytes])` directly with no problem
	//
	return new Uint8Array(bytes.buffer, bytes.byteOffset, bytes.byteLength);
}

function _File_click(node)
{
	// only needed by IE10 and IE11 to fix https://github.com/elm/file/issues/11
	// all other browsers have MouseEvent and do not need this conditional stuff
	//
	if (typeof MouseEvent === 'function')
	{
		node.dispatchEvent(new MouseEvent('click'));
	}
	else
	{
		var event = document.createEvent('MouseEvents');
		event.initMouseEvent('click', true, true, window, 0, 0, 0, 0, 0, false, false, false, false, 0, null);
		document.body.appendChild(node);
		node.dispatchEvent(event);
		document.body.removeChild(node);
	}
}


// UPLOAD

var _File_node;

function _File_uploadOne(mimes)
{
	return _Scheduler_binding(function(callback)
	{
		_File_node = document.createElement('input');
		_File_node.type = 'file';
		_File_node.accept = A2($elm$core$String$join, ',', mimes);
		_File_node.addEventListener('change', function(event)
		{
			callback(_Scheduler_succeed(event.target.files[0]));
		});
		_File_click(_File_node);
	});
}

function _File_uploadOneOrMore(mimes)
{
	return _Scheduler_binding(function(callback)
	{
		_File_node = document.createElement('input');
		_File_node.type = 'file';
		_File_node.multiple = true;
		_File_node.accept = A2($elm$core$String$join, ',', mimes);
		_File_node.addEventListener('change', function(event)
		{
			var elmFiles = _List_fromArray(event.target.files);
			callback(_Scheduler_succeed(_Utils_Tuple2(elmFiles.a, elmFiles.b)));
		});
		_File_click(_File_node);
	});
}


// CONTENT

function _File_toString(blob)
{
	return _Scheduler_binding(function(callback)
	{
		var reader = new FileReader();
		reader.addEventListener('loadend', function() {
			callback(_Scheduler_succeed(reader.result));
		});
		reader.readAsText(blob);
		return function() { reader.abort(); };
	});
}

function _File_toBytes(blob)
{
	return _Scheduler_binding(function(callback)
	{
		var reader = new FileReader();
		reader.addEventListener('loadend', function() {
			callback(_Scheduler_succeed(new DataView(reader.result)));
		});
		reader.readAsArrayBuffer(blob);
		return function() { reader.abort(); };
	});
}

function _File_toUrl(blob)
{
	return _Scheduler_binding(function(callback)
	{
		var reader = new FileReader();
		reader.addEventListener('loadend', function() {
			callback(_Scheduler_succeed(reader.result));
		});
		reader.readAsDataURL(blob);
		return function() { reader.abort(); };
	});
}


var _Bitwise_and = F2(function(a, b)
{
	return a & b;
});

var _Bitwise_or = F2(function(a, b)
{
	return a | b;
});

var _Bitwise_xor = F2(function(a, b)
{
	return a ^ b;
});

function _Bitwise_complement(a)
{
	return ~a;
};

var _Bitwise_shiftLeftBy = F2(function(offset, a)
{
	return a << offset;
});

var _Bitwise_shiftRightBy = F2(function(offset, a)
{
	return a >> offset;
});

var _Bitwise_shiftRightZfBy = F2(function(offset, a)
{
	return a >>> offset;
});


function _Time_now(millisToPosix)
{
	return _Scheduler_binding(function(callback)
	{
		callback(_Scheduler_succeed(millisToPosix(Date.now())));
	});
}

var _Time_setInterval = F2(function(interval, task)
{
	return _Scheduler_binding(function(callback)
	{
		var id = setInterval(function() { _Scheduler_rawSpawn(task); }, interval);
		return function() { clearInterval(id); };
	});
});

function _Time_here()
{
	return _Scheduler_binding(function(callback)
	{
		callback(_Scheduler_succeed(
			A2($elm$time$Time$customZone, -(new Date().getTimezoneOffset()), _List_Nil)
		));
	});
}


function _Time_getZoneName()
{
	return _Scheduler_binding(function(callback)
	{
		try
		{
			var name = $elm$time$Time$Name(Intl.DateTimeFormat().resolvedOptions().timeZone);
		}
		catch (e)
		{
			var name = $elm$time$Time$Offset(new Date().getTimezoneOffset());
		}
		callback(_Scheduler_succeed(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;
var $elm$core$Basics$EQ = {$: 'EQ'};
var $elm$core$Basics$GT = {$: 'GT'};
var $elm$core$Basics$LT = {$: 'LT'};
var $elm$core$List$cons = _List_cons;
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 (_v0) {
	var dict = _v0.a;
	return $elm$core$Dict$keys(dict);
};
var $elm$core$Elm$JsArray$foldr = _JsArray_foldr;
var $elm$core$Array$foldr = F3(
	function (func, baseCase, _v0) {
		var tree = _v0.c;
		var tail = _v0.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$Array$toList = function (array) {
	return A3($elm$core$Array$foldr, $elm$core$List$cons, _List_Nil, array);
};
var $elm$core$Result$Err = function (a) {
	return {$: 'Err', a: a};
};
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$core$Result$Ok = function (a) {
	return {$: 'Ok', a: a};
};
var $elm$json$Json$Decode$OneOf = function (a) {
	return {$: 'OneOf', a: a};
};
var $elm$core$Basics$False = {$: 'False'};
var $elm$core$Basics$add = _Basics_add;
var $elm$core$Maybe$Just = function (a) {
	return {$: 'Just', a: a};
};
var $elm$core$Maybe$Nothing = {$: 'Nothing'};
var $elm$core$String$all = _String_all;
var $elm$core$Basics$and = _Basics_and;
var $elm$core$Basics$append = _Utils_append;
var $elm$json$Json$Encode$encode = _Json_encode;
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$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$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$List$length = function (xs) {
	return A3(
		$elm$core$List$foldl,
		F2(
			function (_v0, i) {
				return i + 1;
			}),
		0,
		xs);
};
var $elm$core$List$map2 = _List_map2;
var $elm$core$Basics$le = _Utils_le;
var $elm$core$Basics$sub = _Basics_sub;
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$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$Basics$or = _Basics_or;
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$reverse = function (list) {
	return A3($elm$core$List$foldl, $elm$core$List$cons, _List_Nil, list);
};
var $elm$core$String$uncons = _String_uncons;
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 _v1 = $elm$core$String$uncons(f);
						if (_v1.$ === 'Nothing') {
							return false;
						} else {
							var _v2 = _v1.a;
							var _char = _v2.a;
							var rest = _v2.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$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$Elm$JsArray$empty = _JsArray_empty;
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$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$Elm$JsArray$initialize = _JsArray_initialize;
var $elm$core$Array$Leaf = function (a) {
	return {$: 'Leaf', a: a};
};
var $elm$core$Basics$apL = F2(
	function (f, x) {
		return f(x);
	});
var $elm$core$Basics$apR = F2(
	function (x, f) {
		return f(x);
	});
var $elm$core$Basics$eq = _Utils_equal;
var $elm$core$Basics$floor = _Basics_floor;
var $elm$core$Elm$JsArray$length = _JsArray_length;
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$Array$SubTree = function (a) {
	return {$: 'SubTree', a: a};
};
var $elm$core$Elm$JsArray$initializeFromList = _JsArray_initializeFromList;
var $elm$core$Array$compressNodes = F2(
	function (nodes, acc) {
		compressNodes:
		while (true) {
			var _v0 = A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodes);
			var node = _v0.a;
			var remainingNodes = _v0.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$Tuple$first = function (_v0) {
	var x = _v0.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$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$idiv = _Basics_idiv;
var $elm$core$Basics$lt = _Utils_lt;
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$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$Basics$True = {$: 'True'};
var $elm$core$Result$isOk = function (result) {
	if (result.$ === 'Ok') {
		return true;
	} else {
		return false;
	}
};
var $elm$json$Json$Decode$map = _Json_map1;
var $elm$json$Json$Decode$map2 = _Json_map2;
var $elm$json$Json$Decode$succeed = _Json_succeed;
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$browser$Browser$External = function (a) {
	return {$: 'External', a: a};
};
var $elm$browser$Browser$Internal = function (a) {
	return {$: 'Internal', a: a};
};
var $elm$core$Basics$identity = function (x) {
	return x;
};
var $elm$browser$Browser$Dom$NotFound = function (a) {
	return {$: 'NotFound', a: a};
};
var $elm$url$Url$Http = {$: 'Http'};
var $elm$url$Url$Https = {$: 'Https'};
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$core$String$contains = _String_contains;
var $elm$core$String$length = _String_length;
var $elm$core$String$slice = _String_slice;
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$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$toInt = _String_toInt;
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 _v0 = A2($elm$core$String$indexes, ':', str);
			if (!_v0.b) {
				return $elm$core$Maybe$Just(
					A6($elm$url$Url$Url, protocol, str, $elm$core$Maybe$Nothing, path, params, frag));
			} else {
				if (!_v0.b.b) {
					var i = _v0.a;
					var _v1 = $elm$core$String$toInt(
						A2($elm$core$String$dropLeft, i + 1, str));
					if (_v1.$ === 'Nothing') {
						return $elm$core$Maybe$Nothing;
					} else {
						var port_ = _v1;
						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 _v0 = A2($elm$core$String$indexes, '/', str);
			if (!_v0.b) {
				return A5($elm$url$Url$chompBeforePath, protocol, '/', params, frag, str);
			} else {
				var i = _v0.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 _v0 = A2($elm$core$String$indexes, '?', str);
			if (!_v0.b) {
				return A4($elm$url$Url$chompBeforeQuery, protocol, $elm$core$Maybe$Nothing, frag, str);
			} else {
				var i = _v0.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 _v0 = A2($elm$core$String$indexes, '#', str);
			if (!_v0.b) {
				return A3($elm$url$Url$chompBeforeFragment, protocol, $elm$core$Maybe$Nothing, str);
			} else {
				var i = _v0.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$core$String$startsWith = _String_startsWith;
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$core$Basics$never = function (_v0) {
	never:
	while (true) {
		var nvr = _v0.a;
		var $temp$_v0 = nvr;
		_v0 = $temp$_v0;
		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$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$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$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, _v0) {
		var task = _v0.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 (_v0) {
				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 (_v0, _v1, _v2) {
		return $elm$core$Task$succeed(_Utils_Tuple0);
	});
var $elm$core$Task$cmdMap = F2(
	function (tagger, _v0) {
		var task = _v0.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$browser$Browser$document = _Browser_document;
var $author$project$Main$SyntaxError = function (a) {
	return {$: 'SyntaxError', a: a};
};
var $elm$core$Platform$Cmd$batch = _Platform_batch;
var $elm$core$Platform$Cmd$none = $elm$core$Platform$Cmd$batch(_List_Nil);
var $author$project$Main$init = function (_v0) {
	return _Utils_Tuple2(
		{
			code: '',
			state: $author$project$Main$SyntaxError('')
		},
		$elm$core$Platform$Cmd$none);
};
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$subscriptions = function (_v0) {
	return $elm$core$Platform$Sub$none;
};
var $author$project$Main$ChangeCode = function (a) {
	return {$: 'ChangeCode', a: a};
};
var $author$project$Main$EvalStep = {$: 'EvalStep'};
var $author$project$Main$Evaluation = F5(
	function (a, b, c, d, e) {
		return {$: 'Evaluation', a: a, b: b, c: c, d: d, e: e};
	});
var $author$project$Main$GotFile = function (a) {
	return {$: 'GotFile', a: a};
};
var $author$project$Evaluation$Running = {$: 'Running'};
var $author$project$Evaluation$Stopped = {$: 'Stopped'};
var $author$project$Main$TypeError = function (a) {
	return {$: 'TypeError', a: a};
};
var $author$project$Main$WellTyped = F2(
	function (a, b) {
		return {$: 'WellTyped', a: a, b: b};
	});
var $elm$time$Time$Posix = function (a) {
	return {$: 'Posix', a: a};
};
var $elm$time$Time$millisToPosix = $elm$time$Time$Posix;
var $elm$file$File$Select$file = F2(
	function (mimes, toMsg) {
		return A2(
			$elm$core$Task$perform,
			toMsg,
			_File_uploadOne(mimes));
	});
var $elm$core$Process$sleep = _Process_sleep;
var $author$project$Main$fireMsg = function (msg) {
	return A2(
		$elm$core$Task$perform,
		function (_v0) {
			return msg;
		},
		$elm$core$Process$sleep(0));
};
var $author$project$Main$GotSeed = function (a) {
	return {$: 'GotSeed', a: a};
};
var $elm$random$Random$Seed = F2(
	function (a, b) {
		return {$: 'Seed', a: a, b: b};
	});
var $elm$core$Bitwise$shiftRightZfBy = _Bitwise_shiftRightZfBy;
var $elm$random$Random$next = function (_v0) {
	var state0 = _v0.a;
	var incr = _v0.b;
	return A2($elm$random$Random$Seed, ((state0 * 1664525) + incr) >>> 0, incr);
};
var $elm$random$Random$initialSeed = function (x) {
	var _v0 = $elm$random$Random$next(
		A2($elm$random$Random$Seed, 0, 1013904223));
	var state1 = _v0.a;
	var incr = _v0.b;
	var state2 = (state1 + x) >>> 0;
	return $elm$random$Random$next(
		A2($elm$random$Random$Seed, state2, incr));
};
var $elm$time$Time$Name = function (a) {
	return {$: 'Name', a: a};
};
var $elm$time$Time$Offset = function (a) {
	return {$: 'Offset', a: a};
};
var $elm$time$Time$Zone = F2(
	function (a, b) {
		return {$: 'Zone', a: a, b: b};
	});
var $elm$time$Time$customZone = $elm$time$Time$Zone;
var $elm$time$Time$now = _Time_now($elm$time$Time$millisToPosix);
var $elm$time$Time$posixToMillis = function (_v0) {
	var millis = _v0.a;
	return millis;
};
var $author$project$Main$getSeedFromTime = A2(
	$elm$core$Task$perform,
	function (p) {
		return $author$project$Main$GotSeed(
			$elm$random$Random$initialSeed(
				$elm$time$Time$posixToMillis(p)));
	},
	$elm$time$Time$now);
var $author$project$Evaluation$EC_Empty = {$: 'EC_Empty'};
var $author$project$Evaluation$Main = {$: 'Main'};
var $author$project$Evaluation$Thread = F4(
	function (a, b, c, d) {
		return {$: 'Thread', a: a, b: b, c: c, d: d};
	});
var $author$project$Evaluation$initialConfig = function (term) {
	return {
		channels: _List_Nil,
		nextChannelId: 0,
		returnValue: $elm$core$Maybe$Nothing,
		threads: _List_fromArray(
			[
				A4($author$project$Evaluation$Thread, $author$project$Evaluation$Main, $author$project$Evaluation$EC_Empty, term, _List_Nil)
			])
	};
};
var $andre_dietrich$parser_combinators$Combine$app = function (_v0) {
	var inner = _v0.a;
	return inner;
};
var $andre_dietrich$parser_combinators$Combine$InputStream = F3(
	function (data, input, position) {
		return {data: data, input: input, position: position};
	});
var $andre_dietrich$parser_combinators$Combine$initStream = function (s) {
	return A3($andre_dietrich$parser_combinators$Combine$InputStream, s, s, 0);
};
var $andre_dietrich$parser_combinators$Combine$runParser = F3(
	function (p, st, s) {
		var _v0 = A3(
			$andre_dietrich$parser_combinators$Combine$app,
			p,
			st,
			$andre_dietrich$parser_combinators$Combine$initStream(s));
		if (_v0.c.$ === 'Ok') {
			var state = _v0.a;
			var stream = _v0.b;
			var res = _v0.c.a;
			return $elm$core$Result$Ok(
				_Utils_Tuple3(state, stream, res));
		} else {
			var state = _v0.a;
			var stream = _v0.b;
			var ms = _v0.c.a;
			return $elm$core$Result$Err(
				_Utils_Tuple3(state, stream, ms));
		}
	});
var $andre_dietrich$parser_combinators$Combine$parse = function (p) {
	return A2($andre_dietrich$parser_combinators$Combine$runParser, p, _Utils_Tuple0);
};
var $andre_dietrich$parser_combinators$Combine$Parser = function (a) {
	return {$: 'Parser', a: a};
};
var $andre_dietrich$parser_combinators$Combine$andThen = F2(
	function (f, p) {
		return $andre_dietrich$parser_combinators$Combine$Parser(
			F2(
				function (state, stream) {
					var _v0 = A3($andre_dietrich$parser_combinators$Combine$app, p, state, stream);
					if (_v0.c.$ === 'Ok') {
						var rstate = _v0.a;
						var rstream = _v0.b;
						var res = _v0.c.a;
						return A3(
							$andre_dietrich$parser_combinators$Combine$app,
							f(res),
							rstate,
							rstream);
					} else {
						var estate = _v0.a;
						var estream = _v0.b;
						var ms = _v0.c.a;
						return _Utils_Tuple3(
							estate,
							estream,
							$elm$core$Result$Err(ms));
					}
				}));
	});
var $andre_dietrich$parser_combinators$Combine$end = $andre_dietrich$parser_combinators$Combine$Parser(
	F2(
		function (state, stream) {
			return (stream.input === '') ? _Utils_Tuple3(
				state,
				stream,
				$elm$core$Result$Ok(_Utils_Tuple0)) : _Utils_Tuple3(
				state,
				stream,
				$elm$core$Result$Err(
					_List_fromArray(
						['expected end of input'])));
		}));
var $author$project$AbstractSyntax$Term_Accept = function (a) {
	return {$: 'Term_Accept', a: a};
};
var $author$project$AbstractSyntax$Term_Application = F2(
	function (a, b) {
		return {$: 'Term_Application', a: a, b: b};
	});
var $author$project$AbstractSyntax$Term_Branch = F5(
	function (a, b, c, d, e) {
		return {$: 'Term_Branch', a: a, b: b, c: c, d: d, e: e};
	});
var $author$project$AbstractSyntax$Term_Case = F5(
	function (a, b, c, d, e) {
		return {$: 'Term_Case', a: a, b: b, c: c, d: d, e: e};
	});
var $author$project$AbstractSyntax$Term_Close = function (a) {
	return {$: 'Term_Close', a: a};
};
var $author$project$AbstractSyntax$Term_Fold = F2(
	function (a, b) {
		return {$: 'Term_Fold', a: a, b: b};
	});
var $author$project$AbstractSyntax$Term_Fork = function (a) {
	return {$: 'Term_Fork', a: a};
};
var $author$project$AbstractSyntax$Term_Inl = F2(
	function (a, b) {
		return {$: 'Term_Inl', a: a, b: b};
	});
var $author$project$AbstractSyntax$Term_Inr = F2(
	function (a, b) {
		return {$: 'Term_Inr', a: a, b: b};
	});
var $author$project$AbstractSyntax$Term_LetLin = F4(
	function (a, b, c, d) {
		return {$: 'Term_LetLin', a: a, b: b, c: c, d: d};
	});
var $author$project$AbstractSyntax$Term_LetOfCourse = F3(
	function (a, b, c) {
		return {$: 'Term_LetOfCourse', a: a, b: b, c: c};
	});
var $author$project$AbstractSyntax$Term_LetPair = F4(
	function (a, b, c, d) {
		return {$: 'Term_LetPair', a: a, b: b, c: c, d: d};
	});
var $author$project$AbstractSyntax$Term_LetRec = F4(
	function (a, b, c, d) {
		return {$: 'Term_LetRec', a: a, b: b, c: c, d: d};
	});
var $author$project$AbstractSyntax$Term_LetUn = F4(
	function (a, b, c, d) {
		return {$: 'Term_LetUn', a: a, b: b, c: c, d: d};
	});
var $author$project$AbstractSyntax$Term_LetUnit = F2(
	function (a, b) {
		return {$: 'Term_LetUnit', a: a, b: b};
	});
var $author$project$AbstractSyntax$Term_LinearLambda = F3(
	function (a, b, c) {
		return {$: 'Term_LinearLambda', a: a, b: b, c: c};
	});
var $author$project$AbstractSyntax$Term_NewAccess = F4(
	function (a, b, c, d) {
		return {$: 'Term_NewAccess', a: a, b: b, c: c, d: d};
	});
var $author$project$AbstractSyntax$Term_OfCourse = function (a) {
	return {$: 'Term_OfCourse', a: a};
};
var $author$project$AbstractSyntax$Term_Pair = F2(
	function (a, b) {
		return {$: 'Term_Pair', a: a, b: b};
	});
var $author$project$AbstractSyntax$Term_Receive = function (a) {
	return {$: 'Term_Receive', a: a};
};
var $author$project$AbstractSyntax$Term_Request = function (a) {
	return {$: 'Term_Request', a: a};
};
var $author$project$AbstractSyntax$Term_SelectLeft = function (a) {
	return {$: 'Term_SelectLeft', a: a};
};
var $author$project$AbstractSyntax$Term_SelectRight = function (a) {
	return {$: 'Term_SelectRight', a: a};
};
var $author$project$AbstractSyntax$Term_Send = F2(
	function (a, b) {
		return {$: 'Term_Send', a: a, b: b};
	});
var $author$project$AbstractSyntax$Term_Spawn = function (a) {
	return {$: 'Term_Spawn', a: a};
};
var $author$project$AbstractSyntax$Term_Unfold = function (a) {
	return {$: 'Term_Unfold', a: a};
};
var $author$project$AbstractSyntax$Term_UnrestrictedLambda = F3(
	function (a, b, c) {
		return {$: 'Term_UnrestrictedLambda', a: a, b: b, c: c};
	});
var $elm$core$Basics$always = F2(
	function (a, _v0) {
		return a;
	});
var $pilatch$flip$Flip$flip = F3(
	function (_function, argB, argA) {
		return A2(_function, argA, argB);
	});
var $andre_dietrich$parser_combinators$Combine$bimap = F3(
	function (fok, ferr, p) {
		return $andre_dietrich$parser_combinators$Combine$Parser(
			F2(
				function (state, stream) {
					var _v0 = A3($andre_dietrich$parser_combinators$Combine$app, p, state, stream);
					if (_v0.c.$ === 'Ok') {
						var rstate = _v0.a;
						var rstream = _v0.b;
						var res = _v0.c.a;
						return _Utils_Tuple3(
							rstate,
							rstream,
							$elm$core$Result$Ok(
								fok(res)));
					} else {
						var estate = _v0.a;
						var estream = _v0.b;
						var ms = _v0.c.a;
						return _Utils_Tuple3(
							estate,
							estream,
							$elm$core$Result$Err(
								ferr(ms)));
					}
				}));
	});
var $andre_dietrich$parser_combinators$Combine$map = F2(
	function (f, p) {
		return A3($andre_dietrich$parser_combinators$Combine$bimap, f, $elm$core$Basics$identity, p);
	});
var $andre_dietrich$parser_combinators$Combine$andMap = F2(
	function (rp, lp) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			A2($pilatch$flip$Flip$flip, $andre_dietrich$parser_combinators$Combine$map, rp),
			lp);
	});
var $andre_dietrich$parser_combinators$Combine$ignore = F2(
	function (p1, p2) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andMap,
			p1,
			A2($andre_dietrich$parser_combinators$Combine$map, $elm$core$Basics$always, p2));
	});
var $andre_dietrich$parser_combinators$Combine$keep = F2(
	function (p1, p2) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andMap,
			p1,
			A2(
				$andre_dietrich$parser_combinators$Combine$map,
				$pilatch$flip$Flip$flip($elm$core$Basics$always),
				p2));
	});
var $andre_dietrich$parser_combinators$Combine$between = F3(
	function (lp, rp, p) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$ignore,
			rp,
			A2($andre_dietrich$parser_combinators$Combine$keep, p, lp));
	});
var $andre_dietrich$parser_combinators$Combine$or = F2(
	function (lp, rp) {
		return $andre_dietrich$parser_combinators$Combine$Parser(
			F2(
				function (state, stream) {
					var _v0 = A3($andre_dietrich$parser_combinators$Combine$app, lp, state, stream);
					if (_v0.c.$ === 'Ok') {
						var res = _v0;
						return res;
					} else {
						var lms = _v0.c.a;
						var _v1 = A3($andre_dietrich$parser_combinators$Combine$app, rp, state, stream);
						if (_v1.c.$ === 'Ok') {
							var res = _v1;
							return res;
						} else {
							var rms = _v1.c.a;
							return _Utils_Tuple3(
								state,
								stream,
								$elm$core$Result$Err(
									_Utils_ap(lms, rms)));
						}
					}
				}));
	});
var $andre_dietrich$parser_combinators$Combine$succeed = function (res) {
	return $andre_dietrich$parser_combinators$Combine$Parser(
		F2(
			function (state, stream) {
				return _Utils_Tuple3(
					state,
					stream,
					$elm$core$Result$Ok(res));
			}));
};
var $andre_dietrich$parser_combinators$Combine$chainl = F2(
	function (op, p) {
		var accumulate = function (x) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$or,
				A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (f) {
						return A2(
							$andre_dietrich$parser_combinators$Combine$andThen,
							function (y) {
								return accumulate(
									A2(f, x, y));
							},
							p);
					},
					op),
				$andre_dietrich$parser_combinators$Combine$succeed(x));
		};
		return A2($andre_dietrich$parser_combinators$Combine$andThen, accumulate, p);
	});
var $andre_dietrich$parser_combinators$Combine$emptyErr = $andre_dietrich$parser_combinators$Combine$Parser(
	F2(
		function (state, stream) {
			return _Utils_Tuple3(
				state,
				stream,
				$elm$core$Result$Err(_List_Nil));
		}));
var $andre_dietrich$parser_combinators$Combine$choice = function (xs) {
	return A3($elm$core$List$foldr, $andre_dietrich$parser_combinators$Combine$or, $andre_dietrich$parser_combinators$Combine$emptyErr, xs);
};
var $andre_dietrich$parser_combinators$Combine$fail = function (m) {
	return $andre_dietrich$parser_combinators$Combine$Parser(
		F2(
			function (state, stream) {
				return _Utils_Tuple3(
					state,
					stream,
					$elm$core$Result$Err(
						_List_fromArray(
							[m])));
			}));
};
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 $elm$core$Basics$composeR = F3(
	function (f, g, x) {
		return g(
			f(x));
	});
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$findAtMost = _Regex_findAtMost;
var $elm$regex$Regex$never = _Regex_never;
var $elm$core$Maybe$withDefault = F2(
	function (_default, maybe) {
		if (maybe.$ === 'Just') {
			var value = maybe.a;
			return value;
		} else {
			return _default;
		}
	});
var $andre_dietrich$parser_combinators$Combine$regexer = F5(
	function (input, output, pat, state, stream) {
		var pattern = A2($elm$core$String$startsWith, '^', pat) ? pat : ('^' + pat);
		var _v0 = A3(
			$elm$regex$Regex$findAtMost,
			1,
			A2(
				$elm$core$Maybe$withDefault,
				$elm$regex$Regex$never,
				input(pattern)),
			stream.input);
		if (_v0.b && (!_v0.b.b)) {
			var match = _v0.a;
			var len = $elm$core$String$length(match.match);
			var pos = stream.position + len;
			var rem = A2($elm$core$String$dropLeft, len, stream.input);
			return _Utils_Tuple3(
				state,
				_Utils_update(
					stream,
					{input: rem, position: pos}),
				$elm$core$Result$Ok(
					output(match)));
		} else {
			return _Utils_Tuple3(
				state,
				stream,
				$elm$core$Result$Err(
					_List_fromArray(
						['expected input matching Regexp /' + (pattern + '/')])));
		}
	});
var $andre_dietrich$parser_combinators$Combine$regex = A2(
	$elm$core$Basics$composeR,
	A2(
		$andre_dietrich$parser_combinators$Combine$regexer,
		$elm$regex$Regex$fromString,
		function ($) {
			return $.match;
		}),
	$andre_dietrich$parser_combinators$Combine$Parser);
var $author$project$Parsing$reservedWords = _List_fromArray(
	['rec', 'End', 'Accept', 'Request', 'lin', 'un', 'let', 'in', 'inl', 'inr', 'case', 'of', 'send', 'receive', 'select', 'left', 'right', 'branch', 'close', 'new', 'access', 'accept', 'request', 'session', 'fork', 'spawn', 'fold', 'unfold', 'typevars', 'typedefs', 'vars', 'end', 'dual']);
var $andre_dietrich$parser_combinators$Combine$onsuccess = function (res) {
	return $andre_dietrich$parser_combinators$Combine$map(
		$elm$core$Basics$always(res));
};
var $andre_dietrich$parser_combinators$Combine$skip = function (p) {
	return A2($andre_dietrich$parser_combinators$Combine$onsuccess, _Utils_Tuple0, p);
};
var $author$project$Parsing$inlineComment = $andre_dietrich$parser_combinators$Combine$skip(
	$andre_dietrich$parser_combinators$Combine$regex('--[^\n]*'));
var $andre_dietrich$parser_combinators$Combine$mapError = $andre_dietrich$parser_combinators$Combine$bimap($elm$core$Basics$identity);
var $andre_dietrich$parser_combinators$Combine$onerror = F2(
	function (m, p) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$mapError,
			$elm$core$Basics$always(
				_List_fromArray(
					[m])),
			p);
	});
var $andre_dietrich$parser_combinators$Combine$primitive = $andre_dietrich$parser_combinators$Combine$Parser;
var $andre_dietrich$parser_combinators$Combine$Char$satisfy = function (pred) {
	return $andre_dietrich$parser_combinators$Combine$primitive(
		F2(
			function (state, stream) {
				var message = 'could not satisfy predicate';
				var _v0 = $elm$core$String$uncons(stream.input);
				if (_v0.$ === 'Just') {
					var _v1 = _v0.a;
					var h = _v1.a;
					var rest = _v1.b;
					return pred(h) ? _Utils_Tuple3(
						state,
						_Utils_update(
							stream,
							{input: rest, position: stream.position + 1}),
						$elm$core$Result$Ok(h)) : _Utils_Tuple3(
						state,
						stream,
						$elm$core$Result$Err(
							_List_fromArray(
								[message])));
				} else {
					return _Utils_Tuple3(
						state,
						stream,
						$elm$core$Result$Err(
							_List_fromArray(
								[message])));
				}
			}));
};
var $andre_dietrich$parser_combinators$Combine$Char$anyChar = A2(
	$andre_dietrich$parser_combinators$Combine$onerror,
	'expected any character',
	$andre_dietrich$parser_combinators$Combine$Char$satisfy(
		$elm$core$Basics$always(true)));
var $andre_dietrich$parser_combinators$Combine$manyTill = F2(
	function (p, end_) {
		var accumulate = F3(
			function (acc, state, stream) {
				accumulate:
				while (true) {
					var _v0 = A3($andre_dietrich$parser_combinators$Combine$app, end_, state, stream);
					if (_v0.c.$ === 'Ok') {
						var rstate = _v0.a;
						var rstream = _v0.b;
						return _Utils_Tuple3(
							rstate,
							rstream,
							$elm$core$Result$Ok(
								$elm$core$List$reverse(acc)));
					} else {
						var estate = _v0.a;
						var estream = _v0.b;
						var ms = _v0.c.a;
						var _v1 = A3($andre_dietrich$parser_combinators$Combine$app, p, state, stream);
						if (_v1.c.$ === 'Ok') {
							var rstate = _v1.a;
							var rstream = _v1.b;
							var res = _v1.c.a;
							var $temp$acc = A2($elm$core$List$cons, res, acc),
								$temp$state = rstate,
								$temp$stream = rstream;
							acc = $temp$acc;
							state = $temp$state;
							stream = $temp$stream;
							continue accumulate;
						} else {
							return _Utils_Tuple3(
								estate,
								estream,
								$elm$core$Result$Err(ms));
						}
					}
				}
			});
		return $andre_dietrich$parser_combinators$Combine$Parser(
			accumulate(_List_Nil));
	});
var $andre_dietrich$parser_combinators$Combine$string = function (s) {
	return $andre_dietrich$parser_combinators$Combine$Parser(
		F2(
			function (state, stream) {
				if (A2($elm$core$String$startsWith, s, stream.input)) {
					var len = $elm$core$String$length(s);
					var pos = stream.position + len;
					var rem = A2($elm$core$String$dropLeft, len, stream.input);
					return _Utils_Tuple3(
						state,
						_Utils_update(
							stream,
							{input: rem, position: pos}),
						$elm$core$Result$Ok(s));
				} else {
					return _Utils_Tuple3(
						state,
						stream,
						$elm$core$Result$Err(
							_List_fromArray(
								['expected \"' + (s + '\"')])));
				}
			}));
};
var $author$project$Parsing$multilineComment = A2(
	$andre_dietrich$parser_combinators$Combine$ignore,
	A2(
		$andre_dietrich$parser_combinators$Combine$manyTill,
		$andre_dietrich$parser_combinators$Combine$Char$anyChar,
		$andre_dietrich$parser_combinators$Combine$string('-}')),
	$andre_dietrich$parser_combinators$Combine$skip(
		$andre_dietrich$parser_combinators$Combine$string('{-')));
var $author$project$Parsing$comment = A2($andre_dietrich$parser_combinators$Combine$or, $author$project$Parsing$inlineComment, $author$project$Parsing$multilineComment);
var $andre_dietrich$parser_combinators$Combine$many = function (p) {
	var accumulate = F3(
		function (acc, state, stream) {
			accumulate:
			while (true) {
				var _v0 = A3($andre_dietrich$parser_combinators$Combine$app, p, state, stream);
				if (_v0.c.$ === 'Ok') {
					var rstate = _v0.a;
					var rstream = _v0.b;
					var res = _v0.c.a;
					if (_Utils_eq(stream, rstream)) {
						return _Utils_Tuple3(
							rstate,
							rstream,
							$elm$core$List$reverse(acc));
					} else {
						var $temp$acc = A2($elm$core$List$cons, res, acc),
							$temp$state = rstate,
							$temp$stream = rstream;
						acc = $temp$acc;
						state = $temp$state;
						stream = $temp$stream;
						continue accumulate;
					}
				} else {
					return _Utils_Tuple3(
						state,
						stream,
						$elm$core$List$reverse(acc));
				}
			}
		});
	return $andre_dietrich$parser_combinators$Combine$Parser(
		F2(
			function (state, stream) {
				var _v1 = A3(accumulate, _List_Nil, state, stream);
				var rstate = _v1.a;
				var rstream = _v1.b;
				var res = _v1.c;
				return _Utils_Tuple3(
					rstate,
					rstream,
					$elm$core$Result$Ok(res));
			}));
};
var $andre_dietrich$parser_combinators$Combine$skipMany = function (p) {
	return A2(
		$andre_dietrich$parser_combinators$Combine$onsuccess,
		_Utils_Tuple0,
		$andre_dietrich$parser_combinators$Combine$many(
			$andre_dietrich$parser_combinators$Combine$skip(p)));
};
var $author$project$Parsing$whitespaceOrComments = $andre_dietrich$parser_combinators$Combine$skipMany(
	A2(
		$andre_dietrich$parser_combinators$Combine$or,
		$andre_dietrich$parser_combinators$Combine$skip(
			$andre_dietrich$parser_combinators$Combine$regex('\\s')),
		$author$project$Parsing$comment));
var $author$project$Parsing$token = function (parser) {
	return A2($andre_dietrich$parser_combinators$Combine$keep, parser, $author$project$Parsing$whitespaceOrComments);
};
var $author$project$Parsing$identifier = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (id) {
		return A2($elm$core$List$member, id, $author$project$Parsing$reservedWords) ? $andre_dietrich$parser_combinators$Combine$fail(id + ' é uma palavra reservada') : $andre_dietrich$parser_combinators$Combine$succeed(id);
	},
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$regex('[A-Za-z_][\'0-9A-Za-z_-]*')));
var $andre_dietrich$parser_combinators$Combine$lazy = function (t) {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		t,
		$andre_dietrich$parser_combinators$Combine$succeed(_Utils_Tuple0));
};
var $andre_dietrich$parser_combinators$Combine$maybe = function (p) {
	return $andre_dietrich$parser_combinators$Combine$Parser(
		F2(
			function (state, stream) {
				var _v0 = A3($andre_dietrich$parser_combinators$Combine$app, p, state, stream);
				if (_v0.c.$ === 'Ok') {
					var rstate = _v0.a;
					var rstream = _v0.b;
					var res = _v0.c.a;
					return _Utils_Tuple3(
						rstate,
						rstream,
						$elm$core$Result$Ok(
							$elm$core$Maybe$Just(res)));
				} else {
					return _Utils_Tuple3(
						state,
						stream,
						$elm$core$Result$Ok($elm$core$Maybe$Nothing));
				}
			}));
};
var $author$project$AbstractSyntax$Term_NewSession = function (a) {
	return {$: 'Term_NewSession', a: a};
};
var $author$project$AbstractSyntax$Type_Accept = function (a) {
	return {$: 'Type_Accept', a: a};
};
var $author$project$AbstractSyntax$Type_Branch = F2(
	function (a, b) {
		return {$: 'Type_Branch', a: a, b: b};
	});
var $author$project$AbstractSyntax$Type_Dual = function (a) {
	return {$: 'Type_Dual', a: a};
};
var $author$project$AbstractSyntax$Type_OfCourse = function (a) {
	return {$: 'Type_OfCourse', a: a};
};
var $author$project$AbstractSyntax$Type_Rec = F3(
	function (a, b, c) {
		return {$: 'Type_Rec', a: a, b: b, c: c};
	});
var $author$project$AbstractSyntax$Type_Receive = F2(
	function (a, b) {
		return {$: 'Type_Receive', a: a, b: b};
	});
var $author$project$AbstractSyntax$Type_Request = function (a) {
	return {$: 'Type_Request', a: a};
};
var $author$project$AbstractSyntax$Type_Select = F2(
	function (a, b) {
		return {$: 'Type_Select', a: a, b: b};
	});
var $author$project$AbstractSyntax$Type_Send = F2(
	function (a, b) {
		return {$: 'Type_Send', a: a, b: b};
	});
var $andre_dietrich$parser_combinators$Combine$chainr = F2(
	function (op, p) {
		var accumulate = function (x) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$or,
				A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (f) {
						return A2(
							$andre_dietrich$parser_combinators$Combine$andThen,
							function (y) {
								return $andre_dietrich$parser_combinators$Combine$succeed(
									A2(f, x, y));
							},
							A2($andre_dietrich$parser_combinators$Combine$andThen, accumulate, p));
					},
					op),
				$andre_dietrich$parser_combinators$Combine$succeed(x));
		};
		return A2($andre_dietrich$parser_combinators$Combine$andThen, accumulate, p);
	});
var $author$project$AbstractSyntax$Type_LinearFn = F2(
	function (a, b) {
		return {$: 'Type_LinearFn', a: a, b: b};
	});
var $author$project$AbstractSyntax$Type_UnrestrictedFn = F2(
	function (a, b) {
		return {$: 'Type_UnrestrictedFn', a: a, b: b};
	});
var $author$project$Parsing$fnTypeCons = $andre_dietrich$parser_combinators$Combine$choice(
	_List_fromArray(
		[
			A2(
			$andre_dietrich$parser_combinators$Combine$onsuccess,
			$author$project$AbstractSyntax$Type_LinearFn,
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string('-o'))),
			A2(
			$andre_dietrich$parser_combinators$Combine$onsuccess,
			$author$project$AbstractSyntax$Type_UnrestrictedFn,
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string('->')))
		]));
var $author$project$AbstractSyntax$Kind_NonSessionType = {$: 'Kind_NonSessionType'};
var $author$project$AbstractSyntax$Kind_SessionType = {$: 'Kind_SessionType'};
var $author$project$Parsing$kindExpr = $andre_dietrich$parser_combinators$Combine$choice(
	_List_fromArray(
		[
			A2(
			$andre_dietrich$parser_combinators$Combine$onsuccess,
			$author$project$AbstractSyntax$Kind_SessionType,
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string('*s'))),
			A2(
			$andre_dietrich$parser_combinators$Combine$onsuccess,
			$author$project$AbstractSyntax$Kind_NonSessionType,
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string('*ns')))
		]));
var $author$project$AbstractSyntax$Type_Product = F2(
	function (a, b) {
		return {$: 'Type_Product', a: a, b: b};
	});
var $author$project$Parsing$productTypeCons = A2(
	$andre_dietrich$parser_combinators$Combine$onsuccess,
	$author$project$AbstractSyntax$Type_Product,
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string('*')));
var $author$project$AbstractSyntax$Type_Sum = F2(
	function (a, b) {
		return {$: 'Type_Sum', a: a, b: b};
	});
var $author$project$Parsing$sumTypeCons = A2(
	$andre_dietrich$parser_combinators$Combine$onsuccess,
	$author$project$AbstractSyntax$Type_Sum,
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string('+')));
var $author$project$AbstractSyntax$Type_End = {$: 'Type_End'};
var $author$project$Parsing$typeEnd = A2(
	$andre_dietrich$parser_combinators$Combine$onsuccess,
	$author$project$AbstractSyntax$Type_End,
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string('End')));
var $author$project$AbstractSyntax$Type_Unit = {$: 'Type_Unit'};
var $author$project$Parsing$typeUnit = A2(
	$andre_dietrich$parser_combinators$Combine$onsuccess,
	$author$project$AbstractSyntax$Type_Unit,
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string('1')));
var $author$project$AbstractSyntax$Type_Var = function (a) {
	return {$: 'Type_Var', a: a};
};
var $author$project$Parsing$typeVariable = A2($andre_dietrich$parser_combinators$Combine$map, $author$project$AbstractSyntax$Type_Var, $author$project$Parsing$identifier);
function $author$project$Parsing$cyclic$typeExpr() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$chainr,
		$author$project$Parsing$fnTypeCons,
		$author$project$Parsing$cyclic$sumChain());
}
function $author$project$Parsing$cyclic$sumChain() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$chainl,
		$author$project$Parsing$sumTypeCons,
		$author$project$Parsing$cyclic$productChain());
}
function $author$project$Parsing$cyclic$productChain() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$chainl,
		$author$project$Parsing$productTypeCons,
		$author$project$Parsing$cyclic$typeAtom());
}
function $author$project$Parsing$cyclic$typeAtom() {
	return $andre_dietrich$parser_combinators$Combine$choice(
		_List_fromArray(
			[
				$author$project$Parsing$typeVariable,
				$author$project$Parsing$cyclic$typeRec(),
				$author$project$Parsing$cyclic$typeSend(),
				$author$project$Parsing$cyclic$typeReceive(),
				$author$project$Parsing$cyclic$typeSelect(),
				$author$project$Parsing$cyclic$typeBranch(),
				$author$project$Parsing$typeEnd,
				$author$project$Parsing$typeUnit,
				$author$project$Parsing$cyclic$typeOfCourse(),
				$author$project$Parsing$cyclic$typeAccept(),
				$author$project$Parsing$cyclic$typeRequest(),
				$author$project$Parsing$cyclic$typeDual(),
				$author$project$Parsing$cyclic$typeBetweenParens()
			]));
}
function $author$project$Parsing$cyclic$typeAccept() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v19) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (aType) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Type_Accept(aType));
				},
				$author$project$Parsing$cyclic$typeAtom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('Accept')));
}
function $author$project$Parsing$cyclic$typeBetweenParens() {
	return A3(
		$andre_dietrich$parser_combinators$Combine$between,
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('(')),
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string(')')),
		$andre_dietrich$parser_combinators$Combine$lazy(
			function (_v18) {
				return $author$project$Parsing$cyclic$typeExpr();
			}));
}
function $author$project$Parsing$cyclic$typeBranch() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v14) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v15) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (type1) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v16) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (type2) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (_v17) {
													return $andre_dietrich$parser_combinators$Combine$succeed(
														A2($author$project$AbstractSyntax$Type_Branch, type1, type2));
												},
												$author$project$Parsing$token(
													$andre_dietrich$parser_combinators$Combine$string('}')));
										},
										$author$project$Parsing$cyclic$typeExpr());
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string(',')));
						},
						$author$project$Parsing$cyclic$typeExpr());
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('{')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('&')));
}
function $author$project$Parsing$cyclic$typeDual() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v13) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (aType) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Type_Dual(aType));
				},
				$author$project$Parsing$cyclic$typeBetweenParens());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('dual')));
}
function $author$project$Parsing$cyclic$typeOfCourse() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v12) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (aType) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Type_OfCourse(aType));
				},
				$author$project$Parsing$cyclic$typeAtom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('@')));
}
function $author$project$Parsing$cyclic$typeRec() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v9) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (id) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (_v10) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (kind) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (_v11) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (aType) {
													return $andre_dietrich$parser_combinators$Combine$succeed(
														A3($author$project$AbstractSyntax$Type_Rec, id, kind, aType));
												},
												$author$project$Parsing$cyclic$typeExpr());
										},
										$author$project$Parsing$token(
											$andre_dietrich$parser_combinators$Combine$string('.')));
								},
								$author$project$Parsing$kindExpr);
						},
						$author$project$Parsing$token(
							$andre_dietrich$parser_combinators$Combine$string(':')));
				},
				$author$project$Parsing$identifier);
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('rec')));
}
function $author$project$Parsing$cyclic$typeReceive() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v7) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (type1) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (_v8) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (type2) {
									return $andre_dietrich$parser_combinators$Combine$succeed(
										A2($author$project$AbstractSyntax$Type_Receive, type1, type2));
								},
								$author$project$Parsing$cyclic$typeExpr());
						},
						$author$project$Parsing$token(
							$andre_dietrich$parser_combinators$Combine$string('.')));
				},
				$author$project$Parsing$cyclic$typeExpr());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('?')));
}
function $author$project$Parsing$cyclic$typeRequest() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v6) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (aType) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Type_Request(aType));
				},
				$author$project$Parsing$cyclic$typeAtom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('Request')));
}
function $author$project$Parsing$cyclic$typeSelect() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v2) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v3) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (type1) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v4) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (type2) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (_v5) {
													return $andre_dietrich$parser_combinators$Combine$succeed(
														A2($author$project$AbstractSyntax$Type_Select, type1, type2));
												},
												$author$project$Parsing$token(
													$andre_dietrich$parser_combinators$Combine$string('}')));
										},
										$author$project$Parsing$cyclic$typeExpr());
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string(',')));
						},
						$author$project$Parsing$cyclic$typeExpr());
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('{')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('+')));
}
function $author$project$Parsing$cyclic$typeSend() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v0) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (type1) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (_v1) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (type2) {
									return $andre_dietrich$parser_combinators$Combine$succeed(
										A2($author$project$AbstractSyntax$Type_Send, type1, type2));
								},
								$author$project$Parsing$cyclic$typeExpr());
						},
						$author$project$Parsing$token(
							$andre_dietrich$parser_combinators$Combine$string('.')));
				},
				$author$project$Parsing$cyclic$typeExpr());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('!')));
}
try {
	var $author$project$Parsing$typeExpr = $author$project$Parsing$cyclic$typeExpr();
	$author$project$Parsing$cyclic$typeExpr = function () {
		return $author$project$Parsing$typeExpr;
	};
	var $author$project$Parsing$sumChain = $author$project$Parsing$cyclic$sumChain();
	$author$project$Parsing$cyclic$sumChain = function () {
		return $author$project$Parsing$sumChain;
	};
	var $author$project$Parsing$productChain = $author$project$Parsing$cyclic$productChain();
	$author$project$Parsing$cyclic$productChain = function () {
		return $author$project$Parsing$productChain;
	};
	var $author$project$Parsing$typeAtom = $author$project$Parsing$cyclic$typeAtom();
	$author$project$Parsing$cyclic$typeAtom = function () {
		return $author$project$Parsing$typeAtom;
	};
	var $author$project$Parsing$typeAccept = $author$project$Parsing$cyclic$typeAccept();
	$author$project$Parsing$cyclic$typeAccept = function () {
		return $author$project$Parsing$typeAccept;
	};
	var $author$project$Parsing$typeBetweenParens = $author$project$Parsing$cyclic$typeBetweenParens();
	$author$project$Parsing$cyclic$typeBetweenParens = function () {
		return $author$project$Parsing$typeBetweenParens;
	};
	var $author$project$Parsing$typeBranch = $author$project$Parsing$cyclic$typeBranch();
	$author$project$Parsing$cyclic$typeBranch = function () {
		return $author$project$Parsing$typeBranch;
	};
	var $author$project$Parsing$typeDual = $author$project$Parsing$cyclic$typeDual();
	$author$project$Parsing$cyclic$typeDual = function () {
		return $author$project$Parsing$typeDual;
	};
	var $author$project$Parsing$typeOfCourse = $author$project$Parsing$cyclic$typeOfCourse();
	$author$project$Parsing$cyclic$typeOfCourse = function () {
		return $author$project$Parsing$typeOfCourse;
	};
	var $author$project$Parsing$typeRec = $author$project$Parsing$cyclic$typeRec();
	$author$project$Parsing$cyclic$typeRec = function () {
		return $author$project$Parsing$typeRec;
	};
	var $author$project$Parsing$typeReceive = $author$project$Parsing$cyclic$typeReceive();
	$author$project$Parsing$cyclic$typeReceive = function () {
		return $author$project$Parsing$typeReceive;
	};
	var $author$project$Parsing$typeRequest = $author$project$Parsing$cyclic$typeRequest();
	$author$project$Parsing$cyclic$typeRequest = function () {
		return $author$project$Parsing$typeRequest;
	};
	var $author$project$Parsing$typeSelect = $author$project$Parsing$cyclic$typeSelect();
	$author$project$Parsing$cyclic$typeSelect = function () {
		return $author$project$Parsing$typeSelect;
	};
	var $author$project$Parsing$typeSend = $author$project$Parsing$cyclic$typeSend();
	$author$project$Parsing$cyclic$typeSend = function () {
		return $author$project$Parsing$typeSend;
	};
} catch ($) {
	throw 'Some top-level definitions from `Parsing` are causing infinite recursion:\n\n  ┌─────┐\n  │    typeExpr\n  │     ↓\n  │    sumChain\n  │     ↓\n  │    productChain\n  │     ↓\n  │    typeAtom\n  │     ↓\n  │    typeAccept\n  │     ↓\n  │    typeBetweenParens\n  │     ↓\n  │    typeBranch\n  │     ↓\n  │    typeDual\n  │     ↓\n  │    typeOfCourse\n  │     ↓\n  │    typeRec\n  │     ↓\n  │    typeReceive\n  │     ↓\n  │    typeRequest\n  │     ↓\n  │    typeSelect\n  │     ↓\n  │    typeSend\n  └─────┘\n\nThese errors are very tricky, so read https://elm-lang.org/0.19.1/bad-recursion to learn how to fix it!';}
var $author$project$Parsing$newSession = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (_v0) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			function (_v1) {
				return A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (_v2) {
						return A2(
							$andre_dietrich$parser_combinators$Combine$andThen,
							function (aType) {
								return A2(
									$andre_dietrich$parser_combinators$Combine$andThen,
									function (_v3) {
										return $andre_dietrich$parser_combinators$Combine$succeed(
											$author$project$AbstractSyntax$Term_NewSession(aType));
									},
									$author$project$Parsing$token(
										$andre_dietrich$parser_combinators$Combine$string(']')));
							},
							$author$project$Parsing$typeExpr);
					},
					$author$project$Parsing$token(
						$andre_dietrich$parser_combinators$Combine$string('[')));
			},
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string('session')));
	},
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string('new')));
var $author$project$Parsing$typeAnnotation = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (_v0) {
		return $author$project$Parsing$typeExpr;
	},
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string(':')));
var $author$project$AbstractSyntax$Term_Unit = {$: 'Term_Unit'};
var $author$project$Parsing$unit = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (_v0) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			function (_v1) {
				return $andre_dietrich$parser_combinators$Combine$succeed($author$project$AbstractSyntax$Term_Unit);
			},
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string('}')));
	},
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string('{')));
var $author$project$AbstractSyntax$Term_Var = function (a) {
	return {$: 'Term_Var', a: a};
};
var $author$project$Parsing$var = A2($andre_dietrich$parser_combinators$Combine$map, $author$project$AbstractSyntax$Term_Var, $author$project$Parsing$identifier);
function $author$project$Parsing$cyclic$expression() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$chainl,
		$andre_dietrich$parser_combinators$Combine$succeed($author$project$AbstractSyntax$Term_Application),
		$author$project$Parsing$cyclic$atom());
}
function $author$project$Parsing$cyclic$atom() {
	return $andre_dietrich$parser_combinators$Combine$choice(
		_List_fromArray(
			[
				$author$project$Parsing$var,
				$author$project$Parsing$cyclic$linearLambda(),
				$author$project$Parsing$cyclic$unrestrictedLambda(),
				$author$project$Parsing$cyclic$pair(),
				$author$project$Parsing$cyclic$letPair(),
				$author$project$Parsing$unit,
				$author$project$Parsing$cyclic$letUnit(),
				$author$project$Parsing$cyclic$inl(),
				$author$project$Parsing$cyclic$inr(),
				$author$project$Parsing$cyclic$caseExpr(),
				$author$project$Parsing$cyclic$ofCourse(),
				$author$project$Parsing$cyclic$letOfCourse(),
				$author$project$Parsing$cyclic$send(),
				$author$project$Parsing$cyclic$receive(),
				$author$project$Parsing$cyclic$selectLeft(),
				$author$project$Parsing$cyclic$selectRight(),
				$author$project$Parsing$cyclic$branch(),
				$author$project$Parsing$cyclic$close(),
				$author$project$Parsing$cyclic$newAccess(),
				$author$project$Parsing$cyclic$accept(),
				$author$project$Parsing$cyclic$request(),
				$author$project$Parsing$newSession,
				$author$project$Parsing$cyclic$fork(),
				$author$project$Parsing$cyclic$spawn(),
				$author$project$Parsing$cyclic$fold(),
				$author$project$Parsing$cyclic$unfold(),
				$author$project$Parsing$cyclic$letLin(),
				$author$project$Parsing$cyclic$letUn(),
				$author$project$Parsing$cyclic$letRec(),
				$author$project$Parsing$cyclic$exprBetweenParens()
			]));
}
function $author$project$Parsing$cyclic$accept() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v80) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Term_Accept(e));
				},
				$author$project$Parsing$cyclic$atom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('accept')));
}
function $author$project$Parsing$cyclic$branch() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v73) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (_v74) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v75) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (id1) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (_v76) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (e1) {
															return A2(
																$andre_dietrich$parser_combinators$Combine$andThen,
																function (_v77) {
																	return A2(
																		$andre_dietrich$parser_combinators$Combine$andThen,
																		function (_v78) {
																			return A2(
																				$andre_dietrich$parser_combinators$Combine$andThen,
																				function (id2) {
																					return A2(
																						$andre_dietrich$parser_combinators$Combine$andThen,
																						function (_v79) {
																							return A2(
																								$andre_dietrich$parser_combinators$Combine$andThen,
																								function (e2) {
																									return $andre_dietrich$parser_combinators$Combine$succeed(
																										A5($author$project$AbstractSyntax$Term_Branch, e, id1, e1, id2, e2));
																								},
																								$author$project$Parsing$cyclic$expression());
																						},
																						$author$project$Parsing$token(
																							$andre_dietrich$parser_combinators$Combine$string('->')));
																				},
																				$author$project$Parsing$identifier);
																		},
																		$author$project$Parsing$token(
																			$andre_dietrich$parser_combinators$Combine$string('right')));
																},
																$author$project$Parsing$token(
																	$andre_dietrich$parser_combinators$Combine$string(';')));
														},
														$author$project$Parsing$cyclic$expression());
												},
												$author$project$Parsing$token(
													$andre_dietrich$parser_combinators$Combine$string('->')));
										},
										$author$project$Parsing$identifier);
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string('left')));
						},
						$author$project$Parsing$token(
							$andre_dietrich$parser_combinators$Combine$string('of')));
				},
				$author$project$Parsing$cyclic$expression());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('branch')));
}
function $author$project$Parsing$cyclic$caseExpr() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v66) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (_v67) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v68) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (id1) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (_v69) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (e1) {
															return A2(
																$andre_dietrich$parser_combinators$Combine$andThen,
																function (_v70) {
																	return A2(
																		$andre_dietrich$parser_combinators$Combine$andThen,
																		function (_v71) {
																			return A2(
																				$andre_dietrich$parser_combinators$Combine$andThen,
																				function (id2) {
																					return A2(
																						$andre_dietrich$parser_combinators$Combine$andThen,
																						function (_v72) {
																							return A2(
																								$andre_dietrich$parser_combinators$Combine$andThen,
																								function (e2) {
																									return $andre_dietrich$parser_combinators$Combine$succeed(
																										A5($author$project$AbstractSyntax$Term_Case, e, id1, e1, id2, e2));
																								},
																								$author$project$Parsing$cyclic$expression());
																						},
																						$author$project$Parsing$token(
																							$andre_dietrich$parser_combinators$Combine$string('->')));
																				},
																				$author$project$Parsing$identifier);
																		},
																		$author$project$Parsing$token(
																			$andre_dietrich$parser_combinators$Combine$string('inr')));
																},
																$author$project$Parsing$token(
																	$andre_dietrich$parser_combinators$Combine$string(';')));
														},
														$author$project$Parsing$cyclic$expression());
												},
												$author$project$Parsing$token(
													$andre_dietrich$parser_combinators$Combine$string('->')));
										},
										$author$project$Parsing$identifier);
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string('inl')));
						},
						$author$project$Parsing$token(
							$andre_dietrich$parser_combinators$Combine$string('of')));
				},
				$author$project$Parsing$cyclic$expression());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('case')));
}
function $author$project$Parsing$cyclic$close() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v65) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Term_Close(e));
				},
				$author$project$Parsing$cyclic$atom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('close')));
}
function $author$project$Parsing$cyclic$exprBetweenParens() {
	return A3(
		$andre_dietrich$parser_combinators$Combine$between,
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('(')),
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string(')')),
		$andre_dietrich$parser_combinators$Combine$lazy(
			function (_v64) {
				return $author$project$Parsing$cyclic$expression();
			}));
}
function $author$project$Parsing$cyclic$fold() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v61) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v62) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (aType) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v63) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (e) {
											return $andre_dietrich$parser_combinators$Combine$succeed(
												A2($author$project$AbstractSyntax$Term_Fold, aType, e));
										},
										$author$project$Parsing$cyclic$atom());
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string(']')));
						},
						$author$project$Parsing$typeExpr);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('[')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('fold')));
}
function $author$project$Parsing$cyclic$fork() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v60) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Term_Fork(e));
				},
				$author$project$Parsing$cyclic$atom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('fork')));
}
function $author$project$Parsing$cyclic$inl() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v57) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v58) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (aType) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v59) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (e) {
											return $andre_dietrich$parser_combinators$Combine$succeed(
												A2($author$project$AbstractSyntax$Term_Inl, aType, e));
										},
										$author$project$Parsing$cyclic$atom());
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string(']')));
						},
						$author$project$Parsing$typeExpr);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('[')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('inl')));
}
function $author$project$Parsing$cyclic$inr() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v54) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v55) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (aType) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v56) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (e) {
											return $andre_dietrich$parser_combinators$Combine$succeed(
												A2($author$project$AbstractSyntax$Term_Inr, aType, e));
										},
										$author$project$Parsing$cyclic$atom());
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string(']')));
						},
						$author$project$Parsing$typeExpr);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('[')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('inr')));
}
function $author$project$Parsing$cyclic$letLin() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v50) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v51) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (id) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (maybeType) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (_v52) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (e1) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (_v53) {
															return A2(
																$andre_dietrich$parser_combinators$Combine$andThen,
																function (e2) {
																	return $andre_dietrich$parser_combinators$Combine$succeed(
																		A4($author$project$AbstractSyntax$Term_LetLin, id, maybeType, e1, e2));
																},
																$author$project$Parsing$cyclic$expression());
														},
														$author$project$Parsing$token(
															$andre_dietrich$parser_combinators$Combine$string('in')));
												},
												$author$project$Parsing$cyclic$expression());
										},
										$author$project$Parsing$token(
											$andre_dietrich$parser_combinators$Combine$string('=')));
								},
								$andre_dietrich$parser_combinators$Combine$maybe($author$project$Parsing$typeAnnotation));
						},
						$author$project$Parsing$identifier);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('lin')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('let')));
}
function $author$project$Parsing$cyclic$letOfCourse() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v46) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v47) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (id) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v48) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (e1) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (_v49) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (e2) {
															return $andre_dietrich$parser_combinators$Combine$succeed(
																A3($author$project$AbstractSyntax$Term_LetOfCourse, id, e1, e2));
														},
														$author$project$Parsing$cyclic$expression());
												},
												$author$project$Parsing$token(
													$andre_dietrich$parser_combinators$Combine$string('in')));
										},
										$author$project$Parsing$cyclic$expression());
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string('=')));
						},
						$author$project$Parsing$identifier);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('@')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('let')));
}
function $author$project$Parsing$cyclic$letPair() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v40) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v41) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (id1) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v42) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (id2) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (_v43) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (_v44) {
															return A2(
																$andre_dietrich$parser_combinators$Combine$andThen,
																function (e1) {
																	return A2(
																		$andre_dietrich$parser_combinators$Combine$andThen,
																		function (_v45) {
																			return A2(
																				$andre_dietrich$parser_combinators$Combine$andThen,
																				function (e2) {
																					return $andre_dietrich$parser_combinators$Combine$succeed(
																						A4($author$project$AbstractSyntax$Term_LetPair, id1, id2, e1, e2));
																				},
																				$author$project$Parsing$cyclic$expression());
																		},
																		$author$project$Parsing$token(
																			$andre_dietrich$parser_combinators$Combine$string('in')));
																},
																$author$project$Parsing$cyclic$expression());
														},
														$author$project$Parsing$token(
															$andre_dietrich$parser_combinators$Combine$string('=')));
												},
												$author$project$Parsing$token(
													$andre_dietrich$parser_combinators$Combine$string('}')));
										},
										$author$project$Parsing$identifier);
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string(',')));
						},
						$author$project$Parsing$identifier);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('{')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('let')));
}
function $author$project$Parsing$cyclic$letRec() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v36) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v37) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (id) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (aType) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (_v38) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (e1) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (_v39) {
															return A2(
																$andre_dietrich$parser_combinators$Combine$andThen,
																function (e2) {
																	return $andre_dietrich$parser_combinators$Combine$succeed(
																		A4($author$project$AbstractSyntax$Term_LetRec, id, aType, e1, e2));
																},
																$author$project$Parsing$cyclic$expression());
														},
														$author$project$Parsing$token(
															$andre_dietrich$parser_combinators$Combine$string('in')));
												},
												$author$project$Parsing$cyclic$expression());
										},
										$author$project$Parsing$token(
											$andre_dietrich$parser_combinators$Combine$string('=')));
								},
								$author$project$Parsing$typeAnnotation);
						},
						$author$project$Parsing$identifier);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('rec')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('let')));
}
function $author$project$Parsing$cyclic$letUn() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v32) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v33) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (id) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (maybeType) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (_v34) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (e1) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (_v35) {
															return A2(
																$andre_dietrich$parser_combinators$Combine$andThen,
																function (e2) {
																	return $andre_dietrich$parser_combinators$Combine$succeed(
																		A4($author$project$AbstractSyntax$Term_LetUn, id, maybeType, e1, e2));
																},
																$author$project$Parsing$cyclic$expression());
														},
														$author$project$Parsing$token(
															$andre_dietrich$parser_combinators$Combine$string('in')));
												},
												$author$project$Parsing$cyclic$expression());
										},
										$author$project$Parsing$token(
											$andre_dietrich$parser_combinators$Combine$string('=')));
								},
								$andre_dietrich$parser_combinators$Combine$maybe($author$project$Parsing$typeAnnotation));
						},
						$author$project$Parsing$identifier);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('un')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('let')));
}
function $author$project$Parsing$cyclic$letUnit() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v27) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v28) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (_v29) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v30) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (e1) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (_v31) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (e2) {
															return $andre_dietrich$parser_combinators$Combine$succeed(
																A2($author$project$AbstractSyntax$Term_LetUnit, e1, e2));
														},
														$author$project$Parsing$cyclic$expression());
												},
												$author$project$Parsing$token(
													$andre_dietrich$parser_combinators$Combine$string('in')));
										},
										$author$project$Parsing$cyclic$expression());
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string('=')));
						},
						$author$project$Parsing$token(
							$andre_dietrich$parser_combinators$Combine$string('}')));
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('{')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('let')));
}
function $author$project$Parsing$cyclic$linearLambda() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v23) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v24) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (id) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v25) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (aType) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (_v26) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (exp) {
															return $andre_dietrich$parser_combinators$Combine$succeed(
																A3($author$project$AbstractSyntax$Term_LinearLambda, id, aType, exp));
														},
														$author$project$Parsing$cyclic$expression());
												},
												$author$project$Parsing$token(
													$andre_dietrich$parser_combinators$Combine$string('.')));
										},
										$author$project$Parsing$typeExpr);
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string(':')));
						},
						$author$project$Parsing$identifier);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('lin')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('\\')));
}
function $author$project$Parsing$cyclic$newAccess() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v17) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v18) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (_v19) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (aType) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (_v20) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (id1) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (_v21) {
															return A2(
																$andre_dietrich$parser_combinators$Combine$andThen,
																function (id2) {
																	return A2(
																		$andre_dietrich$parser_combinators$Combine$andThen,
																		function (_v22) {
																			return A2(
																				$andre_dietrich$parser_combinators$Combine$andThen,
																				function (e) {
																					return $andre_dietrich$parser_combinators$Combine$succeed(
																						A4($author$project$AbstractSyntax$Term_NewAccess, aType, id1, id2, e));
																				},
																				$author$project$Parsing$cyclic$expression());
																		},
																		$author$project$Parsing$token(
																			$andre_dietrich$parser_combinators$Combine$string('in')));
																},
																$author$project$Parsing$identifier);
														},
														$author$project$Parsing$token(
															$andre_dietrich$parser_combinators$Combine$string(',')));
												},
												$author$project$Parsing$identifier);
										},
										$author$project$Parsing$token(
											$andre_dietrich$parser_combinators$Combine$string(']')));
								},
								$author$project$Parsing$typeExpr);
						},
						$author$project$Parsing$token(
							$andre_dietrich$parser_combinators$Combine$string('[')));
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('access')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('new')));
}
function $author$project$Parsing$cyclic$ofCourse() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v16) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Term_OfCourse(e));
				},
				$author$project$Parsing$cyclic$atom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('@')));
}
function $author$project$Parsing$cyclic$pair() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v13) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e1) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (_v14) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (e2) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (_v15) {
											return $andre_dietrich$parser_combinators$Combine$succeed(
												A2($author$project$AbstractSyntax$Term_Pair, e1, e2));
										},
										$author$project$Parsing$token(
											$andre_dietrich$parser_combinators$Combine$string('}')));
								},
								$author$project$Parsing$cyclic$expression());
						},
						$author$project$Parsing$token(
							$andre_dietrich$parser_combinators$Combine$string(',')));
				},
				$author$project$Parsing$cyclic$expression());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('{')));
}
function $author$project$Parsing$cyclic$receive() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v12) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Term_Receive(e));
				},
				$author$project$Parsing$cyclic$atom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('receive')));
}
function $author$project$Parsing$cyclic$request() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v11) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Term_Request(e));
				},
				$author$project$Parsing$cyclic$atom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('request')));
}
function $author$project$Parsing$cyclic$selectLeft() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v9) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v10) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (e) {
							return $andre_dietrich$parser_combinators$Combine$succeed(
								$author$project$AbstractSyntax$Term_SelectLeft(e));
						},
						$author$project$Parsing$cyclic$atom());
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('left')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('select')));
}
function $author$project$Parsing$cyclic$selectRight() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v7) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v8) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (e) {
							return $andre_dietrich$parser_combinators$Combine$succeed(
								$author$project$AbstractSyntax$Term_SelectRight(e));
						},
						$author$project$Parsing$cyclic$atom());
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('right')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('select')));
}
function $author$project$Parsing$cyclic$send() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v6) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e1) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (e2) {
							return $andre_dietrich$parser_combinators$Combine$succeed(
								A2($author$project$AbstractSyntax$Term_Send, e1, e2));
						},
						$author$project$Parsing$cyclic$atom());
				},
				$author$project$Parsing$cyclic$atom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('send')));
}
function $author$project$Parsing$cyclic$spawn() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v5) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Term_Spawn(e));
				},
				$author$project$Parsing$cyclic$atom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('spawn')));
}
function $author$project$Parsing$cyclic$unfold() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v4) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (e) {
					return $andre_dietrich$parser_combinators$Combine$succeed(
						$author$project$AbstractSyntax$Term_Unfold(e));
				},
				$author$project$Parsing$cyclic$atom());
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('unfold')));
}
function $author$project$Parsing$cyclic$unrestrictedLambda() {
	return A2(
		$andre_dietrich$parser_combinators$Combine$andThen,
		function (_v0) {
			return A2(
				$andre_dietrich$parser_combinators$Combine$andThen,
				function (_v1) {
					return A2(
						$andre_dietrich$parser_combinators$Combine$andThen,
						function (id) {
							return A2(
								$andre_dietrich$parser_combinators$Combine$andThen,
								function (_v2) {
									return A2(
										$andre_dietrich$parser_combinators$Combine$andThen,
										function (aType) {
											return A2(
												$andre_dietrich$parser_combinators$Combine$andThen,
												function (_v3) {
													return A2(
														$andre_dietrich$parser_combinators$Combine$andThen,
														function (exp) {
															return $andre_dietrich$parser_combinators$Combine$succeed(
																A3($author$project$AbstractSyntax$Term_UnrestrictedLambda, id, aType, exp));
														},
														$author$project$Parsing$cyclic$expression());
												},
												$author$project$Parsing$token(
													$andre_dietrich$parser_combinators$Combine$string('.')));
										},
										$author$project$Parsing$typeExpr);
								},
								$author$project$Parsing$token(
									$andre_dietrich$parser_combinators$Combine$string(':')));
						},
						$author$project$Parsing$identifier);
				},
				$author$project$Parsing$token(
					$andre_dietrich$parser_combinators$Combine$string('un')));
		},
		$author$project$Parsing$token(
			$andre_dietrich$parser_combinators$Combine$string('\\')));
}
try {
	var $author$project$Parsing$expression = $author$project$Parsing$cyclic$expression();
	$author$project$Parsing$cyclic$expression = function () {
		return $author$project$Parsing$expression;
	};
	var $author$project$Parsing$atom = $author$project$Parsing$cyclic$atom();
	$author$project$Parsing$cyclic$atom = function () {
		return $author$project$Parsing$atom;
	};
	var $author$project$Parsing$accept = $author$project$Parsing$cyclic$accept();
	$author$project$Parsing$cyclic$accept = function () {
		return $author$project$Parsing$accept;
	};
	var $author$project$Parsing$branch = $author$project$Parsing$cyclic$branch();
	$author$project$Parsing$cyclic$branch = function () {
		return $author$project$Parsing$branch;
	};
	var $author$project$Parsing$caseExpr = $author$project$Parsing$cyclic$caseExpr();
	$author$project$Parsing$cyclic$caseExpr = function () {
		return $author$project$Parsing$caseExpr;
	};
	var $author$project$Parsing$close = $author$project$Parsing$cyclic$close();
	$author$project$Parsing$cyclic$close = function () {
		return $author$project$Parsing$close;
	};
	var $author$project$Parsing$exprBetweenParens = $author$project$Parsing$cyclic$exprBetweenParens();
	$author$project$Parsing$cyclic$exprBetweenParens = function () {
		return $author$project$Parsing$exprBetweenParens;
	};
	var $author$project$Parsing$fold = $author$project$Parsing$cyclic$fold();
	$author$project$Parsing$cyclic$fold = function () {
		return $author$project$Parsing$fold;
	};
	var $author$project$Parsing$fork = $author$project$Parsing$cyclic$fork();
	$author$project$Parsing$cyclic$fork = function () {
		return $author$project$Parsing$fork;
	};
	var $author$project$Parsing$inl = $author$project$Parsing$cyclic$inl();
	$author$project$Parsing$cyclic$inl = function () {
		return $author$project$Parsing$inl;
	};
	var $author$project$Parsing$inr = $author$project$Parsing$cyclic$inr();
	$author$project$Parsing$cyclic$inr = function () {
		return $author$project$Parsing$inr;
	};
	var $author$project$Parsing$letLin = $author$project$Parsing$cyclic$letLin();
	$author$project$Parsing$cyclic$letLin = function () {
		return $author$project$Parsing$letLin;
	};
	var $author$project$Parsing$letOfCourse = $author$project$Parsing$cyclic$letOfCourse();
	$author$project$Parsing$cyclic$letOfCourse = function () {
		return $author$project$Parsing$letOfCourse;
	};
	var $author$project$Parsing$letPair = $author$project$Parsing$cyclic$letPair();
	$author$project$Parsing$cyclic$letPair = function () {
		return $author$project$Parsing$letPair;
	};
	var $author$project$Parsing$letRec = $author$project$Parsing$cyclic$letRec();
	$author$project$Parsing$cyclic$letRec = function () {
		return $author$project$Parsing$letRec;
	};
	var $author$project$Parsing$letUn = $author$project$Parsing$cyclic$letUn();
	$author$project$Parsing$cyclic$letUn = function () {
		return $author$project$Parsing$letUn;
	};
	var $author$project$Parsing$letUnit = $author$project$Parsing$cyclic$letUnit();
	$author$project$Parsing$cyclic$letUnit = function () {
		return $author$project$Parsing$letUnit;
	};
	var $author$project$Parsing$linearLambda = $author$project$Parsing$cyclic$linearLambda();
	$author$project$Parsing$cyclic$linearLambda = function () {
		return $author$project$Parsing$linearLambda;
	};
	var $author$project$Parsing$newAccess = $author$project$Parsing$cyclic$newAccess();
	$author$project$Parsing$cyclic$newAccess = function () {
		return $author$project$Parsing$newAccess;
	};
	var $author$project$Parsing$ofCourse = $author$project$Parsing$cyclic$ofCourse();
	$author$project$Parsing$cyclic$ofCourse = function () {
		return $author$project$Parsing$ofCourse;
	};
	var $author$project$Parsing$pair = $author$project$Parsing$cyclic$pair();
	$author$project$Parsing$cyclic$pair = function () {
		return $author$project$Parsing$pair;
	};
	var $author$project$Parsing$receive = $author$project$Parsing$cyclic$receive();
	$author$project$Parsing$cyclic$receive = function () {
		return $author$project$Parsing$receive;
	};
	var $author$project$Parsing$request = $author$project$Parsing$cyclic$request();
	$author$project$Parsing$cyclic$request = function () {
		return $author$project$Parsing$request;
	};
	var $author$project$Parsing$selectLeft = $author$project$Parsing$cyclic$selectLeft();
	$author$project$Parsing$cyclic$selectLeft = function () {
		return $author$project$Parsing$selectLeft;
	};
	var $author$project$Parsing$selectRight = $author$project$Parsing$cyclic$selectRight();
	$author$project$Parsing$cyclic$selectRight = function () {
		return $author$project$Parsing$selectRight;
	};
	var $author$project$Parsing$send = $author$project$Parsing$cyclic$send();
	$author$project$Parsing$cyclic$send = function () {
		return $author$project$Parsing$send;
	};
	var $author$project$Parsing$spawn = $author$project$Parsing$cyclic$spawn();
	$author$project$Parsing$cyclic$spawn = function () {
		return $author$project$Parsing$spawn;
	};
	var $author$project$Parsing$unfold = $author$project$Parsing$cyclic$unfold();
	$author$project$Parsing$cyclic$unfold = function () {
		return $author$project$Parsing$unfold;
	};
	var $author$project$Parsing$unrestrictedLambda = $author$project$Parsing$cyclic$unrestrictedLambda();
	$author$project$Parsing$cyclic$unrestrictedLambda = function () {
		return $author$project$Parsing$unrestrictedLambda;
	};
} catch ($) {
	throw 'Some top-level definitions from `Parsing` are causing infinite recursion:\n\n  ┌─────┐\n  │    expression\n  │     ↓\n  │    atom\n  │     ↓\n  │    accept\n  │     ↓\n  │    branch\n  │     ↓\n  │    caseExpr\n  │     ↓\n  │    close\n  │     ↓\n  │    exprBetweenParens\n  │     ↓\n  │    fold\n  │     ↓\n  │    fork\n  │     ↓\n  │    inl\n  │     ↓\n  │    inr\n  │     ↓\n  │    letLin\n  │     ↓\n  │    letOfCourse\n  │     ↓\n  │    letPair\n  │     ↓\n  │    letRec\n  │     ↓\n  │    letUn\n  │     ↓\n  │    letUnit\n  │     ↓\n  │    linearLambda\n  │     ↓\n  │    newAccess\n  │     ↓\n  │    ofCourse\n  │     ↓\n  │    pair\n  │     ↓\n  │    receive\n  │     ↓\n  │    request\n  │     ↓\n  │    selectLeft\n  │     ↓\n  │    selectRight\n  │     ↓\n  │    send\n  │     ↓\n  │    spawn\n  │     ↓\n  │    unfold\n  │     ↓\n  │    unrestrictedLambda\n  └─────┘\n\nThese errors are very tricky, so read https://elm-lang.org/0.19.1/bad-recursion to learn how to fix it!';}
var $andre_dietrich$parser_combinators$Combine$optional = F2(
	function (res, p) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$or,
			p,
			$andre_dietrich$parser_combinators$Combine$succeed(res));
	});
var $andre_dietrich$parser_combinators$Combine$sepBy1 = F2(
	function (sep, p) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andMap,
			$andre_dietrich$parser_combinators$Combine$many(
				A2($andre_dietrich$parser_combinators$Combine$keep, p, sep)),
			A2($andre_dietrich$parser_combinators$Combine$map, $elm$core$List$cons, p));
	});
var $andre_dietrich$parser_combinators$Combine$sepEndBy1 = F2(
	function (sep, p) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$ignore,
			$andre_dietrich$parser_combinators$Combine$maybe(sep),
			A2($andre_dietrich$parser_combinators$Combine$sepBy1, sep, p));
	});
var $andre_dietrich$parser_combinators$Combine$sepEndBy = F2(
	function (sep, p) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$or,
			A2($andre_dietrich$parser_combinators$Combine$sepEndBy1, sep, p),
			$andre_dietrich$parser_combinators$Combine$succeed(_List_Nil));
	});
var $author$project$Parsing$typeDefinition = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (id) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			function (_v0) {
				return A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (aType) {
						return $andre_dietrich$parser_combinators$Combine$succeed(
							_Utils_Tuple2(id, aType));
					},
					$author$project$Parsing$typeExpr);
			},
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string('=')));
	},
	$author$project$Parsing$identifier);
var $author$project$Parsing$typedefsList = A2(
	$andre_dietrich$parser_combinators$Combine$sepEndBy,
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string(';')),
	$author$project$Parsing$typeDefinition);
var $author$project$Parsing$typedefsClause = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (_v0) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			function (typedefs) {
				return A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (_v1) {
						return $andre_dietrich$parser_combinators$Combine$succeed(typedefs);
					},
					$author$project$Parsing$token(
						$andre_dietrich$parser_combinators$Combine$string('end')));
			},
			$author$project$Parsing$typedefsList);
	},
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string('typedefs')));
var $author$project$Parsing$typevarDeclaration = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (id) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			function (_v0) {
				return A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (kind) {
						return $andre_dietrich$parser_combinators$Combine$succeed(
							_Utils_Tuple2(id, kind));
					},
					$author$project$Parsing$kindExpr);
			},
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string(':')));
	},
	$author$project$Parsing$identifier);
var $author$project$Parsing$typevarsList = A2(
	$andre_dietrich$parser_combinators$Combine$sepEndBy,
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string(';')),
	$author$project$Parsing$typevarDeclaration);
var $author$project$Parsing$typevarsClause = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (_v0) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			function (typevars) {
				return A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (_v1) {
						return $andre_dietrich$parser_combinators$Combine$succeed(typevars);
					},
					$author$project$Parsing$token(
						$andre_dietrich$parser_combinators$Combine$string('end')));
			},
			$author$project$Parsing$typevarsList);
	},
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string('typevars')));
var $author$project$AbstractSyntax$Lin = {$: 'Lin'};
var $author$project$AbstractSyntax$Un = {$: 'Un'};
var $author$project$Parsing$multiplicityTag = $andre_dietrich$parser_combinators$Combine$choice(
	_List_fromArray(
		[
			A2(
			$andre_dietrich$parser_combinators$Combine$onsuccess,
			$author$project$AbstractSyntax$Lin,
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string('lin'))),
			A2(
			$andre_dietrich$parser_combinators$Combine$onsuccess,
			$author$project$AbstractSyntax$Un,
			$author$project$Parsing$token(
				$andre_dietrich$parser_combinators$Combine$string('un')))
		]));
var $author$project$Parsing$varDeclaration = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (mult) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			function (id) {
				return A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (_v0) {
						return A2(
							$andre_dietrich$parser_combinators$Combine$andThen,
							function (aType) {
								return $andre_dietrich$parser_combinators$Combine$succeed(
									_Utils_Tuple2(
										id,
										_Utils_Tuple2(mult, aType)));
							},
							$author$project$Parsing$typeExpr);
					},
					$author$project$Parsing$token(
						$andre_dietrich$parser_combinators$Combine$string(':')));
			},
			$author$project$Parsing$identifier);
	},
	$author$project$Parsing$multiplicityTag);
var $author$project$Parsing$varsList = A2(
	$andre_dietrich$parser_combinators$Combine$sepEndBy,
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string(';')),
	$author$project$Parsing$varDeclaration);
var $author$project$Parsing$varsClause = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (_v0) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			function (context) {
				return A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (_v1) {
						return $andre_dietrich$parser_combinators$Combine$succeed(context);
					},
					$author$project$Parsing$token(
						$andre_dietrich$parser_combinators$Combine$string('end')));
			},
			$author$project$Parsing$varsList);
	},
	$author$project$Parsing$token(
		$andre_dietrich$parser_combinators$Combine$string('vars')));
var $author$project$Parsing$programParser = A2(
	$andre_dietrich$parser_combinators$Combine$andThen,
	function (typevars) {
		return A2(
			$andre_dietrich$parser_combinators$Combine$andThen,
			function (typedefs) {
				return A2(
					$andre_dietrich$parser_combinators$Combine$andThen,
					function (vars) {
						return A2(
							$andre_dietrich$parser_combinators$Combine$andThen,
							function (mainTerm) {
								return A2(
									$andre_dietrich$parser_combinators$Combine$andThen,
									function (_v0) {
										return A2(
											$andre_dietrich$parser_combinators$Combine$andThen,
											function (_v1) {
												return $andre_dietrich$parser_combinators$Combine$succeed(
													{mainTerm: mainTerm, typedefs: typedefs, typevars: typevars, vars: vars});
											},
											$andre_dietrich$parser_combinators$Combine$end);
									},
									$author$project$Parsing$whitespaceOrComments);
							},
							$author$project$Parsing$expression);
					},
					A2($andre_dietrich$parser_combinators$Combine$optional, _List_Nil, $author$project$Parsing$varsClause));
			},
			A2($andre_dietrich$parser_combinators$Combine$optional, _List_Nil, $author$project$Parsing$typedefsClause));
	},
	A2($andre_dietrich$parser_combinators$Combine$optional, _List_Nil, $author$project$Parsing$typevarsClause));
var $author$project$Parsing$parseProgram = function (input) {
	var _v0 = A2($andre_dietrich$parser_combinators$Combine$parse, $author$project$Parsing$programParser, input);
	if (_v0.$ === 'Ok') {
		var _v1 = _v0.a;
		var program = _v1.c;
		return $elm$core$Result$Ok(program);
	} else {
		var _v2 = _v0.a;
		var errors = _v2.c;
		return $elm$core$Result$Err(errors);
	}
};
var $author$project$Evaluation$Error = {$: 'Error'};
var $author$project$Evaluation$Finished = {$: 'Finished'};
var $author$project$Evaluation$Lock = {$: 'Lock'};
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$random$Random$Generator = function (a) {
	return {$: 'Generator', a: a};
};
var $elm$random$Random$constant = function (value) {
	return $elm$random$Random$Generator(
		function (seed) {
			return _Utils_Tuple2(value, seed);
		});
};
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_community$random_extra$Random$List$get = F2(
	function (index, list) {
		return $elm$core$List$head(
			A2($elm$core$List$drop, index, list));
	});
var $elm$core$Bitwise$and = _Bitwise_and;
var $elm$core$Basics$negate = function (n) {
	return -n;
};
var $elm$core$Bitwise$xor = _Bitwise_xor;
var $elm$random$Random$peel = function (_v0) {
	var state = _v0.a;
	var word = (state ^ (state >>> ((state >>> 28) + 4))) * 277803737;
	return ((word >>> 22) ^ word) >>> 0;
};
var $elm$random$Random$int = F2(
	function (a, b) {
		return $elm$random$Random$Generator(
			function (seed0) {
				var _v0 = (_Utils_cmp(a, b) < 0) ? _Utils_Tuple2(a, b) : _Utils_Tuple2(b, a);
				var lo = _v0.a;
				var hi = _v0.b;
				var range = (hi - lo) + 1;
				if (!((range - 1) & range)) {
					return _Utils_Tuple2(
						(((range - 1) & $elm$random$Random$peel(seed0)) >>> 0) + lo,
						$elm$random$Random$next(seed0));
				} else {
					var threshhold = (((-range) >>> 0) % range) >>> 0;
					var accountForBias = function (seed) {
						accountForBias:
						while (true) {
							var x = $elm$random$Random$peel(seed);
							var seedN = $elm$random$Random$next(seed);
							if (_Utils_cmp(x, threshhold) < 0) {
								var $temp$seed = seedN;
								seed = $temp$seed;
								continue accountForBias;
							} else {
								return _Utils_Tuple2((x % range) + lo, seedN);
							}
						}
					};
					return accountForBias(seed0);
				}
			});
	});
var $elm$core$List$isEmpty = function (xs) {
	if (!xs.b) {
		return true;
	} else {
		return false;
	}
};
var $elm$random$Random$map = F2(
	function (func, _v0) {
		var genA = _v0.a;
		return $elm$random$Random$Generator(
			function (seed0) {
				var _v1 = genA(seed0);
				var a = _v1.a;
				var seed1 = _v1.b;
				return _Utils_Tuple2(
					func(a),
					seed1);
			});
	});
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 _v0 = _Utils_Tuple2(n, list);
			_v0$1:
			while (true) {
				_v0$5:
				while (true) {
					if (!_v0.b.b) {
						return list;
					} else {
						if (_v0.b.b.b) {
							switch (_v0.a) {
								case 1:
									break _v0$1;
								case 2:
									var _v2 = _v0.b;
									var x = _v2.a;
									var _v3 = _v2.b;
									var y = _v3.a;
									return _List_fromArray(
										[x, y]);
								case 3:
									if (_v0.b.b.b.b) {
										var _v4 = _v0.b;
										var x = _v4.a;
										var _v5 = _v4.b;
										var y = _v5.a;
										var _v6 = _v5.b;
										var z = _v6.a;
										return _List_fromArray(
											[x, y, z]);
									} else {
										break _v0$5;
									}
								default:
									if (_v0.b.b.b.b && _v0.b.b.b.b.b) {
										var _v7 = _v0.b;
										var x = _v7.a;
										var _v8 = _v7.b;
										var y = _v8.a;
										var _v9 = _v8.b;
										var z = _v9.a;
										var _v10 = _v9.b;
										var w = _v10.a;
										var tl = _v10.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 _v0$5;
									}
							}
						} else {
							if (_v0.a === 1) {
								break _v0$1;
							} else {
								break _v0$5;
							}
						}
					}
				}
				return list;
			}
			var _v1 = _v0.b;
			var x = _v1.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_community$random_extra$Random$List$choose = function (list) {
	if ($elm$core$List$isEmpty(list)) {
		return $elm$random$Random$constant(
			_Utils_Tuple2($elm$core$Maybe$Nothing, list));
	} else {
		var lastIndex = $elm$core$List$length(list) - 1;
		var gen = A2($elm$random$Random$int, 0, lastIndex);
		var front = function (i) {
			return A2($elm$core$List$take, i, list);
		};
		var back = function (i) {
			return A2($elm$core$List$drop, i + 1, list);
		};
		return A2(
			$elm$random$Random$map,
			function (index) {
				return _Utils_Tuple2(
					A2($elm_community$random_extra$Random$List$get, index, list),
					A2(
						$elm$core$List$append,
						front(index),
						back(index)));
			},
			gen);
	}
};
var $elm$core$Basics$composeL = F3(
	function (g, f, x) {
		return g(
			f(x));
	});
var $elm$core$Basics$not = _Basics_not;
var $elm$core$List$all = F2(
	function (isOkay, list) {
		return !A2(
			$elm$core$List$any,
			A2($elm$core$Basics$composeL, $elm$core$Basics$not, isOkay),
			list);
	});
var $author$project$Evaluation$noThreadsAreBlocked = function (channels) {
	return A2(
		$elm$core$List$all,
		function (_v0) {
			var queue = _v0.b;
			return $elm$core$List$isEmpty(queue);
		},
		channels);
};
var $author$project$Evaluation$Child = {$: 'Child'};
var $author$project$Evaluation$ClosureEntry = F2(
	function (a, b) {
		return {$: 'ClosureEntry', a: a, b: b};
	});
var $author$project$Evaluation$FocusedThread = F3(
	function (a, b, c) {
		return {$: 'FocusedThread', a: a, b: b, c: c};
	});
var $author$project$Evaluation$Pot_Accept = function (a) {
	return {$: 'Pot_Accept', a: a};
};
var $author$project$Evaluation$Pot_Branch = F6(
	function (a, b, c, d, e, f) {
		return {$: 'Pot_Branch', a: a, b: b, c: c, d: d, e: e, f: f};
	});
var $author$project$Evaluation$Pot_Close = function (a) {
	return {$: 'Pot_Close', a: a};
};
var $author$project$Evaluation$Pot_Receive = function (a) {
	return {$: 'Pot_Receive', a: a};
};
var $author$project$Evaluation$Pot_Request = function (a) {
	return {$: 'Pot_Request', a: a};
};
var $author$project$Evaluation$Pot_SelectLeft = function (a) {
	return {$: 'Pot_SelectLeft', a: a};
};
var $author$project$Evaluation$Pot_SelectRight = function (a) {
	return {$: 'Pot_SelectRight', a: a};
};
var $author$project$Evaluation$Pot_Send = F2(
	function (a, b) {
		return {$: 'Pot_Send', a: a, b: b};
	});
var $author$project$Evaluation$ValueEntry = function (a) {
	return {$: 'ValueEntry', a: a};
};
var $author$project$Evaluation$Value_ChannelName = function (a) {
	return {$: 'Value_ChannelName', a: a};
};
var $author$project$Evaluation$Value_Pair = F2(
	function (a, b) {
		return {$: 'Value_Pair', a: a, b: b};
	});
var $author$project$Evaluation$Value_Unit = {$: 'Value_Unit'};
var $author$project$Utils$delete = F2(
	function (searchKey, list) {
		if (!list.b) {
			return _List_Nil;
		} else {
			var _v1 = list.a;
			var key = _v1.a;
			var value = _v1.b;
			var xs = list.b;
			return _Utils_eq(key, searchKey) ? xs : A2(
				$elm$core$List$cons,
				_Utils_Tuple2(key, value),
				A2($author$project$Utils$delete, searchKey, xs));
		}
	});
var $author$project$Utils$lookup = F2(
	function (searchKey, list) {
		lookup:
		while (true) {
			if (!list.b) {
				return $elm$core$Maybe$Nothing;
			} else {
				var _v1 = list.a;
				var key = _v1.a;
				var value = _v1.b;
				var xs = list.b;
				if (_Utils_eq(key, searchKey)) {
					return $elm$core$Maybe$Just(value);
				} else {
					var $temp$searchKey = searchKey,
						$temp$list = xs;
					searchKey = $temp$searchKey;
					list = $temp$list;
					continue lookup;
				}
			}
		}
	});
var $author$project$Evaluation$EC_Accept = function (a) {
	return {$: 'EC_Accept', a: a};
};
var $author$project$Evaluation$EC_App_Left = F3(
	function (a, b, c) {
		return {$: 'EC_App_Left', a: a, b: b, c: c};
	});
var $author$project$Evaluation$EC_Branch = F6(
	function (a, b, c, d, e, f) {
		return {$: 'EC_Branch', a: a, b: b, c: c, d: d, e: e, f: f};
	});
var $author$project$Evaluation$EC_Case = F6(
	function (a, b, c, d, e, f) {
		return {$: 'EC_Case', a: a, b: b, c: c, d: d, e: e, f: f};
	});
var $author$project$Evaluation$EC_Close = function (a) {
	return {$: 'EC_Close', a: a};
};
var $author$project$Evaluation$EC_Fold = function (a) {
	return {$: 'EC_Fold', a: a};
};
var $author$project$Evaluation$EC_Fork = function (a) {
	return {$: 'EC_Fork', a: a};
};
var $author$project$Evaluation$EC_Inl = function (a) {
	return {$: 'EC_Inl', a: a};
};
var $author$project$Evaluation$EC_Inr = function (a) {
	return {$: 'EC_Inr', a: a};
};
var $author$project$Evaluation$EC_LetLin = F4(
	function (a, b, c, d) {
		return {$: 'EC_LetLin', a: a, b: b, c: c, d: d};
	});
var $author$project$Evaluation$EC_LetOfCourse = F4(
	function (a, b, c, d) {
		return {$: 'EC_LetOfCourse', a: a, b: b, c: c, d: d};
	});
var $author$project$Evaluation$EC_LetPair = F5(
	function (a, b, c, d, e) {
		return {$: 'EC_LetPair', a: a, b: b, c: c, d: d, e: e};
	});
var $author$project$Evaluation$EC_LetUnit = F3(
	function (a, b, c) {
		return {$: 'EC_LetUnit', a: a, b: b, c: c};
	});
var $author$project$Evaluation$EC_LinApp_Right = F2(
	function (a, b) {
		return {$: 'EC_LinApp_Right', a: a, b: b};
	});
var $author$project$Evaluation$EC_Pair_Left = F3(
	function (a, b, c) {
		return {$: 'EC_Pair_Left', a: a, b: b, c: c};
	});
var $author$project$Evaluation$EC_Pair_Right = F2(
	function (a, b) {
		return {$: 'EC_Pair_Right', a: a, b: b};
	});
var $author$project$Evaluation$EC_Receive = function (a) {
	return {$: 'EC_Receive', a: a};
};
var $author$project$Evaluation$EC_Request = function (a) {
	return {$: 'EC_Request', a: a};
};
var $author$project$Evaluation$EC_SelectLeft = function (a) {
	return {$: 'EC_SelectLeft', a: a};
};
var $author$project$Evaluation$EC_SelectRight = function (a) {
	return {$: 'EC_SelectRight', a: a};
};
var $author$project$Evaluation$EC_Send_Left = F3(
	function (a, b, c) {
		return {$: 'EC_Send_Left', a: a, b: b, c: c};
	});
var $author$project$Evaluation$EC_Send_Right = F2(
	function (a, b) {
		return {$: 'EC_Send_Right', a: a, b: b};
	});
var $author$project$Evaluation$EC_Unfold = function (a) {
	return {$: 'EC_Unfold', a: a};
};
var $author$project$Evaluation$Focus = F2(
	function (a, b) {
		return {$: 'Focus', a: a, b: b};
	});
var $author$project$Evaluation$Pot_Case = F6(
	function (a, b, c, d, e, f) {
		return {$: 'Pot_Case', a: a, b: b, c: c, d: d, e: e, f: f};
	});
var $author$project$Evaluation$Pot_Fork = function (a) {
	return {$: 'Pot_Fork', a: a};
};
var $author$project$Evaluation$Pot_LetLin = F4(
	function (a, b, c, d) {
		return {$: 'Pot_LetLin', a: a, b: b, c: c, d: d};
	});
var $author$project$Evaluation$Pot_LetOfCourse = F4(
	function (a, b, c, d) {
		return {$: 'Pot_LetOfCourse', a: a, b: b, c: c, d: d};
	});
var $author$project$Evaluation$Pot_LetPair = F5(
	function (a, b, c, d, e) {
		return {$: 'Pot_LetPair', a: a, b: b, c: c, d: d, e: e};
	});
var $author$project$Evaluation$Pot_LetRec = F4(
	function (a, b, c, d) {
		return {$: 'Pot_LetRec', a: a, b: b, c: c, d: d};
	});
var $author$project$Evaluation$Pot_LetUn = F4(
	function (a, b, c, d) {
		return {$: 'Pot_LetUn', a: a, b: b, c: c, d: d};
	});
var $author$project$Evaluation$Pot_LetUnit = F3(
	function (a, b, c) {
		return {$: 'Pot_LetUnit', a: a, b: b, c: c};
	});
var $author$project$Evaluation$Pot_LinApp = F2(
	function (a, b) {
		return {$: 'Pot_LinApp', a: a, b: b};
	});
var $author$project$Evaluation$Pot_NewAccess = F4(
	function (a, b, c, d) {
		return {$: 'Pot_NewAccess', a: a, b: b, c: c, d: d};
	});
var $author$project$Evaluation$Pot_NewSession = {$: 'Pot_NewSession'};
var $author$project$Evaluation$Pot_Spawn = F2(
	function (a, b) {
		return {$: 'Pot_Spawn', a: a, b: b};
	});
var $author$project$Evaluation$Pot_UnApp = F3(
	function (a, b, c) {
		return {$: 'Pot_UnApp', a: a, b: b, c: c};
	});
var $author$project$Evaluation$Pot_Unfold = function (a) {
	return {$: 'Pot_Unfold', a: a};
};
var $author$project$Evaluation$Pot_Var = function (a) {
	return {$: 'Pot_Var', a: a};
};
var $author$project$Evaluation$Val = function (a) {
	return {$: 'Val', a: a};
};
var $author$project$Evaluation$Value_Fold = function (a) {
	return {$: 'Value_Fold', a: a};
};
var $author$project$Evaluation$Value_Inl = function (a) {
	return {$: 'Value_Inl', a: a};
};
var $author$project$Evaluation$Value_Inr = function (a) {
	return {$: 'Value_Inr', a: a};
};
var $author$project$Evaluation$Value_LinearFn = F3(
	function (a, b, c) {
		return {$: 'Value_LinearFn', a: a, b: b, c: c};
	});
var $author$project$Evaluation$Value_OfCourse = F2(
	function (a, b) {
		return {$: 'Value_OfCourse', a: a, b: b};
	});
var $author$project$Evaluation$Value_UnrestrictedFn = F3(
	function (a, b, c) {
		return {$: 'Value_UnrestrictedFn', a: a, b: b, c: c};
	});
var $author$project$Evaluation$refocus = F3(
	function (term, env, ec) {
		refocus:
		while (true) {
			switch (term.$) {
				case 'Term_Var':
					var id = term.a;
					var _v3 = A2($author$project$Utils$lookup, id, env);
					if (_v3.$ === 'Just') {
						if (_v3.a.$ === 'ValueEntry') {
							var v = _v3.a.a;
							return A2($author$project$Evaluation$refocusAux, ec, v);
						} else {
							var _v4 = _v3.a;
							var e = _v4.a;
							var env1 = _v4.b;
							var $temp$term = e,
								$temp$env = env1,
								$temp$ec = ec;
							term = $temp$term;
							env = $temp$env;
							ec = $temp$ec;
							continue refocus;
						}
					} else {
						return A2(
							$author$project$Evaluation$Focus,
							ec,
							$author$project$Evaluation$Pot_Var(id));
					}
				case 'Term_LinearLambda':
					var id = term.a;
					var e = term.c;
					return A2(
						$author$project$Evaluation$refocusAux,
						ec,
						A3($author$project$Evaluation$Value_LinearFn, id, e, env));
				case 'Term_UnrestrictedLambda':
					var id = term.a;
					var e = term.c;
					return A2(
						$author$project$Evaluation$refocusAux,
						ec,
						A3($author$project$Evaluation$Value_UnrestrictedFn, id, e, env));
				case 'Term_Application':
					var e1 = term.a;
					var e2 = term.b;
					var $temp$term = e1,
						$temp$env = env,
						$temp$ec = A3($author$project$Evaluation$EC_App_Left, e2, env, ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Pair':
					var e1 = term.a;
					var e2 = term.b;
					var $temp$term = e1,
						$temp$env = env,
						$temp$ec = A3($author$project$Evaluation$EC_Pair_Left, e2, env, ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_LetPair':
					var id1 = term.a;
					var id2 = term.b;
					var e1 = term.c;
					var e2 = term.d;
					var $temp$term = e1,
						$temp$env = env,
						$temp$ec = A5($author$project$Evaluation$EC_LetPair, id1, id2, e2, env, ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Unit':
					return A2($author$project$Evaluation$refocusAux, ec, $author$project$Evaluation$Value_Unit);
				case 'Term_LetUnit':
					var e1 = term.a;
					var e2 = term.b;
					var $temp$term = e1,
						$temp$env = env,
						$temp$ec = A3($author$project$Evaluation$EC_LetUnit, e2, env, ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Inl':
					var e = term.b;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_Inl(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Inr':
					var e = term.b;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_Inr(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Case':
					var e = term.a;
					var id1 = term.b;
					var e1 = term.c;
					var id2 = term.d;
					var e2 = term.e;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = A6($author$project$Evaluation$EC_Case, id1, e1, id2, e2, env, ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_OfCourse':
					var e = term.a;
					return A2(
						$author$project$Evaluation$refocusAux,
						ec,
						A2($author$project$Evaluation$Value_OfCourse, e, env));
				case 'Term_LetOfCourse':
					var id = term.a;
					var e1 = term.b;
					var e2 = term.c;
					var $temp$term = e1,
						$temp$env = env,
						$temp$ec = A4($author$project$Evaluation$EC_LetOfCourse, id, e2, env, ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Send':
					var e1 = term.a;
					var e2 = term.b;
					var $temp$term = e1,
						$temp$env = env,
						$temp$ec = A3($author$project$Evaluation$EC_Send_Left, e2, env, ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Receive':
					var e = term.a;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_Receive(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_SelectLeft':
					var e = term.a;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_SelectLeft(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_SelectRight':
					var e = term.a;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_SelectRight(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Branch':
					var e = term.a;
					var id1 = term.b;
					var e1 = term.c;
					var id2 = term.d;
					var e2 = term.e;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = A6($author$project$Evaluation$EC_Branch, id1, e1, id2, e2, env, ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Close':
					var e = term.a;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_Close(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_NewAccess':
					var id1 = term.b;
					var id2 = term.c;
					var e = term.d;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A4($author$project$Evaluation$Pot_NewAccess, id1, id2, e, env));
				case 'Term_Accept':
					var e = term.a;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_Accept(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Request':
					var e = term.a;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_Request(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_NewSession':
					return A2($author$project$Evaluation$Focus, ec, $author$project$Evaluation$Pot_NewSession);
				case 'Term_Fork':
					var e = term.a;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_Fork(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Spawn':
					var e = term.a;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A2($author$project$Evaluation$Pot_Spawn, e, env));
				case 'Term_Fold':
					var e = term.b;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_Fold(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_Unfold':
					var e = term.a;
					var $temp$term = e,
						$temp$env = env,
						$temp$ec = $author$project$Evaluation$EC_Unfold(ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_LetLin':
					var id = term.a;
					var e1 = term.c;
					var e2 = term.d;
					var $temp$term = e1,
						$temp$env = env,
						$temp$ec = A4($author$project$Evaluation$EC_LetLin, id, e2, env, ec);
					term = $temp$term;
					env = $temp$env;
					ec = $temp$ec;
					continue refocus;
				case 'Term_LetUn':
					var id = term.a;
					var e1 = term.c;
					var e2 = term.d;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A4($author$project$Evaluation$Pot_LetUn, id, e1, e2, env));
				default:
					var id = term.a;
					var e1 = term.c;
					var e2 = term.d;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A4($author$project$Evaluation$Pot_LetRec, id, e1, e2, env));
			}
		}
	});
var $author$project$Evaluation$refocusAux = F2(
	function (evalCtx, v) {
		refocusAux:
		while (true) {
			switch (evalCtx.$) {
				case 'EC_Empty':
					return $author$project$Evaluation$Val(v);
				case 'EC_App_Left':
					var e2 = evalCtx.a;
					var env = evalCtx.b;
					var ec = evalCtx.c;
					if (v.$ === 'Value_LinearFn') {
						return A3(
							$author$project$Evaluation$refocus,
							e2,
							env,
							A2($author$project$Evaluation$EC_LinApp_Right, v, ec));
					} else {
						return A2(
							$author$project$Evaluation$Focus,
							ec,
							A3($author$project$Evaluation$Pot_UnApp, v, e2, env));
					}
				case 'EC_LinApp_Right':
					var v1 = evalCtx.a;
					var ec = evalCtx.b;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A2($author$project$Evaluation$Pot_LinApp, v1, v));
				case 'EC_Pair_Left':
					var e2 = evalCtx.a;
					var env = evalCtx.b;
					var ec = evalCtx.c;
					return A3(
						$author$project$Evaluation$refocus,
						e2,
						env,
						A2($author$project$Evaluation$EC_Pair_Right, v, ec));
				case 'EC_Pair_Right':
					var v1 = evalCtx.a;
					var ec = evalCtx.b;
					var $temp$evalCtx = ec,
						$temp$v = A2($author$project$Evaluation$Value_Pair, v1, v);
					evalCtx = $temp$evalCtx;
					v = $temp$v;
					continue refocusAux;
				case 'EC_LetPair':
					var id1 = evalCtx.a;
					var id2 = evalCtx.b;
					var e2 = evalCtx.c;
					var env = evalCtx.d;
					var ec = evalCtx.e;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A5($author$project$Evaluation$Pot_LetPair, id1, id2, v, e2, env));
				case 'EC_LetUnit':
					var e2 = evalCtx.a;
					var env = evalCtx.b;
					var ec = evalCtx.c;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A3($author$project$Evaluation$Pot_LetUnit, v, e2, env));
				case 'EC_Inl':
					var ec = evalCtx.a;
					var $temp$evalCtx = ec,
						$temp$v = $author$project$Evaluation$Value_Inl(v);
					evalCtx = $temp$evalCtx;
					v = $temp$v;
					continue refocusAux;
				case 'EC_Inr':
					var ec = evalCtx.a;
					var $temp$evalCtx = ec,
						$temp$v = $author$project$Evaluation$Value_Inr(v);
					evalCtx = $temp$evalCtx;
					v = $temp$v;
					continue refocusAux;
				case 'EC_Case':
					var id1 = evalCtx.a;
					var e1 = evalCtx.b;
					var id2 = evalCtx.c;
					var e2 = evalCtx.d;
					var env = evalCtx.e;
					var ec = evalCtx.f;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A6($author$project$Evaluation$Pot_Case, v, id1, e1, id2, e2, env));
				case 'EC_LetOfCourse':
					var id = evalCtx.a;
					var e2 = evalCtx.b;
					var env = evalCtx.c;
					var ec = evalCtx.d;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A4($author$project$Evaluation$Pot_LetOfCourse, id, v, e2, env));
				case 'EC_Send_Left':
					var e2 = evalCtx.a;
					var env = evalCtx.b;
					var ec = evalCtx.c;
					return A3(
						$author$project$Evaluation$refocus,
						e2,
						env,
						A2($author$project$Evaluation$EC_Send_Right, v, ec));
				case 'EC_Send_Right':
					var v1 = evalCtx.a;
					var ec = evalCtx.b;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A2($author$project$Evaluation$Pot_Send, v1, v));
				case 'EC_Receive':
					var ec = evalCtx.a;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						$author$project$Evaluation$Pot_Receive(v));
				case 'EC_SelectLeft':
					var ec = evalCtx.a;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						$author$project$Evaluation$Pot_SelectLeft(v));
				case 'EC_SelectRight':
					var ec = evalCtx.a;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						$author$project$Evaluation$Pot_SelectRight(v));
				case 'EC_Branch':
					var id1 = evalCtx.a;
					var e1 = evalCtx.b;
					var id2 = evalCtx.c;
					var e2 = evalCtx.d;
					var env = evalCtx.e;
					var ec = evalCtx.f;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A6($author$project$Evaluation$Pot_Branch, v, id1, e1, id2, e2, env));
				case 'EC_Close':
					var ec = evalCtx.a;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						$author$project$Evaluation$Pot_Close(v));
				case 'EC_Accept':
					var ec = evalCtx.a;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						$author$project$Evaluation$Pot_Accept(v));
				case 'EC_Request':
					var ec = evalCtx.a;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						$author$project$Evaluation$Pot_Request(v));
				case 'EC_Fork':
					var ec = evalCtx.a;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						$author$project$Evaluation$Pot_Fork(v));
				case 'EC_Fold':
					var ec = evalCtx.a;
					var $temp$evalCtx = ec,
						$temp$v = $author$project$Evaluation$Value_Fold(v);
					evalCtx = $temp$evalCtx;
					v = $temp$v;
					continue refocusAux;
				case 'EC_Unfold':
					var ec = evalCtx.a;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						$author$project$Evaluation$Pot_Unfold(v));
				default:
					var id = evalCtx.a;
					var e2 = evalCtx.b;
					var env = evalCtx.c;
					var ec = evalCtx.d;
					return A2(
						$author$project$Evaluation$Focus,
						ec,
						A4($author$project$Evaluation$Pot_LetLin, id, v, e2, env));
			}
		}
	});
var $author$project$Utils$update = F3(
	function (searchKey, newValue, list) {
		if (!list.b) {
			return _List_Nil;
		} else {
			var _v1 = list.a;
			var key = _v1.a;
			var value = _v1.b;
			var xs = list.b;
			return _Utils_eq(key, searchKey) ? A2(
				$elm$core$List$cons,
				_Utils_Tuple2(key, newValue),
				xs) : A2(
				$elm$core$List$cons,
				_Utils_Tuple2(key, value),
				A3($author$project$Utils$update, searchKey, newValue, xs));
		}
	});
var $author$project$Evaluation$reduce = F2(
	function (_v0, config) {
		var flag = _v0.a;
		var evalCtx = _v0.b;
		var term = _v0.c;
		var environment = _v0.d;
		var _v1 = A3($author$project$Evaluation$refocus, term, environment, evalCtx);
		if (_v1.$ === 'Val') {
			var v = _v1.a;
			if (flag.$ === 'Main') {
				return $elm$core$Result$Ok(
					_Utils_update(
						config,
						{
							returnValue: $elm$core$Maybe$Just(v)
						}));
			} else {
				return $elm$core$Result$Ok(config);
			}
		} else {
			var ec = _v1.a;
			var potRed = _v1.b;
			_v3$25:
			while (true) {
				switch (potRed.$) {
					case 'Pot_Var':
						return $elm$core$Result$Err(_Utils_Tuple0);
					case 'Pot_LinApp':
						if (potRed.a.$ === 'Value_LinearFn') {
							var _v4 = potRed.a;
							var id = _v4.a;
							var e1 = _v4.b;
							var env1 = _v4.c;
							var v2 = potRed.b;
							var extendedEnv = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id,
									$author$project$Evaluation$ValueEntry(v2)),
								env1);
							var thread = A4($author$project$Evaluation$Thread, flag, ec, e1, extendedEnv);
							return $elm$core$Result$Ok(
								_Utils_update(
									config,
									{
										threads: A2($elm$core$List$cons, thread, config.threads)
									}));
						} else {
							break _v3$25;
						}
					case 'Pot_UnApp':
						if (potRed.a.$ === 'Value_UnrestrictedFn') {
							var _v5 = potRed.a;
							var id = _v5.a;
							var e1 = _v5.b;
							var env1 = _v5.c;
							var e2 = potRed.b;
							var env = potRed.c;
							var extendedEnv = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id,
									A2($author$project$Evaluation$ClosureEntry, e2, env)),
								env1);
							var thread = A4($author$project$Evaluation$Thread, flag, ec, e1, extendedEnv);
							return $elm$core$Result$Ok(
								_Utils_update(
									config,
									{
										threads: A2($elm$core$List$cons, thread, config.threads)
									}));
						} else {
							break _v3$25;
						}
					case 'Pot_LetPair':
						if (potRed.c.$ === 'Value_Pair') {
							var id1 = potRed.a;
							var id2 = potRed.b;
							var _v6 = potRed.c;
							var v1 = _v6.a;
							var v2 = _v6.b;
							var e2 = potRed.d;
							var env = potRed.e;
							var extendedEnv = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id1,
									$author$project$Evaluation$ValueEntry(v1)),
								A2(
									$elm$core$List$cons,
									_Utils_Tuple2(
										id2,
										$author$project$Evaluation$ValueEntry(v2)),
									env));
							var thread = A4($author$project$Evaluation$Thread, flag, ec, e2, extendedEnv);
							return $elm$core$Result$Ok(
								_Utils_update(
									config,
									{
										threads: A2($elm$core$List$cons, thread, config.threads)
									}));
						} else {
							break _v3$25;
						}
					case 'Pot_LetUnit':
						if (potRed.a.$ === 'Value_Unit') {
							var _v7 = potRed.a;
							var e2 = potRed.b;
							var env = potRed.c;
							var thread = A4($author$project$Evaluation$Thread, flag, ec, e2, env);
							return $elm$core$Result$Ok(
								_Utils_update(
									config,
									{
										threads: A2($elm$core$List$cons, thread, config.threads)
									}));
						} else {
							break _v3$25;
						}
					case 'Pot_Case':
						switch (potRed.a.$) {
							case 'Value_Inl':
								var v1 = potRed.a.a;
								var id1 = potRed.b;
								var e1 = potRed.c;
								var env = potRed.f;
								var extendedEnv = A2(
									$elm$core$List$cons,
									_Utils_Tuple2(
										id1,
										$author$project$Evaluation$ValueEntry(v1)),
									env);
								var thread = A4($author$project$Evaluation$Thread, flag, ec, e1, extendedEnv);
								return $elm$core$Result$Ok(
									_Utils_update(
										config,
										{
											threads: A2($elm$core$List$cons, thread, config.threads)
										}));
							case 'Value_Inr':
								var v2 = potRed.a.a;
								var id2 = potRed.d;
								var e2 = potRed.e;
								var env = potRed.f;
								var extendedEnv = A2(
									$elm$core$List$cons,
									_Utils_Tuple2(
										id2,
										$author$project$Evaluation$ValueEntry(v2)),
									env);
								var thread = A4($author$project$Evaluation$Thread, flag, ec, e2, extendedEnv);
								return $elm$core$Result$Ok(
									_Utils_update(
										config,
										{
											threads: A2($elm$core$List$cons, thread, config.threads)
										}));
							default:
								break _v3$25;
						}
					case 'Pot_LetOfCourse':
						if (potRed.b.$ === 'Value_OfCourse') {
							var id = potRed.a;
							var _v8 = potRed.b;
							var e1 = _v8.a;
							var env1 = _v8.b;
							var e2 = potRed.c;
							var env = potRed.d;
							var extendedEnv = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id,
									A2($author$project$Evaluation$ClosureEntry, e1, env1)),
								env);
							var thread = A4($author$project$Evaluation$Thread, flag, ec, e2, extendedEnv);
							return $elm$core$Result$Ok(
								_Utils_update(
									config,
									{
										threads: A2($elm$core$List$cons, thread, config.threads)
									}));
						} else {
							break _v3$25;
						}
					case 'Pot_Unfold':
						switch (potRed.a.$) {
							case 'Value_Fold':
								var v1 = potRed.a.a;
								var thread = A4(
									$author$project$Evaluation$Thread,
									flag,
									ec,
									$author$project$AbstractSyntax$Term_Var('x'),
									_List_fromArray(
										[
											_Utils_Tuple2(
											'x',
											$author$project$Evaluation$ValueEntry(v1))
										]));
								return $elm$core$Result$Ok(
									_Utils_update(
										config,
										{
											threads: A2($elm$core$List$cons, thread, config.threads)
										}));
							case 'Value_ChannelName':
								var chId = potRed.a.a;
								var thread = A4(
									$author$project$Evaluation$Thread,
									flag,
									ec,
									$author$project$AbstractSyntax$Term_Var('x'),
									_List_fromArray(
										[
											_Utils_Tuple2(
											'x',
											$author$project$Evaluation$ValueEntry(
												$author$project$Evaluation$Value_ChannelName(chId)))
										]));
								return $elm$core$Result$Ok(
									_Utils_update(
										config,
										{
											threads: A2($elm$core$List$cons, thread, config.threads)
										}));
							default:
								break _v3$25;
						}
					case 'Pot_LetLin':
						var id = potRed.a;
						var v1 = potRed.b;
						var e2 = potRed.c;
						var env = potRed.d;
						var extendedEnv = A2(
							$elm$core$List$cons,
							_Utils_Tuple2(
								id,
								$author$project$Evaluation$ValueEntry(v1)),
							env);
						var thread = A4($author$project$Evaluation$Thread, flag, ec, e2, extendedEnv);
						return $elm$core$Result$Ok(
							_Utils_update(
								config,
								{
									threads: A2($elm$core$List$cons, thread, config.threads)
								}));
					case 'Pot_LetUn':
						var id = potRed.a;
						var e1 = potRed.b;
						var e2 = potRed.c;
						var env = potRed.d;
						var extendedEnv = A2(
							$elm$core$List$cons,
							_Utils_Tuple2(
								id,
								A2($author$project$Evaluation$ClosureEntry, e1, env)),
							env);
						var thread = A4($author$project$Evaluation$Thread, flag, ec, e2, extendedEnv);
						return $elm$core$Result$Ok(
							_Utils_update(
								config,
								{
									threads: A2($elm$core$List$cons, thread, config.threads)
								}));
					case 'Pot_LetRec':
						var id = potRed.a;
						var e1 = potRed.b;
						var e2 = potRed.c;
						var env = potRed.d;
						var dummyType = $author$project$AbstractSyntax$Type_Unit;
						var extendedEnv = A2(
							$elm$core$List$cons,
							_Utils_Tuple2(
								id,
								A2(
									$author$project$Evaluation$ClosureEntry,
									A4($author$project$AbstractSyntax$Term_LetRec, id, dummyType, e1, e1),
									env)),
							env);
						var thread = A4($author$project$Evaluation$Thread, flag, ec, e2, extendedEnv);
						return $elm$core$Result$Ok(
							_Utils_update(
								config,
								{
									threads: A2($elm$core$List$cons, thread, config.threads)
								}));
					case 'Pot_Send':
						if (potRed.b.$ === 'Value_ChannelName') {
							var v = potRed.a;
							var chId = potRed.b.a;
							var _v9 = A2($author$project$Utils$lookup, chId, config.channels);
							if (_v9.$ === 'Just') {
								if (_v9.a.b && (_v9.a.a.c.$ === 'Pot_Receive')) {
									var _v10 = _v9.a;
									var _v11 = _v10.a;
									var flag2 = _v11.a;
									var ec2 = _v11.b;
									var xs = _v10.b;
									var value2 = A2(
										$author$project$Evaluation$Value_Pair,
										v,
										$author$project$Evaluation$Value_ChannelName(chId));
									var value1 = $author$project$Evaluation$Value_ChannelName(chId);
									var thread2 = A4(
										$author$project$Evaluation$Thread,
										flag2,
										ec2,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value2))
											]));
									var thread1 = A4(
										$author$project$Evaluation$Thread,
										flag,
										ec,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value1))
											]));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3($author$project$Utils$update, chId, xs, config.channels),
												threads: A2(
													$elm$core$List$cons,
													thread1,
													A2($elm$core$List$cons, thread2, config.threads))
											}));
								} else {
									var xs = _v9.a;
									var thread = A3(
										$author$project$Evaluation$FocusedThread,
										flag,
										ec,
										A2(
											$author$project$Evaluation$Pot_Send,
											v,
											$author$project$Evaluation$Value_ChannelName(chId)));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3(
													$author$project$Utils$update,
													chId,
													_Utils_ap(
														xs,
														_List_fromArray(
															[thread])),
													config.channels)
											}));
								}
							} else {
								return $elm$core$Result$Err(_Utils_Tuple0);
							}
						} else {
							break _v3$25;
						}
					case 'Pot_Receive':
						if (potRed.a.$ === 'Value_ChannelName') {
							var chId = potRed.a.a;
							var _v12 = A2($author$project$Utils$lookup, chId, config.channels);
							if (_v12.$ === 'Just') {
								if (_v12.a.b && (_v12.a.a.c.$ === 'Pot_Send')) {
									var _v13 = _v12.a;
									var _v14 = _v13.a;
									var flag2 = _v14.a;
									var ec2 = _v14.b;
									var _v15 = _v14.c;
									var v = _v15.a;
									var xs = _v13.b;
									var value2 = $author$project$Evaluation$Value_ChannelName(chId);
									var value1 = A2(
										$author$project$Evaluation$Value_Pair,
										v,
										$author$project$Evaluation$Value_ChannelName(chId));
									var thread2 = A4(
										$author$project$Evaluation$Thread,
										flag2,
										ec2,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value2))
											]));
									var thread1 = A4(
										$author$project$Evaluation$Thread,
										flag,
										ec,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value1))
											]));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3($author$project$Utils$update, chId, xs, config.channels),
												threads: A2(
													$elm$core$List$cons,
													thread1,
													A2($elm$core$List$cons, thread2, config.threads))
											}));
								} else {
									var xs = _v12.a;
									var thread = A3(
										$author$project$Evaluation$FocusedThread,
										flag,
										ec,
										$author$project$Evaluation$Pot_Receive(
											$author$project$Evaluation$Value_ChannelName(chId)));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3(
													$author$project$Utils$update,
													chId,
													_Utils_ap(
														xs,
														_List_fromArray(
															[thread])),
													config.channels)
											}));
								}
							} else {
								return $elm$core$Result$Err(_Utils_Tuple0);
							}
						} else {
							break _v3$25;
						}
					case 'Pot_SelectLeft':
						if (potRed.a.$ === 'Value_ChannelName') {
							var chId = potRed.a.a;
							var _v16 = A2($author$project$Utils$lookup, chId, config.channels);
							if (_v16.$ === 'Just') {
								if (_v16.a.b && (_v16.a.a.c.$ === 'Pot_Branch')) {
									var _v17 = _v16.a;
									var _v18 = _v17.a;
									var flag2 = _v18.a;
									var ec2 = _v18.b;
									var _v19 = _v18.c;
									var id1 = _v19.b;
									var e1 = _v19.c;
									var env = _v19.f;
									var xs = _v17.b;
									var value = $author$project$Evaluation$Value_ChannelName(chId);
									var thread1 = A4(
										$author$project$Evaluation$Thread,
										flag,
										ec,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value))
											]));
									var extendedEnv = A2(
										$elm$core$List$cons,
										_Utils_Tuple2(
											id1,
											$author$project$Evaluation$ValueEntry(value)),
										env);
									var thread2 = A4($author$project$Evaluation$Thread, flag2, ec2, e1, extendedEnv);
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3($author$project$Utils$update, chId, xs, config.channels),
												threads: A2(
													$elm$core$List$cons,
													thread1,
													A2($elm$core$List$cons, thread2, config.threads))
											}));
								} else {
									var xs = _v16.a;
									var thread = A3(
										$author$project$Evaluation$FocusedThread,
										flag,
										ec,
										$author$project$Evaluation$Pot_SelectLeft(
											$author$project$Evaluation$Value_ChannelName(chId)));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3(
													$author$project$Utils$update,
													chId,
													_Utils_ap(
														xs,
														_List_fromArray(
															[thread])),
													config.channels)
											}));
								}
							} else {
								return $elm$core$Result$Err(_Utils_Tuple0);
							}
						} else {
							break _v3$25;
						}
					case 'Pot_SelectRight':
						if (potRed.a.$ === 'Value_ChannelName') {
							var chId = potRed.a.a;
							var _v20 = A2($author$project$Utils$lookup, chId, config.channels);
							if (_v20.$ === 'Just') {
								if (_v20.a.b && (_v20.a.a.c.$ === 'Pot_Branch')) {
									var _v21 = _v20.a;
									var _v22 = _v21.a;
									var flag2 = _v22.a;
									var ec2 = _v22.b;
									var _v23 = _v22.c;
									var id2 = _v23.d;
									var e2 = _v23.e;
									var env = _v23.f;
									var xs = _v21.b;
									var value = $author$project$Evaluation$Value_ChannelName(chId);
									var thread1 = A4(
										$author$project$Evaluation$Thread,
										flag,
										ec,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value))
											]));
									var extendedEnv = A2(
										$elm$core$List$cons,
										_Utils_Tuple2(
											id2,
											$author$project$Evaluation$ValueEntry(value)),
										env);
									var thread2 = A4($author$project$Evaluation$Thread, flag2, ec2, e2, extendedEnv);
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3($author$project$Utils$update, chId, xs, config.channels),
												threads: A2(
													$elm$core$List$cons,
													thread1,
													A2($elm$core$List$cons, thread2, config.threads))
											}));
								} else {
									var xs = _v20.a;
									var thread = A3(
										$author$project$Evaluation$FocusedThread,
										flag,
										ec,
										$author$project$Evaluation$Pot_SelectRight(
											$author$project$Evaluation$Value_ChannelName(chId)));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3(
													$author$project$Utils$update,
													chId,
													_Utils_ap(
														xs,
														_List_fromArray(
															[thread])),
													config.channels)
											}));
								}
							} else {
								return $elm$core$Result$Err(_Utils_Tuple0);
							}
						} else {
							break _v3$25;
						}
					case 'Pot_Branch':
						if (potRed.a.$ === 'Value_ChannelName') {
							var chId = potRed.a.a;
							var id1 = potRed.b;
							var e1 = potRed.c;
							var id2 = potRed.d;
							var e2 = potRed.e;
							var env = potRed.f;
							var _v24 = A2($author$project$Utils$lookup, chId, config.channels);
							_v24$2:
							while (true) {
								if (_v24.$ === 'Just') {
									if (_v24.a.b) {
										switch (_v24.a.a.c.$) {
											case 'Pot_SelectLeft':
												var _v25 = _v24.a;
												var _v26 = _v25.a;
												var flag2 = _v26.a;
												var ec2 = _v26.b;
												var xs = _v25.b;
												var value = $author$project$Evaluation$Value_ChannelName(chId);
												var thread2 = A4(
													$author$project$Evaluation$Thread,
													flag2,
													ec2,
													$author$project$AbstractSyntax$Term_Var('x'),
													_List_fromArray(
														[
															_Utils_Tuple2(
															'x',
															$author$project$Evaluation$ValueEntry(value))
														]));
												var extendedEnv = A2(
													$elm$core$List$cons,
													_Utils_Tuple2(
														id1,
														$author$project$Evaluation$ValueEntry(value)),
													env);
												var thread1 = A4($author$project$Evaluation$Thread, flag, ec, e1, extendedEnv);
												return $elm$core$Result$Ok(
													_Utils_update(
														config,
														{
															channels: A3($author$project$Utils$update, chId, xs, config.channels),
															threads: A2(
																$elm$core$List$cons,
																thread1,
																A2($elm$core$List$cons, thread2, config.threads))
														}));
											case 'Pot_SelectRight':
												var _v27 = _v24.a;
												var _v28 = _v27.a;
												var flag2 = _v28.a;
												var ec2 = _v28.b;
												var xs = _v27.b;
												var value = $author$project$Evaluation$Value_ChannelName(chId);
												var thread2 = A4(
													$author$project$Evaluation$Thread,
													flag2,
													ec2,
													$author$project$AbstractSyntax$Term_Var('x'),
													_List_fromArray(
														[
															_Utils_Tuple2(
															'x',
															$author$project$Evaluation$ValueEntry(value))
														]));
												var extendedEnv = A2(
													$elm$core$List$cons,
													_Utils_Tuple2(
														id2,
														$author$project$Evaluation$ValueEntry(value)),
													env);
												var thread1 = A4($author$project$Evaluation$Thread, flag, ec, e2, extendedEnv);
												return $elm$core$Result$Ok(
													_Utils_update(
														config,
														{
															channels: A3($author$project$Utils$update, chId, xs, config.channels),
															threads: A2(
																$elm$core$List$cons,
																thread1,
																A2($elm$core$List$cons, thread2, config.threads))
														}));
											default:
												break _v24$2;
										}
									} else {
										break _v24$2;
									}
								} else {
									return $elm$core$Result$Err(_Utils_Tuple0);
								}
							}
							var xs = _v24.a;
							var thread = A3(
								$author$project$Evaluation$FocusedThread,
								flag,
								ec,
								A6(
									$author$project$Evaluation$Pot_Branch,
									$author$project$Evaluation$Value_ChannelName(chId),
									id1,
									e1,
									id2,
									e2,
									env));
							return $elm$core$Result$Ok(
								_Utils_update(
									config,
									{
										channels: A3(
											$author$project$Utils$update,
											chId,
											_Utils_ap(
												xs,
												_List_fromArray(
													[thread])),
											config.channels)
									}));
						} else {
							break _v3$25;
						}
					case 'Pot_Close':
						if (potRed.a.$ === 'Value_ChannelName') {
							var chId = potRed.a.a;
							var _v29 = A2($author$project$Utils$lookup, chId, config.channels);
							if (_v29.$ === 'Just') {
								if (_v29.a.b && (_v29.a.a.c.$ === 'Pot_Close')) {
									var _v30 = _v29.a;
									var _v31 = _v30.a;
									var flag2 = _v31.a;
									var ec2 = _v31.b;
									var thread2 = A4(
										$author$project$Evaluation$Thread,
										flag2,
										ec2,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry($author$project$Evaluation$Value_Unit))
											]));
									var thread1 = A4(
										$author$project$Evaluation$Thread,
										flag,
										ec,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry($author$project$Evaluation$Value_Unit))
											]));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A2($author$project$Utils$delete, chId, config.channels),
												threads: A2(
													$elm$core$List$cons,
													thread1,
													A2($elm$core$List$cons, thread2, config.threads))
											}));
								} else {
									var xs = _v29.a;
									var thread = A3(
										$author$project$Evaluation$FocusedThread,
										flag,
										ec,
										$author$project$Evaluation$Pot_Close(
											$author$project$Evaluation$Value_ChannelName(chId)));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3(
													$author$project$Utils$update,
													chId,
													_Utils_ap(
														xs,
														_List_fromArray(
															[thread])),
													config.channels)
											}));
								}
							} else {
								return $elm$core$Result$Err(_Utils_Tuple0);
							}
						} else {
							break _v3$25;
						}
					case 'Pot_NewAccess':
						var id1 = potRed.a;
						var id2 = potRed.b;
						var e = potRed.c;
						var env = potRed.d;
						var newChId = config.nextChannelId;
						var value = $author$project$Evaluation$Value_ChannelName(newChId);
						var extendedEnv = A2(
							$elm$core$List$cons,
							_Utils_Tuple2(
								id1,
								$author$project$Evaluation$ValueEntry(value)),
							A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id2,
									$author$project$Evaluation$ValueEntry(value)),
								env));
						var thread = A4($author$project$Evaluation$Thread, flag, ec, e, extendedEnv);
						return $elm$core$Result$Ok(
							_Utils_update(
								config,
								{
									channels: A2(
										$elm$core$List$cons,
										_Utils_Tuple2(newChId, _List_Nil),
										config.channels),
									nextChannelId: config.nextChannelId + 1,
									threads: A2($elm$core$List$cons, thread, config.threads)
								}));
					case 'Pot_Accept':
						if (potRed.a.$ === 'Value_ChannelName') {
							var chId = potRed.a.a;
							var _v32 = A2($author$project$Utils$lookup, chId, config.channels);
							if (_v32.$ === 'Just') {
								if (_v32.a.b && (_v32.a.a.c.$ === 'Pot_Request')) {
									var _v33 = _v32.a;
									var _v34 = _v33.a;
									var flag2 = _v34.a;
									var ec2 = _v34.b;
									var xs = _v33.b;
									var newChId = config.nextChannelId;
									var value = $author$project$Evaluation$Value_ChannelName(newChId);
									var thread1 = A4(
										$author$project$Evaluation$Thread,
										flag,
										ec,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value))
											]));
									var thread2 = A4(
										$author$project$Evaluation$Thread,
										flag2,
										ec2,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value))
											]));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A2(
													$elm$core$List$cons,
													_Utils_Tuple2(newChId, _List_Nil),
													A3($author$project$Utils$update, chId, xs, config.channels)),
												nextChannelId: config.nextChannelId + 1,
												threads: A2(
													$elm$core$List$cons,
													thread1,
													A2($elm$core$List$cons, thread2, config.threads))
											}));
								} else {
									var xs = _v32.a;
									var thread = A3(
										$author$project$Evaluation$FocusedThread,
										flag,
										ec,
										$author$project$Evaluation$Pot_Accept(
											$author$project$Evaluation$Value_ChannelName(chId)));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3(
													$author$project$Utils$update,
													chId,
													_Utils_ap(
														xs,
														_List_fromArray(
															[thread])),
													config.channels)
											}));
								}
							} else {
								return $elm$core$Result$Err(_Utils_Tuple0);
							}
						} else {
							break _v3$25;
						}
					case 'Pot_Request':
						if (potRed.a.$ === 'Value_ChannelName') {
							var chId = potRed.a.a;
							var _v35 = A2($author$project$Utils$lookup, chId, config.channels);
							if (_v35.$ === 'Just') {
								if (_v35.a.b && (_v35.a.a.c.$ === 'Pot_Accept')) {
									var _v36 = _v35.a;
									var _v37 = _v36.a;
									var flag2 = _v37.a;
									var ec2 = _v37.b;
									var xs = _v36.b;
									var newChId = config.nextChannelId;
									var value = $author$project$Evaluation$Value_ChannelName(newChId);
									var thread1 = A4(
										$author$project$Evaluation$Thread,
										flag,
										ec,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value))
											]));
									var thread2 = A4(
										$author$project$Evaluation$Thread,
										flag2,
										ec2,
										$author$project$AbstractSyntax$Term_Var('x'),
										_List_fromArray(
											[
												_Utils_Tuple2(
												'x',
												$author$project$Evaluation$ValueEntry(value))
											]));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A2(
													$elm$core$List$cons,
													_Utils_Tuple2(newChId, _List_Nil),
													A3($author$project$Utils$update, chId, xs, config.channels)),
												nextChannelId: config.nextChannelId + 1,
												threads: A2(
													$elm$core$List$cons,
													thread1,
													A2($elm$core$List$cons, thread2, config.threads))
											}));
								} else {
									var xs = _v35.a;
									var thread = A3(
										$author$project$Evaluation$FocusedThread,
										flag,
										ec,
										$author$project$Evaluation$Pot_Request(
											$author$project$Evaluation$Value_ChannelName(chId)));
									return $elm$core$Result$Ok(
										_Utils_update(
											config,
											{
												channels: A3(
													$author$project$Utils$update,
													chId,
													_Utils_ap(
														xs,
														_List_fromArray(
															[thread])),
													config.channels)
											}));
								}
							} else {
								return $elm$core$Result$Err(_Utils_Tuple0);
							}
						} else {
							break _v3$25;
						}
					case 'Pot_NewSession':
						var newChId = config.nextChannelId;
						var value = A2(
							$author$project$Evaluation$Value_Pair,
							$author$project$Evaluation$Value_ChannelName(newChId),
							$author$project$Evaluation$Value_ChannelName(newChId));
						var thread = A4(
							$author$project$Evaluation$Thread,
							flag,
							ec,
							$author$project$AbstractSyntax$Term_Var('x'),
							_List_fromArray(
								[
									_Utils_Tuple2(
									'x',
									$author$project$Evaluation$ValueEntry(value))
								]));
						return $elm$core$Result$Ok(
							_Utils_update(
								config,
								{
									channels: A2(
										$elm$core$List$cons,
										_Utils_Tuple2(newChId, _List_Nil),
										config.channels),
									nextChannelId: config.nextChannelId + 1,
									threads: A2($elm$core$List$cons, thread, config.threads)
								}));
					case 'Pot_Fork':
						if (potRed.a.$ === 'Value_LinearFn') {
							var _v38 = potRed.a;
							var id = _v38.a;
							var e = _v38.b;
							var env = _v38.c;
							var newChId = config.nextChannelId;
							var value = $author$project$Evaluation$Value_ChannelName(newChId);
							var thread1 = A4(
								$author$project$Evaluation$Thread,
								flag,
								ec,
								$author$project$AbstractSyntax$Term_Var('x'),
								_List_fromArray(
									[
										_Utils_Tuple2(
										'x',
										$author$project$Evaluation$ValueEntry(value))
									]));
							var extendedEnv = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id,
									$author$project$Evaluation$ValueEntry(value)),
								env);
							var thread2 = A4($author$project$Evaluation$Thread, $author$project$Evaluation$Child, $author$project$Evaluation$EC_Empty, e, extendedEnv);
							return $elm$core$Result$Ok(
								_Utils_update(
									config,
									{
										channels: A2(
											$elm$core$List$cons,
											_Utils_Tuple2(newChId, _List_Nil),
											config.channels),
										nextChannelId: config.nextChannelId + 1,
										threads: A2(
											$elm$core$List$cons,
											thread1,
											A2($elm$core$List$cons, thread2, config.threads))
									}));
						} else {
							break _v3$25;
						}
					default:
						var e = potRed.a;
						var env = potRed.b;
						var thread2 = A4($author$project$Evaluation$Thread, $author$project$Evaluation$Child, $author$project$Evaluation$EC_Empty, e, env);
						var thread1 = A4(
							$author$project$Evaluation$Thread,
							flag,
							ec,
							$author$project$AbstractSyntax$Term_Var('x'),
							_List_fromArray(
								[
									_Utils_Tuple2(
									'x',
									$author$project$Evaluation$ValueEntry($author$project$Evaluation$Value_Unit))
								]));
						return $elm$core$Result$Ok(
							_Utils_update(
								config,
								{
									threads: A2(
										$elm$core$List$cons,
										thread1,
										A2($elm$core$List$cons, thread2, config.threads))
								}));
				}
			}
			return $elm$core$Result$Err(_Utils_Tuple0);
		}
	});
var $elm$random$Random$step = F2(
	function (_v0, seed) {
		var generator = _v0.a;
		return generator(seed);
	});
var $author$project$Evaluation$step = F2(
	function (seed, config) {
		var pickRandomThread = $elm_community$random_extra$Random$List$choose(config.threads);
		var _v0 = A2($elm$random$Random$step, pickRandomThread, seed);
		var _v1 = _v0.a;
		var maybeThread = _v1.a;
		var threads = _v1.b;
		var newSeed = _v0.b;
		if (maybeThread.$ === 'Just') {
			var thread = maybeThread.a;
			var _v3 = A2(
				$author$project$Evaluation$reduce,
				thread,
				_Utils_update(
					config,
					{threads: threads}));
			if (_v3.$ === 'Ok') {
				var newConfig = _v3.a;
				return _Utils_Tuple3($author$project$Evaluation$Running, newConfig, newSeed);
			} else {
				return _Utils_Tuple3($author$project$Evaluation$Error, config, newSeed);
			}
		} else {
			return $author$project$Evaluation$noThreadsAreBlocked(config.channels) ? _Utils_Tuple3($author$project$Evaluation$Finished, config, newSeed) : _Utils_Tuple3($author$project$Evaluation$Lock, config, newSeed);
		}
	});
var $elm$file$File$Download$string = F3(
	function (name, mime, content) {
		return A2(
			$elm$core$Task$perform,
			$elm$core$Basics$never,
			A3(_File_download, name, mime, content));
	});
var $elm$file$File$toString = _File_toString;
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 $author$project$AbstractSyntax$kindToString = function (kind) {
	if (kind.$ === 'Kind_SessionType') {
		return '*s';
	} else {
		return '*ns';
	}
};
var $author$project$AbstractSyntax$typeToString = function (aType) {
	switch (aType.$) {
		case 'Type_Var':
			var id = aType.a;
			return id;
		case 'Type_Rec':
			var id = aType.a;
			var kind = aType.b;
			var type1 = aType.c;
			return 'rec ' + (id + (' : ' + ($author$project$AbstractSyntax$kindToString(kind) + (' . ' + $author$project$AbstractSyntax$typeToString(type1)))));
		case 'Type_Send':
			var type1 = aType.a;
			var type2 = aType.b;
			return '!' + ($author$project$AbstractSyntax$typeToString(type1) + ('.' + $author$project$AbstractSyntax$typeToString(type2)));
		case 'Type_Receive':
			var type1 = aType.a;
			var type2 = aType.b;
			return '?' + ($author$project$AbstractSyntax$typeToString(type1) + ('.' + $author$project$AbstractSyntax$typeToString(type2)));
		case 'Type_Select':
			var type1 = aType.a;
			var type2 = aType.b;
			return '+{ ' + ($author$project$AbstractSyntax$typeToString(type1) + (', ' + ($author$project$AbstractSyntax$typeToString(type2) + ' }')));
		case 'Type_Branch':
			var type1 = aType.a;
			var type2 = aType.b;
			return '&{ ' + ($author$project$AbstractSyntax$typeToString(type1) + (', ' + ($author$project$AbstractSyntax$typeToString(type2) + ' }')));
		case 'Type_End':
			return 'End';
		case 'Type_LinearFn':
			var type1 = aType.a;
			var type2 = aType.b;
			return '(' + ($author$project$AbstractSyntax$typeToString(type1) + (') -o (' + ($author$project$AbstractSyntax$typeToString(type2) + ')')));
		case 'Type_UnrestrictedFn':
			var type1 = aType.a;
			var type2 = aType.b;
			return '(' + ($author$project$AbstractSyntax$typeToString(type1) + (') -> (' + ($author$project$AbstractSyntax$typeToString(type2) + ')')));
		case 'Type_Product':
			var type1 = aType.a;
			var type2 = aType.b;
			return '(' + ($author$project$AbstractSyntax$typeToString(type1) + (') * (' + ($author$project$AbstractSyntax$typeToString(type2) + ')')));
		case 'Type_Unit':
			return '1';
		case 'Type_Sum':
			var type1 = aType.a;
			var type2 = aType.b;
			return '(' + ($author$project$AbstractSyntax$typeToString(type1) + (') + (' + ($author$project$AbstractSyntax$typeToString(type2) + ')')));
		case 'Type_OfCourse':
			var type1 = aType.a;
			return '@(' + ($author$project$AbstractSyntax$typeToString(type1) + ')');
		case 'Type_Accept':
			var type1 = aType.a;
			return 'Accept (' + ($author$project$AbstractSyntax$typeToString(type1) + ')');
		case 'Type_Request':
			var type1 = aType.a;
			return 'Request (' + ($author$project$AbstractSyntax$typeToString(type1) + ')');
		default:
			var type1 = aType.a;
			return 'dual(' + ($author$project$AbstractSyntax$typeToString(type1) + ')');
	}
};
var $author$project$TypeInference$checkType = F2(
	function (typeVarContext, aType) {
		switch (aType.$) {
			case 'Type_Var':
				var id = aType.a;
				var _v1 = A2($author$project$Utils$lookup, id, typeVarContext);
				if (_v1.$ === 'Just') {
					var kind = _v1.a;
					return $elm$core$Result$Ok(kind);
				} else {
					return $elm$core$Result$Err('A variável de tipo ' + (id + ' não foi declarada'));
				}
			case 'Type_Rec':
				var id = aType.a;
				var declaredKind = aType.b;
				var t = aType.c;
				return A2(
					$elm$core$Result$andThen,
					function (inferredKind) {
						return _Utils_eq(inferredKind, declaredKind) ? $elm$core$Result$Ok(declaredKind) : $elm$core$Result$Err(
							'O kind declarado da variável recursiva ' + (id + (' é ' + ($author$project$AbstractSyntax$kindToString(declaredKind) + (', mas o corpo da recursão, ' + ($author$project$AbstractSyntax$typeToString(t) + (', é do kind ' + $author$project$AbstractSyntax$kindToString(inferredKind))))))));
					},
					A2(
						$author$project$TypeInference$checkType,
						A2(
							$elm$core$List$cons,
							_Utils_Tuple2(id, declaredKind),
							typeVarContext),
						t));
			case 'Type_Send':
				var t1 = aType.a;
				var t2 = aType.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v2) {
						return A2(
							$elm$core$Result$andThen,
							function (kind) {
								return _Utils_eq(kind, $author$project$AbstractSyntax$Kind_SessionType) ? $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_SessionType) : $elm$core$Result$Err(
									'A continuação de um tipo send (!_._) deve ser um tipo de sessão, mas o tipo fornecido foi ' + ($author$project$AbstractSyntax$typeToString(t2) + ', que é do kind *ns'));
							},
							A2($author$project$TypeInference$checkType, typeVarContext, t2));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t1));
			case 'Type_Receive':
				var t1 = aType.a;
				var t2 = aType.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v3) {
						return A2(
							$elm$core$Result$andThen,
							function (kind) {
								return _Utils_eq(kind, $author$project$AbstractSyntax$Kind_SessionType) ? $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_SessionType) : $elm$core$Result$Err(
									'A continuação de um tipo receive (?_._) deve ser um tipo de sessão, mas o tipo fornecido foi ' + ($author$project$AbstractSyntax$typeToString(t2) + ', que é do kind *ns'));
							},
							A2($author$project$TypeInference$checkType, typeVarContext, t2));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t1));
			case 'Type_Select':
				var t1 = aType.a;
				var t2 = aType.b;
				return A2(
					$elm$core$Result$andThen,
					function (kind1) {
						return A2(
							$elm$core$Result$andThen,
							function (kind2) {
								return _Utils_eq(kind1, $author$project$AbstractSyntax$Kind_SessionType) ? (_Utils_eq(kind2, $author$project$AbstractSyntax$Kind_SessionType) ? $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_SessionType) : $elm$core$Result$Err(
									'A opção right de um tipo select (+{_, _}) deve ser um tipo de sessão, mas o tipo fornecido foi ' + ($author$project$AbstractSyntax$typeToString(t2) + ', que é do kind *ns'))) : $elm$core$Result$Err(
									'A opção left de um tipo select (+{_, _}) deve ser um tipo de sessão, mas o tipo fornecido foi ' + ($author$project$AbstractSyntax$typeToString(t1) + ', que é do kind *ns'));
							},
							A2($author$project$TypeInference$checkType, typeVarContext, t2));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t1));
			case 'Type_Branch':
				var t1 = aType.a;
				var t2 = aType.b;
				return A2(
					$elm$core$Result$andThen,
					function (kind1) {
						return A2(
							$elm$core$Result$andThen,
							function (kind2) {
								return _Utils_eq(kind1, $author$project$AbstractSyntax$Kind_SessionType) ? (_Utils_eq(kind2, $author$project$AbstractSyntax$Kind_SessionType) ? $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_SessionType) : $elm$core$Result$Err(
									'A opção right de um tipo branch (&{_, _}) deve ser um tipo de sessão, mas o tipo fornecido foi ' + ($author$project$AbstractSyntax$typeToString(t2) + ', que é do kind *ns'))) : $elm$core$Result$Err(
									'A opção left de um tipo branch (&{_, _}) deve ser um tipo de sessão, mas o tipo fornecido foi ' + ($author$project$AbstractSyntax$typeToString(t1) + ', que é do kind *ns'));
							},
							A2($author$project$TypeInference$checkType, typeVarContext, t2));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t1));
			case 'Type_End':
				return $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_SessionType);
			case 'Type_LinearFn':
				var t1 = aType.a;
				var t2 = aType.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v4) {
						return A2(
							$elm$core$Result$andThen,
							function (_v5) {
								return $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_NonSessionType);
							},
							A2($author$project$TypeInference$checkType, typeVarContext, t2));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t1));
			case 'Type_UnrestrictedFn':
				var t1 = aType.a;
				var t2 = aType.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v6) {
						return A2(
							$elm$core$Result$andThen,
							function (_v7) {
								return $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_NonSessionType);
							},
							A2($author$project$TypeInference$checkType, typeVarContext, t2));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t1));
			case 'Type_Product':
				var t1 = aType.a;
				var t2 = aType.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v8) {
						return A2(
							$elm$core$Result$andThen,
							function (_v9) {
								return $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_NonSessionType);
							},
							A2($author$project$TypeInference$checkType, typeVarContext, t2));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t1));
			case 'Type_Unit':
				return $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_NonSessionType);
			case 'Type_Sum':
				var t1 = aType.a;
				var t2 = aType.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v10) {
						return A2(
							$elm$core$Result$andThen,
							function (_v11) {
								return $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_NonSessionType);
							},
							A2($author$project$TypeInference$checkType, typeVarContext, t2));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t1));
			case 'Type_OfCourse':
				var t = aType.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v12) {
						return $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_NonSessionType);
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t));
			case 'Type_Accept':
				var t = aType.a;
				return A2(
					$elm$core$Result$andThen,
					function (kind) {
						return _Utils_eq(kind, $author$project$AbstractSyntax$Kind_SessionType) ? $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_NonSessionType) : $elm$core$Result$Err(
							'O construtor de tipo Accept espera receber um tipo de sessão, mas o tipo fornecido foi ' + ($author$project$AbstractSyntax$typeToString(t) + ', que é do kind *ns'));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t));
			case 'Type_Request':
				var t = aType.a;
				return A2(
					$elm$core$Result$andThen,
					function (kind) {
						return _Utils_eq(kind, $author$project$AbstractSyntax$Kind_SessionType) ? $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_NonSessionType) : $elm$core$Result$Err(
							'O construtor de tipo Request espera receber um tipo de sessão, mas o tipo fornecido foi ' + ($author$project$AbstractSyntax$typeToString(t) + ', que é do kind *ns'));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t));
			default:
				var t = aType.a;
				return A2(
					$elm$core$Result$andThen,
					function (kind) {
						return _Utils_eq(kind, $author$project$AbstractSyntax$Kind_SessionType) ? $elm$core$Result$Ok($author$project$AbstractSyntax$Kind_SessionType) : $elm$core$Result$Err(
							'A operação de dual é definida apenas para tipos de sessão, mas o tipo fornecido foi ' + ($author$project$AbstractSyntax$typeToString(t) + ', que é do kind *ns'));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, t));
		}
	});
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 $author$project$TypeInference$checkTypedefs = F2(
	function (typeVarContext, typeVarEnv) {
		if (!typeVarEnv.b) {
			return $elm$core$Result$Ok(typeVarContext);
		} else {
			var _v1 = typeVarEnv.a;
			var id = _v1.a;
			var aType = _v1.b;
			var xs = typeVarEnv.b;
			return A2(
				$elm$core$Result$andThen,
				function (kind) {
					return A2(
						$author$project$TypeInference$checkTypedefs,
						A2(
							$elm$core$List$cons,
							_Utils_Tuple2(id, kind),
							typeVarContext),
						xs);
				},
				A2(
					$elm$core$Result$mapError,
					function (e) {
						return 'Na definição de ' + (id + (': ' + e));
					},
					A2($author$project$TypeInference$checkType, typeVarContext, aType)));
		}
	});
var $author$project$TypeInference$checkUsedLinVars = function (context) {
	checkUsedLinVars:
	while (true) {
		if (!context.b) {
			return $elm$core$Result$Ok(_Utils_Tuple0);
		} else {
			if ((context.a.b.b.$ === 'Linear') && (context.a.b.b.a.$ === 'NotUsed')) {
				var _v1 = context.a;
				var id = _v1.a;
				var _v2 = _v1.b;
				var _v3 = _v2.b.a;
				return $elm$core$Result$Err('A variável linear ' + (id + ' não foi usada'));
			} else {
				var xs = context.b;
				var $temp$context = xs;
				context = $temp$context;
				continue checkUsedLinVars;
			}
		}
	}
};
var $author$project$TypeInference$Linear = function (a) {
	return {$: 'Linear', a: a};
};
var $author$project$TypeInference$NotUsed = {$: 'NotUsed'};
var $author$project$TypeInference$Unrestricted = {$: 'Unrestricted'};
var $author$project$TypeInference$findNewId = F2(
	function (id, idList) {
		findNewId:
		while (true) {
			if (A2($elm$core$List$member, id, idList)) {
				var $temp$id = id + '\'',
					$temp$idList = idList;
				id = $temp$id;
				idList = $temp$idList;
				continue findNewId;
			} else {
				return id;
			}
		}
	});
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$Basics$neq = _Utils_notEqual;
var $author$project$TypeInference$freeVars = function (aType) {
	freeVars:
	while (true) {
		switch (aType.$) {
			case 'Type_Var':
				var id = aType.a;
				return _List_fromArray(
					[id]);
			case 'Type_Rec':
				var id = aType.a;
				var t = aType.c;
				return A2(
					$elm$core$List$filter,
					function (x) {
						return !_Utils_eq(x, id);
					},
					$author$project$TypeInference$freeVars(t));
			case 'Type_Send':
				var t1 = aType.a;
				var t2 = aType.b;
				return _Utils_ap(
					$author$project$TypeInference$freeVars(t1),
					$author$project$TypeInference$freeVars(t2));
			case 'Type_Receive':
				var t1 = aType.a;
				var t2 = aType.b;
				return _Utils_ap(
					$author$project$TypeInference$freeVars(t1),
					$author$project$TypeInference$freeVars(t2));
			case 'Type_Select':
				var t1 = aType.a;
				var t2 = aType.b;
				return _Utils_ap(
					$author$project$TypeInference$freeVars(t1),
					$author$project$TypeInference$freeVars(t2));
			case 'Type_Branch':
				var t1 = aType.a;
				var t2 = aType.b;
				return _Utils_ap(
					$author$project$TypeInference$freeVars(t1),
					$author$project$TypeInference$freeVars(t2));
			case 'Type_End':
				return _List_Nil;
			case 'Type_LinearFn':
				var t1 = aType.a;
				var t2 = aType.b;
				return _Utils_ap(
					$author$project$TypeInference$freeVars(t1),
					$author$project$TypeInference$freeVars(t2));
			case 'Type_UnrestrictedFn':
				var t1 = aType.a;
				var t2 = aType.b;
				return _Utils_ap(
					$author$project$TypeInference$freeVars(t1),
					$author$project$TypeInference$freeVars(t2));
			case 'Type_Product':
				var t1 = aType.a;
				var t2 = aType.b;
				return _Utils_ap(
					$author$project$TypeInference$freeVars(t1),
					$author$project$TypeInference$freeVars(t2));
			case 'Type_Unit':
				return _List_Nil;
			case 'Type_Sum':
				var t1 = aType.a;
				var t2 = aType.b;
				return _Utils_ap(
					$author$project$TypeInference$freeVars(t1),
					$author$project$TypeInference$freeVars(t2));
			case 'Type_OfCourse':
				var t = aType.a;
				var $temp$aType = t;
				aType = $temp$aType;
				continue freeVars;
			case 'Type_Accept':
				var t = aType.a;
				var $temp$aType = t;
				aType = $temp$aType;
				continue freeVars;
			case 'Type_Request':
				var t = aType.a;
				var $temp$aType = t;
				aType = $temp$aType;
				continue freeVars;
			default:
				var t = aType.a;
				var $temp$aType = t;
				aType = $temp$aType;
				continue freeVars;
		}
	}
};
var $author$project$TypeInference$subs = F3(
	function (aType, id, t) {
		return A4(
			$author$project$TypeInference$subsAux,
			$author$project$TypeInference$freeVars(t),
			aType,
			id,
			t);
	});
var $author$project$TypeInference$subsAux = F4(
	function (freeVarsT, aType, id, t) {
		switch (aType.$) {
			case 'Type_Var':
				var otherId = aType.a;
				return _Utils_eq(otherId, id) ? t : $author$project$AbstractSyntax$Type_Var(otherId);
			case 'Type_Rec':
				var binderId = aType.a;
				var kind = aType.b;
				var body = aType.c;
				if (_Utils_eq(id, binderId)) {
					return A3($author$project$AbstractSyntax$Type_Rec, binderId, kind, body);
				} else {
					if (A2($elm$core$List$member, binderId, freeVarsT)) {
						var newId = A2(
							$author$project$TypeInference$findNewId,
							binderId,
							_Utils_ap(
								freeVarsT,
								$author$project$TypeInference$freeVars(body)));
						var newBody = A3(
							$author$project$TypeInference$subs,
							body,
							binderId,
							$author$project$AbstractSyntax$Type_Var(newId));
						var subsNewBody = A4($author$project$TypeInference$subsAux, freeVarsT, newBody, id, t);
						return A3($author$project$AbstractSyntax$Type_Rec, newId, kind, subsNewBody);
					} else {
						var subsBody = A4($author$project$TypeInference$subsAux, freeVarsT, body, id, t);
						return A3($author$project$AbstractSyntax$Type_Rec, binderId, kind, subsBody);
					}
				}
			case 'Type_Send':
				var t1 = aType.a;
				var t2 = aType.b;
				var subsT2 = A4($author$project$TypeInference$subsAux, freeVarsT, t2, id, t);
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return A2($author$project$AbstractSyntax$Type_Send, subsT1, subsT2);
			case 'Type_Receive':
				var t1 = aType.a;
				var t2 = aType.b;
				var subsT2 = A4($author$project$TypeInference$subsAux, freeVarsT, t2, id, t);
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return A2($author$project$AbstractSyntax$Type_Receive, subsT1, subsT2);
			case 'Type_Select':
				var t1 = aType.a;
				var t2 = aType.b;
				var subsT2 = A4($author$project$TypeInference$subsAux, freeVarsT, t2, id, t);
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return A2($author$project$AbstractSyntax$Type_Select, subsT1, subsT2);
			case 'Type_Branch':
				var t1 = aType.a;
				var t2 = aType.b;
				var subsT2 = A4($author$project$TypeInference$subsAux, freeVarsT, t2, id, t);
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return A2($author$project$AbstractSyntax$Type_Branch, subsT1, subsT2);
			case 'Type_End':
				return $author$project$AbstractSyntax$Type_End;
			case 'Type_LinearFn':
				var t1 = aType.a;
				var t2 = aType.b;
				var subsT2 = A4($author$project$TypeInference$subsAux, freeVarsT, t2, id, t);
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return A2($author$project$AbstractSyntax$Type_LinearFn, subsT1, subsT2);
			case 'Type_UnrestrictedFn':
				var t1 = aType.a;
				var t2 = aType.b;
				var subsT2 = A4($author$project$TypeInference$subsAux, freeVarsT, t2, id, t);
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return A2($author$project$AbstractSyntax$Type_UnrestrictedFn, subsT1, subsT2);
			case 'Type_Product':
				var t1 = aType.a;
				var t2 = aType.b;
				var subsT2 = A4($author$project$TypeInference$subsAux, freeVarsT, t2, id, t);
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return A2($author$project$AbstractSyntax$Type_Product, subsT1, subsT2);
			case 'Type_Unit':
				return $author$project$AbstractSyntax$Type_Unit;
			case 'Type_Sum':
				var t1 = aType.a;
				var t2 = aType.b;
				var subsT2 = A4($author$project$TypeInference$subsAux, freeVarsT, t2, id, t);
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return A2($author$project$AbstractSyntax$Type_Sum, subsT1, subsT2);
			case 'Type_OfCourse':
				var t1 = aType.a;
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return $author$project$AbstractSyntax$Type_OfCourse(subsT1);
			case 'Type_Accept':
				var t1 = aType.a;
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return $author$project$AbstractSyntax$Type_Accept(subsT1);
			case 'Type_Request':
				var t1 = aType.a;
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return $author$project$AbstractSyntax$Type_Request(subsT1);
			default:
				var t1 = aType.a;
				var subsT1 = A4($author$project$TypeInference$subsAux, freeVarsT, t1, id, t);
				return $author$project$AbstractSyntax$Type_Dual(subsT1);
		}
	});
var $author$project$TypeInference$applySubs = F2(
	function (typeVarEnv, aType) {
		applySubs:
		while (true) {
			if (!typeVarEnv.b) {
				return aType;
			} else {
				var _v1 = typeVarEnv.a;
				var id = _v1.a;
				var t = _v1.b;
				var xs = typeVarEnv.b;
				var $temp$typeVarEnv = xs,
					$temp$aType = A3($author$project$TypeInference$subs, aType, id, t);
				typeVarEnv = $temp$typeVarEnv;
				aType = $temp$aType;
				continue applySubs;
			}
		}
	});
var $author$project$TypeInference$checkAndApplySubs = F3(
	function (typeVarContext, typeVarEnv, aType) {
		return A2(
			$elm$core$Result$andThen,
			function (kind) {
				var t = A2($author$project$TypeInference$applySubs, typeVarEnv, aType);
				return $elm$core$Result$Ok(
					_Utils_Tuple2(t, kind));
			},
			A2($author$project$TypeInference$checkType, typeVarContext, aType));
	});
var $author$project$TypeInference$checkVarDeclarations = F4(
	function (typeVarContext, typeVarEnv, termVarContext, vars) {
		if (!vars.b) {
			return $elm$core$Result$Ok(termVarContext);
		} else {
			var _v1 = vars.a;
			var id = _v1.a;
			var _v2 = _v1.b;
			var multiplicity = _v2.a;
			var aType = _v2.b;
			var xs = vars.b;
			return A2(
				$elm$core$Result$andThen,
				function (_v3) {
					var t = _v3.a;
					var usage = function () {
						if (multiplicity.$ === 'Lin') {
							return $author$project$TypeInference$Linear($author$project$TypeInference$NotUsed);
						} else {
							return $author$project$TypeInference$Unrestricted;
						}
					}();
					var extendedContext = A2(
						$elm$core$List$cons,
						_Utils_Tuple2(
							id,
							_Utils_Tuple2(t, usage)),
						termVarContext);
					return A4($author$project$TypeInference$checkVarDeclarations, typeVarContext, typeVarEnv, extendedContext, xs);
				},
				A2(
					$elm$core$Result$mapError,
					function (e) {
						return 'Na declaração de ' + (id + (': ' + e));
					},
					A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, aType)));
		}
	});
var $author$project$TypeInference$resolveDualLazy = function (aType) {
	resolveDualLazy:
	while (true) {
		_v0$8:
		while (true) {
			if (aType.$ === 'Type_Dual') {
				switch (aType.a.$) {
					case 'Type_Var':
						var id = aType.a.a;
						return $author$project$AbstractSyntax$Type_Dual(
							$author$project$AbstractSyntax$Type_Var(id));
					case 'Type_Rec':
						var _v1 = aType.a;
						var id = _v1.a;
						var kind = _v1.b;
						var body = _v1.c;
						var bodyWithDualizedVar = A3(
							$author$project$TypeInference$subs,
							body,
							id,
							$author$project$AbstractSyntax$Type_Dual(
								$author$project$AbstractSyntax$Type_Var(id)));
						return A3(
							$author$project$AbstractSyntax$Type_Rec,
							id,
							kind,
							$author$project$AbstractSyntax$Type_Dual(bodyWithDualizedVar));
					case 'Type_Send':
						var _v2 = aType.a;
						var t1 = _v2.a;
						var t2 = _v2.b;
						return A2(
							$author$project$AbstractSyntax$Type_Receive,
							t1,
							$author$project$AbstractSyntax$Type_Dual(t2));
					case 'Type_Receive':
						var _v3 = aType.a;
						var t1 = _v3.a;
						var t2 = _v3.b;
						return A2(
							$author$project$AbstractSyntax$Type_Send,
							t1,
							$author$project$AbstractSyntax$Type_Dual(t2));
					case 'Type_Select':
						var _v4 = aType.a;
						var t1 = _v4.a;
						var t2 = _v4.b;
						return A2(
							$author$project$AbstractSyntax$Type_Branch,
							$author$project$AbstractSyntax$Type_Dual(t1),
							$author$project$AbstractSyntax$Type_Dual(t2));
					case 'Type_Branch':
						var _v5 = aType.a;
						var t1 = _v5.a;
						var t2 = _v5.b;
						return A2(
							$author$project$AbstractSyntax$Type_Select,
							$author$project$AbstractSyntax$Type_Dual(t1),
							$author$project$AbstractSyntax$Type_Dual(t2));
					case 'Type_End':
						var _v6 = aType.a;
						return $author$project$AbstractSyntax$Type_End;
					case 'Type_Dual':
						var t = aType.a.a;
						var $temp$aType = t;
						aType = $temp$aType;
						continue resolveDualLazy;
					default:
						break _v0$8;
				}
			} else {
				break _v0$8;
			}
		}
		var t = aType;
		return t;
	}
};
var $author$project$TypeInference$resolveDualEager = function (aType) {
	var _v0 = $author$project$TypeInference$resolveDualLazy(aType);
	switch (_v0.$) {
		case 'Type_Var':
			var id = _v0.a;
			return $author$project$AbstractSyntax$Type_Var(id);
		case 'Type_Rec':
			var id = _v0.a;
			var kind = _v0.b;
			var t = _v0.c;
			return A3(
				$author$project$AbstractSyntax$Type_Rec,
				id,
				kind,
				$author$project$TypeInference$resolveDualEager(t));
		case 'Type_Send':
			var t1 = _v0.a;
			var t2 = _v0.b;
			return A2(
				$author$project$AbstractSyntax$Type_Send,
				$author$project$TypeInference$resolveDualEager(t1),
				$author$project$TypeInference$resolveDualEager(t2));
		case 'Type_Receive':
			var t1 = _v0.a;
			var t2 = _v0.b;
			return A2(
				$author$project$AbstractSyntax$Type_Receive,
				$author$project$TypeInference$resolveDualEager(t1),
				$author$project$TypeInference$resolveDualEager(t2));
		case 'Type_Select':
			var t1 = _v0.a;
			var t2 = _v0.b;
			return A2(
				$author$project$AbstractSyntax$Type_Select,
				$author$project$TypeInference$resolveDualEager(t1),
				$author$project$TypeInference$resolveDualEager(t2));
		case 'Type_Branch':
			var t1 = _v0.a;
			var t2 = _v0.b;
			return A2(
				$author$project$AbstractSyntax$Type_Branch,
				$author$project$TypeInference$resolveDualEager(t1),
				$author$project$TypeInference$resolveDualEager(t2));
		case 'Type_End':
			return $author$project$AbstractSyntax$Type_End;
		case 'Type_LinearFn':
			var t1 = _v0.a;
			var t2 = _v0.b;
			return A2(
				$author$project$AbstractSyntax$Type_LinearFn,
				$author$project$TypeInference$resolveDualEager(t1),
				$author$project$TypeInference$resolveDualEager(t2));
		case 'Type_UnrestrictedFn':
			var t1 = _v0.a;
			var t2 = _v0.b;
			return A2(
				$author$project$AbstractSyntax$Type_UnrestrictedFn,
				$author$project$TypeInference$resolveDualEager(t1),
				$author$project$TypeInference$resolveDualEager(t2));
		case 'Type_Product':
			var t1 = _v0.a;
			var t2 = _v0.b;
			return A2(
				$author$project$AbstractSyntax$Type_Product,
				$author$project$TypeInference$resolveDualEager(t1),
				$author$project$TypeInference$resolveDualEager(t2));
		case 'Type_Unit':
			return $author$project$AbstractSyntax$Type_Unit;
		case 'Type_Sum':
			var t1 = _v0.a;
			var t2 = _v0.b;
			return A2(
				$author$project$AbstractSyntax$Type_Sum,
				$author$project$TypeInference$resolveDualEager(t1),
				$author$project$TypeInference$resolveDualEager(t2));
		case 'Type_OfCourse':
			var t = _v0.a;
			return $author$project$AbstractSyntax$Type_OfCourse(
				$author$project$TypeInference$resolveDualEager(t));
		case 'Type_Accept':
			var t = _v0.a;
			return $author$project$AbstractSyntax$Type_Accept(
				$author$project$TypeInference$resolveDualEager(t));
		case 'Type_Request':
			var t = _v0.a;
			return $author$project$AbstractSyntax$Type_Request(
				$author$project$TypeInference$resolveDualEager(t));
		default:
			var t = _v0.a;
			return $author$project$AbstractSyntax$Type_Dual(
				$author$project$TypeInference$resolveDualEager(t));
	}
};
var $author$project$TypeInference$showType = function (aType) {
	return $author$project$AbstractSyntax$typeToString(
		$author$project$TypeInference$resolveDualEager(aType));
};
var $author$project$TypeInference$typesAreEqual = F2(
	function (type1, type2) {
		typesAreEqual:
		while (true) {
			var _v0 = _Utils_Tuple2(
				$author$project$TypeInference$resolveDualLazy(type1),
				$author$project$TypeInference$resolveDualLazy(type2));
			_v0$16:
			while (true) {
				switch (_v0.a.$) {
					case 'Type_Var':
						if (_v0.b.$ === 'Type_Var') {
							var id1 = _v0.a.a;
							var id2 = _v0.b.a;
							return _Utils_eq(id1, id2);
						} else {
							break _v0$16;
						}
					case 'Type_Rec':
						if (_v0.b.$ === 'Type_Rec') {
							var _v1 = _v0.a;
							var id1 = _v1.a;
							var t1 = _v1.c;
							var _v2 = _v0.b;
							var id2 = _v2.a;
							var t2 = _v2.c;
							var newId = A2(
								$author$project$TypeInference$findNewId,
								id1,
								_Utils_ap(
									$author$project$TypeInference$freeVars(t1),
									$author$project$TypeInference$freeVars(t2)));
							var t1VarRenamed = A3(
								$author$project$TypeInference$subs,
								t1,
								id1,
								$author$project$AbstractSyntax$Type_Var(newId));
							var t2VarRenamed = A3(
								$author$project$TypeInference$subs,
								t2,
								id2,
								$author$project$AbstractSyntax$Type_Var(newId));
							var $temp$type1 = t1VarRenamed,
								$temp$type2 = t2VarRenamed;
							type1 = $temp$type1;
							type2 = $temp$type2;
							continue typesAreEqual;
						} else {
							break _v0$16;
						}
					case 'Type_Send':
						if (_v0.b.$ === 'Type_Send') {
							var _v3 = _v0.a;
							var ta1 = _v3.a;
							var tb1 = _v3.b;
							var _v4 = _v0.b;
							var ta2 = _v4.a;
							var tb2 = _v4.b;
							return A2($author$project$TypeInference$typesAreEqual, ta1, ta2) && A2($author$project$TypeInference$typesAreEqual, tb1, tb2);
						} else {
							break _v0$16;
						}
					case 'Type_Receive':
						if (_v0.b.$ === 'Type_Receive') {
							var _v5 = _v0.a;
							var ta1 = _v5.a;
							var tb1 = _v5.b;
							var _v6 = _v0.b;
							var ta2 = _v6.a;
							var tb2 = _v6.b;
							return A2($author$project$TypeInference$typesAreEqual, ta1, ta2) && A2($author$project$TypeInference$typesAreEqual, tb1, tb2);
						} else {
							break _v0$16;
						}
					case 'Type_Select':
						if (_v0.b.$ === 'Type_Select') {
							var _v7 = _v0.a;
							var ta1 = _v7.a;
							var tb1 = _v7.b;
							var _v8 = _v0.b;
							var ta2 = _v8.a;
							var tb2 = _v8.b;
							return A2($author$project$TypeInference$typesAreEqual, ta1, ta2) && A2($author$project$TypeInference$typesAreEqual, tb1, tb2);
						} else {
							break _v0$16;
						}
					case 'Type_Branch':
						if (_v0.b.$ === 'Type_Branch') {
							var _v9 = _v0.a;
							var ta1 = _v9.a;
							var tb1 = _v9.b;
							var _v10 = _v0.b;
							var ta2 = _v10.a;
							var tb2 = _v10.b;
							return A2($author$project$TypeInference$typesAreEqual, ta1, ta2) && A2($author$project$TypeInference$typesAreEqual, tb1, tb2);
						} else {
							break _v0$16;
						}
					case 'Type_End':
						if (_v0.b.$ === 'Type_End') {
							var _v11 = _v0.a;
							var _v12 = _v0.b;
							return true;
						} else {
							break _v0$16;
						}
					case 'Type_LinearFn':
						if (_v0.b.$ === 'Type_LinearFn') {
							var _v13 = _v0.a;
							var ta1 = _v13.a;
							var tb1 = _v13.b;
							var _v14 = _v0.b;
							var ta2 = _v14.a;
							var tb2 = _v14.b;
							return A2($author$project$TypeInference$typesAreEqual, ta1, ta2) && A2($author$project$TypeInference$typesAreEqual, tb1, tb2);
						} else {
							break _v0$16;
						}
					case 'Type_UnrestrictedFn':
						if (_v0.b.$ === 'Type_UnrestrictedFn') {
							var _v15 = _v0.a;
							var ta1 = _v15.a;
							var tb1 = _v15.b;
							var _v16 = _v0.b;
							var ta2 = _v16.a;
							var tb2 = _v16.b;
							return A2($author$project$TypeInference$typesAreEqual, ta1, ta2) && A2($author$project$TypeInference$typesAreEqual, tb1, tb2);
						} else {
							break _v0$16;
						}
					case 'Type_Product':
						if (_v0.b.$ === 'Type_Product') {
							var _v17 = _v0.a;
							var ta1 = _v17.a;
							var tb1 = _v17.b;
							var _v18 = _v0.b;
							var ta2 = _v18.a;
							var tb2 = _v18.b;
							return A2($author$project$TypeInference$typesAreEqual, ta1, ta2) && A2($author$project$TypeInference$typesAreEqual, tb1, tb2);
						} else {
							break _v0$16;
						}
					case 'Type_Unit':
						if (_v0.b.$ === 'Type_Unit') {
							var _v19 = _v0.a;
							var _v20 = _v0.b;
							return true;
						} else {
							break _v0$16;
						}
					case 'Type_Sum':
						if (_v0.b.$ === 'Type_Sum') {
							var _v21 = _v0.a;
							var ta1 = _v21.a;
							var tb1 = _v21.b;
							var _v22 = _v0.b;
							var ta2 = _v22.a;
							var tb2 = _v22.b;
							return A2($author$project$TypeInference$typesAreEqual, ta1, ta2) && A2($author$project$TypeInference$typesAreEqual, tb1, tb2);
						} else {
							break _v0$16;
						}
					case 'Type_OfCourse':
						if (_v0.b.$ === 'Type_OfCourse') {
							var t1 = _v0.a.a;
							var t2 = _v0.b.a;
							var $temp$type1 = t1,
								$temp$type2 = t2;
							type1 = $temp$type1;
							type2 = $temp$type2;
							continue typesAreEqual;
						} else {
							break _v0$16;
						}
					case 'Type_Accept':
						if (_v0.b.$ === 'Type_Accept') {
							var t1 = _v0.a.a;
							var t2 = _v0.b.a;
							var $temp$type1 = t1,
								$temp$type2 = t2;
							type1 = $temp$type1;
							type2 = $temp$type2;
							continue typesAreEqual;
						} else {
							break _v0$16;
						}
					case 'Type_Request':
						if (_v0.b.$ === 'Type_Request') {
							var t1 = _v0.a.a;
							var t2 = _v0.b.a;
							var $temp$type1 = t1,
								$temp$type2 = t2;
							type1 = $temp$type1;
							type2 = $temp$type2;
							continue typesAreEqual;
						} else {
							break _v0$16;
						}
					default:
						if (_v0.b.$ === 'Type_Dual') {
							var t1 = _v0.a.a;
							var t2 = _v0.b.a;
							var $temp$type1 = t1,
								$temp$type2 = t2;
							type1 = $temp$type1;
							type2 = $temp$type2;
							continue typesAreEqual;
						} else {
							break _v0$16;
						}
				}
			}
			return false;
		}
	});
var $author$project$TypeInference$checkOptionalAnnotation = F4(
	function (typeVarContext, typeVarEnv, t1, maybeType) {
		if (maybeType.$ === 'Just') {
			var aType = maybeType.a;
			return A2(
				$elm$core$Result$andThen,
				function (_v1) {
					var t2 = _v1.a;
					return A2($author$project$TypeInference$typesAreEqual, t1, t2) ? $elm$core$Result$Ok(t2) : $elm$core$Result$Err(
						'O tipo declarado é ' + ($author$project$AbstractSyntax$typeToString(aType) + (', mas o tipo inferido foi ' + $author$project$TypeInference$showType(t1))));
				},
				A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, aType));
		} else {
			return $elm$core$Result$Ok(t1);
		}
	});
var $author$project$TypeInference$isUsed = F2(
	function (id, context) {
		var _v0 = A2($author$project$Utils$lookup, id, context);
		if (((_v0.$ === 'Just') && (_v0.a.b.$ === 'Linear')) && (_v0.a.b.a.$ === 'Used')) {
			var _v1 = _v0.a;
			var _v2 = _v1.b.a;
			return true;
		} else {
			return false;
		}
	});
var $author$project$TypeInference$Used = {$: 'Used'};
var $author$project$TypeInference$markAsUsed = F2(
	function (k, context) {
		if (!context.b) {
			return _List_Nil;
		} else {
			if (context.a.b.b.$ === 'Unrestricted') {
				var _v1 = context.a;
				var id = _v1.a;
				var _v2 = _v1.b;
				var aType = _v2.a;
				var _v3 = _v2.b;
				var xs = context.b;
				return A2(
					$elm$core$List$cons,
					_Utils_Tuple2(
						id,
						_Utils_Tuple2(aType, $author$project$TypeInference$Unrestricted)),
					A2($author$project$TypeInference$markAsUsed, k, xs));
			} else {
				var _v4 = context.a;
				var id = _v4.a;
				var _v5 = _v4.b;
				var aType = _v5.a;
				var status = _v5.b.a;
				var xs = context.b;
				return _Utils_eq(id, k) ? A2(
					$elm$core$List$cons,
					_Utils_Tuple2(
						id,
						_Utils_Tuple2(
							aType,
							$author$project$TypeInference$Linear($author$project$TypeInference$Used))),
					xs) : A2(
					$elm$core$List$cons,
					_Utils_Tuple2(
						id,
						_Utils_Tuple2(
							aType,
							$author$project$TypeInference$Linear(status))),
					A2($author$project$TypeInference$markAsUsed, k, xs));
			}
		}
	});
var $author$project$TypeInference$UsedUnrestrictedly = {$: 'UsedUnrestrictedly'};
var $author$project$TypeInference$markAsUsedUnrestrictedly = function (context) {
	var f = function (_v1) {
		var id = _v1.a;
		var _v2 = _v1.b;
		var aType = _v2.a;
		var varUsage = _v2.b;
		if (varUsage.$ === 'Unrestricted') {
			return _Utils_Tuple2(
				id,
				_Utils_Tuple2(aType, $author$project$TypeInference$Unrestricted));
		} else {
			return _Utils_Tuple2(
				id,
				_Utils_Tuple2(
					aType,
					$author$project$TypeInference$Linear($author$project$TypeInference$UsedUnrestrictedly)));
		}
	};
	return A2($elm$core$List$map, f, context);
};
var $author$project$TypeInference$typeInferTerm = F4(
	function (typeVarContext, typeVarEnv, termVarContext, term) {
		switch (term.$) {
			case 'Term_Var':
				var id = term.a;
				var _v1 = A2($author$project$Utils$lookup, id, termVarContext);
				if (_v1.$ === 'Just') {
					if (_v1.a.b.$ === 'Unrestricted') {
						var _v2 = _v1.a;
						var t = _v2.a;
						var _v3 = _v2.b;
						return $elm$core$Result$Ok(
							_Utils_Tuple2(t, termVarContext));
					} else {
						switch (_v1.a.b.a.$) {
							case 'NotUsed':
								var _v4 = _v1.a;
								var t = _v4.a;
								var _v5 = _v4.b.a;
								return $elm$core$Result$Ok(
									_Utils_Tuple2(
										t,
										A2($author$project$TypeInference$markAsUsed, id, termVarContext)));
							case 'Used':
								var _v6 = _v1.a;
								var _v7 = _v6.b.a;
								return $elm$core$Result$Err('A variável linear ' + (id + ' foi usada mais de uma vez'));
							default:
								var _v8 = _v1.a;
								var _v9 = _v8.b.a;
								return $elm$core$Result$Err('A variável linear ' + (id + ' está sendo usada de forma irrestrita (zero ou mais vezes)'));
						}
					}
				} else {
					return $elm$core$Result$Err('A variável ' + (id + ' não foi declarada'));
				}
			case 'Term_LinearLambda':
				var id = term.a;
				var varType = term.b;
				var e = term.c;
				return A2(
					$elm$core$Result$andThen,
					function (_v10) {
						var t1 = _v10.a;
						var extendedContext = A2(
							$elm$core$List$cons,
							_Utils_Tuple2(
								id,
								_Utils_Tuple2(
									t1,
									$author$project$TypeInference$Linear($author$project$TypeInference$NotUsed))),
							termVarContext);
						return A2(
							$elm$core$Result$andThen,
							function (_v11) {
								var t2 = _v11.a;
								var outCtx = _v11.b;
								return A2($author$project$TypeInference$isUsed, id, outCtx) ? $elm$core$Result$Ok(
									_Utils_Tuple2(
										A2($author$project$AbstractSyntax$Type_LinearFn, t1, t2),
										A2($elm$core$List$drop, 1, outCtx))) : $elm$core$Result$Err('A variável linear ' + (id + ' não foi usada'));
							},
							A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext, e));
					},
					A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, varType));
			case 'Term_UnrestrictedLambda':
				var id = term.a;
				var varType = term.b;
				var e = term.c;
				return A2(
					$elm$core$Result$andThen,
					function (_v12) {
						var t1 = _v12.a;
						var extendedContext = A2(
							$elm$core$List$cons,
							_Utils_Tuple2(
								id,
								_Utils_Tuple2(t1, $author$project$TypeInference$Unrestricted)),
							termVarContext);
						return A2(
							$elm$core$Result$andThen,
							function (_v13) {
								var t2 = _v13.a;
								var outCtx = _v13.b;
								return $elm$core$Result$Ok(
									_Utils_Tuple2(
										A2($author$project$AbstractSyntax$Type_UnrestrictedFn, t1, t2),
										A2($elm$core$List$drop, 1, outCtx)));
							},
							A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext, e));
					},
					A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, varType));
			case 'Term_Application':
				var e1 = term.a;
				var e2 = term.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v14) {
						var t1 = _v14.a;
						var outCtx1 = _v14.b;
						var _v15 = $author$project$TypeInference$resolveDualLazy(t1);
						switch (_v15.$) {
							case 'Type_LinearFn':
								var ta = _v15.a;
								var tb = _v15.b;
								return A2(
									$elm$core$Result$andThen,
									function (_v16) {
										var t2 = _v16.a;
										var outCtx2 = _v16.b;
										return A2($author$project$TypeInference$typesAreEqual, t2, ta) ? $elm$core$Result$Ok(
											_Utils_Tuple2(tb, outCtx2)) : $elm$core$Result$Err(
											'Uma expressão do tipo ' + ($author$project$TypeInference$showType(ta) + (' era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t2))));
									},
									A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, outCtx1, e2));
							case 'Type_UnrestrictedFn':
								var ta = _v15.a;
								var tb = _v15.b;
								return A2(
									$elm$core$Result$andThen,
									function (_v17) {
										var t2 = _v17.a;
										return A2($author$project$TypeInference$typesAreEqual, t2, ta) ? $elm$core$Result$Ok(
											_Utils_Tuple2(tb, outCtx1)) : $elm$core$Result$Err(
											'Uma expressão do tipo ' + ($author$project$TypeInference$showType(ta) + (' era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t2))));
									},
									A4(
										$author$project$TypeInference$typeInferTerm,
										typeVarContext,
										typeVarEnv,
										$author$project$TypeInference$markAsUsedUnrestrictedly(termVarContext),
										e2));
							default:
								return $elm$core$Result$Err(
									'Uma expressão de um tipo função era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t1));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e1));
			case 'Term_Pair':
				var e1 = term.a;
				var e2 = term.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v18) {
						var t1 = _v18.a;
						var outCtx1 = _v18.b;
						return A2(
							$elm$core$Result$andThen,
							function (_v19) {
								var t2 = _v19.a;
								var outCtx2 = _v19.b;
								return $elm$core$Result$Ok(
									_Utils_Tuple2(
										A2($author$project$AbstractSyntax$Type_Product, t1, t2),
										outCtx2));
							},
							A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, outCtx1, e2));
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e1));
			case 'Term_LetPair':
				var id1 = term.a;
				var id2 = term.b;
				var e1 = term.c;
				var e2 = term.d;
				return _Utils_eq(id1, id2) ? $elm$core$Result$Err('Os nomes das duas variáveis introduzidas pelo desconstrutor de par não podem ser iguais') : A2(
					$elm$core$Result$andThen,
					function (_v20) {
						var t1 = _v20.a;
						var outCtx1 = _v20.b;
						var _v21 = $author$project$TypeInference$resolveDualLazy(t1);
						if (_v21.$ === 'Type_Product') {
							var ta = _v21.a;
							var tb = _v21.b;
							var extendedContext = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id1,
									_Utils_Tuple2(
										ta,
										$author$project$TypeInference$Linear($author$project$TypeInference$NotUsed))),
								A2(
									$elm$core$List$cons,
									_Utils_Tuple2(
										id2,
										_Utils_Tuple2(
											tb,
											$author$project$TypeInference$Linear($author$project$TypeInference$NotUsed))),
									outCtx1));
							return A2(
								$elm$core$Result$andThen,
								function (_v22) {
									var t2 = _v22.a;
									var outCtx2 = _v22.b;
									return (!A2($author$project$TypeInference$isUsed, id1, outCtx2)) ? $elm$core$Result$Err('A variável linear ' + (id1 + ' não foi usada')) : ((!A2($author$project$TypeInference$isUsed, id2, outCtx2)) ? $elm$core$Result$Err('A variável linear ' + (id2 + ' não foi usada')) : $elm$core$Result$Ok(
										_Utils_Tuple2(
											t2,
											A2($elm$core$List$drop, 2, outCtx2))));
								},
								A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext, e2));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo produto era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t1));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e1));
			case 'Term_Unit':
				return $elm$core$Result$Ok(
					_Utils_Tuple2($author$project$AbstractSyntax$Type_Unit, termVarContext));
			case 'Term_LetUnit':
				var e1 = term.a;
				var e2 = term.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v23) {
						var t1 = _v23.a;
						var outCtx1 = _v23.b;
						var _v24 = $author$project$TypeInference$resolveDualLazy(t1);
						if (_v24.$ === 'Type_Unit') {
							return A2(
								$elm$core$Result$andThen,
								function (_v25) {
									var t2 = _v25.a;
									var outCtx2 = _v25.b;
									return $elm$core$Result$Ok(
										_Utils_Tuple2(t2, outCtx2));
								},
								A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, outCtx1, e2));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão do tipo 1 era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t1));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e1));
			case 'Term_Inl':
				var type2 = term.a;
				var e = term.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v26) {
						var t2 = _v26.a;
						return A2(
							$elm$core$Result$andThen,
							function (_v27) {
								var t1 = _v27.a;
								var outCtx = _v27.b;
								return $elm$core$Result$Ok(
									_Utils_Tuple2(
										A2($author$project$AbstractSyntax$Type_Sum, t1, t2),
										outCtx));
							},
							A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
					},
					A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, type2));
			case 'Term_Inr':
				var type1 = term.a;
				var e = term.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v28) {
						var t1 = _v28.a;
						return A2(
							$elm$core$Result$andThen,
							function (_v29) {
								var t2 = _v29.a;
								var outCtx = _v29.b;
								return $elm$core$Result$Ok(
									_Utils_Tuple2(
										A2($author$project$AbstractSyntax$Type_Sum, t1, t2),
										outCtx));
							},
							A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
					},
					A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, type1));
			case 'Term_Case':
				var e = term.a;
				var id1 = term.b;
				var e1 = term.c;
				var id2 = term.d;
				var e2 = term.e;
				return A2(
					$elm$core$Result$andThen,
					function (_v30) {
						var t = _v30.a;
						var outCtx = _v30.b;
						var _v31 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v31.$ === 'Type_Sum') {
							var ta = _v31.a;
							var tb = _v31.b;
							var extendedContext2 = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id2,
									_Utils_Tuple2(
										tb,
										$author$project$TypeInference$Linear($author$project$TypeInference$NotUsed))),
								outCtx);
							var extendedContext1 = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id1,
									_Utils_Tuple2(
										ta,
										$author$project$TypeInference$Linear($author$project$TypeInference$NotUsed))),
								outCtx);
							return A2(
								$elm$core$Result$andThen,
								function (_v32) {
									var t1 = _v32.a;
									var outCtx1 = _v32.b;
									return A2(
										$elm$core$Result$andThen,
										function (_v33) {
											var t2 = _v33.a;
											var outCtx2 = _v33.b;
											if (!A2($author$project$TypeInference$isUsed, id1, outCtx1)) {
												return $elm$core$Result$Err('A variável linear ' + (id1 + ' não foi usada'));
											} else {
												if (!A2($author$project$TypeInference$isUsed, id2, outCtx2)) {
													return $elm$core$Result$Err('A variável linear ' + (id2 + ' não foi usada'));
												} else {
													if (!A2($author$project$TypeInference$typesAreEqual, t1, t2)) {
														return $elm$core$Result$Err(
															'Os tipos de ambos os ramos de uma expressão case devem ser iguais, mas o primeiro ramo é ' + ('do tipo ' + ($author$project$TypeInference$showType(t1) + (', enquanto o segundo ramo é do tipo ' + $author$project$TypeInference$showType(t2)))));
													} else {
														var outCtx2VarRemoved = A2($elm$core$List$drop, 1, outCtx2);
														var outCtx1VarRemoved = A2($elm$core$List$drop, 1, outCtx1);
														return _Utils_eq(outCtx1VarRemoved, outCtx2VarRemoved) ? $elm$core$Result$Ok(
															_Utils_Tuple2(t1, outCtx1VarRemoved)) : $elm$core$Result$Err('Alguma variável linear está sendo usada em um dos ramos da expressão case, ' + 'mas não no outro');
													}
												}
											}
										},
										A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext2, e2));
								},
								A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext1, e1));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo soma era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_OfCourse':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v34) {
						var aType = _v34.a;
						return $elm$core$Result$Ok(
							_Utils_Tuple2(
								$author$project$AbstractSyntax$Type_OfCourse(aType),
								termVarContext));
					},
					A4(
						$author$project$TypeInference$typeInferTerm,
						typeVarContext,
						typeVarEnv,
						$author$project$TypeInference$markAsUsedUnrestrictedly(termVarContext),
						e));
			case 'Term_LetOfCourse':
				var id = term.a;
				var e1 = term.b;
				var e2 = term.c;
				return A2(
					$elm$core$Result$andThen,
					function (_v35) {
						var t1 = _v35.a;
						var outCtx1 = _v35.b;
						var _v36 = $author$project$TypeInference$resolveDualLazy(t1);
						if (_v36.$ === 'Type_OfCourse') {
							var ta = _v36.a;
							var extendedContext = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id,
									_Utils_Tuple2(ta, $author$project$TypeInference$Unrestricted)),
								outCtx1);
							return A2(
								$elm$core$Result$andThen,
								function (_v37) {
									var t2 = _v37.a;
									var outCtx2 = _v37.b;
									return $elm$core$Result$Ok(
										_Utils_Tuple2(
											t2,
											A2($elm$core$List$drop, 1, outCtx2)));
								},
								A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext, e2));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo \"of course\" era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t1));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e1));
			case 'Term_Send':
				var e1 = term.a;
				var e2 = term.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v38) {
						var t1 = _v38.a;
						var outCtx1 = _v38.b;
						return A2(
							$elm$core$Result$andThen,
							function (_v39) {
								var t2 = _v39.a;
								var outCtx2 = _v39.b;
								var _v40 = $author$project$TypeInference$resolveDualLazy(t2);
								if (_v40.$ === 'Type_Send') {
									var ta = _v40.a;
									var tb = _v40.b;
									return A2($author$project$TypeInference$typesAreEqual, t1, ta) ? $elm$core$Result$Ok(
										_Utils_Tuple2(tb, outCtx2)) : $elm$core$Result$Err(
										'Uma expressão do tipo ' + ($author$project$TypeInference$showType(ta) + (' era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t1))));
								} else {
									return $elm$core$Result$Err(
										'Uma expressão de um tipo send era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t2));
								}
							},
							A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, outCtx1, e2));
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e1));
			case 'Term_Receive':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v41) {
						var t = _v41.a;
						var outCtx = _v41.b;
						var _v42 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v42.$ === 'Type_Receive') {
							var ta = _v42.a;
							var tb = _v42.b;
							return $elm$core$Result$Ok(
								_Utils_Tuple2(
									A2($author$project$AbstractSyntax$Type_Product, ta, tb),
									outCtx));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo receive era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_SelectLeft':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v43) {
						var t = _v43.a;
						var outCtx = _v43.b;
						var _v44 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v44.$ === 'Type_Select') {
							var ta = _v44.a;
							var tb = _v44.b;
							return $elm$core$Result$Ok(
								_Utils_Tuple2(ta, outCtx));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo select era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_SelectRight':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v45) {
						var t = _v45.a;
						var outCtx = _v45.b;
						var _v46 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v46.$ === 'Type_Select') {
							var ta = _v46.a;
							var tb = _v46.b;
							return $elm$core$Result$Ok(
								_Utils_Tuple2(tb, outCtx));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo select era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_Branch':
				var e = term.a;
				var id1 = term.b;
				var e1 = term.c;
				var id2 = term.d;
				var e2 = term.e;
				return A2(
					$elm$core$Result$andThen,
					function (_v47) {
						var t = _v47.a;
						var outCtx = _v47.b;
						var _v48 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v48.$ === 'Type_Branch') {
							var ta = _v48.a;
							var tb = _v48.b;
							var extendedContext2 = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id2,
									_Utils_Tuple2(
										tb,
										$author$project$TypeInference$Linear($author$project$TypeInference$NotUsed))),
								outCtx);
							var extendedContext1 = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id1,
									_Utils_Tuple2(
										ta,
										$author$project$TypeInference$Linear($author$project$TypeInference$NotUsed))),
								outCtx);
							return A2(
								$elm$core$Result$andThen,
								function (_v49) {
									var t1 = _v49.a;
									var outCtx1 = _v49.b;
									return A2(
										$elm$core$Result$andThen,
										function (_v50) {
											var t2 = _v50.a;
											var outCtx2 = _v50.b;
											if (!A2($author$project$TypeInference$isUsed, id1, outCtx1)) {
												return $elm$core$Result$Err('A variável linear ' + (id1 + ' não foi usada'));
											} else {
												if (!A2($author$project$TypeInference$isUsed, id2, outCtx2)) {
													return $elm$core$Result$Err('A variável linear ' + (id2 + ' não foi usada'));
												} else {
													if (!A2($author$project$TypeInference$typesAreEqual, t1, t2)) {
														return $elm$core$Result$Err(
															'Os tipos de ambos os ramos de uma expressão branch devem ser iguais, mas o primeiro ramo é ' + ('do tipo ' + ($author$project$TypeInference$showType(t1) + (', enquanto o segundo ramo é do tipo ' + $author$project$TypeInference$showType(t2)))));
													} else {
														var outCtx2VarRemoved = A2($elm$core$List$drop, 1, outCtx2);
														var outCtx1VarRemoved = A2($elm$core$List$drop, 1, outCtx1);
														return _Utils_eq(outCtx1VarRemoved, outCtx2VarRemoved) ? $elm$core$Result$Ok(
															_Utils_Tuple2(t1, outCtx1VarRemoved)) : $elm$core$Result$Err('Alguma variável linear está sendo usada em um dos ramos da expressão branch, ' + 'mas não no outro');
													}
												}
											}
										},
										A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext2, e2));
								},
								A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext1, e1));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo branch era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_Close':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v51) {
						var t = _v51.a;
						var outCtx = _v51.b;
						var _v52 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v52.$ === 'Type_End') {
							return $elm$core$Result$Ok(
								_Utils_Tuple2($author$project$AbstractSyntax$Type_Unit, outCtx));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão do tipo End era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_NewAccess':
				var aType = term.a;
				var id1 = term.b;
				var id2 = term.c;
				var e = term.d;
				return _Utils_eq(id1, id2) ? $elm$core$Result$Err('Os nomes das duas variáveis introduzidas por \"new access\" não podem ser iguais') : A2(
					$elm$core$Result$andThen,
					function (_v53) {
						var t = _v53.a;
						var kind = _v53.b;
						if (!_Utils_eq(kind, $author$project$AbstractSyntax$Kind_SessionType)) {
							return $elm$core$Result$Err(
								'O tipo fornecido para a operação \"new access\" deve ser um tipo de sessão, mas o tipo fornecido ' + ('foi ' + ($author$project$AbstractSyntax$typeToString(aType) + ', que é do kind *ns')));
						} else {
							var extendedContext = A2(
								$elm$core$List$cons,
								_Utils_Tuple2(
									id1,
									_Utils_Tuple2(
										$author$project$AbstractSyntax$Type_Accept(t),
										$author$project$TypeInference$Unrestricted)),
								A2(
									$elm$core$List$cons,
									_Utils_Tuple2(
										id2,
										_Utils_Tuple2(
											$author$project$AbstractSyntax$Type_Request(
												$author$project$AbstractSyntax$Type_Dual(t)),
											$author$project$TypeInference$Unrestricted)),
									termVarContext));
							return A2(
								$elm$core$Result$andThen,
								function (_v54) {
									var t1 = _v54.a;
									var outCtx1 = _v54.b;
									return $elm$core$Result$Ok(
										_Utils_Tuple2(
											t1,
											A2($elm$core$List$drop, 2, outCtx1)));
								},
								A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext, e));
						}
					},
					A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, aType));
			case 'Term_Accept':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v55) {
						var t = _v55.a;
						var outCtx = _v55.b;
						var _v56 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v56.$ === 'Type_Accept') {
							var ta = _v56.a;
							return $elm$core$Result$Ok(
								_Utils_Tuple2(ta, outCtx));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo Accept era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_Request':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v57) {
						var t = _v57.a;
						var outCtx = _v57.b;
						var _v58 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v58.$ === 'Type_Request') {
							var ta = _v58.a;
							return $elm$core$Result$Ok(
								_Utils_Tuple2(ta, outCtx));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo Request era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_NewSession':
				var aType = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v59) {
						var t = _v59.a;
						var kind = _v59.b;
						return (!_Utils_eq(kind, $author$project$AbstractSyntax$Kind_SessionType)) ? $elm$core$Result$Err(
							'O tipo fornecido para a operação \"new session\" deve ser um tipo de sessão, mas o tipo fornecido ' + ('foi ' + ($author$project$AbstractSyntax$typeToString(aType) + ', que é do kind *ns'))) : $elm$core$Result$Ok(
							_Utils_Tuple2(
								A2(
									$author$project$AbstractSyntax$Type_Product,
									t,
									$author$project$AbstractSyntax$Type_Dual(t)),
								termVarContext));
					},
					A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, aType));
			case 'Term_Fork':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v60) {
						var t = _v60.a;
						var outCtx = _v60.b;
						var _v61 = $author$project$TypeInference$resolveDualLazy(t);
						if ((_v61.$ === 'Type_LinearFn') && (_v61.b.$ === 'Type_Unit')) {
							var ta = _v61.a;
							var _v62 = _v61.b;
							return A2(
								$elm$core$Result$andThen,
								function (kind) {
									return (!_Utils_eq(kind, $author$project$AbstractSyntax$Kind_SessionType)) ? $elm$core$Result$Err(
										'O parâmetro da função fornecida para a operação \"fork\" deve ser de um tipo de sessão, mas ' + ('o tipo inferido foi ' + ($author$project$TypeInference$showType(ta) + ', que é do kind *ns'))) : $elm$core$Result$Ok(
										_Utils_Tuple2(
											$author$project$AbstractSyntax$Type_Dual(ta),
											outCtx));
								},
								A2($author$project$TypeInference$checkType, typeVarContext, ta));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo da forma A -o 1, onde A é um tipo de sessão, era esperada, mas o ' + ('tipo inferido foi ' + $author$project$TypeInference$showType(t)));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_Spawn':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v63) {
						var t = _v63.a;
						var outCtx = _v63.b;
						var _v64 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v64.$ === 'Type_Unit') {
							return $elm$core$Result$Ok(
								_Utils_Tuple2($author$project$AbstractSyntax$Type_Unit, outCtx));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão do tipo 1 era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_Fold':
				var aType = term.a;
				var e = term.b;
				return A2(
					$elm$core$Result$andThen,
					function (_v65) {
						var t = _v65.a;
						if (t.$ === 'Type_Rec') {
							var id = t.a;
							var ta = t.c;
							return A2(
								$elm$core$Result$andThen,
								function (_v67) {
									var t1 = _v67.a;
									var outCtx1 = _v67.b;
									var unfoldedType = A3($author$project$TypeInference$subs, ta, id, t);
									return A2($author$project$TypeInference$typesAreEqual, t1, unfoldedType) ? $elm$core$Result$Ok(
										_Utils_Tuple2(t, outCtx1)) : $elm$core$Result$Err(
										'Uma expressão do tipo ' + ($author$project$TypeInference$showType(unfoldedType) + (' era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t1))));
								},
								A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
						} else {
							return $elm$core$Result$Err('O tipo fornecido na operação de fold deve ser um tipo recursivo');
						}
					},
					A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, aType));
			case 'Term_Unfold':
				var e = term.a;
				return A2(
					$elm$core$Result$andThen,
					function (_v68) {
						var t = _v68.a;
						var outCtx = _v68.b;
						var _v69 = $author$project$TypeInference$resolveDualLazy(t);
						if (_v69.$ === 'Type_Rec') {
							var id = _v69.a;
							var ta = _v69.c;
							var unfoldedType = A3($author$project$TypeInference$subs, ta, id, t);
							return $elm$core$Result$Ok(
								_Utils_Tuple2(unfoldedType, outCtx));
						} else {
							return $elm$core$Result$Err(
								'Uma expressão de um tipo recursivo era esperada, mas o tipo inferido foi ' + $author$project$TypeInference$showType(t));
						}
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e));
			case 'Term_LetLin':
				var id = term.a;
				var maybeType = term.b;
				var e1 = term.c;
				var e2 = term.d;
				return A2(
					$elm$core$Result$andThen,
					function (_v70) {
						var t1 = _v70.a;
						var outCtx1 = _v70.b;
						return A2(
							$elm$core$Result$andThen,
							function (t) {
								var extendedContext = A2(
									$elm$core$List$cons,
									_Utils_Tuple2(
										id,
										_Utils_Tuple2(
											t,
											$author$project$TypeInference$Linear($author$project$TypeInference$NotUsed))),
									outCtx1);
								return A2(
									$elm$core$Result$andThen,
									function (_v71) {
										var t2 = _v71.a;
										var outCtx2 = _v71.b;
										return A2($author$project$TypeInference$isUsed, id, outCtx2) ? $elm$core$Result$Ok(
											_Utils_Tuple2(
												t2,
												A2($elm$core$List$drop, 1, outCtx2))) : $elm$core$Result$Err('A variável linear ' + (id + ' não foi usada'));
									},
									A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext, e2));
							},
							A2(
								$elm$core$Result$mapError,
								function (e) {
									return 'Na definição de ' + (id + (': ' + e));
								},
								A4($author$project$TypeInference$checkOptionalAnnotation, typeVarContext, typeVarEnv, t1, maybeType)));
					},
					A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, e1));
			case 'Term_LetUn':
				var id = term.a;
				var maybeType = term.b;
				var e1 = term.c;
				var e2 = term.d;
				return A2(
					$elm$core$Result$andThen,
					function (_v72) {
						var t1 = _v72.a;
						return A2(
							$elm$core$Result$andThen,
							function (t) {
								var extendedContext = A2(
									$elm$core$List$cons,
									_Utils_Tuple2(
										id,
										_Utils_Tuple2(t, $author$project$TypeInference$Unrestricted)),
									termVarContext);
								return A2(
									$elm$core$Result$andThen,
									function (_v73) {
										var t2 = _v73.a;
										var outCtx2 = _v73.b;
										return $elm$core$Result$Ok(
											_Utils_Tuple2(
												t2,
												A2($elm$core$List$drop, 1, outCtx2)));
									},
									A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext, e2));
							},
							A2(
								$elm$core$Result$mapError,
								function (e) {
									return 'Na definição de ' + (id + (': ' + e));
								},
								A4($author$project$TypeInference$checkOptionalAnnotation, typeVarContext, typeVarEnv, t1, maybeType)));
					},
					A4(
						$author$project$TypeInference$typeInferTerm,
						typeVarContext,
						typeVarEnv,
						$author$project$TypeInference$markAsUsedUnrestrictedly(termVarContext),
						e1));
			default:
				var id = term.a;
				var aType = term.b;
				var e1 = term.c;
				var e2 = term.d;
				return A2(
					$elm$core$Result$andThen,
					function (_v74) {
						var t = _v74.a;
						var extendedContext = A2(
							$elm$core$List$cons,
							_Utils_Tuple2(
								id,
								_Utils_Tuple2(t, $author$project$TypeInference$Unrestricted)),
							termVarContext);
						return A2(
							$elm$core$Result$andThen,
							function (_v75) {
								var t1 = _v75.a;
								return (!A2($author$project$TypeInference$typesAreEqual, t1, t)) ? $elm$core$Result$Err(
									'Na definição de ' + (id + (': O tipo declarado é ' + ($author$project$AbstractSyntax$typeToString(aType) + (', mas o tipo ' + ('inferido foi ' + $author$project$TypeInference$showType(t1))))))) : A2(
									$elm$core$Result$andThen,
									function (_v76) {
										var t2 = _v76.a;
										var outCtx2 = _v76.b;
										return $elm$core$Result$Ok(
											_Utils_Tuple2(
												t2,
												A2($elm$core$List$drop, 1, outCtx2)));
									},
									A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, extendedContext, e2));
							},
							A4(
								$author$project$TypeInference$typeInferTerm,
								typeVarContext,
								typeVarEnv,
								$author$project$TypeInference$markAsUsedUnrestrictedly(extendedContext),
								e1));
					},
					A2(
						$elm$core$Result$mapError,
						function (e) {
							return 'Na definição de ' + (id + (': ' + e));
						},
						A3($author$project$TypeInference$checkAndApplySubs, typeVarContext, typeVarEnv, aType)));
		}
	});
var $author$project$TypeInference$typeInferProgram = function (_v0) {
	var typevars = _v0.typevars;
	var typedefs = _v0.typedefs;
	var vars = _v0.vars;
	var mainTerm = _v0.mainTerm;
	return A2(
		$elm$core$Result$andThen,
		function (typeVarContext) {
			var typeVarEnv = $elm$core$List$reverse(typedefs);
			return A2(
				$elm$core$Result$andThen,
				function (termVarContext) {
					return A2(
						$elm$core$Result$andThen,
						function (_v1) {
							var aType = _v1.a;
							var outputContext = _v1.b;
							return A2(
								$elm$core$Result$andThen,
								function (_v2) {
									return $elm$core$Result$Ok(
										$author$project$TypeInference$resolveDualEager(aType));
								},
								$author$project$TypeInference$checkUsedLinVars(outputContext));
						},
						A4($author$project$TypeInference$typeInferTerm, typeVarContext, typeVarEnv, termVarContext, mainTerm));
				},
				A4($author$project$TypeInference$checkVarDeclarations, typeVarContext, typeVarEnv, _List_Nil, vars));
		},
		A2(
			$author$project$TypeInference$checkTypedefs,
			$elm$core$List$reverse(typevars),
			typedefs));
};
var $author$project$Main$update = F2(
	function (msg, model) {
		update:
		while (true) {
			switch (msg.$) {
				case 'ChangeCode':
					var newCode = msg.a;
					var _v1 = $author$project$Parsing$parseProgram(newCode);
					if (_v1.$ === 'Err') {
						var errors = _v1.a;
						return _Utils_Tuple2(
							{
								code: newCode,
								state: $author$project$Main$SyntaxError(
									A2($elm$core$String$join, ' or ', errors))
							},
							$elm$core$Platform$Cmd$none);
					} else {
						var program = _v1.a;
						var _v2 = $author$project$TypeInference$typeInferProgram(program);
						if (_v2.$ === 'Err') {
							var error = _v2.a;
							return _Utils_Tuple2(
								{
									code: newCode,
									state: $author$project$Main$TypeError(error)
								},
								$elm$core$Platform$Cmd$none);
						} else {
							var aType = _v2.a;
							return _Utils_Tuple2(
								{
									code: newCode,
									state: A2($author$project$Main$WellTyped, program, aType)
								},
								$elm$core$Platform$Cmd$none);
						}
					}
				case 'Run':
					return _Utils_Tuple2(model, $author$project$Main$getSeedFromTime);
				case 'GotSeed':
					var seed = msg.a;
					var _v3 = model.state;
					switch (_v3.$) {
						case 'WellTyped':
							var program = _v3.a;
							var aType = _v3.b;
							var $temp$msg = $author$project$Main$EvalStep,
								$temp$model = _Utils_update(
								model,
								{
									state: A5(
										$author$project$Main$Evaluation,
										$author$project$Evaluation$Running,
										$author$project$Evaluation$initialConfig(program.mainTerm),
										seed,
										program,
										aType)
								});
							msg = $temp$msg;
							model = $temp$model;
							continue update;
						case 'Evaluation':
							if (_v3.a.$ === 'Running') {
								var _v4 = _v3.a;
								return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
							} else {
								var program = _v3.d;
								var aType = _v3.e;
								var $temp$msg = $author$project$Main$EvalStep,
									$temp$model = _Utils_update(
									model,
									{
										state: A5(
											$author$project$Main$Evaluation,
											$author$project$Evaluation$Running,
											$author$project$Evaluation$initialConfig(program.mainTerm),
											seed,
											program,
											aType)
									});
								msg = $temp$msg;
								model = $temp$model;
								continue update;
							}
						default:
							return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
					}
				case 'EvalStep':
					var _v5 = model.state;
					if ((_v5.$ === 'Evaluation') && (_v5.a.$ === 'Running')) {
						var _v6 = _v5.a;
						var config = _v5.b;
						var seed = _v5.c;
						var program = _v5.d;
						var aType = _v5.e;
						var _v7 = A2($author$project$Evaluation$step, seed, config);
						var newEvalStatus = _v7.a;
						var newConfig = _v7.b;
						var newSeed = _v7.c;
						return _Utils_Tuple2(
							_Utils_update(
								model,
								{
									state: A5($author$project$Main$Evaluation, newEvalStatus, newConfig, newSeed, program, aType)
								}),
							$author$project$Main$fireMsg($author$project$Main$EvalStep));
					} else {
						return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
					}
				case 'Stop':
					var _v8 = model.state;
					if ((_v8.$ === 'Evaluation') && (_v8.a.$ === 'Running')) {
						var _v9 = _v8.a;
						var config = _v8.b;
						var seed = _v8.c;
						var program = _v8.d;
						var aType = _v8.e;
						var newConfig = _Utils_update(
							config,
							{channels: _List_Nil, threads: _List_Nil});
						return _Utils_Tuple2(
							_Utils_update(
								model,
								{
									state: A5($author$project$Main$Evaluation, $author$project$Evaluation$Stopped, newConfig, seed, program, aType)
								}),
							$elm$core$Platform$Cmd$none);
					} else {
						return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
					}
				case 'LoadFile':
					return _Utils_Tuple2(
						model,
						A2($elm$file$File$Select$file, _List_Nil, $author$project$Main$GotFile));
				case 'SaveFile':
					return _Utils_Tuple2(
						model,
						A3($elm$file$File$Download$string, 'programa.clc', 'text/plain', model.code));
				default:
					var file = msg.a;
					return _Utils_Tuple2(
						model,
						A2(
							$elm$core$Task$perform,
							$author$project$Main$ChangeCode,
							$elm$file$File$toString(file)));
			}
		}
	});
var $author$project$Main$LoadFile = {$: 'LoadFile'};
var $author$project$Main$SaveFile = {$: 'SaveFile'};
var $elm$json$Json$Encode$bool = _Json_wrap;
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$autofocus = $elm$html$Html$Attributes$boolProperty('autofocus');
var $elm$html$Html$button = _VirtualDom_node('button');
var $elm$html$Html$Attributes$cols = function (n) {
	return A2(
		_VirtualDom_attribute,
		'cols',
		$elm$core$String$fromInt(n));
};
var $elm$html$Html$div = _VirtualDom_node('div');
var $elm$html$Html$h1 = _VirtualDom_node('h1');
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$onClick = function (msg) {
	return A2(
		$elm$html$Html$Events$on,
		'click',
		$elm$json$Json$Decode$succeed(msg));
};
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$json$Json$Decode$field = _Json_decodeField;
var $elm$json$Json$Decode$at = F2(
	function (fields, decoder) {
		return A3($elm$core$List$foldr, $elm$json$Json$Decode$field, decoder, fields);
	});
var $elm$json$Json$Decode$string = _Json_decodeString;
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 $elm$html$Html$Attributes$rows = function (n) {
	return A2(
		_VirtualDom_attribute,
		'rows',
		$elm$core$String$fromInt(n));
};
var $elm$virtual_dom$VirtualDom$style = _VirtualDom_style;
var $elm$html$Html$Attributes$style = $elm$virtual_dom$VirtualDom$style;
var $elm$virtual_dom$VirtualDom$text = _VirtualDom_text;
var $elm$html$Html$text = $elm$virtual_dom$VirtualDom$text;
var $elm$html$Html$textarea = _VirtualDom_node('textarea');
var $elm$json$Json$Encode$string = _Json_wrap;
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$value = $elm$html$Html$Attributes$stringProperty('value');
var $author$project$Main$Run = {$: 'Run'};
var $author$project$Main$Stop = {$: 'Stop'};
var $elm$html$Html$pre = _VirtualDom_node('pre');
var $author$project$Evaluation$valueToString = function (value) {
	switch (value.$) {
		case 'Value_ChannelName':
			return '<nome de canal>';
		case 'Value_LinearFn':
			return '<closure de função linear>';
		case 'Value_UnrestrictedFn':
			return '<closure de função irrestrita>';
		case 'Value_Pair':
			var v1 = value.a;
			var v2 = value.b;
			return '{' + ($author$project$Evaluation$valueToString(v1) + (', ' + ($author$project$Evaluation$valueToString(v2) + '}')));
		case 'Value_Unit':
			return '{}';
		case 'Value_Inl':
			var v = value.a;
			return 'inl (' + ($author$project$Evaluation$valueToString(v) + ')');
		case 'Value_Inr':
			var v = value.a;
			return 'inr (' + ($author$project$Evaluation$valueToString(v) + ')');
		case 'Value_OfCourse':
			return '<closure de @>';
		default:
			var v = value.a;
			return 'fold (' + ($author$project$Evaluation$valueToString(v) + ')');
	}
};
var $author$project$Main$viewState = function (state) {
	switch (state.$) {
		case 'SyntaxError':
			return A2(
				$elm$html$Html$div,
				_List_Nil,
				_List_fromArray(
					[
						A2(
						$elm$html$Html$pre,
						_List_Nil,
						_List_fromArray(
							[
								$elm$html$Html$text('Erro de sintaxe')
							]))
					]));
		case 'TypeError':
			var error = state.a;
			return A2(
				$elm$html$Html$div,
				_List_Nil,
				_List_fromArray(
					[
						A2(
						$elm$html$Html$pre,
						_List_Nil,
						_List_fromArray(
							[
								$elm$html$Html$text('Erro de tipo: ' + error)
							]))
					]));
		case 'WellTyped':
			var aType = state.b;
			return A2(
				$elm$html$Html$div,
				_List_Nil,
				_List_fromArray(
					[
						A2(
						$elm$html$Html$pre,
						_List_Nil,
						_List_fromArray(
							[
								$elm$html$Html$text(
								'Tipo: \n' + $author$project$AbstractSyntax$typeToString(aType))
							])),
						A2(
						$elm$html$Html$button,
						_List_fromArray(
							[
								$elm$html$Html$Events$onClick($author$project$Main$Run)
							]),
						_List_fromArray(
							[
								$elm$html$Html$text('Rodar')
							]))
					]));
		default:
			var status = state.a;
			var returnValue = state.b.returnValue;
			var aType = state.e;
			var valueString = function () {
				if (returnValue.$ === 'Just') {
					var value = returnValue.a;
					return 'Valor de retorno: ' + $author$project$Evaluation$valueToString(value);
				} else {
					return '';
				}
			}();
			var statusString = function () {
				switch (status.$) {
					case 'Running':
						return 'Rodando';
					case 'Finished':
						return 'Terminado';
					case 'Lock':
						return 'Lock';
					case 'Error':
						return 'Erro';
					default:
						return 'Parado';
				}
			}();
			return A2(
				$elm$html$Html$div,
				_List_Nil,
				_List_fromArray(
					[
						A2(
						$elm$html$Html$pre,
						_List_Nil,
						_List_fromArray(
							[
								$elm$html$Html$text(
								'Tipo: ' + $author$project$AbstractSyntax$typeToString(aType))
							])),
						A2(
						$elm$html$Html$pre,
						_List_Nil,
						_List_fromArray(
							[
								$elm$html$Html$text('Status: ' + statusString)
							])),
						A2(
						$elm$html$Html$pre,
						_List_Nil,
						_List_fromArray(
							[
								$elm$html$Html$text(valueString)
							])),
						function () {
						if (status.$ === 'Running') {
							return A2(
								$elm$html$Html$button,
								_List_fromArray(
									[
										$elm$html$Html$Events$onClick($author$project$Main$Stop)
									]),
								_List_fromArray(
									[
										$elm$html$Html$text('Parar')
									]));
						} else {
							return A2(
								$elm$html$Html$button,
								_List_fromArray(
									[
										$elm$html$Html$Events$onClick($author$project$Main$Run)
									]),
								_List_fromArray(
									[
										$elm$html$Html$text('Rodar de novo')
									]));
						}
					}()
					]));
	}
};
var $author$project$Main$view = function (model) {
	return {
		body: _List_fromArray(
			[
				A2(
				$elm$html$Html$h1,
				_List_Nil,
				_List_fromArray(
					[
						$elm$html$Html$text('Interpretador de cálculo-lambda concorrente')
					])),
				A2(
				$elm$html$Html$div,
				_List_fromArray(
					[
						A2($elm$html$Html$Attributes$style, 'margin-bottom', '20px')
					]),
				_List_fromArray(
					[
						A2(
						$elm$html$Html$button,
						_List_fromArray(
							[
								$elm$html$Html$Events$onClick($author$project$Main$LoadFile)
							]),
						_List_fromArray(
							[
								$elm$html$Html$text('Carregar arquivo')
							])),
						A2(
						$elm$html$Html$button,
						_List_fromArray(
							[
								$elm$html$Html$Events$onClick($author$project$Main$SaveFile)
							]),
						_List_fromArray(
							[
								$elm$html$Html$text('Salvar arquivo')
							]))
					])),
				A2(
				$elm$html$Html$textarea,
				_List_fromArray(
					[
						$elm$html$Html$Attributes$rows(23),
						$elm$html$Html$Attributes$cols(80),
						$elm$html$Html$Attributes$autofocus(true),
						$elm$html$Html$Events$onInput($author$project$Main$ChangeCode),
						$elm$html$Html$Attributes$value(model.code)
					]),
				_List_Nil),
				$author$project$Main$viewState(model.state)
			]),
		title: 'Interpretador de cálculo-lambda concorrente'
	};
};
var $author$project$Main$main = $elm$browser$Browser$document(
	{init: $author$project$Main$init, subscriptions: $author$project$Main$subscriptions, update: $author$project$Main$update, view: $author$project$Main$view});
_Platform_export({'Main':{'init':$author$project$Main$main(
	$elm$json$Json$Decode$succeed(_Utils_Tuple0))(0)}});}(this));

  var app = Elm.Main.init({ node: document.getElementById("elm") });
}
catch (e)
{
  // display initialization errors (e.g. bad flags, infinite recursion)
  var header = document.createElement("h1");
  header.style.fontFamily = "monospace";
  header.innerText = "Initialization Error";
  var pre = document.getElementById("elm");
  document.body.insertBefore(header, pre);
  pre.innerText = e;
  throw e;
}
</script>

</body>
</html>