From d2a59e05963525d85d66aa0bd9e138cc3a0fa064 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Fri, 15 Aug 2025 11:54:28 +0000
Subject: [PATCH 01/16] Add temporary language-directory dependency

---
 package.json | 1 +
 yarn.lock    | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/package.json b/package.json
index f0972eac14..25699fa6b1 100644
--- a/package.json
+++ b/package.json
@@ -41,6 +41,7 @@
     "@reduxjs/toolkit": "^1.9.7",
     "@sentry/browser": "^8.33.0",
     "@sourceacademy/c-slang": "^1.0.21",
+    "@sourceacademy/language-directory": "https://github.com/source-academy/language-directory.git",
     "@sourceacademy/sharedb-ace": "2.1.1",
     "@sourceacademy/sling-client": "^0.1.0",
     "@szhsin/react-menu": "^4.0.0",
diff --git a/yarn.lock b/yarn.lock
index d6dc1329b4..cc7b5d7f11 100644
--- a/yarn.lock
+++ b/yarn.lock
@@ -3259,6 +3259,13 @@ __metadata:
   languageName: node
   linkType: hard
 
+"@sourceacademy/language-directory@https://github.com/source-academy/language-directory.git":
+  version: 0.0.2
+  resolution: "@sourceacademy/language-directory@https://github.com/source-academy/language-directory.git#commit=e2cef7eac0ba31d9f7ceaff4a9d20ed7738f52f2"
+  checksum: 10c0/cac2185b3d78330de190ac58d786093940982f194991a6088c41b83dfbffbe37191d1746db104542902ce5128e00892ae4051b292df312f40997c8720b88c1d8
+  languageName: node
+  linkType: hard
+
 "@sourceacademy/sharedb-ace@npm:2.1.1":
   version: 2.1.1
   resolution: "@sourceacademy/sharedb-ace@npm:2.1.1"
@@ -7545,6 +7552,7 @@ __metadata:
     "@rsbuild/plugin-svgr": "npm:^1.2.0"
     "@sentry/browser": "npm:^8.33.0"
     "@sourceacademy/c-slang": "npm:^1.0.21"
+    "@sourceacademy/language-directory": "https://github.com/source-academy/language-directory.git"
     "@sourceacademy/sharedb-ace": "npm:2.1.1"
     "@sourceacademy/sling-client": "npm:^0.1.0"
     "@svgr/webpack": "npm:^8.0.0"

From 93859d5de1531b0ea2cfba4c259eaa4b70c95c46 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Fri, 15 Aug 2025 11:55:13 +0000
Subject: [PATCH 02/16] Add static provider for language directory

---
 src/commons/languageDirectory/provider.ts | 36 +++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 src/commons/languageDirectory/provider.ts

diff --git a/src/commons/languageDirectory/provider.ts b/src/commons/languageDirectory/provider.ts
new file mode 100644
index 0000000000..af4886ed0e
--- /dev/null
+++ b/src/commons/languageDirectory/provider.ts
@@ -0,0 +1,36 @@
+import type { IEvaluatorDefinition, ILanguageDefinition } from '@sourceacademy/language-directory';
+import { getEvaluatorDefinition as getEvaluatorDefinitionFromDirectory, languageMap, languages } from '@sourceacademy/language-directory';
+
+export interface LanguageDirectoryProvider {
+  getLanguages(): Promise<ILanguageDefinition[]>;
+  getLanguageById(languageId: string): Promise<ILanguageDefinition | undefined>;
+  getEvaluatorDefinition(
+    languageId: string,
+    evaluatorId: string
+  ): Promise<IEvaluatorDefinition | undefined>;
+}
+
+export class StaticLanguageDirectoryProvider implements LanguageDirectoryProvider {
+  async getLanguages(): Promise<ILanguageDefinition[]> {
+    return languages;
+  }
+
+  async getLanguageById(languageId: string): Promise<ILanguageDefinition | undefined> {
+    return languageMap.get(languageId);
+  }
+
+  async getEvaluatorDefinition(
+    languageId: string,
+    evaluatorId: string
+  ): Promise<IEvaluatorDefinition | undefined> {
+    const language = languageMap.get(languageId);
+    if (!language) return undefined;
+    return getEvaluatorDefinitionFromDirectory(language, evaluatorId);
+  }
+}
+
+export const staticLanguageDirectoryProvider = new StaticLanguageDirectoryProvider();
+
+export type { ILanguageDefinition, IEvaluatorDefinition };
+
+

From 229d689d79fc52cbe411d6bdcf7ee006a0a17f74 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Fri, 15 Aug 2025 13:03:40 +0000
Subject: [PATCH 03/16] Add language directory flag

---
 src/commons/application/ApplicationTypes.ts   | 10 ++-
 .../application/reducers/RootReducer.ts       | 30 ++++----
 src/commons/featureFlags/publicFlags.ts       |  8 +-
 .../NavigationBarLangSelectButton.tsx         | 75 ++++++++++++++++---
 src/commons/sagas/LanguageDirectorySaga.ts    | 33 ++++++++
 src/commons/sagas/MainSaga.ts                 | 28 +++----
 .../LanguageDirectoryActions.ts               | 10 +++
 .../LanguageDirectoryReducer.ts               | 22 ++++++
 .../LanguageDirectoryTypes.ts                 |  9 +++
 .../flagLanguageDirectory.ts                  | 10 +++
 10 files changed, 194 insertions(+), 41 deletions(-)
 create mode 100644 src/commons/sagas/LanguageDirectorySaga.ts
 create mode 100644 src/features/languageDirectory/LanguageDirectoryActions.ts
 create mode 100644 src/features/languageDirectory/LanguageDirectoryReducer.ts
 create mode 100644 src/features/languageDirectory/LanguageDirectoryTypes.ts
 create mode 100644 src/features/languageDirectory/flagLanguageDirectory.ts

diff --git a/src/commons/application/ApplicationTypes.ts b/src/commons/application/ApplicationTypes.ts
index d6984afa63..ce915c4376 100644
--- a/src/commons/application/ApplicationTypes.ts
+++ b/src/commons/application/ApplicationTypes.ts
@@ -2,6 +2,7 @@ import { Chapter, Language, type SourceError, type Value, Variant } from 'js-sla
 
 import type { AchievementState } from '../../features/achievement/AchievementTypes';
 import type { DashboardState } from '../../features/dashboard/DashboardTypes';
+import type { LanguageDirectoryState } from '../../features/languageDirectory/LanguageDirectoryTypes';
 import type { LeaderboardState } from '../../features/leaderboard/LeaderboardTypes';
 import type { PlaygroundState } from '../../features/playground/PlaygroundTypes';
 import { PlaybackStatus, RecordingStatus } from '../../features/sourceRecorder/SourceRecorderTypes';
@@ -37,6 +38,7 @@ export type OverallState = {
   readonly fileSystem: FileSystemState;
   readonly sideContent: SideContentManagerState;
   readonly vscode: VscodeState;
+  readonly languageDirectory: LanguageDirectoryState;
 };
 
 export type Story = {
@@ -613,6 +615,11 @@ export const defaultVscode: VscodeState = {
   isVscode: false
 };
 
+export const defaultLanguageDirectory: LanguageDirectoryState = {
+  selectedLanguageId: null,
+  selectedEvaluatorId: null
+};
+
 export const defaultState: OverallState = {
   router: defaultRouter,
   achievement: defaultAchievement,
@@ -625,5 +632,6 @@ export const defaultState: OverallState = {
   featureFlags: defaultFeatureFlags,
   fileSystem: defaultFileSystem,
   sideContent: defaultSideContentManager,
-  vscode: defaultVscode
+  vscode: defaultVscode,
+  languageDirectory: defaultLanguageDirectory
 };
diff --git a/src/commons/application/reducers/RootReducer.ts b/src/commons/application/reducers/RootReducer.ts
index 4c89cf6377..3d966b120e 100644
--- a/src/commons/application/reducers/RootReducer.ts
+++ b/src/commons/application/reducers/RootReducer.ts
@@ -1,14 +1,15 @@
-import { combineReducers, Reducer } from '@reduxjs/toolkit';
-import { SourceActionType } from 'src/commons/utils/ActionsHelper';
+import { combineReducers, type Reducer } from '@reduxjs/toolkit';
 
 import { FeatureFlagsReducer as featureFlags } from '../../..//commons/featureFlags';
 import { AchievementReducer as achievement } from '../../../features/achievement/AchievementReducer';
 import { DashboardReducer as dashboard } from '../../../features/dashboard/DashboardReducer';
+import { LanguageDirectoryReducer as languageDirectory } from '../../../features/languageDirectory/LanguageDirectoryReducer';
 import { LeaderboardReducer as leaderboard } from '../../../features/leaderboard/LeaderboardReducer';
 import { PlaygroundReducer as playground } from '../../../features/playground/PlaygroundReducer';
 import { StoriesReducer as stories } from '../../../features/stories/StoriesReducer';
 import { FileSystemReducer as fileSystem } from '../../fileSystem/FileSystemReducer';
 import { SideContentReducer as sideContent } from '../../sideContent/SideContentReducer';
+import type { SourceActionType } from '../../utils/ActionsHelper';
 import { WorkspaceReducer as workspaces } from '../../workspace/WorkspaceReducer';
 import { OverallState } from '../ApplicationTypes';
 import { RouterReducer as router } from './CommonsReducer';
@@ -16,18 +17,19 @@ import { SessionsReducer as session } from './SessionsReducer';
 import { VscodeReducer as vscode } from './VscodeReducer';
 
 const rootReducer: Reducer<OverallState, SourceActionType> = combineReducers({
-  router,
-  achievement,
-  leaderboard,
-  dashboard,
-  playground,
-  session,
-  stories,
-  workspaces,
-  featureFlags,
-  fileSystem,
-  sideContent,
-  vscode
+	router,
+	achievement,
+	leaderboard,
+	dashboard,
+	playground,
+	session,
+	stories,
+	workspaces,
+	featureFlags,
+	fileSystem,
+	sideContent,
+	vscode,
+	languageDirectory
 });
 
 export default rootReducer;
diff --git a/src/commons/featureFlags/publicFlags.ts b/src/commons/featureFlags/publicFlags.ts
index d5e23f274e..d719986b64 100644
--- a/src/commons/featureFlags/publicFlags.ts
+++ b/src/commons/featureFlags/publicFlags.ts
@@ -1,5 +1,11 @@
 import { flagConductorEnable } from '../../features/conductor/flagConductorEnable';
 import { flagConductorEvaluatorUrl } from '../../features/conductor/flagConductorEvaluatorUrl';
+import { flagLanguageDirectoryEnable } from '../../features/languageDirectory/flagLanguageDirectory';
 import { FeatureFlag } from './FeatureFlag';
 
-export const publicFlags: FeatureFlag<any>[] = [flagConductorEnable, flagConductorEvaluatorUrl];
+
+export const publicFlags: FeatureFlag<any>[] = [
+  flagConductorEnable,
+  flagConductorEvaluatorUrl,
+  flagLanguageDirectoryEnable
+];
diff --git a/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx b/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
index abdc495804..5bd2935751 100644
--- a/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
+++ b/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
@@ -1,5 +1,5 @@
 import { Position } from '@blueprintjs/core';
-import { useState } from 'react';
+import { useEffect, useState } from 'react';
 import { useDispatch } from 'react-redux';
 import {
   cLanguages,
@@ -12,26 +12,77 @@ import {
   SUPPORTED_LANGUAGES,
   SupportedLanguage
 } from 'src/commons/application/ApplicationTypes';
+import { useFeature } from 'src/commons/featureFlags/useFeature';
+import { staticLanguageDirectoryProvider } from 'src/commons/languageDirectory/provider';
 import SimpleDropdown from 'src/commons/SimpleDropdown';
 import { useTypedSelector } from 'src/commons/utils/Hooks';
 import WorkspaceActions from 'src/commons/workspace/WorkspaceActions';
+import { flagLanguageDirectoryEnable } from 'src/features/languageDirectory/flagLanguageDirectory';
+import LanguageDirectoryActions from 'src/features/languageDirectory/LanguageDirectoryActions';
 import { playgroundConfigLanguage } from 'src/features/playground/PlaygroundActions';
 
-// TODO: Hardcoded to use the first sublanguage for each language
-const defaultSublanguages: {
-  [lang in SupportedLanguage]: SALanguage;
-} = {
-  [SupportedLanguage.JAVASCRIPT]: sourceLanguages[0],
-  [SupportedLanguage.PYTHON]: pyLanguages[0],
-  [SupportedLanguage.SCHEME]: schemeLanguages[0],
-  [SupportedLanguage.JAVA]: javaLanguages[0],
-  [SupportedLanguage.C]: cLanguages[0]
-};
+function useDirectoryOptions(enabled: boolean) {
+  const [options, setOptions] = useState<Array<{ value: string; label: string }>>([]);
+  useEffect(() => {
+    if (!enabled) return;
+    let cancelled = false;
+    (async () => {
+      const langs = await staticLanguageDirectoryProvider.getLanguages();
+      if (cancelled) return;
+      setOptions(langs.map(l => ({ value: l.id, label: l.name })));
+    })();
+    return () => {
+      cancelled = true;
+    };
+  }, [enabled]);
+  return options;
+}
 
 const NavigationBarLangSelectButton = () => {
+  const [isOpen, setIsOpen] = useState(false);
+  const selectedDirLanguageId = useTypedSelector(s => s.languageDirectory.selectedLanguageId);
+  const dispatch = useDispatch();
+  const dirOptions = useDirectoryOptions(true);
+  
+  const directoryEnabled = useFeature(flagLanguageDirectoryEnable);
+  if (!directoryEnabled) {
+    return <LegacyNavigationBarLangSelectButton />;
+  }
+
+  const selectDirLanguage = (languageId: string) => {
+    dispatch(LanguageDirectoryActions.setSelectedLanguage(languageId));
+    setIsOpen(false);
+  };
+
+  return (
+    <SimpleDropdown
+      options={dirOptions}
+      onClick={selectDirLanguage}
+      selectedValue={selectedDirLanguageId ?? undefined}
+      popoverProps={{ position: Position.BOTTOM_RIGHT, onClose: () => setIsOpen(false), isOpen }}
+      buttonProps={{
+        rightIcon: 'caret-down',
+        onClick: () => setIsOpen(true),
+        'data-testid': 'NavigationBarLangSelectButton'
+      }}
+    />
+  );
+};
+
+const LegacyNavigationBarLangSelectButton = () => {
   const [isOpen, setIsOpen] = useState(false);
   const lang = useTypedSelector(store => store.playground.languageConfig.mainLanguage);
   const dispatch = useDispatch();
+  
+  // Legacy default sublanguage mapping
+  const defaultSublanguages: { [lang in SupportedLanguage]: SALanguage } = {
+    [SupportedLanguage.JAVASCRIPT]: sourceLanguages[0],
+    [SupportedLanguage.PYTHON]: pyLanguages[0],
+    [SupportedLanguage.SCHEME]: schemeLanguages[0],
+    [SupportedLanguage.JAVA]: javaLanguages[0],
+    [SupportedLanguage.C]: cLanguages[0]
+  };
+
   const selectLang = (language: SupportedLanguage) => {
     const { chapter, variant } = defaultSublanguages[language];
     dispatch(playgroundConfigLanguage(getLanguageConfig(chapter, variant)));
@@ -41,7 +92,7 @@ const NavigationBarLangSelectButton = () => {
 
   return (
     <SimpleDropdown
-      options={SUPPORTED_LANGUAGES.map(lang => ({ value: lang, label: lang }))}
+      options={SUPPORTED_LANGUAGES.map(l => ({ value: l, label: l }))}
       onClick={selectLang}
       selectedValue={lang}
       popoverProps={{ position: Position.BOTTOM_RIGHT, onClose: () => setIsOpen(false), isOpen }}
diff --git a/src/commons/sagas/LanguageDirectorySaga.ts b/src/commons/sagas/LanguageDirectorySaga.ts
new file mode 100644
index 0000000000..4f55537492
--- /dev/null
+++ b/src/commons/sagas/LanguageDirectorySaga.ts
@@ -0,0 +1,33 @@
+import type { SagaIterator } from 'redux-saga';
+import { call, put, select, takeEvery } from 'redux-saga/effects';
+import type { OverallState } from 'src/commons/application/ApplicationTypes';
+import { staticLanguageDirectoryProvider } from 'src/commons/languageDirectory/provider';
+
+import Actions from '../../features/languageDirectory/LanguageDirectoryActions';
+
+function* resolveDefaultEvaluatorSaga(action: ReturnType<typeof Actions.setSelectedLanguage>): SagaIterator {
+  try {
+    const {
+      payload: { languageId, evaluatorId }
+    } = action;
+    if (evaluatorId) return; // already explicitly set
+    const language = yield call(staticLanguageDirectoryProvider.getLanguageById, languageId);
+    if (!language) return;
+    const defaultEvaluatorId: string | null = language.evaluators.length > 0 ? language.evaluators[0].id : null;
+    if (!defaultEvaluatorId) return;
+    // If state still matches the same language, set evaluator
+    const currentLanguageId: string | null = yield select(
+      (s: OverallState) => s.languageDirectory.selectedLanguageId
+    );
+    if (currentLanguageId !== languageId) return;
+    yield put(Actions.setSelectedEvaluator(defaultEvaluatorId));
+  } catch {
+    // swallow
+  }
+}
+
+export default function* LanguageDirectorySaga(): SagaIterator {
+  yield takeEvery(Actions.setSelectedLanguage.type, resolveDefaultEvaluatorSaga);
+}
+
+
diff --git a/src/commons/sagas/MainSaga.ts b/src/commons/sagas/MainSaga.ts
index f95d60f00e..c6f5e28b6c 100644
--- a/src/commons/sagas/MainSaga.ts
+++ b/src/commons/sagas/MainSaga.ts
@@ -6,6 +6,7 @@ import Constants from '../utils/Constants';
 import AchievementSaga from './AchievementSaga';
 import BackendSaga from './BackendSaga';
 import GitHubPersistenceSaga from './GitHubPersistenceSaga';
+import LanguageDirectorySaga from './LanguageDirectorySaga';
 import LeaderboardSaga from './LeaderboardSaga';
 import LoginSaga from './LoginSaga';
 import PersistenceSaga from './PersistenceSaga';
@@ -16,17 +17,18 @@ import StoriesSaga from './StoriesSaga';
 import WorkspaceSaga from './WorkspaceSaga';
 
 export default function* MainSaga(): SagaIterator {
-  yield all([
-    fork(Constants.useBackend ? BackendSaga : mockBackendSaga),
-    fork(WorkspaceSaga),
-    fork(LoginSaga),
-    fork(PlaygroundSaga),
-    fork(AchievementSaga),
-    fork(LeaderboardSaga),
-    fork(PersistenceSaga),
-    fork(GitHubPersistenceSaga),
-    fork(RemoteExecutionSaga),
-    fork(StoriesSaga),
-    fork(SideContentSaga)
-  ]);
+	yield all([
+		fork(Constants.useBackend ? BackendSaga : mockBackendSaga),
+		fork(WorkspaceSaga),
+		fork(LoginSaga),
+		fork(PlaygroundSaga),
+		fork(AchievementSaga),
+		fork(LeaderboardSaga),
+		fork(PersistenceSaga),
+		fork(GitHubPersistenceSaga),
+		fork(RemoteExecutionSaga),
+		fork(StoriesSaga),
+		fork(SideContentSaga),
+		fork(LanguageDirectorySaga)
+	]);
 }
diff --git a/src/features/languageDirectory/LanguageDirectoryActions.ts b/src/features/languageDirectory/LanguageDirectoryActions.ts
new file mode 100644
index 0000000000..99f521ba3a
--- /dev/null
+++ b/src/features/languageDirectory/LanguageDirectoryActions.ts
@@ -0,0 +1,10 @@
+import { createActions } from 'src/commons/redux/utils';
+
+export default createActions('conductor/languageDirectory', {
+  /** Set selected language; evaluatorId optional (defaults to first available) */
+  setSelectedLanguage: (languageId: string, evaluatorId?: string) => ({ languageId, evaluatorId }),
+  /** Set selected evaluator explicitly */
+  setSelectedEvaluator: (evaluatorId: string) => ({ evaluatorId })
+});
+
+
diff --git a/src/features/languageDirectory/LanguageDirectoryReducer.ts b/src/features/languageDirectory/LanguageDirectoryReducer.ts
new file mode 100644
index 0000000000..6670f1daa2
--- /dev/null
+++ b/src/features/languageDirectory/LanguageDirectoryReducer.ts
@@ -0,0 +1,22 @@
+import { createReducer, type Reducer } from '@reduxjs/toolkit';
+// Note: resolver handled in saga; reducer remains synchronous
+import type { SourceActionType } from 'src/commons/utils/ActionsHelper';
+
+import Actions from './LanguageDirectoryActions';
+import type { LanguageDirectoryState } from './LanguageDirectoryTypes';
+import { defaultLanguageDirectoryState } from './LanguageDirectoryTypes';
+
+export const LanguageDirectoryReducer: Reducer<LanguageDirectoryState, SourceActionType> =
+	createReducer(defaultLanguageDirectoryState, builder => {
+		builder
+			.addCase(Actions.setSelectedLanguage, (state, action) => {
+				const { languageId, evaluatorId } = action.payload;
+				state.selectedLanguageId = languageId;
+				state.selectedEvaluatorId = evaluatorId ?? null;
+			})
+			.addCase(Actions.setSelectedEvaluator, (state, action) => {
+				state.selectedEvaluatorId = action.payload.evaluatorId;
+			});
+	});
+
+
diff --git a/src/features/languageDirectory/LanguageDirectoryTypes.ts b/src/features/languageDirectory/LanguageDirectoryTypes.ts
new file mode 100644
index 0000000000..6fe4f6fe05
--- /dev/null
+++ b/src/features/languageDirectory/LanguageDirectoryTypes.ts
@@ -0,0 +1,9 @@
+export type LanguageDirectoryState = {
+  readonly selectedLanguageId: string | null;
+  readonly selectedEvaluatorId: string | null;
+};
+
+export const defaultLanguageDirectoryState: LanguageDirectoryState = {
+  selectedLanguageId: null,
+  selectedEvaluatorId: null
+};
diff --git a/src/features/languageDirectory/flagLanguageDirectory.ts b/src/features/languageDirectory/flagLanguageDirectory.ts
new file mode 100644
index 0000000000..07614141a0
--- /dev/null
+++ b/src/features/languageDirectory/flagLanguageDirectory.ts
@@ -0,0 +1,10 @@
+import { createFeatureFlag } from '../../commons/featureFlags';
+import { featureSelector } from '../../commons/featureFlags/featureSelector';
+
+export const flagLanguageDirectoryEnable = createFeatureFlag(
+  'conductor.language.directory',
+  false,
+  'Enable new language directory powered selection UI and runtime selection.'
+);
+
+export const selectLanguageDirectoryEnable = featureSelector(flagLanguageDirectoryEnable);

From 296256fe9e00919eed8049a9b4b306cca0f9b466 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Fri, 15 Aug 2025 13:18:00 +0000
Subject: [PATCH 04/16] Reroute language-directory for testing

---
 package.json | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/package.json b/package.json
index 25699fa6b1..64cd20daa1 100644
--- a/package.json
+++ b/package.json
@@ -41,7 +41,7 @@
     "@reduxjs/toolkit": "^1.9.7",
     "@sentry/browser": "^8.33.0",
     "@sourceacademy/c-slang": "^1.0.21",
-    "@sourceacademy/language-directory": "https://github.com/source-academy/language-directory.git",
+    "@sourceacademy/language-directory": "https://github.com/loyaltypollution/language-directory.git",
     "@sourceacademy/sharedb-ace": "2.1.1",
     "@sourceacademy/sling-client": "^0.1.0",
     "@szhsin/react-menu": "^4.0.0",
@@ -68,7 +68,6 @@
     "js-slang": "^1.0.84",
     "js-yaml": "^4.1.0",
     "konva": "^9.2.0",
-    "language-directory": "https://github.com/source-academy/language-directory.git",
     "lodash": "^4.17.21",
     "lz-string": "^1.4.4",
     "mdast-util-from-markdown": "^2.0.0",

From d781cc81c5710c2f3513c39d7c078c704a197469 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Fri, 15 Aug 2025 13:55:26 +0000
Subject: [PATCH 05/16] Remove unused export

---
 src/features/languageDirectory/LanguageDirectoryTypes.ts | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/features/languageDirectory/LanguageDirectoryTypes.ts b/src/features/languageDirectory/LanguageDirectoryTypes.ts
index 6fe4f6fe05..185a268181 100644
--- a/src/features/languageDirectory/LanguageDirectoryTypes.ts
+++ b/src/features/languageDirectory/LanguageDirectoryTypes.ts
@@ -1,9 +1,4 @@
 export type LanguageDirectoryState = {
   readonly selectedLanguageId: string | null;
   readonly selectedEvaluatorId: string | null;
-};
-
-export const defaultLanguageDirectoryState: LanguageDirectoryState = {
-  selectedLanguageId: null,
-  selectedEvaluatorId: null
-};
+};
\ No newline at end of file

From 0b000aa06a044aab1e764985f2a3391bdb72ec3a Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Sat, 16 Aug 2025 12:47:59 +0000
Subject: [PATCH 06/16] Configure temporary yarn directory

---
 yarn.lock | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/yarn.lock b/yarn.lock
index cc7b5d7f11..5d36eb56bf 100644
--- a/yarn.lock
+++ b/yarn.lock
@@ -3259,10 +3259,10 @@ __metadata:
   languageName: node
   linkType: hard
 
-"@sourceacademy/language-directory@https://github.com/source-academy/language-directory.git":
+"@sourceacademy/language-directory@https://github.com/loyaltypollution/language-directory.git":
   version: 0.0.2
-  resolution: "@sourceacademy/language-directory@https://github.com/source-academy/language-directory.git#commit=e2cef7eac0ba31d9f7ceaff4a9d20ed7738f52f2"
-  checksum: 10c0/cac2185b3d78330de190ac58d786093940982f194991a6088c41b83dfbffbe37191d1746db104542902ce5128e00892ae4051b292df312f40997c8720b88c1d8
+  resolution: "@sourceacademy/language-directory@https://github.com/loyaltypollution/language-directory.git#commit=d99bd4163c045c16f93bf9a80afa1eda42fc4b02"
+  checksum: 10c0/b20111eff59add47bd1c160af64bfa82140c35b7ab1abfd800992f330654c002f997699647b4128fe2e79fcf57b767502aa40366ab6f18ca50ef066263e76423
   languageName: node
   linkType: hard
 
@@ -7552,7 +7552,7 @@ __metadata:
     "@rsbuild/plugin-svgr": "npm:^1.2.0"
     "@sentry/browser": "npm:^8.33.0"
     "@sourceacademy/c-slang": "npm:^1.0.21"
-    "@sourceacademy/language-directory": "https://github.com/source-academy/language-directory.git"
+    "@sourceacademy/language-directory": "https://github.com/loyaltypollution/language-directory.git"
     "@sourceacademy/sharedb-ace": "npm:2.1.1"
     "@sourceacademy/sling-client": "npm:^0.1.0"
     "@svgr/webpack": "npm:^8.0.0"
@@ -7621,7 +7621,6 @@ __metadata:
     js-yaml: "npm:^4.1.0"
     jsdom: "npm:^26.0.0"
     konva: "npm:^9.2.0"
-    language-directory: "https://github.com/source-academy/language-directory.git"
     lodash: "npm:^4.17.21"
     lz-string: "npm:^1.4.4"
     mdast-util-from-markdown: "npm:^2.0.0"
@@ -9300,13 +9299,6 @@ __metadata:
   languageName: node
   linkType: hard
 
-"language-directory@https://github.com/source-academy/language-directory.git":
-  version: 0.0.1
-  resolution: "language-directory@https://github.com/source-academy/language-directory.git#commit=8e406e4b28a7df5e3e66fdf3005092d0cf861143"
-  checksum: 10c0/2db1dd6a94497232e2a183f10769f9e98658636ad3c0c56ae2d54abd5a414dcfbaa994e651ac94507d129147da523254d81103a75f5e0ad2cbaf2274ee3f146d
-  languageName: node
-  linkType: hard
-
 "lcov-parse@npm:^1.0.0":
   version: 1.0.0
   resolution: "lcov-parse@npm:1.0.0"

From 8de713d2336d1a359cb65e1a72fd4ef6b0adf28a Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Sat, 16 Aug 2025 12:48:54 +0000
Subject: [PATCH 07/16] Refactor out LegacyButton behaviour

---
 .../LegacyNavigationBarLangSelectButton.tsx   | 55 +++++++++++++
 .../NavigationBarLangSelectButton.tsx         | 81 ++++---------------
 2 files changed, 70 insertions(+), 66 deletions(-)
 create mode 100644 src/commons/navigationBar/subcomponents/LegacyNavigationBarLangSelectButton.tsx

diff --git a/src/commons/navigationBar/subcomponents/LegacyNavigationBarLangSelectButton.tsx b/src/commons/navigationBar/subcomponents/LegacyNavigationBarLangSelectButton.tsx
new file mode 100644
index 0000000000..739e92fa64
--- /dev/null
+++ b/src/commons/navigationBar/subcomponents/LegacyNavigationBarLangSelectButton.tsx
@@ -0,0 +1,55 @@
+import { Position } from '@blueprintjs/core';
+import { useState } from 'react';
+import { useDispatch } from 'react-redux';
+import {
+  cLanguages,
+  getLanguageConfig,
+  javaLanguages,
+  pyLanguages,
+  SALanguage,
+  schemeLanguages,
+  sourceLanguages,
+  SUPPORTED_LANGUAGES,
+  SupportedLanguage} from 'src/commons/application/ApplicationTypes';
+import SimpleDropdown from 'src/commons/SimpleDropdown';
+import { useTypedSelector } from 'src/commons/utils/Hooks';
+import WorkspaceActions from 'src/commons/workspace/WorkspaceActions';
+import { playgroundConfigLanguage } from 'src/features/playground/PlaygroundActions';
+
+const LegacyNavigationBarLangSelectButton = () => {
+  const [isOpen, setIsOpen] = useState(false);
+  const lang = useTypedSelector(store => store.playground.languageConfig.mainLanguage);
+  const dispatch = useDispatch();
+  
+  // Legacy default sublanguage mapping
+  const defaultSublanguages: { [lang in SupportedLanguage]: SALanguage } = {
+    [SupportedLanguage.JAVASCRIPT]: sourceLanguages[0],
+    [SupportedLanguage.PYTHON]: pyLanguages[0],
+    [SupportedLanguage.SCHEME]: schemeLanguages[0],
+    [SupportedLanguage.JAVA]: javaLanguages[0],
+    [SupportedLanguage.C]: cLanguages[0]
+  };
+
+  const selectLang = (language: SupportedLanguage) => {
+    const { chapter, variant } = defaultSublanguages[language];
+    dispatch(playgroundConfigLanguage(getLanguageConfig(chapter, variant)));
+    dispatch(WorkspaceActions.chapterSelect(chapter, variant, 'playground'));
+    setIsOpen(false);
+  };
+
+  return (
+    <SimpleDropdown
+      options={SUPPORTED_LANGUAGES.map(l => ({ value: l, label: l }))}
+      onClick={selectLang}
+      selectedValue={lang}
+      popoverProps={{ position: Position.BOTTOM_RIGHT, onClose: () => setIsOpen(false), isOpen }}
+      buttonProps={{
+        rightIcon: 'caret-down',
+        onClick: () => setIsOpen(true),
+        'data-testid': 'NavigationBarLangSelectButton'
+      }}
+    />
+  );
+};
+
+export default LegacyNavigationBarLangSelectButton;
diff --git a/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx b/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
index 5bd2935751..b77d78665c 100644
--- a/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
+++ b/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
@@ -1,48 +1,33 @@
 import { Position } from '@blueprintjs/core';
 import { useEffect, useState } from 'react';
 import { useDispatch } from 'react-redux';
-import {
-  cLanguages,
-  getLanguageConfig,
-  javaLanguages,
-  pyLanguages,
-  SALanguage,
-  schemeLanguages,
-  sourceLanguages,
-  SUPPORTED_LANGUAGES,
-  SupportedLanguage
-} from 'src/commons/application/ApplicationTypes';
 import { useFeature } from 'src/commons/featureFlags/useFeature';
-import { staticLanguageDirectoryProvider } from 'src/commons/languageDirectory/provider';
 import SimpleDropdown from 'src/commons/SimpleDropdown';
 import { useTypedSelector } from 'src/commons/utils/Hooks';
-import WorkspaceActions from 'src/commons/workspace/WorkspaceActions';
 import { flagLanguageDirectoryEnable } from 'src/features/languageDirectory/flagLanguageDirectory';
 import LanguageDirectoryActions from 'src/features/languageDirectory/LanguageDirectoryActions';
-import { playgroundConfigLanguage } from 'src/features/playground/PlaygroundActions';
+import type { ILanguageDefinition } from 'src/features/languageDirectory/LanguageDirectoryTypes';
 
-function useDirectoryOptions(enabled: boolean) {
-  const [options, setOptions] = useState<Array<{ value: string; label: string }>>([]);
-  useEffect(() => {
-    if (!enabled) return;
-    let cancelled = false;
-    (async () => {
-      const langs = await staticLanguageDirectoryProvider.getLanguages();
-      if (cancelled) return;
-      setOptions(langs.map(l => ({ value: l.id, label: l.name })));
-    })();
-    return () => {
-      cancelled = true;
-    };
-  }, [enabled]);
-  return options;
+// Remove when conductors.languageDirectory is default behaviour
+import LegacyNavigationBarLangSelectButton from './LegacyNavigationBarLangSelectButton';
+
+function useDirectoryOptions() {
+  const langs = useTypedSelector(s => s.languageDirectory.languages) as ILanguageDefinition[];
+  return langs.map(l => ({ value: l.id, label: l.name }));
 }
 
 const NavigationBarLangSelectButton = () => {
   const [isOpen, setIsOpen] = useState(false);
   const selectedDirLanguageId = useTypedSelector(s => s.languageDirectory.selectedLanguageId);
+
   const dispatch = useDispatch();
-  const dirOptions = useDirectoryOptions(true);
+  const dirOptions = useDirectoryOptions();
+  const languagesLoaded = useTypedSelector(s => s.languageDirectory.languages.length > 0);
+  useEffect(() => {
+    if (!languagesLoaded) {
+      dispatch(LanguageDirectoryActions.fetchLanguages());
+    }
+  }, [languagesLoaded, dispatch]);
   
   const directoryEnabled = useFeature(flagLanguageDirectoryEnable);
   if (!directoryEnabled) {
@@ -69,40 +54,4 @@ const NavigationBarLangSelectButton = () => {
   );
 };
 
-const LegacyNavigationBarLangSelectButton = () => {
-  const [isOpen, setIsOpen] = useState(false);
-  const lang = useTypedSelector(store => store.playground.languageConfig.mainLanguage);
-  const dispatch = useDispatch();
-  
-  // Legacy default sublanguage mapping
-  const defaultSublanguages: { [lang in SupportedLanguage]: SALanguage } = {
-    [SupportedLanguage.JAVASCRIPT]: sourceLanguages[0],
-    [SupportedLanguage.PYTHON]: pyLanguages[0],
-    [SupportedLanguage.SCHEME]: schemeLanguages[0],
-    [SupportedLanguage.JAVA]: javaLanguages[0],
-    [SupportedLanguage.C]: cLanguages[0]
-  };
-
-  const selectLang = (language: SupportedLanguage) => {
-    const { chapter, variant } = defaultSublanguages[language];
-    dispatch(playgroundConfigLanguage(getLanguageConfig(chapter, variant)));
-    dispatch(WorkspaceActions.chapterSelect(chapter, variant, 'playground'));
-    setIsOpen(false);
-  };
-
-  return (
-    <SimpleDropdown
-      options={SUPPORTED_LANGUAGES.map(l => ({ value: l, label: l }))}
-      onClick={selectLang}
-      selectedValue={lang}
-      popoverProps={{ position: Position.BOTTOM_RIGHT, onClose: () => setIsOpen(false), isOpen }}
-      buttonProps={{
-        rightIcon: 'caret-down',
-        onClick: () => setIsOpen(true),
-        'data-testid': 'NavigationBarLangSelectButton'
-      }}
-    />
-  );
-};
-
 export default NavigationBarLangSelectButton;

From fd02fd7320ea2731b75eff1e7aadc386a0dfba47 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Sat, 16 Aug 2025 12:49:46 +0000
Subject: [PATCH 08/16] Manage language-directory languages in redux

---
 src/commons/application/ApplicationTypes.ts   |  3 +-
 src/commons/languageDirectory/provider.ts     | 36 ------------------
 src/commons/sagas/LanguageDirectorySaga.ts    | 29 ++++++++-------
 src/commons/utils/ActionsHelper.ts            |  4 +-
 .../LanguageDirectoryActions.ts               |  8 +++-
 .../LanguageDirectoryReducer.ts               | 16 +++++---
 .../LanguageDirectoryTypes.ts                 | 37 ++++++++++++++++++-
 7 files changed, 73 insertions(+), 60 deletions(-)
 delete mode 100644 src/commons/languageDirectory/provider.ts

diff --git a/src/commons/application/ApplicationTypes.ts b/src/commons/application/ApplicationTypes.ts
index ce915c4376..4524a67eae 100644
--- a/src/commons/application/ApplicationTypes.ts
+++ b/src/commons/application/ApplicationTypes.ts
@@ -617,7 +617,8 @@ export const defaultVscode: VscodeState = {
 
 export const defaultLanguageDirectory: LanguageDirectoryState = {
   selectedLanguageId: null,
-  selectedEvaluatorId: null
+  selectedEvaluatorId: null,
+  languages: []
 };
 
 export const defaultState: OverallState = {
diff --git a/src/commons/languageDirectory/provider.ts b/src/commons/languageDirectory/provider.ts
deleted file mode 100644
index af4886ed0e..0000000000
--- a/src/commons/languageDirectory/provider.ts
+++ /dev/null
@@ -1,36 +0,0 @@
-import type { IEvaluatorDefinition, ILanguageDefinition } from '@sourceacademy/language-directory';
-import { getEvaluatorDefinition as getEvaluatorDefinitionFromDirectory, languageMap, languages } from '@sourceacademy/language-directory';
-
-export interface LanguageDirectoryProvider {
-  getLanguages(): Promise<ILanguageDefinition[]>;
-  getLanguageById(languageId: string): Promise<ILanguageDefinition | undefined>;
-  getEvaluatorDefinition(
-    languageId: string,
-    evaluatorId: string
-  ): Promise<IEvaluatorDefinition | undefined>;
-}
-
-export class StaticLanguageDirectoryProvider implements LanguageDirectoryProvider {
-  async getLanguages(): Promise<ILanguageDefinition[]> {
-    return languages;
-  }
-
-  async getLanguageById(languageId: string): Promise<ILanguageDefinition | undefined> {
-    return languageMap.get(languageId);
-  }
-
-  async getEvaluatorDefinition(
-    languageId: string,
-    evaluatorId: string
-  ): Promise<IEvaluatorDefinition | undefined> {
-    const language = languageMap.get(languageId);
-    if (!language) return undefined;
-    return getEvaluatorDefinitionFromDirectory(language, evaluatorId);
-  }
-}
-
-export const staticLanguageDirectoryProvider = new StaticLanguageDirectoryProvider();
-
-export type { ILanguageDefinition, IEvaluatorDefinition };
-
-
diff --git a/src/commons/sagas/LanguageDirectorySaga.ts b/src/commons/sagas/LanguageDirectorySaga.ts
index 4f55537492..bd95ea6c99 100644
--- a/src/commons/sagas/LanguageDirectorySaga.ts
+++ b/src/commons/sagas/LanguageDirectorySaga.ts
@@ -1,17 +1,22 @@
-import type { SagaIterator } from 'redux-saga';
-import { call, put, select, takeEvery } from 'redux-saga/effects';
+import { call, put, select } from 'redux-saga/effects';
 import type { OverallState } from 'src/commons/application/ApplicationTypes';
-import { staticLanguageDirectoryProvider } from 'src/commons/languageDirectory/provider';
+import { staticLanguageDirectoryProvider } from 'src/features/languageDirectory/LanguageDirectoryTypes';
 
-import Actions from '../../features/languageDirectory/LanguageDirectoryActions';
+import LanguageDirectoryActions from '../../features/languageDirectory/LanguageDirectoryActions';
+import { combineSagaHandlers } from '../redux/utils';
+import { actions } from '../utils/ActionsHelper';
 
-function* resolveDefaultEvaluatorSaga(action: ReturnType<typeof Actions.setSelectedLanguage>): SagaIterator {
-  try {
+const LanguageDirectorySaga = combineSagaHandlers({
+  [LanguageDirectoryActions.fetchLanguages.type]: function* () {
+    const langs = yield call(staticLanguageDirectoryProvider.getLanguages.bind(staticLanguageDirectoryProvider));
+    yield put(actions.setLanguages(langs));
+  },
+  [LanguageDirectoryActions.setSelectedLanguage.type]: function* (action) {
     const {
       payload: { languageId, evaluatorId }
     } = action;
     if (evaluatorId) return; // already explicitly set
-    const language = yield call(staticLanguageDirectoryProvider.getLanguageById, languageId);
+    const language = yield call(staticLanguageDirectoryProvider.getLanguageById.bind(staticLanguageDirectoryProvider), languageId);
     if (!language) return;
     const defaultEvaluatorId: string | null = language.evaluators.length > 0 ? language.evaluators[0].id : null;
     if (!defaultEvaluatorId) return;
@@ -20,14 +25,10 @@ function* resolveDefaultEvaluatorSaga(action: ReturnType<typeof Actions.setSelec
       (s: OverallState) => s.languageDirectory.selectedLanguageId
     );
     if (currentLanguageId !== languageId) return;
-    yield put(Actions.setSelectedEvaluator(defaultEvaluatorId));
-  } catch {
-    // swallow
+    yield put(actions.setSelectedEvaluator(defaultEvaluatorId));
   }
-}
+});
 
-export default function* LanguageDirectorySaga(): SagaIterator {
-  yield takeEvery(Actions.setSelectedLanguage.type, resolveDefaultEvaluatorSaga);
-}
+export default LanguageDirectorySaga;
 
 
diff --git a/src/commons/utils/ActionsHelper.ts b/src/commons/utils/ActionsHelper.ts
index 23d5412144..f2114dd5f6 100644
--- a/src/commons/utils/ActionsHelper.ts
+++ b/src/commons/utils/ActionsHelper.ts
@@ -10,6 +10,7 @@ import AchievementActions from '../../features/achievement/AchievementActions';
 import DashboardActions from '../../features/dashboard/DashboardActions';
 import GitHubActions from '../../features/github/GitHubActions';
 import GroundControlActions from '../../features/groundControl/GroundControlActions';
+import LanguageDirectoryActions from '../../features/languageDirectory/LanguageDirectoryActions';
 import LeaderboardActions from '../../features/leaderboard/LeaderboardActions';
 import PersistenceActions from '../../features/persistence/PersistenceActions';
 import PlaygroundActions from '../../features/playground/PlaygroundActions';
@@ -45,7 +46,8 @@ export const actions = {
   ...SideContentActions,
   ...VscodeActions,
   ...SideContentActions,
-  ...FeatureFlagsActions
+  ...FeatureFlagsActions,
+  ...LanguageDirectoryActions
 };
 
 export type SourceActionType = ActionType<typeof actions>;
diff --git a/src/features/languageDirectory/LanguageDirectoryActions.ts b/src/features/languageDirectory/LanguageDirectoryActions.ts
index 99f521ba3a..ed17ef24d5 100644
--- a/src/features/languageDirectory/LanguageDirectoryActions.ts
+++ b/src/features/languageDirectory/LanguageDirectoryActions.ts
@@ -1,10 +1,14 @@
 import { createActions } from 'src/commons/redux/utils';
 
-export default createActions('conductor/languageDirectory', {
+const LanguageDirectoryActions = createActions('conductor/languageDirectory', {
+  /** Fetch languages (saga) */
+  fetchLanguages: null,
+  /** Set languages list */
+  setLanguages: (languages: any[]) => ({ languages }),
   /** Set selected language; evaluatorId optional (defaults to first available) */
   setSelectedLanguage: (languageId: string, evaluatorId?: string) => ({ languageId, evaluatorId }),
   /** Set selected evaluator explicitly */
   setSelectedEvaluator: (evaluatorId: string) => ({ evaluatorId })
 });
 
-
+export default LanguageDirectoryActions;
\ No newline at end of file
diff --git a/src/features/languageDirectory/LanguageDirectoryReducer.ts b/src/features/languageDirectory/LanguageDirectoryReducer.ts
index 6670f1daa2..0cb2ce037e 100644
--- a/src/features/languageDirectory/LanguageDirectoryReducer.ts
+++ b/src/features/languageDirectory/LanguageDirectoryReducer.ts
@@ -1,14 +1,22 @@
 import { createReducer, type Reducer } from '@reduxjs/toolkit';
-// Note: resolver handled in saga; reducer remains synchronous
+import { defaultLanguageDirectory } from 'src/commons/application/ApplicationTypes';
 import type { SourceActionType } from 'src/commons/utils/ActionsHelper';
 
 import Actions from './LanguageDirectoryActions';
 import type { LanguageDirectoryState } from './LanguageDirectoryTypes';
-import { defaultLanguageDirectoryState } from './LanguageDirectoryTypes';
 
 export const LanguageDirectoryReducer: Reducer<LanguageDirectoryState, SourceActionType> =
-	createReducer(defaultLanguageDirectoryState, builder => {
+	createReducer(defaultLanguageDirectory, builder => {
 		builder
+			.addCase(Actions.setLanguages, (state, action) => {
+				state.languages = action.payload.languages as any;
+				if (state.selectedLanguageId === null && state.languages.length > 0) {
+					state.selectedLanguageId = state.languages[0].id;
+				}
+				if (state.selectedEvaluatorId === null && state.languages.length > 0) {
+					state.selectedEvaluatorId = state.languages[0].evaluators[0].id;
+				}
+			})
 			.addCase(Actions.setSelectedLanguage, (state, action) => {
 				const { languageId, evaluatorId } = action.payload;
 				state.selectedLanguageId = languageId;
@@ -18,5 +26,3 @@ export const LanguageDirectoryReducer: Reducer<LanguageDirectoryState, SourceAct
 				state.selectedEvaluatorId = action.payload.evaluatorId;
 			});
 	});
-
-
diff --git a/src/features/languageDirectory/LanguageDirectoryTypes.ts b/src/features/languageDirectory/LanguageDirectoryTypes.ts
index 185a268181..425b4899a9 100644
--- a/src/features/languageDirectory/LanguageDirectoryTypes.ts
+++ b/src/features/languageDirectory/LanguageDirectoryTypes.ts
@@ -1,4 +1,39 @@
+import { getEvaluatorDefinition, IEvaluatorDefinition, ILanguageDefinition, languageMap, languages } from '@sourceacademy/language-directory';
+
 export type LanguageDirectoryState = {
   readonly selectedLanguageId: string | null;
   readonly selectedEvaluatorId: string | null;
-};
\ No newline at end of file
+  readonly languages: ILanguageDefinition[];
+};
+
+export interface LanguageDirectoryProvider {
+  getLanguages(): Promise<ILanguageDefinition[]>;
+  getLanguageById(languageId: string): Promise<ILanguageDefinition | undefined>;
+  getEvaluatorDefinition(
+    languageId: string,
+    evaluatorId: string
+  ): Promise<IEvaluatorDefinition | undefined>;
+}
+
+export class StaticLanguageDirectoryProvider implements LanguageDirectoryProvider {
+  async getLanguages(): Promise<ILanguageDefinition[]> {
+    return languages;
+  }
+
+  async getLanguageById(languageId: string): Promise<ILanguageDefinition | undefined> {
+    return languageMap.get(languageId);
+  }
+
+  async getEvaluatorDefinition(
+    languageId: string,
+    evaluatorId: string 
+  ): Promise<IEvaluatorDefinition | undefined> {
+    const language = languageMap.get(languageId);
+    if (!language) return undefined;
+    return getEvaluatorDefinition(language, evaluatorId);
+  }
+}
+
+export const staticLanguageDirectoryProvider = new StaticLanguageDirectoryProvider();
+
+export type { ILanguageDefinition, IEvaluatorDefinition };

From b8ad43ff855f57f2a4cdaf5d9480bfda80be7e32 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Sat, 16 Aug 2025 14:54:24 +0000
Subject: [PATCH 09/16] Update ChapterSelect for language directory

---
 .../controlBar/ControlBarChapterSelect.tsx    | 133 ++++++++----------
 .../LegacyControlBarChapterSelect.tsx         | 111 +++++++++++++++
 src/commons/sagas/LanguageDirectorySaga.ts    |  34 +++++
 .../LanguageDirectoryReducer.ts               |   6 -
 4 files changed, 206 insertions(+), 78 deletions(-)
 create mode 100644 src/commons/controlBar/LegacyControlBarChapterSelect.tsx

diff --git a/src/commons/controlBar/ControlBarChapterSelect.tsx b/src/commons/controlBar/ControlBarChapterSelect.tsx
index c35be486ca..c5dc71d985 100644
--- a/src/commons/controlBar/ControlBarChapterSelect.tsx
+++ b/src/commons/controlBar/ControlBarChapterSelect.tsx
@@ -1,22 +1,17 @@
-import { Button, Menu, MenuItem, Tooltip } from '@blueprintjs/core';
+import { Button, Menu, MenuItem } from '@blueprintjs/core';
 import { IconNames } from '@blueprintjs/icons';
 import { ItemListRenderer, ItemRenderer, Select } from '@blueprintjs/select';
 import { Chapter, Variant } from 'js-slang/dist/types';
-import React from 'react';
+import React, { useEffect } from 'react';
+import { useDispatch } from 'react-redux';
 
-import {
-  fullJSLanguage,
-  fullTSLanguage,
-  htmlLanguage,
-  javaLanguages,
-  pyLanguages,
-  SALanguage,
-  schemeLanguages,
-  sourceLanguages,
-  styliseSublanguage
-} from '../application/ApplicationTypes';
-import Constants from '../utils/Constants';
+import { flagLanguageDirectoryEnable } from '../../features/languageDirectory/flagLanguageDirectory';
+import LanguageDirectoryActions from '../../features/languageDirectory/LanguageDirectoryActions';
+import type { IEvaluatorDefinition } from '../../features/languageDirectory/LanguageDirectoryTypes';
+import { SALanguage } from '../application/ApplicationTypes';
+import { useFeature } from '../featureFlags/useFeature';
 import { useTypedSelector } from '../utils/Hooks';
+import { LegacyControlBarChapterSelect } from './LegacyControlBarChapterSelect';
 
 type ControlBarChapterSelectProps = DispatchProps & StateProps;
 
@@ -31,46 +26,6 @@ type StateProps = {
   disabled?: boolean;
 };
 
-const chapterListRenderer: ItemListRenderer<SALanguage> = ({
-  itemsParentRef,
-  renderItem,
-  items
-}) => {
-  const defaultChoices = items.filter(({ variant }) => variant === Variant.DEFAULT);
-  const variantChoices = items.filter(({ variant }) => variant !== Variant.DEFAULT);
-
-  return (
-    <Menu ulRef={itemsParentRef} style={{ display: 'flex', flexDirection: 'column' }}>
-      {defaultChoices.map(renderItem)}
-      {variantChoices.length > 0 && (
-        <MenuItem key="variant-menu" text="Variants" icon="cog">
-          {variantChoices.map(renderItem)}
-        </MenuItem>
-      )}
-    </Menu>
-  );
-};
-
-const chapterRenderer: (isFolderModeEnabled: boolean) => ItemRenderer<SALanguage> =
-  (isFolderModeEnabled: boolean) =>
-  (lang, { handleClick }) => {
-    const isDisabled = isFolderModeEnabled && lang.chapter === Chapter.SOURCE_1;
-    const tooltipContent = isDisabled
-      ? 'Folder mode makes use of lists which are not available in Source 1. To switch to Source 1, disable Folder mode.'
-      : undefined;
-    return (
-      <Tooltip
-        key={lang.displayName}
-        content={tooltipContent}
-        disabled={tooltipContent === undefined}
-      >
-        <MenuItem onClick={handleClick} text={lang.displayName} disabled={isDisabled} />
-      </Tooltip>
-    );
-  };
-
-const ChapterSelectComponent = Select.ofType<SALanguage>();
-
 export const ControlBarChapterSelect: React.FC<ControlBarChapterSelectProps> = ({
   isFolderModeEnabled,
   sourceChapter,
@@ -78,34 +33,68 @@ export const ControlBarChapterSelect: React.FC<ControlBarChapterSelectProps> = (
   handleChapterSelect = () => {},
   disabled = false
 }) => {
-  const selectedLang = useTypedSelector(store => store.playground.languageConfig.mainLanguage);
+  const dispatch = useDispatch();
+  const directoryEnabled = useFeature(flagLanguageDirectoryEnable);
+  const selectedLanguageId = useTypedSelector(s => s.languageDirectory.selectedLanguageId);
+  const selectedEvaluatorId = useTypedSelector(s => s.languageDirectory.selectedEvaluatorId);
+  const dirLanguages = useTypedSelector(s => s.languageDirectory.languages);
+
+  useEffect(() => {
+    if (directoryEnabled && dirLanguages.length === 0) {
+      dispatch(LanguageDirectoryActions.fetchLanguages());
+    }
+  }, [directoryEnabled, dirLanguages.length, dispatch]);
 
-  const choices = [
-    ...sourceLanguages,
-    // Full JS/TS version uses eval(), which is a huge security risk, so we only enable
-    // for public deployments. HTML, while sandboxed, is treated the same way to be safe.
-    // See https://github.com/source-academy/frontend/pull/2460#issuecomment-1528759912
-    ...(Constants.playgroundOnly ? [fullJSLanguage, fullTSLanguage, htmlLanguage] : []),
-    ...schemeLanguages,
-    ...pyLanguages,
-    ...javaLanguages
-  ];
+  if (!directoryEnabled) {
+    return <LegacyControlBarChapterSelect
+      isFolderModeEnabled={isFolderModeEnabled}
+      sourceChapter={sourceChapter}
+      sourceVariant={sourceVariant}
+      handleChapterSelect={handleChapterSelect}
+      disabled={disabled}
+    />;
+  }
+
+  const EvaluatorSelectComponent = Select.ofType<IEvaluatorDefinition>();
+
+  const currentLanguage = dirLanguages.find(l => l.id === selectedLanguageId);
+  const evaluators = currentLanguage?.evaluators ?? [];
+  const selectedEvaluator = evaluators.find(e => e.id === selectedEvaluatorId);
+
+  const evaluatorListRenderer: ItemListRenderer<IEvaluatorDefinition> = ({
+    itemsParentRef,
+    renderItem,
+    items
+  }) => (
+    <Menu ulRef={itemsParentRef} style={{ display: 'flex', flexDirection: 'column' }}>
+      {items.map(renderItem)}
+    </Menu>
+  );
+
+  const evaluatorRenderer: ItemRenderer<IEvaluatorDefinition> = (evaluator, { handleClick }) => (
+    <MenuItem key={evaluator.id} onClick={handleClick} text={evaluator.name} />
+  );
+
+  const onSelectEvaluator = (evaluator: IEvaluatorDefinition) => {
+    dispatch(LanguageDirectoryActions.setSelectedEvaluator(evaluator.id));
+  };
 
   return (
-    <ChapterSelectComponent
-      items={choices.filter(({ mainLanguage }) => mainLanguage === selectedLang)}
-      onItemSelect={handleChapterSelect}
-      itemRenderer={chapterRenderer(isFolderModeEnabled)}
-      itemListRenderer={chapterListRenderer}
+    <EvaluatorSelectComponent
+      items={evaluators}
+      onItemSelect={onSelectEvaluator}
+      itemRenderer={evaluatorRenderer}
+      itemListRenderer={evaluatorListRenderer}
       filterable={false}
       disabled={disabled}
     >
       <Button
         minimal
-        text={styliseSublanguage(sourceChapter, sourceVariant)}
+        text={selectedEvaluator ? selectedEvaluator.name : 'Select Evaluator'}
         rightIcon={disabled ? null : IconNames.DOUBLE_CARET_VERTICAL}
+        data-testid="ControlBarEvaluatorSelect"
         disabled={disabled}
       />
-    </ChapterSelectComponent>
+    </EvaluatorSelectComponent>
   );
 };
diff --git a/src/commons/controlBar/LegacyControlBarChapterSelect.tsx b/src/commons/controlBar/LegacyControlBarChapterSelect.tsx
new file mode 100644
index 0000000000..b717c40082
--- /dev/null
+++ b/src/commons/controlBar/LegacyControlBarChapterSelect.tsx
@@ -0,0 +1,111 @@
+import { Button, Menu, MenuItem, Tooltip } from '@blueprintjs/core';
+import { IconNames } from '@blueprintjs/icons';
+import { ItemListRenderer, ItemRenderer, Select } from '@blueprintjs/select';
+import { Chapter, Variant } from 'js-slang/dist/types';
+import React from 'react';
+
+import {
+  fullJSLanguage,
+  fullTSLanguage,
+  htmlLanguage,
+  javaLanguages,
+  pyLanguages,
+  SALanguage,
+  schemeLanguages,
+  sourceLanguages,
+  styliseSublanguage
+} from '../application/ApplicationTypes';
+import Constants from '../utils/Constants';
+import { useTypedSelector } from '../utils/Hooks';
+
+type ControlBarChapterSelectProps = DispatchProps & StateProps;
+
+type DispatchProps = {
+  handleChapterSelect?: (i: SALanguage, e?: React.SyntheticEvent<HTMLElement>) => void;
+};
+
+type StateProps = {
+  isFolderModeEnabled: boolean;
+  sourceChapter: Chapter;
+  sourceVariant: Variant;
+  disabled?: boolean;
+};
+
+const chapterListRenderer: ItemListRenderer<SALanguage> = ({
+  itemsParentRef,
+  renderItem,
+  items
+}) => {
+  const defaultChoices = items.filter(({ variant }) => variant === Variant.DEFAULT);
+  const variantChoices = items.filter(({ variant }) => variant !== Variant.DEFAULT);
+
+  return (
+    <Menu ulRef={itemsParentRef} style={{ display: 'flex', flexDirection: 'column' }}>
+      {defaultChoices.map(renderItem)}
+      {variantChoices.length > 0 && (
+        <MenuItem key="variant-menu" text="Variants" icon="cog">
+          {variantChoices.map(renderItem)}
+        </MenuItem>
+      )}
+    </Menu>
+  );
+};
+
+const chapterRenderer: (isFolderModeEnabled: boolean) => ItemRenderer<SALanguage> =
+  (isFolderModeEnabled: boolean) =>
+  (lang, { handleClick }) => {
+    const isDisabled = isFolderModeEnabled && lang.chapter === Chapter.SOURCE_1;
+    const tooltipContent = isDisabled
+      ? 'Folder mode makes use of lists which are not available in Source 1. To switch to Source 1, disable Folder mode.'
+      : undefined;
+    return (
+      <Tooltip
+        key={lang.displayName}
+        content={tooltipContent}
+        disabled={tooltipContent === undefined}
+      >
+        <MenuItem onClick={handleClick} text={lang.displayName} disabled={isDisabled} />
+      </Tooltip>
+    );
+  };
+
+const ChapterSelectComponent = Select.ofType<SALanguage>();
+
+export const LegacyControlBarChapterSelect: React.FC<ControlBarChapterSelectProps> = ({
+  isFolderModeEnabled,
+  sourceChapter,
+  sourceVariant,
+  handleChapterSelect = () => {},
+  disabled = false
+}) => {
+  const selectedLang = useTypedSelector(store => store.playground.languageConfig.mainLanguage);
+
+  const choices = [
+    ...sourceLanguages,
+    // Full JS/TS version uses eval(), which is a huge security risk, so we only enable
+    // for public deployments. HTML, while sandboxed, is treated the same way to be safe.
+    // See https://github.com/source-academy/frontend/pull/2460#issuecomment-1528759912
+    ...(Constants.playgroundOnly ? [fullJSLanguage, fullTSLanguage, htmlLanguage] : []),
+    ...schemeLanguages,
+    ...pyLanguages,
+    ...javaLanguages
+  ];
+
+  return (
+    <ChapterSelectComponent
+      items={choices.filter(({ mainLanguage }) => mainLanguage === selectedLang)}
+      onItemSelect={handleChapterSelect}
+      itemRenderer={chapterRenderer(isFolderModeEnabled)}
+      itemListRenderer={chapterListRenderer}
+      filterable={false}
+      disabled={disabled}
+    >
+      <Button
+        minimal
+        text={styliseSublanguage(sourceChapter, sourceVariant)}
+        rightIcon={disabled ? null : IconNames.DOUBLE_CARET_VERTICAL}
+        disabled={disabled}
+      />
+    </ChapterSelectComponent>
+  );
+};
diff --git a/src/commons/sagas/LanguageDirectorySaga.ts b/src/commons/sagas/LanguageDirectorySaga.ts
index bd95ea6c99..16ed44c680 100644
--- a/src/commons/sagas/LanguageDirectorySaga.ts
+++ b/src/commons/sagas/LanguageDirectorySaga.ts
@@ -1,5 +1,7 @@
 import { call, put, select } from 'redux-saga/effects';
 import type { OverallState } from 'src/commons/application/ApplicationTypes';
+import { flagConductorEnable } from 'src/features/conductor/flagConductorEnable';
+import { flagConductorEvaluatorUrl } from 'src/features/conductor/flagConductorEvaluatorUrl';
 import { staticLanguageDirectoryProvider } from 'src/features/languageDirectory/LanguageDirectoryTypes';
 
 import LanguageDirectoryActions from '../../features/languageDirectory/LanguageDirectoryActions';
@@ -7,6 +9,17 @@ import { combineSagaHandlers } from '../redux/utils';
 import { actions } from '../utils/ActionsHelper';
 
 const LanguageDirectorySaga = combineSagaHandlers({
+  [LanguageDirectoryActions.setLanguages.type]: function* () {
+    const state = yield select(
+      (s: OverallState) => s.languageDirectory
+    );
+    if (state.selectedLanguageId === null && state.languages.length > 0) {
+      yield put(actions.setSelectedLanguage(state.languages[0].id));
+    }
+    if (state.selectedEvaluatorId === null && state.languages.length > 0) {
+      yield put(actions.setSelectedEvaluator(state.languages[0].evaluators[0].id));
+    }
+  },
   [LanguageDirectoryActions.fetchLanguages.type]: function* () {
     const langs = yield call(staticLanguageDirectoryProvider.getLanguages.bind(staticLanguageDirectoryProvider));
     yield put(actions.setLanguages(langs));
@@ -26,6 +39,27 @@ const LanguageDirectorySaga = combineSagaHandlers({
     );
     if (currentLanguageId !== languageId) return;
     yield put(actions.setSelectedEvaluator(defaultEvaluatorId));
+  },
+  [LanguageDirectoryActions.setSelectedEvaluator.type]: function* (action) {
+    const {
+      payload: { evaluatorId }
+    } = action;
+    const selectedLanguageId: string | null = yield select(
+      (s: OverallState) => s.languageDirectory.selectedLanguageId
+    );
+    if (!selectedLanguageId) return;
+    const evaluator = yield call(
+      staticLanguageDirectoryProvider.getEvaluatorDefinition.bind(
+        staticLanguageDirectoryProvider
+      ),
+      selectedLanguageId,
+      evaluatorId
+    );
+    if (!evaluator) return;
+    yield put(actions.setFlag({ featureFlag: flagConductorEnable, value: true }));
+    yield put(
+      actions.setFlag({ featureFlag: flagConductorEvaluatorUrl, value: evaluator.path })
+    );
   }
 });
 
diff --git a/src/features/languageDirectory/LanguageDirectoryReducer.ts b/src/features/languageDirectory/LanguageDirectoryReducer.ts
index 0cb2ce037e..12b403da6d 100644
--- a/src/features/languageDirectory/LanguageDirectoryReducer.ts
+++ b/src/features/languageDirectory/LanguageDirectoryReducer.ts
@@ -10,12 +10,6 @@ export const LanguageDirectoryReducer: Reducer<LanguageDirectoryState, SourceAct
 		builder
 			.addCase(Actions.setLanguages, (state, action) => {
 				state.languages = action.payload.languages as any;
-				if (state.selectedLanguageId === null && state.languages.length > 0) {
-					state.selectedLanguageId = state.languages[0].id;
-				}
-				if (state.selectedEvaluatorId === null && state.languages.length > 0) {
-					state.selectedEvaluatorId = state.languages[0].evaluators[0].id;
-				}
 			})
 			.addCase(Actions.setSelectedLanguage, (state, action) => {
 				const { languageId, evaluatorId } = action.payload;

From 25c203a753a31bf38e017a824b246f5225a4745c Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Sat, 16 Aug 2025 16:01:40 +0000
Subject: [PATCH 10/16] Update package directory

---
 package.json | 2 +-
 yarn.lock    | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/package.json b/package.json
index 64cd20daa1..ec59070589 100644
--- a/package.json
+++ b/package.json
@@ -41,7 +41,7 @@
     "@reduxjs/toolkit": "^1.9.7",
     "@sentry/browser": "^8.33.0",
     "@sourceacademy/c-slang": "^1.0.21",
-    "@sourceacademy/language-directory": "https://github.com/loyaltypollution/language-directory.git",
+    "@sourceacademy/language-directory": "https://github.com/loyaltypollution/language-directory.git#866cc934372a19e514af0025947ce7f1f5a6e1fc",
     "@sourceacademy/sharedb-ace": "2.1.1",
     "@sourceacademy/sling-client": "^0.1.0",
     "@szhsin/react-menu": "^4.0.0",
diff --git a/yarn.lock b/yarn.lock
index 5d36eb56bf..f765a227d1 100644
--- a/yarn.lock
+++ b/yarn.lock
@@ -3259,10 +3259,10 @@ __metadata:
   languageName: node
   linkType: hard
 
-"@sourceacademy/language-directory@https://github.com/loyaltypollution/language-directory.git":
+"@sourceacademy/language-directory@https://github.com/loyaltypollution/language-directory.git#866cc934372a19e514af0025947ce7f1f5a6e1fc":
   version: 0.0.2
-  resolution: "@sourceacademy/language-directory@https://github.com/loyaltypollution/language-directory.git#commit=d99bd4163c045c16f93bf9a80afa1eda42fc4b02"
-  checksum: 10c0/b20111eff59add47bd1c160af64bfa82140c35b7ab1abfd800992f330654c002f997699647b4128fe2e79fcf57b767502aa40366ab6f18ca50ef066263e76423
+  resolution: "@sourceacademy/language-directory@https://github.com/loyaltypollution/language-directory.git#commit=866cc934372a19e514af0025947ce7f1f5a6e1fc"
+  checksum: 10c0/a6267cc71585f2cd09b53d416477e18fd2172eb42ca208350cb6aa4cec20fee56580a40cf29a40acd03c8321d6171694473cceb0d1e1b2c7e32dc62569104752
   languageName: node
   linkType: hard
 
@@ -7552,7 +7552,7 @@ __metadata:
     "@rsbuild/plugin-svgr": "npm:^1.2.0"
     "@sentry/browser": "npm:^8.33.0"
     "@sourceacademy/c-slang": "npm:^1.0.21"
-    "@sourceacademy/language-directory": "https://github.com/loyaltypollution/language-directory.git"
+    "@sourceacademy/language-directory": "https://github.com/loyaltypollution/language-directory.git#866cc934372a19e514af0025947ce7f1f5a6e1fc"
     "@sourceacademy/sharedb-ace": "npm:2.1.1"
     "@sourceacademy/sling-client": "npm:^0.1.0"
     "@svgr/webpack": "npm:^8.0.0"

From a00fef1454e5c3c66274f504a223f02a27bd2bae Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Sat, 16 Aug 2025 16:05:57 +0000
Subject: [PATCH 11/16] Add temporary example conductor urls

---
 public/evaluators/pie-slang/pie.js     |   2 +
 public/evaluators/py-slang/pyscript.js | 722 +++++++++++++++++++++++++
 public/evaluators/py-slang/standard.js | 722 +++++++++++++++++++++++++
 3 files changed, 1446 insertions(+)
 create mode 100644 public/evaluators/pie-slang/pie.js
 create mode 100644 public/evaluators/py-slang/pyscript.js
 create mode 100644 public/evaluators/py-slang/standard.js

diff --git a/public/evaluators/pie-slang/pie.js b/public/evaluators/pie-slang/pie.js
new file mode 100644
index 0000000000..1fcb0e47a6
--- /dev/null
+++ b/public/evaluators/pie-slang/pie.js
@@ -0,0 +1,2 @@
+!function(){"use strict";class t extends Error{name="ConductorError";errorType="__unknown";constructor(t){super(t)}}class e extends t{name="ConductorInternalError";errorType="__internal";constructor(t){super(t)}}class n{conductor;async startEvaluator(t){const n=await this.conductor.requestFile(t);if(!n)throw new e("Cannot load entrypoint file");for(await this.evaluateFile(t,n);;){const t=await this.conductor.requestChunk();await this.evaluateChunk(t)}}async evaluateFile(t,e){return this.evaluateChunk(e)}constructor(t){this.conductor=t}}async function r(t){return(await import(t)).plugin}"function"==typeof SuppressedError&&SuppressedError;class s{name;__port;__subscribers=new Set;__isAlive=!0;__waitingMessages=[];send(t,e){this.__verifyAlive(),this.__port.postMessage(t,e??[])}subscribe(t){if(this.__verifyAlive(),this.__subscribers.add(t),this.__waitingMessages){for(const e of this.__waitingMessages)t(e);delete this.__waitingMessages}}unsubscribe(t){this.__verifyAlive(),this.__subscribers.delete(t)}close(){this.__verifyAlive(),this.__isAlive=!1,this.__port?.close()}__verifyAlive(){if(!this.__isAlive)throw new e(`Channel ${this.name} has been closed`)}__dispatch(t){if(this.__verifyAlive(),this.__waitingMessages)this.__waitingMessages.push(t);else for(const e of this.__subscribers)e(t)}listenToPort(t){t.addEventListener("message",(t=>this.__dispatch(t.data))),t.start()}replacePort(t){this.__verifyAlive(),this.__port?.close(),this.__port=t,this.listenToPort(t)}constructor(t,e){this.name=t,this.replacePort(e)}}class i{__s1=[];__s2=[];push(t){this.__s2.push(t)}pop(){if(0===this.__s1.length){if(0===this.__s2.length)throw new Error("queue is empty");let t=this.__s1;this.__s1=this.__s2.reverse(),this.__s2=t}return this.__s1.pop()}get length(){return this.__s1.length+this.__s2.length}clone(){const t=new i;return t.__s1=[...this.__s1],t.__s2=[...this.__s2],t}}class a{__inputQueue=new i;__promiseQueue=new i;push(t){0!==this.__promiseQueue.length?this.__promiseQueue.pop()(t):this.__inputQueue.push(t)}async pop(){return 0!==this.__inputQueue.length?this.__inputQueue.pop():new Promise(((t,e)=>{this.__promiseQueue.push(t)}))}tryPop(){if(0!==this.__inputQueue.length)return this.__inputQueue.pop()}constructor(){this.push=this.push.bind(this)}}class o{name;__channel;__messageQueue=new a;async receive(){return this.__messageQueue.pop()}tryReceive(){return this.__messageQueue.tryPop()}send(t,e){this.__channel.send(t,e)}close(){this.__channel.unsubscribe(this.__messageQueue.push)}constructor(t){this.name=t.name,this.__channel=t,this.__channel.subscribe(this.__messageQueue.push)}}class c{__alive=!0;__link;__parent;__channels=new Map;__pluginMap=new Map;__plugins=[];__negotiateChannel(t){const{port1:e,port2:n}=new MessageChannel,r=new s(t,e);this.__link.postMessage([t,n],[n]),this.__channels.set(t,r)}__verifyAlive(){if(!this.__alive)throw new e("Conduit already terminated")}registerPlugin(t,...n){this.__verifyAlive();const r=[];for(const e of t.channelAttach)this.__channels.has(e)||this.__negotiateChannel(e),r.push(this.__channels.get(e));const s=new t(this,r,...n);if(void 0!==s.name){if(this.__pluginMap.has(s.name))throw new e(`Plugin ${s.name} already registered`);this.__pluginMap.set(s.name,s)}return this.__plugins.push(s),s}unregisterPlugin(t){this.__verifyAlive();let e=0;for(let n=0;n<this.__plugins.length;++n)this.__plugins[e]===t&&++e,this.__plugins[n]=this.__plugins[n+e];for(let t=this.__plugins.length-1,n=this.__plugins.length-e;t>=n;--t)delete this.__plugins[t];t.name&&this.__pluginMap.delete(t.name),t.destroy?.()}lookupPlugin(t){if(this.__verifyAlive(),!this.__pluginMap.has(t))throw new e(`Plugin ${t} not registered`);return this.__pluginMap.get(t)}terminate(){this.__verifyAlive();for(const t of this.__plugins)t.destroy?.();this.__link.terminate?.(),this.__alive=!1}__handlePort(t){const[e,n]=t;if(this.__channels.has(e)){const t=this.__channels.get(e);this.__parent?t.listenToPort(n):t.replacePort(n)}else{const t=new s(e,n);this.__channels.set(e,t)}}constructor(t,e=!1){this.__link=t,t.addEventListener("message",(t=>this.__handlePort(t.data))),this.__parent=e}}class u{type=0;data;constructor(t,e,n){this.data={fn:t,args:e,invokeId:n}}}class h{type=2;data;constructor(t,e){this.data={invokeId:t,err:e}}}class l{type=1;data;constructor(t,e){this.data={invokeId:t,res:e}}}function p(t){}var f;!function(t){t[t.VOID=0]="VOID",t[t.BOOLEAN=1]="BOOLEAN",t[t.NUMBER=2]="NUMBER",t[t.CONST_STRING=3]="CONST_STRING",t[t.EMPTY_LIST=4]="EMPTY_LIST",t[t.PAIR=5]="PAIR",t[t.ARRAY=6]="ARRAY",t[t.CLOSURE=7]="CLOSURE",t[t.OPAQUE=8]="OPAQUE",t[t.LIST=9]="LIST"}(f||(f={}));class w{type=1;data;constructor(t){this.data={minVersion:t}}}class y{type=0;data={version:0}}class d{type=3;data;constructor(t){this.data=t}}let m=(()=>{let t,n,s=[p],i=[];return class{static{n=this}static{const e="function"==typeof Symbol&&Symbol.metadata?Object.create(null):void 0;!function(t,e,n,r,s,i){function a(t){if(void 0!==t&&"function"!=typeof t)throw new TypeError("Function expected");return t}for(var o,c=r.kind,u="getter"===c?"get":"setter"===c?"set":"value",h=!e&&t?r.static?t:t.prototype:null,l=e||(h?Object.getOwnPropertyDescriptor(h,r.name):{}),p=!1,f=n.length-1;f>=0;f--){var w={};for(var y in r)w[y]="access"===y?{}:r[y];for(var y in r.access)w.access[y]=r.access[y];w.addInitializer=function(t){if(p)throw new TypeError("Cannot add initializers after decoration has completed");i.push(a(t||null))};var d=(0,n[f])("accessor"===c?{get:l.get,set:l.set}:l[u],w);if("accessor"===c){if(void 0===d)continue;if(null===d||"object"!=typeof d)throw new TypeError("Object expected");(o=a(d.get))&&(l.get=o),(o=a(d.set))&&(l.set=o),(o=a(d.init))&&s.unshift(o)}else(o=a(d))&&("field"===c?s.unshift(o):l[u]=o)}h&&Object.defineProperty(h,r.name,l),p=!0}(null,t={value:n},s,{kind:"class",name:n.name,metadata:e},null,i),n=t.value,e&&Object.defineProperty(n,Symbol.metadata,{enumerable:!0,configurable:!0,writable:!0,value:e})}name="__runner_main";__evaluator;__isCompatibleWithModules;__conduit;__fileRpc;__chunkQueue;__serviceChannel;__ioQueue;__errorChannel;__statusChannel;__serviceHandlers=new Map([[0,function(t){t.data.version<0?(this.__serviceChannel.send(new w(0)),console.error(`Host's protocol version (${t.data.version}) must be at least 0`)):console.log(`Host is using protocol version ${t.data.version}`)}],[1,function(t){console.error(`Host expects at least protocol version ${t.data.minVersion}, but we are on version 0`),this.__conduit.terminate()}],[2,function(t){this.__evaluator.startEvaluator(t.data)}]]);requestFile(t){return this.__fileRpc.requestFile(t)}async requestChunk(){return(await this.__chunkQueue.receive()).chunk}async requestInput(){const{message:t}=await this.__ioQueue.receive();return t}tryRequestInput(){const t=this.__ioQueue.tryReceive();return t?.message}sendOutput(t){this.__ioQueue.send({message:t})}sendError(t){this.__errorChannel.send({error:t})}updateStatus(t,e){this.__statusChannel.send({status:t,isActive:e})}hostLoadPlugin(t){this.__serviceChannel.send(new d(t))}registerPlugin(t,...e){return this.__conduit.registerPlugin(t,...e)}unregisterPlugin(t){this.__conduit.unregisterPlugin(t)}registerModule(t){if(!this.__isCompatibleWithModules)throw new e("Evaluator has no data interface");return this.registerPlugin(t,this.__evaluator)}unregisterModule(t){this.unregisterPlugin(t)}async importAndRegisterExternalPlugin(t){const e=await r(t);return this.registerPlugin(e)}async importAndRegisterExternalModule(t){const e=await async function(t){return await r(t)}(t);return this.registerModule(e)}static channelAttach=["__file_rpc","__chunk","__service","__stdio","__error","__status"];constructor(t,[e,n,r,s,i,a],c){this.__conduit=t,this.__fileRpc=function(t,e){const n=[];let r=0;return t.subscribe((async r=>{switch(r.type){case 0:{const{fn:n,args:s,invokeId:i}=r.data;try{const r=await e[n](...s);i>0&&t.send(new l(i,r))}catch(e){i>0&&t.send(new h(i,e))}break}case 1:{const{invokeId:t,res:e}=r.data;n[t]?.[0]?.(e),delete n[t];break}case 2:{const{invokeId:t,err:e}=r.data;n[t]?.[1]?.(e),delete n[t];break}}})),new Proxy({},{get(e,s,i){const a=Reflect.get(e,s,i);if(a)return a;const o="string"==typeof s&&"$"===s.charAt(0)?(...e)=>{t.send(new u(s,e,0))}:(...e)=>{const i=++r;return t.send(new u(s,e,i)),new Promise(((t,e)=>{n[i]=[t,e]}))};return Reflect.set(e,s,o,i),o}})}(e,{}),this.__chunkQueue=new o(n),this.__serviceChannel=r,this.__ioQueue=new o(s),this.__errorChannel=i,this.__statusChannel=a,this.__serviceChannel.send(new y),this.__serviceChannel.subscribe((t=>{this.__serviceHandlers.get(t.type)?.call(this,t)})),this.__evaluator=new c(this),this.__isCompatibleWithModules=this.__evaluator.hasDataInterface??!1}static{!function(t,e,n){for(var r=arguments.length>2,s=0;s<e.length;s++)n=r?e[s].call(t,n):e[s].call(t)}(n,i)}},n})();const g={0:"₀",1:"₁",2:"₂",3:"₃",4:"₄",5:"₅",6:"₆",7:"₇",8:"₈",9:"₉"},v={"₀":"0","₁":"1","₂":"2","₃":"3","₄":"4","₅":"5","₆":"6","₇":"7","₈":"8","₉":"9"};function E(t,e){if(t.some((t=>t===e))){return P(t,function(t){const[e,n]=b(t,t.length-1);return[e,n]}(e))}return e}function P(t,e){const n=function([t,e]){const n=function(t){const e=t.toString().split("").map((t=>g[t]||t)).join("");return e}(e);return t+n}(e);return t.map((t=>t.toString())).includes(n.toString())?P(t,function(t){return[t[0],t[1]+1]}(e)):n}function T(t){const e=t.split("").map((t=>v[t]||t)).join("");return parseInt(e,10)||1}function b(t,e){return e<0?[t,0]:(n=t[e],Object.keys(v).includes(n)?b(t,e-1):[t.substring(0,e+1),T(t.substring(e+1))]);var n}class N{location;varName;constructor(t,e){this.location=t,this.varName=e}}class x{binder;type;constructor(t,e){this.binder=t,this.type=e}}class _{message;constructor(t){this.message=t}}class k{}class S extends k{result;constructor(t){super(),this.result=t}}class $ extends k{where;message;constructor(t,e){super(),this.where=t,this.message=e}}class O{name;value;constructor(t,e=null){this.name=t,this.value=e}}function L(t,e){for(const[e,n]of t){const r=n();if(!(r instanceof S))throw new Error(`Encountered stop when evaluating the sequence ${t}. Error message: ${r.message.message} at ${r.where}`);e.value=r.result}return e()}class A{constructor(){}}class I extends A{env;varName;expr;constructor(t,e,n){super(),this.env=t,this.varName=e,this.expr=n}valOfClosure(t){return this.expr.valOf((e=this.env,n=this.varName,r=t,new Map([...e,[n,r]])));var e,n,r}prettyPrint(){return`(CLOS ${this.varName} ${this.expr.prettyPrint()})`}toString(){return this.prettyPrint()}}class B extends A{proc;constructor(t){super(),this.proc=t}valOfClosure(t){return this.proc(t)}prettyPrint(){return"(HOCLOS)"}toString(){return this.prettyPrint()}}function C(t){return!("U"===(e=t)||"Nat"===e||"zero"===e||"add1"===e||"which-Nat"===e||"iter-Nat"===e||"rec-Nat"===e||"ind-Nat"===e||"->"===e||"→"===e||"Π"===e||"λ"===e||"Pi"===e||"∏"===e||"lambda"===e||"quote"===e||"Atom"===e||"car"===e||"cdr"===e||"cons"===e||"Σ"===e||"Sigma"===e||"Pair"===e||"Trivial"===e||"sole"===e||"List"===e||"::"===e||"nil"===e||"rec-List"===e||"ind-List"===e||"Absurd"===e||"ind-Absurd"===e||"="===e||"same"===e||"replace"===e||"trans"===e||"cong"===e||"symm"===e||"ind-="===e||"Vec"===e||"vecnil"===e||"vec::"===e||"head"===e||"tail"===e||"ind-Vec"===e||"Either"===e||"left"===e||"right"===e||"ind-Either"===e||"TODO"===e||"the"===e)&&isNaN(Number(t));var e}function R(t){return Array.from(t.keys())}function q(t,e){return E(R(t),e)}function M(t,e,n){return E(R(t).concat(e.findNames()),n)}function U(t){return[t.binder.varName].concat(t.type.findNames())}function H(t,e,n){return new Map([...t,[e,n]])}function D(t,e){return e.valOf(V(t))}function z(t){const e=new Map;for(const[n,r]of t)r instanceof Z?e.set(n,["free",r.type.readBackType(t)]):r instanceof Y?e.set(n,["def",r.type.readBackType(t),lt(t,r.type,r.value)]):r instanceof K&&e.set(n,["claim",r.type.readBackType(t)]);return e}function Q(t,e,n,r){const s=new O("typeOut");return L([[new O("_"),()=>function(t,e,n){return t.has(n)?new $(e,new _([`The name "${n}" is already in use in the context.`])):new S(!0)}(t,n,e)],[s,()=>r.isType(t,new Map)]],(()=>new S(H(t,e,new K(D(t,s.value))))))}function F(t,e,n,r){const s=new O("typeOut"),i=new O("exprOut");return L([[s,()=>function(t,e,n){for(const[r,s]of t)if(r===n){if(s instanceof Y)return new $(e,new _([`The name "${n}" is already defined.`]));if(s instanceof K)return new S(s.type)}return new $(e,new _([`No claim: ${n}`]))}(t,n,e)],[i,()=>r.check(t,new Map,s.value)]],(()=>new S(function(t,e,n,r){return H(t,e,new Y(n,r))}(function(t,e){return t.delete(e),t}(t,e),e,s.value,D(t,i.value)))))}function V(t){if(0===t.size)return new Map;const e=t.entries(),n=new Map;for(const[t,r]of e)r instanceof Y?n.set(t,r.value):r instanceof Z&&n.set(t,new oe(r.type,new wt(t)));return n}const G=new Map;class X{}let K=class extends X{type;constructor(t){super(),this.type=t}};class Y extends X{type;value;constructor(t,e){super(),this.type=t,this.value=e}}class Z extends X{type;constructor(t){super(),this.type=t}}function j(t,e,n){if(0===t.size)throw new Error(`Unknown variable ${n}`);for(const[e,r]of t.entries())if(!(r instanceof K)&&n===e)return new S(r.type);throw new Error(`Unknown variable ${n}`)}function W(t,e,n){if(t.has(e)){for(const[r,s]of t)if(r===e)return H(t,e,new Z(n));throw new Error(`\n      ${e} is already bound in ${JSON.stringify(t)}\n    `)}return H(t,e,new Z(n))}function J(t,e){const n=t.now();if(n instanceof Xt)return n.body.valOfClosure(e);if(n instanceof oe){const t=n.type.now();if(t instanceof Gt)return new oe(t.resultType.valOfClosure(e),new qt(n.neutral,new pt(t.argType,e)))}throw new Error(`doApp: invalid input ${[n,e]}`)}function tt(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(r,tt(s.smaller,e,n,r));if(s instanceof oe){if(s.type.now()instanceof Qt)return new oe(e,new mt(s.neutral,new pt(e,n),new pt(new Gt("n",new Qt,new B((t=>e))),r)))}throw new Error(`invalid input for iterNat ${[t,e,n,r]}`)}function et(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(J(r,s.smaller),et(s.smaller,e,n,r));if(s instanceof oe){if(s.type.now()instanceof Qt)return new oe(e,new gt(s.neutral,new pt(e,n),new pt(new Gt("n-1",new Qt,new B((t=>new Gt("ih",e,new B((t=>e)))))),r)))}throw new Error(`invalid input for recNat ${[t,e,n,r]}`)}function nt(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(J(r,s.smaller),nt(s.smaller,e,n,r));if(s instanceof oe){if(s.type.now()instanceof Qt)return new oe(J(e,t),new vt(s.neutral,new pt(new Gt("x",new Qt,new B((t=>new ce))),e),new pt(J(e,new Ft),n),new pt(new Gt("n-1",new Qt,new B((t=>new Gt("ih",J(e,t),new B((n=>J(e,new Vt(t)))))))),r)))}throw new Error(`invalid input for indNat ${[t,e,n,r]}`)}function rt(t){const e=t.now();if(e instanceof Yt)return e.car;if(e instanceof oe){const t=e.type.now();if(t instanceof Kt){const n=t,r=e.neutral;return new oe(n.carType,new Et(r))}}throw new Error(`invalid input for car ${t}`)}function st(t){const e=t.now();if(e instanceof Yt)return e.cdr;if(e instanceof oe){const n=e.type.now();if(n instanceof Kt){const r=n,s=e.neutral;return new oe(r.cdrType.valOfClosure(rt(t)),new Pt(s))}}throw new Error(`invalid input for cdr ${t}`)}function it(t,e,n,r){const s=t.now();if(s instanceof jt)return n;if(s instanceof Wt)return J(J(J(r,s.head),s.tail),it(s.tail,e,n,r));if(s instanceof oe){const i=s.type.now();if(i instanceof Zt){const a=i.entryType,o=s.neutral,c=new Gt("xs",new Zt(a),new B((t=>new ce)));return new oe(J(e,t),new bt(o,new pt(c,e),new pt(J(e,new jt),n),new pt(new Gt("h",a,new B((t=>new Gt("t",new Zt(a),new B((n=>new Gt("ih",J(e,n),new B((r=>J(e,new Wt(t,n))))))))))),r)))}}throw new Error(`invalid input for indList ${[s,e,n,r]}`)}function at(t,e,n,r){const s=t.now();if(s instanceof jt)return n;if(s instanceof Wt){const t=s.head,i=s.tail;return J(J(J(r,t),i),at(i,e,n,r))}if(s instanceof oe){const t=s.type.now();if(t instanceof Zt){const i=t.entryType,a=s.neutral;return new oe(e,new Tt(a,new pt(e,n),new pt(new Gt("h",i,new B((t=>new Gt("t",new Zt(i),new B((t=>new Gt("ih",e,new B((t=>e))))))))),r)))}}throw new Error(`invalid input for recList ${[s,e,n,r]}`)}function ot(t){const e=t.now();if(e instanceof re)return e.tail;if(e instanceof oe&&e.type instanceof ee&&e.type.length instanceof Vt){const t=e.type.now();if(t instanceof ee){if(t.length.now()instanceof Vt)return new oe(new ee(e.type.entryType,e.type.length.smaller),new It(e.neutral))}}throw new Error(`invalid input for tail ${t}`)}function ct(t,e){return new Gt("k",new Qt,new B((n=>new Gt("e",new ee(t,n),new B((r=>new Gt("es",new ee(t,n),new B((t=>new Gt("ih",J(J(e,n),t),new B((s=>J(J(e,new Vt(n)),new re(r,t))))))))))))))}function ut(t,e,n,r,s){const i=t.now(),a=e.now();if(i instanceof Ft&&a instanceof ne)return r;if(i instanceof Vt&&a instanceof re)return J(J(J(J(s,i.smaller),a.head),ot(e)),ut(i.smaller,a.tail,n,r,s));if(i instanceof oe&&a instanceof oe&&i.type instanceof Qt&&a.type instanceof ee){const o=a.type.entryType;return new oe(J(J(n,t),e),new Ct(i.neutral,a.neutral,new pt(new Gt("k",new Qt,new B((t=>new Gt("es",new ee(o,t),new B((t=>new ce)))))),n),new pt(J(J(n,new Ft),new ne),r),new pt(ct(a.type.entryType,n),s)))}if(ht(i,t)&&a instanceof oe&&a.type instanceof ee){const i=a.type.entryType;return new oe(J(J(n,t),e),new Bt(new pt(new Qt,t),a.neutral,new pt(new Gt("k",new Qt,new B((t=>new Gt("es",new ee(i,t),new B((t=>new ce)))))),n),new pt(J(J(n,new Qt),new ne),r),new pt(ct(i,n),s)))}throw new Error(`invalid input for indVec ${[t,e,n,r,s]}`)}function ht(t,e){const n=t.now(),r=e.now();return n instanceof Ft&&r instanceof Ft||n instanceof Vt&&r instanceof Vt&&ht(n.smaller,r.smaller)}function lt(t,e,n){const r=e.now(),s=n.now();if(r instanceof ce)return n.readBackType(t);if(r instanceof Qt&&s instanceof Ft)return new me;if(r instanceof Qt&&s instanceof Vt)return new ge(lt(t,new Qt,s.smaller));if(r instanceof Gt){const e=q(t,s instanceof Xt?s.argName:r.argName);return new Ne(e,lt(W(t,e,r.argType),r.resultType.valOfClosure(new oe(r.argType,new wt(e))),J(s,new oe(r.argType,new wt(e)))))}if(r instanceof Kt){const e=rt(n),s=st(n);return new Se(lt(t,r.carType,e),lt(t,r.cdrType.valOfClosure(e),s))}if(r instanceof ue&&s instanceof zt)return new _e(s.name);if(r instanceof he)return new qe;if(r instanceof Zt&&s instanceof jt)return new Ae;if(r instanceof Zt&&s instanceof Wt)return new Se(lt(t,r.entryType,s.head),lt(t,new Zt(r.entryType),s.tail));if(r instanceof pe&&s instanceof oe)return new we(new Me,s.neutral.readBackNeutral(t));if(r instanceof Jt&&s instanceof te)return new De(lt(t,r.type,s.value));if(r instanceof ee&&r.length.now()instanceof Ft)return new Ye;if(r instanceof ee&&r.length.now()instanceof Vt&&s instanceof re){const e=r.length.now();return new Ke(lt(t,r.entryType,s.head),lt(t,new ee(r.entryType,e.smaller),s.tail))}if(r instanceof se&&s instanceof ie)return new tn(lt(t,r.leftType,s.value));if(r instanceof se&&s instanceof ae)return new en(lt(t,r.rightType,s.value));if(s instanceof oe)return s.neutral.readBackNeutral(t);throw new Error(`Cannot read back ${s} : ${r}`)}class pt{type;value;constructor(t,e){this.type=t,this.value=e}}let ft=class{constructor(){}toString(){return this.prettyPrint()}};class wt extends ft{name;constructor(t){super(),this.name=t}readBackNeutral(t){return new an(this.name)}prettyPrint(){return`N-${this.name}`}}let yt=class extends ft{where;type;constructor(t,e){super(),this.where=t,this.type=e}readBackNeutral(t){return new rn(this.where,this.type.readBackType(t))}prettyPrint(){return"N-TODO"}},dt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new ve(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-WhichNat"}},mt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new Ee(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IterNat"}},gt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new Pe(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-RecNat"}},vt=class extends ft{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}readBackNeutral(t){return new Te(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndNat"}},Et=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new $e(this.target.readBackNeutral(t))}prettyPrint(){return"N-Car"}},Pt=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Oe(this.target.readBackNeutral(t))}prettyPrint(){return"N-Cdr"}},Tt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new Be(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-RecList"}},bt=class extends ft{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}readBackNeutral(t){return new Ce(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndList"}},Nt=class extends ft{target;motive;constructor(t,e){super(),this.target=t,this.motive=e}readBackNeutral(t){return new Ue(new we(new Me,this.target.readBackNeutral(t)),lt(t,this.motive.type,this.motive.value))}prettyPrint(){return"N-IndAbsurd"}},xt=class extends ft{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}readBackNeutral(t){return new ze(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value))}prettyPrint(){return"N-Replace"}};class _t extends ft{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new Qe(this.target1.readBackNeutral(t),lt(t,this.target2.type,this.target2.value))}prettyPrint(){return"N-Trans1"}}class kt extends ft{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new Qe(lt(t,this.target1.type,this.target1.value),this.target2.readBackNeutral(t))}prettyPrint(){return"N-Trans2"}}class St extends ft{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new Qe(this.target1.readBackNeutral(t),this.target2.readBackNeutral(t))}prettyPrint(){return"N-Trans12"}}let $t=class extends ft{target;func;constructor(t,e){super(),this.target=t,this.func=e}readBackNeutral(t){const e=this.func.type;if(e instanceof Gt){const n=e.resultType;return new Fe(this.target.readBackNeutral(t),n.valOfClosure(new pe).readBackType(t),lt(t,this.func.type,this.func.value))}throw new Error("Cong applied to non-Pi type.")}prettyPrint(){return"N-Cong"}},Ot=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Ve(this.target.readBackNeutral(t))}prettyPrint(){return"N-Symm"}},Lt=class extends ft{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}readBackNeutral(t){return new Ge(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value))}prettyPrint(){return"N-IndEqual"}},At=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Ze(this.target.readBackNeutral(t))}prettyPrint(){return"N-Head"}},It=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new je(this.target.readBackNeutral(t))}prettyPrint(){return"N-Tail"}};class Bt extends ft{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}readBackNeutral(t){return new We(lt(t,this.length.type,this.length.value),this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndVec2"}}class Ct extends ft{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}readBackNeutral(t){return new We(this.length.readBackNeutral(t),this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndVec12"}}let Rt=class extends ft{target;motive;baseLeft;baseRight;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.baseLeft=n,this.baseRight=r}readBackNeutral(t){return new nn(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.baseLeft.type,this.baseLeft.value),lt(t,this.baseRight.type,this.baseRight.value))}prettyPrint(){return"N-IndEither"}},qt=class extends ft{operator;operand;constructor(t,e){super(),this.operator=t,this.operand=e}readBackNeutral(t){return new sn(this.operator.readBackNeutral(t),lt(t,this.operand.type,this.operand.value))}prettyPrint(){return"N-Application"}};class Mt{now(){return this}}class Ut{env;expr;constructor(t,e){this.env=t,this.expr=e}undelay(){return this.expr.valOf(this.env).now()}toString(){return`DelayClosure(${this.env}, ${this.expr})`}}class Ht{content;constructor(t){this.content=t}get(){return this.content}set(t){this.content=t}}class Dt extends Mt{val;constructor(t){super(),this.val=t}now(){const t=this.val.get();if(t instanceof Ut){let e=t.undelay();return this.val.set(e),e}return t}readBackType(t){return this.now().readBackType(t)}prettyPrint(){return this.now().prettyPrint()}toString(){return`Delay(${this.val})`}}let zt=class extends Mt{name;constructor(t){super(),this.name=t}readBackType(t){throw new Error("No readBackType for Quote.")}prettyPrint(){return`'${this.name}`}toString(){return this.prettyPrint()}},Qt=class extends Mt{constructor(){super()}readBackType(t){return new de}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}},Ft=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for Zero.")}prettyPrint(){return"zero"}toString(){return this.prettyPrint()}},Vt=class extends Mt{smaller;constructor(t){super(),this.smaller=t}readBackType(t){throw new Error("No readBackType for Add1.")}prettyPrint(){return`(add1 ${this.smaller.prettyPrint()})`}toString(){return this.prettyPrint()}},Gt=class extends Mt{argName;argType;resultType;constructor(t,e,n){super(),this.argName=t,this.argType=e,this.resultType=n}readBackType(t){const e=this.argType.readBackType(t),n=q(t,this.argName),r=W(t,n,this.argType);return new be(n,e,this.resultType.valOfClosure(new oe(this.argType,new wt(n))).readBackType(r))}prettyPrint(){return`(Π ${this.argName} ${this.argType.prettyPrint()} ${this.resultType.prettyPrint()})`}toString(){return this.prettyPrint()}},Xt=class extends Mt{argName;body;constructor(t,e){super(),this.argName=t,this.body=e}readBackType(t){throw new Error("No readBackType for Lambda.")}prettyPrint(){return`(lambda ${this.argName} ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Kt=class extends Mt{carName;carType;cdrType;constructor(t,e,n){super(),this.carName=t,this.carType=e,this.cdrType=n}readBackType(t){const e=this.carType.readBackType(t),n=q(t,this.carName),r=W(t,n,this.carType);return new ke(n,e,this.cdrType.valOfClosure(new oe(this.carType,new wt(n))).readBackType(r))}prettyPrint(){return`(Σ ${this.carName} ${this.carType.prettyPrint()} ${this.cdrType.prettyPrint()})`}toString(){return this.prettyPrint()}},Yt=class extends Mt{car;cdr;constructor(t,e){super(),this.car=t,this.cdr=e}readBackType(t){throw new Error("No readBackType for Cons.")}prettyPrint(){return`(cons ${this.car.prettyPrint()} ${this.cdr.prettyPrint()})`}toString(){return this.prettyPrint()}},Zt=class extends Mt{entryType;constructor(t){super(),this.entryType=t}readBackType(t){return new Ie(this.entryType.readBackType(t))}prettyPrint(){return`(List ${this.entryType.prettyPrint()})`}toString(){return this.prettyPrint()}},jt=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for Nil.")}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}},Wt=class extends Mt{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}readBackType(t){throw new Error("No readBackType for ListCons.")}prettyPrint(){return`(:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Jt=class extends Mt{type;from;to;constructor(t,e,n){super(),this.type=t,this.from=e,this.to=n}readBackType(t){return new He(this.type.readBackType(t),lt(t,this.type,this.from),lt(t,this.type,this.to))}prettyPrint(){return`(= ${this.type.prettyPrint()} ${this.from.prettyPrint()} ${this.to.prettyPrint()})`}toString(){return this.prettyPrint()}},te=class extends Mt{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Same.")}prettyPrint(){return`(same ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},ee=class extends Mt{entryType;length;constructor(t,e){super(),this.entryType=t,this.length=e}readBackType(t){return new Xe(this.entryType.readBackType(t),lt(t,new Qt,this.length))}prettyPrint(){return`(Vec ${this.entryType.prettyPrint()} ${this.length.prettyPrint()})`}},ne=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for VecNil.")}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}},re=class extends Mt{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}readBackType(t){throw new Error("No readBackType for VecCons.")}prettyPrint(){return`(vec:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},se=class extends Mt{leftType;rightType;constructor(t,e){super(),this.leftType=t,this.rightType=e}readBackType(t){return new Je(this.leftType.readBackType(t),this.rightType.readBackType(t))}prettyPrint(){return`(Either ${this.leftType.prettyPrint()} ${this.rightType.prettyPrint()})`}toString(){return this.prettyPrint()}},ie=class extends Mt{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Left.")}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},ae=class extends Mt{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Right.")}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}};class oe extends Mt{type;neutral;constructor(t,e){super(),this.type=t,this.neutral=e}readBackType(t){return this.neutral.readBackNeutral(t)}prettyPrint(){return`(Neutral ${this.type.prettyPrint()} ${this.neutral.prettyPrint()})`}toString(){return this.prettyPrint()}}let ce=class extends Mt{constructor(){super()}readBackType(t){return new ye}prettyPrint(){return"U"}toString(){return this.prettyPrint()}},ue=class extends Mt{constructor(){super()}readBackType(t){return new xe}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}},he=class extends Mt{constructor(){super()}readBackType(t){return new Re}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}},le=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for Sole.")}prettyPrint(){return"sole"}toString(){return this.prettyPrint()}},pe=class extends Mt{constructor(){super()}readBackType(t){return new Me}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}};class fe{toLazy(t){return new Dt(new Ht(new Ut(t,this)))}}let we=class extends fe{type;expr;constructor(t,e){super(),this.type=t,this.expr=e}valOf(t){return this.expr.valOf(t)}prettyPrint(){return`(the ${this.type.prettyPrint()} ${this.expr.prettyPrint()})`}toString(){return this.prettyPrint()}},ye=class extends fe{valOf(t){return new ce}prettyPrint(){return"U"}toString(){return this.prettyPrint()}},de=class extends fe{valOf(t){return new Qt}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}},me=class extends fe{valOf(t){return new Ft}prettyPrint(){return"0"}toString(){return this.prettyPrint()}},ge=class extends fe{n;constructor(t){super(),this.n=t}valOf(t){return new Vt(this.n.toLazy(t))}prettyPrint(){return isNaN(Number(this.n.prettyPrint()))?`(add1 ${this.n.prettyPrint()})`:`${Number(this.n.prettyPrint())+1}`}toString(){return this.prettyPrint()}},ve=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return function(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(r,s.smaller);if(s instanceof oe&&s.type.now()instanceof Qt)return new oe(e,new dt(s.neutral,new pt(e,n),new pt(new Gt("n",new Qt,new B((t=>e))),r)));throw new Error(`invalid input for whichNat ${[t,e,n,r]}`)}(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(which-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Ee=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return tt(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(iter-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Pe=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return et(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(rec-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Te=class extends fe{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}valOf(t){return nt(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(ind-Nat ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},be=class extends fe{name;type;body;constructor(t,e,n){super(),this.name=t,this.type=e,this.body=n}valOf(t){const e=this.type.toLazy(t);return new Gt(this.name,e,new I(t,this.name,this.body))}prettyPrint(){return`(Π (${this.name} ${this.type.prettyPrint()}) \n          ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Ne=class extends fe{param;body;constructor(t,e){super(),this.param=t,this.body=e}valOf(t){return new Xt(this.param,new I(t,this.param,this.body))}prettyPrint(){return`(λ (${this.param}) ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},xe=class extends fe{valOf(t){return new ue}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}},_e=class extends fe{sym;constructor(t){super(),this.sym=t}valOf(t){return new zt(this.sym)}prettyPrint(){return`'${this.sym}`}toString(){return this.prettyPrint()}},ke=class extends fe{name;type;body;constructor(t,e,n){super(),this.name=t,this.type=e,this.body=n}valOf(t){const e=this.type.toLazy(t);return new Kt(this.name,e,new I(t,this.name,this.body))}prettyPrint(){return`(Σ (${this.name} ${this.type.prettyPrint()}) \n              ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Se=class extends fe{first;second;constructor(t,e){super(),this.first=t,this.second=e}valOf(t){const e=this.first.toLazy(t),n=this.second.toLazy(t);return new Yt(e,n)}prettyPrint(){return`(cons ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}},$e=class extends fe{pair;constructor(t){super(),this.pair=t}valOf(t){return rt(this.pair.toLazy(t))}prettyPrint(){return`(car ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}},Oe=class extends fe{pair;constructor(t){super(),this.pair=t}valOf(t){return st(this.pair.toLazy(t))}prettyPrint(){return`(cdr ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}},Le=class extends fe{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}valOf(t){const e=this.head.toLazy(t),n=this.tail.toLazy(t);return new Wt(e,n)}prettyPrint(){return`(:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Ae=class extends fe{valOf(t){return new jt}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}},Ie=class extends fe{elemType;constructor(t){super(),this.elemType=t}valOf(t){return new Zt(this.elemType.toLazy(t))}prettyPrint(){return`(List ${this.elemType.prettyPrint()})`}toString(){return this.prettyPrint()}},Be=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return at(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(rec-List ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Ce=class extends fe{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}valOf(t){return it(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(ind-List ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Re=class extends fe{valOf(t){return new he}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}},qe=class extends fe{valOf(t){return new le}prettyPrint(){return"sole"}toString(){return this.prettyPrint()}},Me=class extends fe{valOf(t){return new pe}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}},Ue=class extends fe{target;motive;constructor(t,e){super(),this.target=t,this.motive=e}valOf(t){return function(t,e){const n=t.now();if(n instanceof oe&&n.type.now()instanceof pe)return new oe(e,new Nt(n.neutral,new pt(new ce,e)));throw new Error(`invalid input for indAbsurd ${[t,e]}`)}(this.target.toLazy(t),this.motive.toLazy(t))}prettyPrint(){return`(ind-Absurd \n              ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()})`}toString(){return this.prettyPrint()}},He=class extends fe{type;left;right;constructor(t,e,n){super(),this.type=t,this.left=e,this.right=n}valOf(t){return new Jt(this.type.toLazy(t),this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(= ${this.type.prettyPrint()} \n              ${this.left.prettyPrint()} \n              ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},De=class extends fe{type;constructor(t){super(),this.type=t}valOf(t){return new te(this.type.toLazy(t))}prettyPrint(){return`(same ${this.type.prettyPrint()})`}toString(){return this.prettyPrint()}},ze=class extends fe{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof te)return n;if(r instanceof oe){const t=r.type.now();if(t instanceof Jt){const s=r.neutral,i=t.type,a=t.from,o=t.to;return new oe(J(e,o),new xt(s,new pt(new Gt("x",i,new B((t=>new ce))),e),new pt(J(e,a),n)))}}throw new Error(`invalid input for replace ${[t,e,n]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t))}prettyPrint(){return`(replace ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}},Qe=class extends fe{left;right;constructor(t,e){super(),this.left=t,this.right=e}valOf(t){return function(t,e){const n=t.now(),r=e.now();if(n instanceof te&&r instanceof te)return new te(n.value);if(n instanceof te&&r instanceof oe){const t=r.type.now();if(t instanceof Jt){const e=n.value,s=t.to,i=t.type,a=r.neutral;return new oe(new Jt(i,e,s),new kt(new pt(new Jt(i,e,e),new te(e)),a))}}else if(n instanceof oe&&r instanceof te){const t=n.type.now();if(t instanceof Jt){const e=t.from,s=r.value,i=t.type,a=n.neutral;return new oe(new Jt(i,e,s),new _t(a,new pt(new Jt(i,s,s),new te(s))))}}else if(n instanceof oe&&r instanceof oe){const t=n.type.now(),e=r.type.now();if(t instanceof Jt&&e instanceof Jt){const s=t.from,i=e.to,a=t.type,o=n.neutral,c=r.neutral;return new oe(new Jt(a,s,i),new St(o,c))}}throw new Error(`invalid input for do-trans: ${[t,e]}`)}(this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(trans ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},Fe=class extends fe{target;base;fun;constructor(t,e,n){super(),this.target=t,this.base=e,this.fun=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof te)return new te(J(n,r.value));if(r instanceof oe){const t=r.type.now();if(t instanceof Jt){const s=t.type,i=t.from,a=t.to,o=r.neutral;return new oe(new Jt(e,J(n,i),J(n,a)),new $t(o,new pt(new Gt("x",s,new B((t=>e))),n)))}}throw new Error(`invalid input for cong ${[t,e,n]}`)}(this.target.toLazy(t),this.base.toLazy(t),this.fun.toLazy(t))}prettyPrint(){return`(cong ${this.target.prettyPrint()} ${this.fun.prettyPrint()})`}toString(){return this.prettyPrint()}},Ve=class extends fe{equality;constructor(t){super(),this.equality=t}valOf(t){return function(t){const e=t.now();if(e instanceof te)return new te(e.value);if(e instanceof oe){const t=e.type.now();if(t instanceof Jt)return new oe(new Jt(t.type,t.to,t.from),new Ot(e.neutral))}throw new Error(`invalid input for symm ${t}`)}(this.equality.toLazy(t))}prettyPrint(){return`(symm ${this.equality.prettyPrint()})`}toString(){return this.prettyPrint()}},Ge=class extends fe{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof te)return n;if(r instanceof oe){const s=r.type.now();if(s instanceof Jt){const i=s.type,a=s.from,o=s.to,c=r.neutral;return new oe(J(J(e,o),t),new Lt(c,new pt(new Gt("to",i,new B((t=>new Gt("p",new Jt(i,a,t),new B((t=>new ce)))))),e),new pt(J(J(e,a),new te(a)),n)))}}throw new Error(`invalid input for indEqual ${[t,e,n]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t))}prettyPrint(){return`(ind-= ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}},Xe=class extends fe{type;length;constructor(t,e){super(),this.type=t,this.length=e}valOf(t){return new ee(this.type.toLazy(t),this.length.toLazy(t))}prettyPrint(){return`(Vec ${this.type.prettyPrint()} ${this.length.prettyPrint()})`}toString(){return this.prettyPrint()}},Ke=class extends fe{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}valOf(t){return new re(this.head.toLazy(t),this.tail.toLazy(t))}prettyPrint(){return`(vec:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Ye=class extends fe{valOf(t){return new ne}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}},Ze=class extends fe{vec;constructor(t){super(),this.vec=t}valOf(t){return function(t){const e=t.now();if(e instanceof re)return e.head;if(e instanceof oe){const t=e.type.now();if(t instanceof ee&&t.length.now()instanceof Vt)return new oe(t.entryType,new At(e.neutral))}throw new Error(`invalid input for head ${t}`)}(this.vec.toLazy(t))}prettyPrint(){return`(head ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}},je=class extends fe{vec;constructor(t){super(),this.vec=t}valOf(t){return ot(this.vec.toLazy(t))}prettyPrint(){return`(tail ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}},We=class extends fe{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}valOf(t){return ut(this.length.toLazy(t),this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`ind-Vec ${this.length.prettyPrint()}\n              ${this.target.prettyPrint()}\n              ${this.motive.prettyPrint()}\n              ${this.base.prettyPrint()}\n              ${this.step.prettyPrint()}`}toString(){return this.prettyPrint()}},Je=class extends fe{left;right;constructor(t,e){super(),this.left=t,this.right=e}valOf(t){return new se(this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(Either ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},tn=class extends fe{value;constructor(t){super(),this.value=t}valOf(t){return new ie(this.value.toLazy(t))}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},en=class extends fe{value;constructor(t){super(),this.value=t}valOf(t){return new ae(this.value.toLazy(t))}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},nn=class extends fe{target;motive;baseLeft;baseRight;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.baseLeft=n,this.baseRight=r}valOf(t){return function(t,e,n,r){const s=t.now();if(s instanceof ie)return J(n,s.value);if(s instanceof ae)return J(r,s.value);if(s instanceof oe){const i=s.type.now();if(i instanceof se){const a=i.leftType,o=i.rightType,c=new Gt("x",new se(a,o),new B((t=>new ce)));return new oe(J(e,t),new Rt(s.neutral,new pt(c,e),new pt(new Gt("x",a,new B((t=>J(e,new ie(t))))),n),new pt(new Gt("x",o,new B((t=>J(e,new ae(t))))),r)))}}throw new Error(`invalid input for indEither: ${[t,e,n,r]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.baseLeft.toLazy(t),this.baseRight.toLazy(t))}prettyPrint(){return`(ind-Either ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.baseLeft.prettyPrint()} \n              ${this.baseRight.prettyPrint()})`}toString(){return this.prettyPrint()}},rn=class extends fe{loc;type;constructor(t,e){super(),this.loc=t,this.type=e}valOf(t){return new oe(this.type.toLazy(t),new yt(this.loc,this.type.toLazy(t)))}prettyPrint(){return`TODO ${this.type.prettyPrint()}`}toString(){return this.prettyPrint()}},sn=class extends fe{fun;arg;constructor(t,e){super(),this.fun=t,this.arg=e}valOf(t){return J(this.fun.toLazy(t),this.arg.toLazy(t))}prettyPrint(){return`(${this.fun.prettyPrint()} ${this.arg.prettyPrint()})`}toString(){return this.prettyPrint()}};class an extends fe{name;constructor(t){super(),this.name=t}valOf(t){if(C(this.name))return function(t,e){if(t.has(e))return t.get(e);throw new Error(`Variable ${e} not found in environment`)}(t,this.name);throw new Error("{this.name} is not a valid variable name")}prettyPrint(){return this.name}toString(){return this.prettyPrint()}}function on(t,e){return ln(0,new Map,new Map,t,e)}const cn=-1;function un(t,e,n){return new Map([[e,n],...t])}function hn(t,e){return e.has(t)?e.get(t):cn}function ln(t,e,n,r,s){if(r instanceof an&&s instanceof an){const t=r.name,i=s.name;if(C(t)&&C(i)){const r=hn(t,e),s=hn(i,n);return r!==cn&&s!==cn?r===s:r===cn&&s===cn&&t===i}return!1}return r instanceof _e&&s instanceof _e?r.sym===s.sym:r instanceof be&&s instanceof be||r instanceof ke&&s instanceof ke?ln(t,e,n,r.type,s.type)&&ln(t+1,un(e,r.name,t),un(n,s.name,t),r.body,s.body):r instanceof Ne&&s instanceof Ne?ln(t+1,un(e,r.param,t),un(n,s.param,t),r.body,s.body):r instanceof we&&s instanceof we&&r.type instanceof Me&&s.type instanceof Me||(r instanceof sn&&s instanceof sn?ln(t,e,n,r.fun,s.fun)&&ln(t,e,n,r.arg,s.arg):r instanceof ye&&s instanceof ye||r instanceof de&&s instanceof de||r instanceof me&&s instanceof me||r instanceof xe&&s instanceof xe||r instanceof Me&&s instanceof Me||r instanceof qe&&s instanceof qe||r instanceof Ae&&s instanceof Ae||r instanceof Ye&&s instanceof Ye||r instanceof Re&&s instanceof Re||(r instanceof we&&s instanceof we?ln(t,e,n,r.type,s.type)&&ln(t,e,n,r.expr,s.expr):r instanceof Ie&&s instanceof Ie?ln(t,e,n,r.elemType,s.elemType):r instanceof ge&&s instanceof ge?ln(t,e,n,r.n,s.n):r instanceof ve&&s instanceof ve||r instanceof Ee&&s instanceof Ee||r instanceof Pe&&s instanceof Pe?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Te&&s instanceof Te?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Se&&s instanceof Se?ln(t,e,n,r.first,s.first)&&ln(t,e,n,r.second,s.second):r instanceof $e&&s instanceof $e||r instanceof Oe&&s instanceof Oe?ln(t,e,n,r.pair,s.pair):r instanceof Le&&s instanceof Le?ln(t,e,n,r.head,s.head)&&ln(t,e,n,r.tail,s.tail):r instanceof Be&&s instanceof Be?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Ce&&s instanceof Ce?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Ue&&s instanceof Ue?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive):r instanceof He&&s instanceof He?ln(t,e,n,r.type,s.type)&&ln(t,e,n,r.left,s.left)&&ln(t,e,n,r.right,s.right):r instanceof De&&s instanceof De?ln(t,e,n,r.type,s.type):r instanceof ze&&s instanceof ze?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base):r instanceof Qe&&s instanceof Qe?ln(t,e,n,r.left,s.left)&&ln(t,e,n,r.right,s.right):r instanceof Fe&&s instanceof Fe?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.fun,s.fun):r instanceof Ve&&s instanceof Ve?ln(t,e,n,r.equality,s.equality):r instanceof Ge&&s instanceof Ge?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base):r instanceof Xe&&s instanceof Xe?ln(t,e,n,r.type,s.type)&&ln(t,e,n,r.length,s.length):r instanceof Ke&&s instanceof Ke?ln(t,e,n,r.head,s.head)&&ln(t,e,n,r.tail,s.tail):r instanceof Ze&&s instanceof Ze||r instanceof je&&s instanceof je?ln(t,e,n,r.vec,s.vec):r instanceof We&&s instanceof We?ln(t,e,n,r.length,s.length)&&ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Je&&s instanceof Je?ln(t,e,n,r.left,s.left)&&ln(t,e,n,r.right,s.right):r instanceof tn&&s instanceof tn||r instanceof en&&s instanceof en?ln(t,e,n,r.value,s.value):r instanceof nn&&s instanceof nn?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.baseLeft,s.baseLeft)&&ln(t,e,n,r.baseRight,s.baseRight):r instanceof rn&&s instanceof rn&&(function(t,e){return t.startLine===e.startLine&&t.startColumn===e.startColumn&&t.endLine===e.endLine&&t.endColumn===e.endColumn}(r.loc,s.loc)&&ln(t,e,n,r.type,s.type))))}function pn(t,e){t.forInfo}function fn(t,e){const n=t.get(e);return n||e}function wn(t,e,n){return new Map([[e,n],...t])}function yn(t,e,n,r){const s=n.readBackType(t),i=r.readBackType(t);return on(s,i)?new S(void 0):new $(e,new _([`Expected ${i} but got ${s}`]))}function dn(t,e,n,r,s){return on(lt(t,n,r),lt(t,n,s))?new S(void 0):new $(e,new _([`The terms ${r} and ${s} are not the same ${n}.`]))}function mn(t){return gn(t.split(""))}function gn(t){return 0===t.length||(e=t[0],!(!/^[a-zA-Z]$/.test(e)&&"-"!==t[0])&&gn(t.slice(1)));var e}function vn(t,e,n){return new Er(t.location,t,e,n)}class En{source;startLine;startColumn;endLine;endColumn;constructor(t,e,n,r,s){this.source=t,this.startLine=e,this.startColumn=n,this.endLine=r,this.endColumn=s}}class Pn{start;end;source;constructor(t,e,n){this.start=t,this.end=e,this.source=n}}let Tn=class{syntax;forInfo;constructor(t,e){this.syntax=t,this.forInfo=e}locationToSrcLoc(){return new En(this.syntax.source,this.syntax.start.line,this.syntax.start.column,this.syntax.end.line,this.syntax.end.column)}toString(){return`${this.syntax.source}:${this.syntax.start.line}:${this.syntax.start.column}`}};function bn(t){return new Tn(t.syntax,!1)}class Nn{static synthNat(t,e){return new S(new we(new ye,new de))}static synthUniverse(t,e,n){return new $(n,new _(["U is a type, but it does not have a type."]))}static synthArrow(t,e,n,r,s,i){if(0===i.length){const n=M(t,s,"x"),i=new O("Aout"),a=new O("Bout");return L([[i,()=>r.check(t,e,new ce)],[a,()=>s.check(W(t,n,D(t,i.value)),e,new ce)]],(()=>new S(new we(new ye,new be(n,i.value,a.value)))))}{const[a,...o]=i,c=M(t,vn(s,a,o),"x"),u=new O("Aout"),h=new O("tout");return L([[u,()=>r.check(t,e,new ce)],[h,()=>new Cn(bn(n),s,a,o).check(W(t,c,D(t,u.value)),e,new ce)]],(()=>new S(new we(new ye,new be(c,u.value,h.value)))))}}static synthPi(t,e,n,r,s){if(1===r.length){const[n,i]=[r[0].binder,r[0].type],a=q(t,n.varName),o=(n.location,new O("Aout")),c=new O("Bout");return L([[o,()=>i.check(t,e,new ce)],[c,()=>s.check(W(t,a,D(t,o.value)),wn(e,n.varName,a),new ce)]],(()=>(o.value,new S(new we(new ye,new be(a,o.value,c.value))))))}if(r.length>1){const[i,...a]=r,[o,c]=[i.binder,i.type],u=(o.location,o.varName),h=q(t,u),l=new O("Aout"),p=new O("Bout");return L([[l,()=>c.check(t,e,new ce)],[p,()=>new Rn(bn(n),a,s).check(W(t,h,D(t,l.value)),wn(e,u,h),new ce)]],(()=>(l.value,new S(new we(new ye,new be(h,l.value,p.value))))))}throw new Error("Invalid number of binders in Pi type")}static synthZero(t,e){return new S(new we(new de,new me))}static synthAdd1(t,e,n){const r=new O("nout");return L([[r,()=>n.check(t,e,new Qt)]],(()=>new S(new we(new de,new ge(r.value)))))}static synthWhichNat(t,e,n,r,s){const i=new O("tgtout"),a=new O("bout"),o=new O("sout");let c=q(t,"n_minus_1");return L([[i,()=>n.check(t,e,new Qt)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,new Gt(c,new Qt,new I(V(t),c,a.value.type)))]],(()=>new S(new we(a.value.type,new ve(i.value,new we(a.value.type,a.value.expr),o.value)))))}static synthIterNat(t,e,n,r,s){const i=new O("tgtout"),a=new O("bout"),o=new O("sout");return L([[i,()=>n.check(t,e,new Qt)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,(()=>{const e=q(t,"old");return D(t,new be(e,a.value.type,a.value.type))})())]],(()=>new S(new we(a.value.type,new Ee(i.value,new we(a.value.type,a.value.expr),o.value)))))}static synthRecNat(t,e,n,r,s){const i=new O("tgtout"),a=new O("bout"),o=new O("sout");return L([[i,()=>n.check(t,e,new Qt)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,(()=>{const e=q(t,"n_minus_1"),n=q(t,"old");return D(t,new be(e,new de,new be(n,a.value.type,a.value.type)))})())]],(()=>new S(new we(a.value.type,new Pe(i.value,new we(a.value.type,a.value.expr),o.value)))))}static synthIndNat(t,e,n,r,s,i){const a=new O("tgtout"),o=new O("motout"),c=new O("motval"),u=new O("bout"),h=new O("sout");return L([[a,()=>n.check(t,e,new Qt)],[o,()=>r.check(t,e,new Gt("n",new Qt,new B((t=>new ce))))],[c,()=>new S(D(t,o.value))],[u,()=>s.check(t,e,J(c.value,new Ft))],[h,()=>i.check(t,e,new Gt("n_minus_1",new Qt,new B((t=>new Gt("ih",J(c.value,t),new B((e=>J(c.value,new Vt(t)))))))))]],(()=>new S(new we(new sn(o.value,a.value),new Te(a.value,o.value,u.value,h.value)))))}static synthAtom(t,e){return new S(new we(new ye,new xe))}static synthPair(t,e,n,r){const s=q(t,"a"),i=new O("Aout"),a=new O("Dout");return L([[i,()=>n.check(t,e,new ce)],[a,()=>r.check(W(t,s,D(t,i.value)),e,new ce)]],(()=>new S(new we(new ye,new ke(s,i.value,a.value)))))}static synthSigma(t,e,n,r,s){if(1===r.length){const[n,i]=[r[0].binder,r[0].type],a=q(t,n.varName),o=(n.location,new O("Aout")),c=new O("Dout");return L([[o,()=>i.check(t,e,new ce)],[c,()=>s.check(W(t,a,D(t,o.value)),wn(e,n.varName,a),new ce)]],(()=>(o.value,new S(new we(new ye,new ke(a,o.value,c.value))))))}if(r.length>1){const[i,...a]=r,[o,c]=[i.binder,i.type],u=(o.location,o.varName),h=q(t,u),l=new O("Aout"),p=new O("Dout");return L([[l,()=>c.check(t,e,new ce)],[p,()=>new Mn(bn(n),a,s).check(W(t,h,D(t,l.value)),wn(e,u,h),new ce)]],(()=>(l.value,new S(new we(new ye,new ke(h,l.value,p.value))))))}throw new Error("Invalid number of binders in Sigma type")}static synthCar(t,e,n,r){const s=new O("p_rst");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type);return e instanceof Kt?new S(new we(e.carType.readBackType(t),new $e(s.value.expr))):new $(n,new _([`car requires a Pair type, but was used as a: ${e}.`]))}))}static synthCdr(t,e,n,r){const s=new O("pout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type);if(e instanceof Kt){const[n,r,i]=[e.carName,e.carType,e.cdrType];return new S(new we(i.valOfClosure(rt(D(t,s.value.expr))).readBackType(t),new Oe(s.value.expr)))}return new $(n,new _([`cdr requires a Pair type, but was used as a: ${e}.`]))}))}static synthQuote(t,e,n,r){return mn(r)?new S(new we(new xe,new _e(r))):new $(n,new _([`Invalid atom: ${r}. Atoms consist of letters and hyphens.`]))}static synthTrivial(t,e){return new S(new we(new ye,new Re))}static synthSole(t,e){return new S(new we(new Re,new qe))}static synthIndList(t,e,n,r,s,i,a){const o=new O("tgtout"),c=new O("motout"),u=new O("motval"),h=new O("bout"),l=new O("sout");return L([[o,()=>r.synth(t,e)]],(()=>{const[r,p]=[o.value.type,o.value.expr],f=D(t,r);if(f instanceof Zt){const n=f.entryType;return L([[c,()=>s.check(t,e,new Gt("xs",new Zt(n),new I(V(t),"xs",new ye)))],[u,()=>new S(D(t,c.value))],[h,()=>i.check(t,e,J(u.value,new jt))],[l,()=>a.check(t,e,new Gt("e",n,new B((t=>new Gt("es",new Zt(n),new B((e=>new Gt("ih",J(u.value,e),new B((n=>J(u.value,new Wt(t,e))))))))))))]],(()=>new S(new we(new sn(c.value,p),new Ce(p,c.value,h.value,l.value)))))}return new $(n,new _([`Not a List: ${f.readBackType(t)}.`]))}))}static synthRecList(t,e,n,r,s,i){const a=new O("tgtout");return L([[a,()=>r.synth(t,e)]],(()=>{const[r,o]=[a.value.type,a.value.expr],c=D(t,r);if(c instanceof Zt){const n=c.entryType,r=new O("bout"),a=new O("btval"),u=new O("sout");return L([[r,()=>s.synth(t,e)],[a,()=>new S(D(t,r.value.type))],[u,()=>i.check(t,e,new Gt("e",n,new B((t=>new Gt("es",new Zt(n),new B((t=>new Gt("ih",a.value,new B((t=>a.value))))))))))]],(()=>new S(new we(r.value.type,new Be(o,new we(r.value.type,r.value.expr),u.value)))))}return new $(n,new _([`Not a List: ${c.readBackType(t)}.`]))}))}static synthList(t,e,n){const r=new O("Eout");return L([[r,()=>n.entryType.check(t,e,new ce)]],(()=>new S(new we(new ye,new Ie(r.value)))))}static synthListCons(t,e,n,r){const s=new O("eout"),i=new O("esout");return L([[s,()=>n.synth(t,e)],[i,()=>r.check(t,e,D(t,new Ie(s.value.type)))]],(()=>new S(new we(new Ie(s.value.type),new Le(s.value.expr,i.value)))))}static synthAbsurd(t,e,n){return new S(new we(new ye,new Me))}static synthIndAbsurd(t,e,n){const r=new O("tgtout"),s=new O("motout");return L([[r,()=>n.target.check(t,e,new pe)],[s,()=>n.motive.check(t,e,new ce)]],(()=>new S(new we(s.value,new Ue(r.value,s.value)))))}static synthEqual(t,e,n,r,s){const i=new O("Aout"),a=new O("Av"),o=new O("from_out"),c=new O("to_out");return L([[i,()=>n.check(t,e,new ce)],[a,()=>new S(D(t,i.value))],[o,()=>r.check(t,e,a.value)],[c,()=>s.check(t,e,a.value)]],(()=>new S(new we(new ye,new He(i.value,o.value,c.value)))))}static synthReplace(t,e,n,r,s,i){const a=new O("tgt_rst"),o=new O("motout"),c=new O("bout");return L([[a,()=>r.synth(t,e)]],(()=>{const r=D(t,a.value.type);if(r instanceof Jt){const[n,u,h]=[r.type,r.from,r.to];return L([[o,()=>s.check(t,e,new Gt("x",n,new B((t=>new ce))))],[c,()=>i.check(t,e,J(D(t,o.value),u))]],(()=>new S(new we(J(D(t,o.value),h).readBackType(t),new ze(a.value.expr,o.value,c.value)))))}return new $(n,new _([`Expected an expression with = type, but the type was: ${a.value.type}.`]))}))}static synthTrans(t,e,n,r,s){const i=new O("p1_rst"),a=new O("p2_rst");return L([[i,()=>r.synth(t,e)],[a,()=>s.synth(t,e)]],(()=>{const e=D(t,i.value.type),r=D(t,a.value.type);if(e instanceof Jt&&r instanceof Jt){const[s,o,c]=[e.type,e.from,e.to],[u,h,l]=[r.type,r.from,r.to];return L([[new O("_"),()=>yn(t,n,s,u)],[new O("_"),()=>dn(t,n,s,c,h)]],(()=>new S(new we(new Jt(s,o,l).readBackType(t),new Qe(i.value.expr,a.value.expr)))))}return new $(n,new _([`Expected =, got ${e} and ${r}.`]))}))}static synthCong(t,e,n,r,s){const i=new O("bout"),a=new O("f_rst");return L([[i,()=>r.synth(t,e)],[a,()=>s.synth(t,e)]],(()=>{const e=D(t,i.value.type),r=D(t,a.value.type);if(e instanceof Jt){const[s,o,c]=[e.type,e.from,e.to];if(r instanceof Gt){const[e,u,h]=[r.argName,r.argType,r.resultType],l=new O("ph"),p=new O("Cv"),f=new O("fv");return L([[l,()=>yn(t,n,s,u)],[p,()=>new S(h.valOfClosure(o))],[f,()=>new S(D(t,a.value.expr))]],(()=>new S(new we(new He(p.value.readBackType(t),lt(t,p.value,J(f.value,o)),lt(t,p.value,J(f.value,c))),new Fe(i.value.expr,p.value.readBackType(t),a.value.expr)))))}return new $(n,new _([`Expected a function type, got ${r.readBackType(t)}.`]))}return new $(n,new _([`Expected an = type, got ${e.readBackType(t)}.`]))}))}static synthSymm(t,e,n,r){const s=new O("eout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type);if(e instanceof Jt){const[n,r,i]=[e.type,e.from,e.to];return new S(new we(new Jt(n,i,r).readBackType(t),new Ve(s.value.expr)))}return new $(n,new _([`Expected an = type, got ${e.readBackType(t)}.`]))}))}static synthIndEqual(t,e,n,r,s,i){const a=new O("tgtout"),o=new O("motout"),c=new O("motv"),u=new O("baseout");return L([[a,()=>r.synth(t,e)]],(()=>{const r=D(t,a.value.type);if(r instanceof Jt){const[n,h,l]=[r.type,r.from,r.to];return L([[o,()=>s.check(t,e,new Gt("to",n,new B((t=>new Gt("p",new Jt(n,h,t),new B((t=>new ce)))))))],[c,()=>new S(D(t,o.value))],[u,()=>i.check(t,e,J(J(c.value,h),new te(h)))]],(()=>new S(new we(J(J(c.value,l),D(t,a.value.expr)).readBackType(t),new Ge(a.value.expr,o.value,u.value)))))}return new $(n,new _([`Expected evidence of equality, got ${r.readBackType(t)}.`]))}))}static synthVec(t,e,n,r){const s=new O("tout"),i=new O("lenout");return L([[s,()=>n.check(t,e,new ce)],[i,()=>r.check(t,e,new Qt)]],(()=>new S(new we(new ye,new Xe(s.value,i.value)))))}static synthHead(t,e,n,r){const s=new O("vout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type).now();if(e instanceof ee){const[r,i]=[e.entryType,e.length];return i.now()instanceof Vt?new S(new we(r.readBackType(t),new Ze(s.value.expr))):new $(n,new _([`Expected a Vec with add1 at the top of the length, got ${lt(t,new Qt,i)}.`]))}return new $(n,new _([`Expected a Vec, got ${e.readBackType(t)}.`]))}))}static synthTail(t,e,n,r){const s=new O("vout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type).now();if(e instanceof ee){const[r,i]=[e.entryType,e.length],a=i.now();if(a instanceof Vt){const e=a.smaller;return new S(new we(new Xe(r.readBackType(t),lt(t,new Qt,e)),new je(s.value.expr)))}return new $(n,new _([`Expected a Vec with add1 at the top of the length, got ${lt(t,new Qt,i)}.`]))}return new $(n,new _([`Expected a Vec, got ${e.readBackType(t)}.`]))}))}static synthIndVec(t,e,n,r,s,i,a,o){const c=new O("lenout"),u=new O("lenv"),h=new O("vecout"),l=new O("motout"),p=new O("motval"),f=new O("bout"),w=new O("sout");return L([[c,()=>r.check(t,e,new Qt)],[u,()=>new S(D(t,c.value))],[h,()=>s.synth(t,e)]],(()=>{const r=D(t,h.value.type);if(r instanceof ee){const[s,y]=[r.entryType,r.length];return L([[new O("_"),()=>dn(t,n,new Qt,u.value,y)],[l,()=>i.check(t,e,new Gt("k",new Qt,new B((t=>new Gt("es",new ee(s,t),new B((t=>new ce)))))))],[p,()=>new S(D(t,l.value))],[f,()=>a.check(t,e,J(J(p.value,new Ft),new ne))],[w,()=>o.check(t,e,ct(s,p.value))]],(()=>new S(new we(new sn(new sn(l.value,c.value),h.value.expr),new We(c.value,h.value.expr,l.value,f.value,w.value)))))}return new $(n,new _([`Expected a Vec, got ${r.readBackType(t)}.`]))}))}static synthEither(t,e,n,r){const s=new O("Lout"),i=new O("Rout");return L([[s,()=>n.check(t,e,new ce)],[i,()=>r.check(t,e,new ce)]],(()=>new S(new we(new ye,new Je(s.value,i.value)))))}static synthIndEither(t,e,n,r,s,i,a){const o=new O("tgtout"),c=new O("motout"),u=new O("motval"),h=new O("lout"),l=new O("rout");return L([[o,()=>r.synth(t,e)]],(()=>{const r=D(t,o.value.type);if(r instanceof se){const[n,p]=[r.leftType,r.rightType];return L([[c,()=>s.check(t,e,new Gt("x",new se(n,p),new B((t=>new ce))))],[u,()=>new S(D(t,c.value))],[h,()=>i.check(t,e,new Gt("x",n,new B((t=>J(u.value,new ie(t))))))],[l,()=>a.check(t,e,new Gt("x",p,new B((t=>J(u.value,new ae(t))))))]],(()=>new S(new we(new sn(c.value,o.value.expr),new nn(o.value.expr,c.value,h.value,l.value)))))}return new $(n,new _([`Expected an Either, but got a ${r.readBackType(t)}.`]))}))}static synthThe(t,e,n,r){const s=new O("t_out"),i=new O("e_out");return L([[s,()=>n.isType(t,e)],[i,()=>r.check(t,e,D(t,s.value))]],(()=>new S(new we(s.value,i.value))))}static synthApplication(t,e,n,r,s,i){if(0===i.length){const i=new O("fout");return L([[i,()=>r.synth(t,e)]],(()=>{const r=D(t,i.value.type);if(r instanceof Gt){const[n,a,o]=[r.argName,r.argType,r.resultType],c=new O("argout");return L([[c,()=>s.check(t,e,a)]],(()=>new S(new we(o.valOfClosure(D(t,c.value)).readBackType(t),new sn(i.value.expr,c.value)))))}return new $(n,new _([`Not a function type: ${r.readBackType(t)}.`]))}))}{const a=new O("appout");return L([[a,()=>new Er(bn(n),r,s,i.slice(0,i.length-1)).synth(t,e)]],(()=>{const r=D(t,a.value.type);if(r instanceof Gt){const[n,s,o]=[r.argName,r.argType,r.resultType],c=new O("fout");return L([[c,()=>i[i.length-1].check(t,e,s)]],(()=>new S(new we(o.valOfClosure(D(t,c.value)).readBackType(t),new sn(a.value.expr,c.value)))))}return new $(n,new _([`Not a function type: ${r.readBackType(t)}.`]))}))}}static synthName(t,e,n,r){const s=fn(e,r),i=new O("x_tv");return L([[i,()=>j(t,0,s)]],(()=>(t.get(s),new S(new we(i.value.readBackType(t),new an(s))))))}static synthNumber(t,e,n,r){if(0===r)return new S(new we(new de,new me));if(r>0){const s=new O("n_1_out");return L([[s,()=>new Yn(n,r-1).check(t,e,new Qt)]],(()=>new S(new we(new de,new ge(s.value)))))}return new $(n,new _([`Expected a positive number, got ${r}.`]))}}class xn{location;constructor(t){this.location=t}isType(t,e){const n=new O("ok"),r=this.getType(t,e);return L([[n,()=>r]],(()=>(pn(this.location,n.value),new S(n.value))))}getType(t,e){const n=this.check(t,e,new ce);if(n instanceof S)return n;if(n instanceof $){if(this instanceof Un&&C(this.name)){const e=new O("other-tv");return new L([[e,()=>j(t,this.location,this.name)]],(()=>{new $(this.location,new _([`Expected , but given ${e.value.readBackType(t)}`]))}))}return new $(this.location,new _(["not a type"]))}throw new Error("Invalid checkType")}check(t,e,n){const r=new O("ok"),s=this.checkOut(t,e,n);return L([[r,()=>s]],(()=>new S(r.value)))}synth(t,e){const n=new O("ok");return L([[n,()=>this.synthHelper(t,e)]],(()=>(pn(this.location,n.value.type),new S(n.value))))}checkOut(t,e,n){const r=new O("theT");return L([[r,()=>this.synth(t,e)],[new O("_"),()=>yn(t,this.location,D(t,r.value.type),n)]],(()=>new S(r.value.expr)))}}class _n extends xn{location;type;value;constructor(t,e,n){super(t),this.location=t,this.type=e,this.value=n}synthHelper(t,e){return Nn.synthThe(t,e,this.type,this.value)}findNames(){return this.type.findNames().concat(this.value.findNames())}prettyPrint(){return`(the ${this.type.prettyPrint()} ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class kn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthUniverse(t,e,this.location)}findNames(){return[]}getType(t,e){return new S(new ye)}prettyPrint(){return"U"}toString(){return this.prettyPrint()}}class Sn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthNat(t,e)}findNames(){return[]}getType(t,e){return new S(new de)}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}}class $n extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthZero(t,e)}findNames(){return[]}prettyPrint(){return"zero"}toString(){return this.prettyPrint()}}class On extends xn{location;base;constructor(t,e){super(t),this.location=t,this.base=e}synthHelper(t,e){return Nn.synthAdd1(t,e,this.base)}findNames(){return this.base.findNames()}prettyPrint(){return`(add1 ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class Ln extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthWhichNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(which-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class An extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthIterNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(iter-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class In extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthRecNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(rec-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Bn extends xn{location;target;motive;base;step;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.base=r,this.step=s}synthHelper(t,e){return Nn.synthIndNat(t,e,this.target,this.motive,this.base,this.step)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(ind-nat ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Cn extends xn{location;arg1;arg2;args;constructor(t,e,n,r){super(t),this.location=t,this.arg1=e,this.arg2=n,this.args=r}synthHelper(t,e){return Nn.synthArrow(t,e,this.location,this.arg1,this.arg2,this.args)}findNames(){return this.arg1.findNames().concat(this.arg2.findNames()).concat(this.args.flatMap((t=>t.findNames())))}getType(t,e){const[n,r,s]=[this.arg1,this.arg2,this.args];if(0===s.length){const s=M(t,r,"x"),i=new O("Aout"),a=new O("Bout");return L([[i,()=>n.isType(t,e)],[a,()=>r.isType(W(t,s,D(t,i.value)),e)]],(()=>new S(new be(s,i.value,a.value))))}{const[i,...a]=s,o=M(t,vn(r,i,a),"x"),c=new O("Aout"),u=new O("tout");return L([[c,()=>n.isType(t,e)],[u,()=>new Cn(bn(this.location),r,i,a).isType(W(t,o,D(t,c.value)),e)]],(()=>new S(new be(o,c.value,u.value))))}}prettyPrint(){return`(-> ${this.arg1.prettyPrint()} ${this.arg2.prettyPrint()} ${this.args.map((t=>t.prettyPrint())).join(" ")})`}toString(){return this.prettyPrint()}}class Rn extends xn{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){return Nn.synthPi(t,e,this.location,this.binders,this.body)}findNames(){return this.binders.flatMap((t=>U(t))).concat(this.body.findNames())}getType(t,e){const[n,r]=[this.binders,this.body];if(1===n.length){const[s,i]=[n[0].binder,n[0].type],a=q(t,s.varName),o=(s.location,new O("Aout")),c=new O("Aoutv"),u=new O("Bout");return L([[o,()=>i.isType(t,e)],[c,()=>new S(D(t,o.value))],[u,()=>r.isType(W(t,a,c.value),wn(e,s.varName,a))]],(()=>(o.value,new S(new be(a,o.value,u.value)))))}if(n.length>1){const[s,...i]=n,[a,o]=[s.binder.varName,s.type],c=q(t,a),u=(s.binder.location,new O("Aout")),h=new O("Aoutv"),l=new O("Bout");return L([[u,()=>o.isType(t,e)],[h,()=>new S(D(t,u.value))],[l,()=>new Rn(bn(this.location),i,r).isType(W(t,c,h.value),wn(e,s.binder.varName,c))]],(()=>(u.value,new S(new be(c,u.value,l.value)))))}throw new Error("Invalid number of binders in Pi type")}prettyPrint(){return`(Π ${this.binders.map((t=>`(${t.binder.varName} ${t.type.prettyPrint()})`)).join(" ")} \n            ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class qn extends xn{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.binders.map((t=>t.varName)).concat(this.body.findNames())}checkOut(t,e,n){if(1===this.binders.length){const r=this.body,s=this.binders[0],i=s.varName,a=s.location,o=n.now();if(o instanceof Gt){const n=o.argType,s=o.resultType,a=fn(e,i),c=new O("bout");return L([[c,()=>r.check(W(t,a,n),wn(e,i,a),s.valOfClosure(new oe(n,new wt(a))))]],(()=>(n.readBackType(t),new S(new Ne(a,c.value)))))}return new $(a,new _([`Not a function type: ${o.readBackType(t)}.`]))}return new qn(this.location,[this.binders[0]],new qn(bn(this.location),this.binders.slice(1),this.body)).check(t,e,n)}prettyPrint(){return`(lambda ${this.binders.map((t=>t.varName)).join(" ")} ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class Mn extends xn{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){return Nn.synthSigma(t,e,this.location,this.binders,this.body)}findNames(){return this.binders.flatMap((t=>U(t))).concat(this.body.findNames())}getType(t,e){const[n,r]=[this.binders,this.body];if(1===n.length){const[s,i]=[n[0].binder,n[0].type],a=s.varName,o=q(t,a),c=(s.location,new O("Aout")),u=new O("Aoutv"),h=new O("Dout");return L([[c,()=>i.isType(t,e)],[u,()=>new S(D(t,c.value))],[h,()=>r.isType(W(t,o,u.value),wn(e,a,o))]],(()=>(c.value,new S(new ke(o,c.value,h.value)))))}if(n.length>1){const[[s,i],...a]=[[n[0].binder,n[0].type],n[1],...n.slice(2)],o=s.varName,c=q(t,o),u=(s.location,new O("Aout")),h=new O("Aoutv"),l=new O("Dout");return L([[u,()=>i.isType(t,e)],[h,()=>new S(D(t,u.value))],[l,()=>new Mn(this.location,a,r).isType(W(t,o,h.value),wn(e,o,c))]],(()=>(u.value,new S(new ke(c,u.value,l.value)))))}throw new Error("Invalid number of binders in Sigma type")}prettyPrint(){return`(Σ ${this.binders.map((t=>`(${t.binder.varName} ${t.type.prettyPrint()})`)).join(" ")} \n            ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class Un extends xn{location;name;constructor(t,e){super(t),this.location=t,this.name=e}synthHelper(t,e){return Nn.synthName(t,e,this.location,this.name)}findNames(){return[this.name]}prettyPrint(){return this.name}toString(){return this.prettyPrint()}}class Hn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthAtom(t,e)}findNames(){return[]}getType(t,e){return new S(new xe)}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}}class Dn extends xn{location;name;constructor(t,e){super(t),this.location=t,this.name=e}synthHelper(t,e){return Nn.synthQuote(t,e,this.location,this.name)}findNames(){return[]}prettyPrint(){return`'${this.name}`}toString(){return this.prettyPrint()}}class zn extends xn{location;first;second;constructor(t,e,n){super(t),this.location=t,this.first=e,this.second=n}synthHelper(t,e){return Nn.synthPair(t,e,this.first,this.second)}findNames(){return this.first.findNames().concat(this.second.findNames())}getType(t,e){const n=new O("Aout"),r=new O("Dout"),s=M(t,this.second,"x");return L([[n,()=>this.first.isType(t,e)],[r,()=>this.second.isType(W(t,s,D(t,n.value)),e)]],(()=>new S(new ke(s,n.value,r.value))))}prettyPrint(){return`(Pair ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}}class Qn extends xn{location;first;second;constructor(t,e,n){super(t),this.location=t,this.first=e,this.second=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.first.findNames().concat(this.second.findNames())}checkOut(t,e,n){const r=n.now();if(r instanceof Kt){const n=r.carType,s=r.cdrType,i=new O("aout"),a=new O("dout");return L([[i,()=>this.first.check(t,e,n)],[a,()=>this.second.check(t,e,s.valOfClosure(D(t,i.value)))]],(()=>new S(new Se(i.value,a.value))))}return new $(this.location,new _([`cons requires a Pair or Σ type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(cons ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}}class Fn extends xn{location;pair;constructor(t,e){super(t),this.location=t,this.pair=e}synthHelper(t,e){return Nn.synthCar(t,e,this.location,this.pair)}findNames(){return this.pair.findNames()}prettyPrint(){return`(car ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}}class Vn extends xn{location;pair;constructor(t,e){super(t),this.location=t,this.pair=e}synthHelper(t,e){return Nn.synthCdr(t,e,this.location,this.pair)}findNames(){return this.pair.findNames()}prettyPrint(){return`(cdr ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}}class Gn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthTrivial(t,e)}findNames(){return[]}getType(t,e){return new S(new Re)}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}}class Xn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthSole(t,e)}findNames(){return[]}prettyPrint(){return"Sole"}}class Kn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.now();return r instanceof Zt?new S(new Ae):new $(this.location,new _([`nil requires a List type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}}let Yn=class extends xn{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){return Nn.synthNumber(t,e,this.location,this.value)}findNames(){return[]}prettyPrint(){return`${this.value}`}toString(){return this.prettyPrint()}};class Zn extends xn{location;entryType;constructor(t,e){super(t),this.location=t,this.entryType=e}synthHelper(t,e){return Nn.synthList(t,e,this)}findNames(){return this.entryType.findNames()}getType(t,e){const n=new O("Eout");return L([[n,()=>this.entryType.isType(t,e)]],(()=>new S(new Ie(n.value))))}prettyPrint(){return`(List ${this.entryType.prettyPrint()})`}toString(){return this.prettyPrint()}}class jn extends xn{location;x;xs;constructor(t,e,n){super(t),this.location=t,this.x=e,this.xs=n}synthHelper(t,e){return Nn.synthListCons(t,e,this.x,this.xs)}findNames(){return this.x.findNames().concat(this.xs.findNames())}prettyPrint(){return`(:: ${this.x.prettyPrint()} ${this.xs.prettyPrint()})`}toString(){return this.prettyPrint()}}class Wn extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthRecList(t,e,this.location,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(rec-list ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Jn extends xn{location;target;motive;base;step;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.base=r,this.step=s}synthHelper(t,e){return Nn.synthIndList(t,e,this.location,this.target,this.motive,this.base,this.step)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(ind-list ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class tr extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthAbsurd(t,e,this)}findNames(){return[]}getType(t,e){return new S(new Me)}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}}class er extends xn{location;target;motive;constructor(t,e,n){super(t),this.location=t,this.target=e,this.motive=n}synthHelper(t,e){return Nn.synthIndAbsurd(t,e,this)}findNames(){return this.target.findNames().concat(this.motive.findNames())}prettyPrint(){return`(ind-Absurd \n              ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()})`}toString(){return this.prettyPrint()}}class nr extends xn{location;type;left;right;constructor(t,e,n,r){super(t),this.location=t,this.type=e,this.left=n,this.right=r}synthHelper(t,e){return Nn.synthEqual(t,e,this.type,this.left,this.right)}findNames(){return this.type.findNames().concat(this.left.findNames()).concat(this.right.findNames())}getType(t,e){const[n,r,s]=[this.type,this.left,this.right],i=new O("Aout"),a=new O("Av"),o=new O("from_out"),c=new O("to_out");return L([[i,()=>n.isType(t,e)],[a,()=>new S(D(t,i.value))],[o,()=>r.check(t,e,a.value)],[c,()=>s.check(t,e,a.value)]],(()=>new S(new He(i.value,o.value,c.value))))}prettyPrint(){return`(= ${this.type.prettyPrint()} \n              ${this.left.prettyPrint()} \n              ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class rr extends xn{location;type;constructor(t,e){super(t),this.location=t,this.type=e}findNames(){return this.type.findNames()}synthHelper(t,e){throw new Error("Method not implemented.")}checkOut(t,e,n){const r=n.now();if(r instanceof Jt){const n=r.type,s=r.from,i=r.to,a=new O("cout"),o=new O("val");return L([[a,()=>this.type.check(t,e,n)],[o,()=>new S(D(t,a.value))],[new O("_"),()=>dn(t,this.type.location,n,s,o.value)],[new O("_"),()=>dn(t,this.type.location,n,i,o.value)]],(()=>new S(new De(a.value))))}return new $(this.location,new _([`same requires an Equal type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(same ${this.type.prettyPrint()})`}toString(){return this.prettyPrint()}}class sr extends xn{location;target;motive;base;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.motive=n,this.base=r}synthHelper(t,e){return Nn.synthReplace(t,e,this.location,this.target,this.motive,this.base)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames())}prettyPrint(){return`(replace ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class ir extends xn{location;left;right;synthHelper(t,e){return Nn.synthTrans(t,e,this.location,this.left,this.right)}constructor(t,e,n){super(t),this.location=t,this.left=e,this.right=n}findNames(){return this.left.findNames().concat(this.right.findNames())}prettyPrint(){return`(trans ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class ar extends xn{location;target;fun;constructor(t,e,n){super(t),this.location=t,this.target=e,this.fun=n}synthHelper(t,e){return Nn.synthCong(t,e,this.location,this.target,this.fun)}findNames(){return this.target.findNames().concat(this.fun.findNames())}prettyPrint(){return`(cong ${this.target.prettyPrint()} ${this.fun.prettyPrint()})`}toString(){return this.prettyPrint()}}class or extends xn{location;equality;constructor(t,e){super(t),this.location=t,this.equality=e}synthHelper(t,e){return Nn.synthSymm(t,e,this.location,this.equality)}findNames(){return this.equality.findNames()}prettyPrint(){return`(symm ${this.equality.prettyPrint()})`}toString(){return this.prettyPrint()}}class cr extends xn{location;target;motive;base;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.motive=n,this.base=r}synthHelper(t,e){return Nn.synthIndEqual(t,e,this.location,this.target,this.motive,this.base)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames())}prettyPrint(){return`(ind-= ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class ur extends xn{location;type;length;constructor(t,e,n){super(t),this.location=t,this.type=e,this.length=n}synthHelper(t,e){return Nn.synthVec(t,e,this.type,this.length)}findNames(){return this.type.findNames().concat(this.length.findNames())}getType(t,e){const n=new O("Eout"),r=new O("lenout");return L([[n,()=>this.type.isType(t,e)],[r,()=>this.length.check(t,e,new Qt)]],(()=>new S(new Xe(n.value,r.value))))}prettyPrint(){return`(Vec ${this.type.prettyPrint()} ${this.length.prettyPrint()})`}toString(){return this.prettyPrint()}}class hr extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.now();if(r instanceof ee){return r.length.now()instanceof Ft?new S(new Ye):new $(this.location,new _([`vecnil requires a Vec type with length ZERO, but was used as a: \n          ${lt(t,new Qt,r.length)}.`]))}return new $(this.location,new _([`vecnil requires a Vec type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}}class lr extends xn{location;x;xs;constructor(t,e,n){super(t),this.location=t,this.x=e,this.xs=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.x.findNames().concat(this.xs.findNames())}checkOut(t,e,n){const r=n.now();if(r instanceof ee){const n=r.length.now();if(n instanceof Vt){const s=new O("hout"),i=new O("tout"),a=n.smaller;return L([[s,()=>this.x.check(t,e,r.entryType)],[i,()=>this.xs.check(t,e,new ee(r.entryType,a))]],(()=>new S(new Ke(s.value,i.value))))}return new $(this.location,new _([`vec:: requires a Vec type with length Add1, but was used with a: \n          ${lt(t,new Qt,r.length)}.`]))}return new $(this.location,new _([`vec:: requires a Vec type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(vec:: ${this.x.prettyPrint()} ${this.xs.prettyPrint()})`}toString(){return this.prettyPrint()}}class pr extends xn{location;vec;constructor(t,e){super(t),this.location=t,this.vec=e}synthHelper(t,e){return Nn.synthHead(t,e,this.location,this.vec)}findNames(){return this.vec.findNames()}prettyPrint(){return`(head ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}}class fr extends xn{location;vec;constructor(t,e){super(t),this.location=t,this.vec=e}synthHelper(t,e){return Nn.synthTail(t,e,this.location,this.vec)}findNames(){return this.vec.findNames()}prettyPrint(){return`(tail ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}}class wr extends xn{location;length;target;motive;base;step;constructor(t,e,n,r,s,i){super(t),this.location=t,this.length=e,this.target=n,this.motive=r,this.base=s,this.step=i}synthHelper(t,e){return Nn.synthIndVec(t,e,this.location,this.length,this.target,this.motive,this.base,this.step)}findNames(){return this.length.findNames().concat(this.target.findNames()).concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`ind-Vec ${this.length.prettyPrint()}\n              ${this.target.prettyPrint()}\n              ${this.motive.prettyPrint()}\n              ${this.base.prettyPrint()}\n              ${this.step.prettyPrint()}`}toString(){return this.prettyPrint()}}class yr extends xn{location;left;right;constructor(t,e,n){super(t),this.location=t,this.left=e,this.right=n}synthHelper(t,e){return Nn.synthEither(t,e,this.left,this.right)}findNames(){return this.left.findNames().concat(this.right.findNames())}getType(t,e){const n=new O("Lout"),r=new O("Rout");return L([[n,()=>this.left.isType(t,e)],[r,()=>this.right.isType(t,e)]],(()=>new S(new Je(n.value,r.value))))}prettyPrint(){return`(Either ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class dr extends xn{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.value.findNames()}checkOut(t,e,n){const r=n.now();if(r instanceof se){const n=new O("lout");return L([[n,()=>this.value.check(t,e,r.leftType)]],(()=>new S(new tn(n.value))))}return new $(this.location,new _([`left requires an Either type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class mr extends xn{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.value.findNames()}checkOut(t,e,n){const r=n.now();if(r instanceof se){const n=new O("rout");return L([[n,()=>this.value.check(t,e,r.rightType)]],(()=>new S(new en(n.value))))}return new $(this.location,new _([`right requires an Either type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class gr extends xn{location;target;motive;baseLeft;baseRight;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.baseLeft=r,this.baseRight=s}synthHelper(t,e){return Nn.synthIndEither(t,e,this.location,this.target,this.motive,this.baseLeft,this.baseRight)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.baseLeft.findNames()).concat(this.baseRight.findNames())}prettyPrint(){return`(ind-Either ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.baseLeft.prettyPrint()} \n              ${this.baseRight.prettyPrint()})`}toString(){return this.prettyPrint()}}class vr extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.readBackType(t);return pn(this.location,z(t)),new S(new rn(this.location.locationToSrcLoc(),r))}prettyPrint(){return"TODO"}toString(){return this.prettyPrint()}}class Er extends xn{location;func;arg;args;constructor(t,e,n,r){super(t),this.location=t,this.func=e,this.arg=n,this.args=r}synthHelper(t,e){return Nn.synthApplication(t,e,this.location,this.func,this.arg,this.args)}findNames(){return this.func.findNames().concat(this.arg.findNames()).concat(this.args.flatMap((t=>t.findNames())))}prettyPrint(){return`(${this.func.prettyPrint()} ${this.arg.prettyPrint()} ${this.args.map((t=>t.prettyPrint())).join(" ")})`}toString(){return this.prettyPrint()}}var Pr,Tr;!function(t){t[t.INTEGER=1]="INTEGER",t[t.RATIONAL=2]="RATIONAL",t[t.REAL=3]="REAL",t[t.COMPLEX=4]="COMPLEX"}(Pr||(Pr={}));class br{result;constructor(t){this.result=t}}class Nr extends br{result;value;constructor(t,e){super(t),this.result=t,this.value=e}isSigned(){return!!this.result&&("+"===this.value[0]||"-"===this.value[0])}build(){return Or.build(this.value)}}class xr extends br{result;numerator;denominator;constructor(t,e,n){super(t),this.result=t,this.numerator=e,this.denominator=n}build(){return Lr.build(this.numerator,this.denominator)}}class _r extends br{result;integer;decimal;exponent;constructor(t,e,n,r){super(t),this.result=t,this.integer=e,this.decimal=n,this.exponent=r}build(){if(this.integer?.includes("inf"))return this.integer.includes("-")?Ar.NEG_INFINITY:Ar.INFINITY;if(this.integer?.includes("nan"))return Ar.NAN;let t=(this.exponent?this.exponent.build():Ar.INEXACT_ZERO).coerce(),e=Number((this.integer?this.integer:"0")+"."+(this.decimal?this.decimal:"0"));return e*=Math.pow(10,t),Ar.build(e)}}class kr extends br{result;real;sign;imaginary;constructor(t,e,n,r){super(t),this.result=t,this.real=e,this.sign=n,this.imaginary=r}build(){const t=this.real?this.real.build():Or.EXACT_ZERO,e=this.imaginary.build();return this.sign&&"-"===this.sign?Ir.build(t,e.negate()):Ir.build(t,e)}}function Sr(t){const e=new RegExp("^([+-]?)(\\d+)$").exec(t);return e?new Nr(!0,e[0]):new Nr(!1)}function $r(t,e){const n=Sr(t);if(n.result&&e>=Pr.INTEGER)return n;const r=function(t){if(1!==(t.match(/\//g)||[]).length)return new xr(!1);const e=t.split("/");if(2!==e.length)return new xr(!1);const[n,r]=e,s=Sr(n),i=Sr(r);return s.result&&i.result?new xr(!0,n,r):new xr(!1)}(t);if(r.result&&e>=Pr.RATIONAL)return r;const s=function(t){function e(t){if(function(t){return"+inf.0"===t||"-inf.0"===t||"+nan.0"===t||"-nan.0"===t}(t))return new _r(!0,t);const e=(t.match(/\./g)||[]).length;if(e>1)return new _r(!1);if(0===e){const e=Sr(t);return new _r(e.result,e.value)}const[n,r]=t.split("."),s=Sr(n),i=Sr(r),a=s.result||""===n,o=i.result||""===r;return"+"===n||"-"===n?""===r?new _r(!1):new _r(!0,`${n}0`,t):s.result&&o||a&&i.result?i.result&&i.isSigned()?new _r(!1):new _r(!0,s.value,i.value):new _r(!1)}return 0===(t.match(/[eE]/g)||[]).length?e(t):function(t){const n=t.indexOf("e"),r=t.indexOf("E");if(-1===n&&-1===r)return new _r(!1);const s=-1===n?r:n,i=t.substring(0,s),a=t.substring(s+1);if(""===i||""==a)return new _r(!1);const o=e(i);if(!o.result)return new _r(!1);const c=$r(a,Pr.REAL);return c.result?new _r(!0,o.integer,o.decimal,c):new _r(!1)}(t)}(t);if(s.result&&e>=Pr.REAL)return s;const i=function(t){if((t.match(/i/g)||[]).length<1)return new kr(!1);if("i"!==t[t.length-1])return new kr(!1);const e=t.search(/(?<!^)[+-]/);if(-1===e){const e=$r(t.slice(0,-1),Pr.REAL);return e.result?new kr(!0,void 0,void 0,e):new kr(!1)}const n=t.slice(0,e);let r=t.slice(e+1,-1);"+"!==r[0]&&"-"!==r[0]&&(r="+"+r);const s=$r(n,Pr.REAL),i=$r(r,Pr.REAL);return s.result&&i.result?new kr(!0,s,t[e],i):new kr(!1)}(t);return i.result&&e>=Pr.COMPLEX?i:new Nr(!1)}class Or{numberType=Pr.INTEGER;value;static EXACT_ZERO=new Or(0n);constructor(t){this.value=t}static build(t,e=!1){const n=BigInt(t);return 0n===n?Or.EXACT_ZERO:new Or(n)}promote(t){switch(t){case Pr.INTEGER:return this;case Pr.RATIONAL:return Lr.build(this.value,1n,!0);case Pr.REAL:return Ar.build(this.coerce(),!0);case Pr.COMPLEX:return Ir.build(this,Or.EXACT_ZERO,!0)}}equals(t){return t instanceof Or&&this.value===t.value}greaterThan(t){return this.value>t.value}negate(){return this===Or.EXACT_ZERO?this:Or.build(-this.value)}multiplicativeInverse(){if(this===Or.EXACT_ZERO)throw new Error("Division by zero");return Lr.build(1n,this.value,!1)}add(t){return Or.build(this.value+t.value)}multiply(t){return Or.build(this.value*t.value)}getBigInt(){return this.value}coerce(){return this.value>Number.MAX_SAFE_INTEGER?1/0:this.value<Number.MIN_SAFE_INTEGER?-1/0:Number(this.value)}toString(){return this.value.toString()}}class Lr{numberType=Pr.RATIONAL;numerator;denominator;constructor(t,e){this.numerator=t,this.denominator=e}static build(t,e,n=!1){return Lr.simplify(BigInt(t),BigInt(e),n)}static simplify(t,e,n=!1){const r=(t,e)=>0n===e?t:r(e,t.valueOf()%e.valueOf()),s=r(t,e),i=t<0n?-1n:1n,a=e<0n?-1n:1n,o=i*a;return t*=i,1n!==(e*=a)||n?new Lr(o*t/s,e/s):Or.build(o*t)}getNumerator(){return this.numerator}getDenominator(){return this.denominator}promote(t){switch(t){case Pr.RATIONAL:return this;case Pr.REAL:return Ar.build(this.coerce(),!0);case Pr.COMPLEX:return Ir.build(this,Or.EXACT_ZERO,!0);default:throw new Error("Unable to demote rational")}}equals(t){return t instanceof Lr&&this.numerator===t.numerator&&this.denominator===t.denominator}greaterThan(t){return this.numerator*t.denominator>t.numerator*this.denominator}negate(){return Lr.build(-this.numerator,this.denominator)}multiplicativeInverse(){if(0n===this.numerator)throw new Error("Division by zero");return Lr.build(this.denominator,this.numerator)}add(t){const e=this.numerator*t.denominator+t.numerator*this.denominator,n=this.denominator*t.denominator;return Lr.build(e,n)}multiply(t){const e=this.numerator*t.numerator,n=this.denominator*t.denominator;return Lr.build(e,n)}coerce(){const t=this.numerator<0n?-this.numerator:this.numerator;let e=this.denominator;const n=Number(t/e);if(n>Number.MAX_VALUE)return this.numerator<0n?-1/0:1/0;let r=t%e;for(;r>Number.MAX_SAFE_INTEGER||e>Number.MAX_SAFE_INTEGER;)r/=2n,e/=2n;const s=Number(r)/Number(e);return this.numerator<0n?-(n+s):n+s}toString(){return`${this.numerator}/${this.denominator}`}}class Ar{numberType=Pr.REAL;value;static INEXACT_ZERO=new Ar(0);static INEXACT_NEG_ZERO=new Ar(-0);static INFINITY=new Ar(1/0);static NEG_INFINITY=new Ar(-1/0);static NAN=new Ar(NaN);static build(t,e=!1){return t===1/0?Ar.INFINITY:t===-1/0?Ar.NEG_INFINITY:isNaN(t)?Ar.NAN:0===t?Ar.INEXACT_ZERO:-0===t?Ar.INEXACT_NEG_ZERO:new Ar(t)}constructor(t){this.value=t}promote(t){switch(t){case Pr.REAL:return this;case Pr.COMPLEX:return Ir.build(this,Or.EXACT_ZERO,!0);default:throw new Error("Unable to demote real")}}equals(t){return t instanceof Ar&&this.value===t.value}greaterThan(t){return this.value>t.value}negate(){return Ar.build(-this.value)}multiplicativeInverse(){if(this===Ar.INEXACT_ZERO||this===Ar.INEXACT_NEG_ZERO)throw new Error("Division by zero");return Ar.build(1/this.value)}add(t){return Ar.build(this.value+t.value)}multiply(t){return Ar.build(this.value*t.value)}coerce(){return this.value}toString(){return this===Ar.INFINITY?"+inf.0":this===Ar.NEG_INFINITY?"-inf.0":this===Ar.NAN?"+nan.0":this.value.toString()}}class Ir{numberType=Pr.COMPLEX;real;imaginary;static build(t,e,n=!1){return Ir.simplify(new Ir(t,e),n)}constructor(t,e){this.real=t,this.imaginary=e}static simplify(t,e){return!e&&qr(t.imaginary,Or.EXACT_ZERO)?t.real:t}promote(t){if(t===Pr.COMPLEX)return this;throw new Error("Unable to demote complex")}negate(){return Ir.build(this.real.negate(),this.imaginary.negate())}equals(t){return qr(this.real,t.real)&&qr(this.imaginary,t.imaginary)}greaterThan(t){return Mr(this.real,t.real)&&Mr(this.imaginary,t.imaginary)}multiplicativeInverse(){const t=Ur(Hr(this.real,this.real),Hr(this.imaginary,this.imaginary));return Ir.build(Hr(t.multiplicativeInverse(),this.real),Hr(t.multiplicativeInverse(),this.imaginary.negate()))}add(t){return Ir.build(Ur(this.real,t.real),Ur(this.imaginary,t.imaginary))}multiply(t){const e=(n=Hr(this.real,t.real),r=Hr(this.imaginary,t.imaginary),Ur(n,function(t){return t.negate()}(r)));var n,r;const s=Ur(Hr(this.real,t.imaginary),Hr(this.imaginary,t.real));return Ir.build(e,s)}getReal(){return this.real}getImaginary(){return this.imaginary}coerce(){throw new Error("Cannot coerce a complex number to a javascript number")}toPolar(){const t=this.real.promote(Pr.REAL),e=this.imaginary.promote(Pr.REAL),n=Ar.build(Math.sqrt(t.coerce()*t.coerce()+e.coerce()*e.coerce())),r=Ar.build(Math.atan2(e.coerce(),t.coerce()));return Br.build(n,r)}toString(){return`${this.real}+${this.imaginary}i`}}class Br{magnitude;angle;constructor(t,e){this.magnitude=t,this.angle=e}static build(t,e){return new Br(t,e)}toCartesian(){const t=Ar.build(this.magnitude.coerce()*Math.cos(this.angle.coerce())),e=Ar.build(this.magnitude.coerce()*Math.sin(this.angle.coerce()));return Ir.build(t,e)}}function Cr(t){switch(t.numberType){case Pr.INTEGER:return t;case Pr.RATIONAL:return 1n===t.getDenominator()?Or.build(t.getNumerator()):t;case Pr.REAL:return t;case Pr.COMPLEX:return Ir.build(Cr(t.getReal()),Cr(t.getImaginary()))}}function Rr(t,e){return t.numberType>e.numberType?[t,e.promote(t.numberType)]:t.numberType<e.numberType?[t.promote(e.numberType),e]:[t,e]}function qr(t,e){const[n,r]=Rr(t,e);return n.equals(r)}function Mr(t,e){const[n,r]=Rr(t,e);return n.greaterThan(r)}function Ur(t,e){const[n,r]=Rr(t,e);return Cr(n.add(r))}function Hr(t,e){const[n,r]=Rr(t,e);return Cr(n.multiply(r))}class Dr{start;end;constructor(t,e){this.start=t,this.end=e}merge(t){return new Dr(this.start,t.end)}}class zr{line;column;constructor(t,e){this.line=t,this.column=e}}function Qr(t,e){return t.split("\n")[e.line-1]}function Fr(t){return"^".padStart(t.column," ")}!function(t){t[t.LEFT_PAREN=0]="LEFT_PAREN",t[t.RIGHT_PAREN=1]="RIGHT_PAREN",t[t.LEFT_BRACKET=2]="LEFT_BRACKET",t[t.RIGHT_BRACKET=3]="RIGHT_BRACKET",t[t.DOT=4]="DOT",t[t.HASH_SEMICOLON=5]="HASH_SEMICOLON",t[t.IDENTIFIER=6]="IDENTIFIER",t[t.NUMBER=7]="NUMBER",t[t.BOOLEAN=8]="BOOLEAN",t[t.STRING=9]="STRING",t[t.IF=10]="IF",t[t.LET=11]="LET",t[t.COND=12]="COND",t[t.ELSE=13]="ELSE",t[t.DEFINE=14]="DEFINE",t[t.LAMBDA=15]="LAMBDA",t[t.APOSTROPHE=16]="APOSTROPHE",t[t.BACKTICK=17]="BACKTICK",t[t.COMMA=18]="COMMA",t[t.COMMA_AT=19]="COMMA_AT",t[t.QUOTE=20]="QUOTE",t[t.QUASIQUOTE=21]="QUASIQUOTE",t[t.UNQUOTE=22]="UNQUOTE",t[t.UNQUOTE_SPLICING=23]="UNQUOTE_SPLICING",t[t.SET=24]="SET",t[t.BEGIN=25]="BEGIN",t[t.DELAY=26]="DELAY",t[t.IMPORT=27]="IMPORT",t[t.EXPORT=28]="EXPORT",t[t.DEFINE_SYNTAX=29]="DEFINE_SYNTAX",t[t.SYNTAX_RULES=30]="SYNTAX_RULES",t[t.HASH_VECTOR=31]="HASH_VECTOR",t[t.VECTOR=32]="VECTOR",t[t.EOF=33]="EOF"}(Tr||(Tr={}));class Vr extends SyntaxError{loc;constructor(t,e){super(`Syntax error at (${e.line}:${e.column})\n${t}`),this.loc=e}toString(){return this.message}}let Gr=class extends Vr{constructor(t,e){super(Qr(t,e)+"\nUnexpected EOF",e),this.name="UnexpectedEOFError"}};class Xr extends Vr{form;constructor(t,e,n){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Unexpected '${n}'`,e),this.form=n,this.name="UnexpectedTokenError"}}class Kr extends Vr{form;expected;constructor(t,e,n,r){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Expected '${r}' but got '${n}'`,e),this.form=n,this.expected=r,this.name="ExpectedTokenError"}}class Yr extends Vr{token;constructor(t,e,n,r){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Syntax '${n}' not allowed at Scheme §${r}`,e),this.token=n,this.name="DisallowedTokenError"}}class Zr extends Vr{token;constructor(t,e,n){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Syntax '${n}' not supported yet`,e),this.token=n,this.name="UnsupportedTokenError"}}class jr{elements;location;constructor(t){this.elements=t,this.location=new Dr(this.firstPos(),this.lastPos())}static build(t){if(0===t.length)throw new Error("Illegal empty group. This should never happen.");if(1===t.length){const n=t[0];if(Jr(n))return n;if((e=n).type!==Tr.IDENTIFIER&&e.type!==Tr.NUMBER&&e.type!==Tr.STRING&&e.type!==Tr.BOOLEAN)throw new Kr("",n.pos,n,"<data>");return new jr(t)}var e;if(2===t.length){const e=t[0];if(Wr(e)&&function(t){return t.type===Tr.APOSTROPHE||t.type===Tr.BACKTICK||t.type===Tr.HASH_VECTOR||t.type===Tr.COMMA||t.type===Tr.COMMA_AT}(e))return new jr(t)}const n=t[0],r=t[t.length-1];if(Wr(n)&&Wr(r)&&(i=r,(s=n).type===Tr.LEFT_PAREN&&i.type===Tr.RIGHT_PAREN||s.type===Tr.LEFT_BRACKET&&i.type===Tr.RIGHT_BRACKET))return new jr(t);var s,i;const a=new jr(t);throw new Kr("",a.location.start,a,"matching parentheses")}first(){return this.elements[0]}firstToken(){const t=this.first();return Wr(t)?t:t.firstToken()}firstPos(){return this.firstToken().pos}last(){return this.elements[this.elements.length-1]}lastToken(){const t=this.last();return Wr(t)?t:t.lastToken()}lastPos(){return this.lastToken().pos}isParenthesized(){const t=this.first();return Wr(t)&&(t.type===Tr.LEFT_PAREN||t.type===Tr.LEFT_BRACKET)}isSingleIdentifier(){return!this.isParenthesized()&&1===this.length()}unwrap(){return this.isParenthesized()?this.elements.slice(1,this.elements.length-1):this.elements}length(){return this.unwrap().length}toString(){return this.elements.map((t=>t.toString())).join(" ")}}function Wr(t){return t instanceof ts}function Jr(t){return t instanceof jr}class ts{type;lexeme;literal;start;end;pos;endPos;constructor(t,e,n,r,s,i,a){this.type=t,this.lexeme=e,this.literal=n,this.start=r,this.end=s,this.pos=new zr(i,a),this.endPos=new zr(i,a+e.length-1)}convertToken(){switch(this.type){case Tr.APOSTROPHE:return new ts(Tr.QUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.BACKTICK:return new ts(Tr.QUASIQUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.HASH_VECTOR:return new ts(Tr.VECTOR,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.COMMA:return new ts(Tr.UNQUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.COMMA_AT:return new ts(Tr.UNQUOTE_SPLICING,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);default:return this}}toString(){return`${this.lexeme}`}}class es extends SyntaxError{loc;constructor(t,e,n){super(t),this.loc={line:e,column:n}}toString(){return this.message}}class ns extends es{char;constructor(t,e,n){super(`Unexpected character '${n}' (${t}:${e})`,t,e),this.char=n,this.name="UnexpectedCharacterError"}}class rs extends es{constructor(t,e){super(`Unexpected EOF (${t}:${e})`,t,e),this.name="UnexpectedEOFError"}}let ss=new Map([[".",Tr.DOT],["if",Tr.IF],["let",Tr.LET],["cond",Tr.COND],["else",Tr.ELSE],["set!",Tr.SET],["begin",Tr.BEGIN],["delay",Tr.DELAY],["quote",Tr.QUOTE],["export",Tr.EXPORT],["import",Tr.IMPORT],["define",Tr.DEFINE],["lambda",Tr.LAMBDA],["define-syntax",Tr.DEFINE_SYNTAX],["syntax-rules",Tr.SYNTAX_RULES]]);class is{source;tokens;start=0;current=0;line=1;col=0;constructor(t){this.source=t,this.tokens=[]}isAtEnd(){return this.current>=this.source.length}advance(){return this.col++,this.source.charAt(this.current++)}jump(){this.start=this.current,this.col++,this.current++}addToken(t,e=null){const n=this.source.substring(this.start,this.current);this.tokens.push(new ts(t,n,e,this.start,this.current,this.line,this.col))}scanTokens(){for(;!this.isAtEnd();)this.start=this.current,this.scanToken();return this.tokens.push(new ts(Tr.EOF,"",null,this.start,this.current,this.line,this.col)),this.tokens}scanToken(){const t=this.advance();switch(t){case"(":this.addToken(Tr.LEFT_PAREN);break;case")":this.addToken(Tr.RIGHT_PAREN);break;case"[":this.addToken(Tr.LEFT_BRACKET);break;case"]":this.addToken(Tr.RIGHT_BRACKET);break;case"'":this.addToken(Tr.APOSTROPHE);break;case"`":this.addToken(Tr.BACKTICK);break;case",":if(this.match("@")){this.addToken(Tr.COMMA_AT);break}this.addToken(Tr.COMMA);break;case"#":if(this.match("t")||this.match("f"))this.booleanToken();else if(this.match("|"))this.comment();else if(this.match(";"))this.addToken(Tr.HASH_SEMICOLON);else{if("("!==this.peek()&&"["!==this.peek())throw new ns(this.line,this.col,t);this.addToken(Tr.HASH_VECTOR)}break;case";":for(;"\n"!=this.peek()&&!this.isAtEnd();)this.advance();break;case" ":case"\r":case"\t":break;case"\n":this.line++,this.col=0;break;case'"':this.stringToken();break;case"|":this.identifierTokenLoose();break;default:if(this.isDigit(t)||"-"===t||"+"===t||"."===t||"i"===t||"n"===t)this.identifierNumberToken();else{if(!this.isValidIdentifier(t))throw new ns(this.line,this.col,t);this.identifierToken()}}}comment(){for(;("|"!=this.peek()||"#"!=this.peekNext())&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new rs(this.line,this.col);this.jump(),this.jump()}identifierToken(){for(;this.isValidIdentifier(this.peek());)this.advance();this.addToken(this.checkKeyword())}identifierTokenLoose(){for(this.advance();"|"!=this.peek()&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new rs(this.line,this.col);this.advance(),this.addToken(this.checkKeyword())}identifierNumberToken(){for(;this.isValidIdentifier(this.peek());)this.advance();const t=this.source.substring(this.start,this.current);$r(t,Pr.COMPLEX).result?this.addToken(Tr.NUMBER,t):this.addToken(this.checkKeyword())}checkKeyword(){var t=this.source.substring(this.start,this.current);return ss.has(t)?ss.get(t):Tr.IDENTIFIER}stringToken(){for(;'"'!=this.peek()&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new rs(this.line,this.col);this.advance();const t=this.source.substring(this.start+1,this.current-1);this.addToken(Tr.STRING,t)}booleanToken(){this.addToken(Tr.BOOLEAN,"t"===this.peekPrev())}match(t){return!this.isAtEnd()&&(this.source.charAt(this.current)==t&&(this.current++,!0))}peek(){return this.isAtEnd()?"\0":this.source.charAt(this.current)}peekNext(){return this.current+1>=this.source.length?"\0":this.source.charAt(this.current+1)}peekPrev(){return this.current-1<0?"\0":this.source.charAt(this.current-1)}isDigit(t){return t>="0"&&t<="9"}isSpecialSyntax(t){return"("===t||")"===t||"["===t||"]"===t||";"===t||"|"===t}isValidIdentifier(t){return!this.isWhitespace(t)&&!this.isSpecialSyntax(t)}isWhitespace(t){return" "===t||"\0"===t||"\n"===t||"\r"===t||"\t"===t}}var as,os;!function(t){class e{location;expressions;constructor(t,e){this.location=t,this.expressions=e}accept(t){return t.visitSequence(this)}equals(t){if(t instanceof e){if(this.expressions.length!==t.expressions.length)return!1;for(let e=0;e<this.expressions.length;e++)if(!this.expressions[e].equals(t.expressions[e]))return!1;return!0}return!1}}t.Sequence=e;class n{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitNumericLiteral(this)}equals(t){return t instanceof n&&this.value===t.value}}t.NumericLiteral=n;class r{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitBooleanLiteral(this)}equals(t){return t instanceof r&&this.value===t.value}}t.BooleanLiteral=r;class s{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitStringLiteral(this)}equals(t){return t instanceof s&&this.value===t.value}}t.StringLiteral=s;class i{location;params;rest;body;constructor(t,e,n,r=void 0){this.location=t,this.params=n,this.rest=r,this.body=e}accept(t){return t.visitLambda(this)}equals(t){if(t instanceof i){if(this.params.length!==t.params.length)return!1;for(let e=0;e<this.params.length;e++)if(!this.params[e].equals(t.params[e]))return!1;if(this.rest&&t.rest){if(!this.rest.equals(t.rest))return!1}else if(this.rest||t.rest)return!1;return this.body.equals(t.body)}return!1}}t.Lambda=i;class a{location;name;constructor(t,e){this.location=t,this.name=e}accept(t){return t.visitIdentifier(this)}equals(t){return t instanceof a&&this.name===t.name}}t.Identifier=a;class o{location;name;value;constructor(t,e,n){this.location=t,this.name=e,this.value=n}accept(t){return t.visitDefinition(this)}equals(t){return t instanceof o&&(this.name.equals(t.name)&&this.value.equals(t.value))}}t.Definition=o;class c{location;operator;operands;constructor(t,e,n){this.location=t,this.operator=e,this.operands=n}accept(t){return t.visitApplication(this)}equals(t){if(t instanceof c){if(!this.operator.equals(t.operator))return!1;if(this.operands.length!==t.operands.length)return!1;for(let e=0;e<this.operands.length;e++)if(!this.operands[e].equals(t.operands[e]))return!1;return!0}return!1}}t.Application=c;class u{location;test;consequent;alternate;constructor(t,e,n,r){this.location=t,this.test=e,this.consequent=n,this.alternate=r}accept(t){return t.visitConditional(this)}equals(t){return t instanceof u&&(this.test.equals(t.test)&&this.consequent.equals(t.consequent)&&this.alternate.equals(t.alternate))}}t.Conditional=u;class h{location;car;cdr;constructor(t,e,n){this.location=t,this.car=e,this.cdr=n}accept(t){return t.visitPair(this)}equals(t){return t instanceof h&&(this.car.equals(t.car)&&this.cdr.equals(t.cdr))}}t.Pair=h;class l{location;constructor(t){this.location=t}accept(t){return t.visitNil(this)}equals(t){return t instanceof l}}t.Nil=l;class p{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitSymbol(this)}equals(t){return t instanceof p&&this.value===t.value}}t.Symbol=p;class f{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitSpliceMarker(this)}equals(t){return t instanceof f&&this.value.equals(t.value)}}t.SpliceMarker=f;class w{location;name;value;constructor(t,e,n){this.location=t,this.name=e,this.value=n}accept(t){return t.visitReassignment(this)}equals(t){return t instanceof w&&(this.name.equals(t.name)&&this.value.equals(t.value))}}t.Reassignment=w;class y{location;source;identifiers;constructor(t,e,n){this.location=t,this.source=e,this.identifiers=n}accept(t){return t.visitImport(this)}equals(t){if(t instanceof y){if(!this.source.equals(t.source))return!1;if(this.identifiers.length!==t.identifiers.length)return!1;for(let e=0;e<this.identifiers.length;e++)if(!this.identifiers[e].equals(t.identifiers[e]))return!1;return!0}return!1}}t.Import=y;class d{location;definition;constructor(t,e){this.location=t,this.definition=e}accept(t){return t.visitExport(this)}equals(t){return t instanceof d&&this.definition.equals(t.definition)}}t.Export=d;class m{location;elements;constructor(t,e){this.location=t,this.elements=e}accept(t){return t.visitVector(this)}equals(t){if(t instanceof m){if(this.elements.length!==t.elements.length)return!1;for(let e=0;e<this.elements.length;e++)if(!this.elements[e].equals(t.elements[e]))return!1;return!0}return!1}}t.Vector=m;class g{location;name;transformer;constructor(t,e,n){this.location=t,this.name=e,this.transformer=n}accept(t){return t.visitDefineSyntax(this)}equals(t){return t instanceof g&&(this.name.equals(t.name)&&this.transformer.equals(t.transformer))}}t.DefineSyntax=g;class v{location;literals;rules;constructor(t,e,n){this.location=t,this.literals=e,this.rules=n}accept(t){return t.visitSyntaxRules(this)}equals(t){if(t instanceof v){if(this.literals.length!==t.literals.length)return!1;for(let e=0;e<this.literals.length;e++)if(!this.literals[e].equals(t.literals[e]))return!1;if(this.rules.length!==t.rules.length)return!1;for(let e=0;e<this.rules.length;e++)if(!this.rules[e][0].equals(t.rules[e][0])||!this.rules[e][1].equals(t.rules[e][1]))return!1;return!0}return!1}}t.SyntaxRules=v}(as||(as={})),function(t){class e{location;name;params;rest;body;constructor(t,e,n,r,s=void 0){this.location=t,this.name=e,this.body=n,this.params=r,this.rest=s}accept(t){return t.visitFunctionDefinition(this)}equals(t){if(t instanceof e){if(this.params.length!==t.params.length)return!1;for(let e=0;e<this.params.length;e++)if(!this.params[e].equals(t.params[e]))return!1;if(this.rest&&t.rest){if(!this.rest.equals(t.rest))return!1}else if(this.rest||t.rest)return!1;return this.body.equals(t.body)}return!1}}t.FunctionDefinition=e;class n{location;identifiers;values;body;constructor(t,e,n,r){this.location=t,this.identifiers=e,this.values=n,this.body=r}accept(t){return t.visitLet(this)}equals(t){if(t instanceof n){if(this.identifiers.length!==t.identifiers.length)return!1;for(let e=0;e<this.identifiers.length;e++)if(!this.identifiers[e].equals(t.identifiers[e]))return!1;if(this.values.length!==t.values.length)return!1;for(let e=0;e<this.values.length;e++)if(!this.values[e].equals(t.values[e]))return!1;return this.body.equals(t.body)}return!1}}t.Let=n;class r{location;predicates;consequents;catchall;constructor(t,e,n,r){this.location=t,this.predicates=e,this.consequents=n,this.catchall=r}accept(t){return t.visitCond(this)}equals(t){if(t instanceof r){if(this.predicates.length!==t.predicates.length)return!1;for(let e=0;e<this.predicates.length;e++)if(!this.predicates[e].equals(t.predicates[e]))return!1;if(this.consequents.length!==t.consequents.length)return!1;for(let e=0;e<this.consequents.length;e++)if(!this.consequents[e].equals(t.consequents[e]))return!1;return this.catchall&&t.catchall?this.catchall.equals(t.catchall):!this.catchall&&!t.catchall}return!1}}t.Cond=r;class s{location;elements;terminator;constructor(t,e,n=void 0){this.location=t,this.elements=e,this.terminator=n}accept(t){return t.visitList(this)}equals(t){if(t instanceof s){if(this.elements.length!==t.elements.length)return!1;for(let e=0;e<this.elements.length;e++)if(!this.elements[e].equals(t.elements[e]))return!1;return this.terminator&&t.terminator?this.terminator.equals(t.terminator):!this.terminator&&!t.terminator}return!1}}t.List=s;class i{location;expressions;constructor(t,e){this.location=t,this.expressions=e}accept(t){return t.visitBegin(this)}equals(t){if(t instanceof i){if(this.expressions.length!==t.expressions.length)return!1;for(let e=0;e<this.expressions.length;e++)if(!this.expressions[e].equals(t.expressions[e]))return!1;return!0}return!1}}t.Begin=i;class a{location;expression;constructor(t,e){this.location=t,this.expression=e}accept(t){return t.visitDelay(this)}equals(t){return t instanceof a&&this.expression.equals(t.expression)}}t.Delay=a}(os||(os={}));var cs;!function(t){t[t.NONE=0]="NONE",t[t.QUOTE=1]="QUOTE",t[t.QUASIQUOTE=2]="QUASIQUOTE"}(cs||(cs={}));class us{source;tokens;chapter;current=0;quoteMode=cs.NONE;constructor(t,e,n=1/0){this.source=t,this.tokens=e,this.chapter=n}advance(){return this.isAtEnd()||this.current++,this.previous()}isAtEnd(){return this.current>=this.tokens.length}previous(){return this.tokens[this.current-1]}peek(){return this.tokens[this.current]}validateChapter(t,e){if(this.chapter<e)throw new Yr(this.source,t.pos,t,this.chapter)}toLocation(t){return new Dr(t.pos,t.endPos)}destructureList(t,e=t=>{}){if(0===t.length)return[[],void 0];if(1===t.length)return e(t[0]),[[this.parseExpression(t[0])],void 0];const n=t.at(-2);if(Wr(n)&&n.type===Tr.DOT){const n=t.at(-1),r=t.slice(0,-2);return e(n),r.forEach(e),[r.map(this.parseExpression.bind(this)),this.parseExpression(n)]}const r=t;return r.forEach(e),[r.map(this.parseExpression.bind(this)),void 0]}grouping(t){const e=[];let n=!1;t&&(n=!0,e.push(t));do{let t=this.advance();switch(t.type){case Tr.LEFT_PAREN:case Tr.LEFT_BRACKET:const r=this.grouping(t);e.push(r);break;case Tr.RIGHT_PAREN:case Tr.RIGHT_BRACKET:if(!n)throw new Xr(this.source,t.pos,t);e.push(t),n=!1;break;case Tr.APOSTROPHE:case Tr.BACKTICK:case Tr.COMMA:case Tr.COMMA_AT:case Tr.HASH_VECTOR:let s;do{s=this.grouping()}while(!s);e.push(this.affect(t,s));break;case Tr.QUOTE:case Tr.QUASIQUOTE:case Tr.UNQUOTE:case Tr.UNQUOTE_SPLICING:case Tr.IDENTIFIER:case Tr.NUMBER:case Tr.BOOLEAN:case Tr.STRING:case Tr.DOT:case Tr.DEFINE:case Tr.IF:case Tr.ELSE:case Tr.COND:case Tr.LAMBDA:case Tr.LET:case Tr.SET:case Tr.BEGIN:case Tr.DELAY:case Tr.IMPORT:case Tr.EXPORT:case Tr.DEFINE_SYNTAX:case Tr.SYNTAX_RULES:e.push(t);break;case Tr.HASH_SEMICOLON:for(;!this.grouping(););break;case Tr.EOF:throw new Gr(this.source,t.pos);default:throw new Xr(this.source,t.pos,t)}}while(n);if(0!==e.length)try{return jr.build(e)}catch(t){if(t instanceof Kr)throw new Kr(this.source,t.loc,t.form,t.expected);throw t}}affect(t,e){return jr.build([t,e])}parseExpression(t){return Wr(t)?this.parseToken(t):t.isSingleIdentifier()?this.parseToken(t.unwrap()[0]):this.parseGroup(t)}parseToken(t){switch(t.type){case Tr.IDENTIFIER:return this.quoteMode===cs.NONE?new as.Identifier(this.toLocation(t),t.lexeme):new as.Symbol(this.toLocation(t),t.lexeme);case Tr.NUMBER:return new as.NumericLiteral(this.toLocation(t),t.literal);case Tr.BOOLEAN:return new as.BooleanLiteral(this.toLocation(t),t.literal);case Tr.STRING:return new as.StringLiteral(this.toLocation(t),t.literal);default:if(this.quoteMode!==cs.NONE||this.chapter>=5)return new as.Symbol(this.toLocation(t),t.lexeme);throw new Xr(this.source,t.pos,t)}}parseGroup(t){if(!t.isParenthesized())return this.parseAffectorGroup(t);switch(this.quoteMode){case cs.NONE:return this.parseNormalGroup(t);case cs.QUOTE:case cs.QUASIQUOTE:return this.parseQuotedGroup(t)}}parseAffectorGroup(t){const[e,n]=t.unwrap();switch(e.type){case Tr.APOSTROPHE:case Tr.QUOTE:if(this.validateChapter(e,2),this.quoteMode!==cs.NONE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"quote"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.QUOTE;const r=this.parseExpression(n);return this.quoteMode=cs.NONE,r;case Tr.BACKTICK:case Tr.QUASIQUOTE:if(this.validateChapter(e,2),this.quoteMode!==cs.NONE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"quasiquote"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.QUASIQUOTE;const s=this.parseExpression(n);return this.quoteMode=cs.NONE,s;case Tr.COMMA:case Tr.UNQUOTE:this.validateChapter(e,2);let i=this.quoteMode;if(i===cs.NONE)throw new Zr(this.source,e.pos,e);if(i===cs.QUOTE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"unquote"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.NONE;const a=this.parseExpression(n);return this.quoteMode=i,a;case Tr.COMMA_AT:case Tr.UNQUOTE_SPLICING:this.validateChapter(e,2);let o=this.quoteMode;if(o===cs.NONE)throw new Xr(this.source,e.pos,e);if(o===cs.QUOTE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"unquote-splicing"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.NONE;const c=this.parseExpression(n);this.quoteMode=o;const u=this.toLocation(e).merge(c.location);return new as.SpliceMarker(u,c);case Tr.HASH_VECTOR:this.validateChapter(e,3);let h=this.quoteMode;this.quoteMode=cs.QUOTE;const l=this.parseVector(t);return this.quoteMode=h,l;default:throw new Xr(this.source,e.pos,e)}}parseNormalGroup(t){if(0===t.length()){if(this.chapter>=5)return new as.Nil(t.location);throw new Kr(this.source,t.location.start,t,"non-empty group")}const e=t.unwrap()[0];if(Wr(e))switch(e.type){case Tr.LAMBDA:return this.validateChapter(e,1),this.parseLambda(t);case Tr.DEFINE:return this.validateChapter(e,1),this.parseDefinition(t);case Tr.IF:return this.validateChapter(e,1),this.parseConditional(t);case Tr.LET:return this.validateChapter(e,1),this.parseLet(t);case Tr.COND:return this.validateChapter(e,1),this.parseExtendedCond(t);case Tr.QUOTE:case Tr.APOSTROPHE:case Tr.QUASIQUOTE:case Tr.BACKTICK:case Tr.UNQUOTE:case Tr.COMMA:case Tr.UNQUOTE_SPLICING:case Tr.COMMA_AT:return this.validateChapter(e,2),this.parseAffectorGroup(t);case Tr.BEGIN:return this.validateChapter(e,3),this.parseBegin(t);case Tr.DELAY:return this.validateChapter(e,3),this.parseDelay(t);case Tr.SET:return this.validateChapter(e,3),this.parseSet(t);case Tr.DEFINE_SYNTAX:return this.validateChapter(e,5),this.parseDefineSyntax(t);case Tr.SYNTAX_RULES:throw new Xr(this.source,e.pos,e);case Tr.IMPORT:return this.validateChapter(e,1),this.parseImport(t);case Tr.EXPORT:return this.validateChapter(e,1),this.parseExport(t);case Tr.VECTOR:return this.validateChapter(e,3),this.parseAffectorGroup(t);default:return this.parseApplication(t)}return this.parseApplication(t)}parseQuotedGroup(t){if(0===t.length())return new as.Nil(t.location);if(1===t.length()){const e=[this.parseExpression(t.unwrap()[0])];return new os.List(t.location,e)}const e=t.unwrap(),[n,r]=this.destructureList(e);return new os.List(t.location,n,r)}parseLambda(t){if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(lambda (<identifier>* . <rest-identifier>?) <body>+) | (lambda <rest-identifer> <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);let s,i=[];if(Wr(n)){if(n.type!==Tr.IDENTIFIER)throw new Kr(this.source,n.pos,n,"<rest-identifier>");s=new as.Identifier(this.toLocation(n),n.lexeme)}else{const t=n.unwrap();[i,s]=this.destructureList(t,(t=>{if(!Wr(t))throw new Kr(this.source,t.pos,t,"<identifier>");if(t.type!==Tr.IDENTIFIER)throw new Kr(this.source,t.pos,t,"<identifier>")}))}const a=r.map(this.parseExpression.bind(this));if(a.length<1)throw new Kr(this.source,t.location.start,t,"(lambda ... <body>+)");if(1===a.length)return new as.Lambda(t.location,a[0],i,s);const o=a.at(0).location.merge(a.at(-1).location),c=new as.Sequence(o,a);return new as.Lambda(t.location,c,i,s)}parseDefinition(t){if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(define <identifier> <expr>) | (define (<identifier> <formals>) <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);let s,i,a=[],o=!1;if(Jr(n)){o=!0;const t=n.unwrap(),e=t[0],r=t.splice(1);if(!Wr(e))throw new Kr(this.source,e.location.start,e,"<identifier>");if(e.type!==Tr.IDENTIFIER)throw new Kr(this.source,e.pos,e,"<identifier>");s=new as.Identifier(this.toLocation(e),e.lexeme),[a,i]=this.destructureList(r,(t=>{if(!Wr(t))throw new Kr(this.source,t.pos,t,"<identifier>");if(t.type!==Tr.IDENTIFIER)throw new Kr(this.source,t.pos,t,"<identifier>")}))}else{if(n.type!==Tr.IDENTIFIER)throw new Kr(this.source,n.pos,n,"<identifier>");s=new as.Identifier(this.toLocation(n),n.lexeme),o=!1}if(r.length<1)throw new Kr(this.source,t.location.start,t,"(define ... <body>+)");if(o){const e=r.map(this.parseExpression.bind(this));if(1===e.length)return new os.FunctionDefinition(t.location,s,e[0],a,i);const n=e.at(0).location.merge(e.at(-1).location),o=new as.Sequence(n,e);return new os.FunctionDefinition(t.location,s,o,a,i)}if(r.length>1)throw new Kr(this.source,t.location.start,t,"(define <identifier> <expr>)");const c=this.parseExpression(r[0]);return new as.Definition(t.location,s,c)}parseConditional(t){if(t.length()<3||t.length()>4)throw new Kr(this.source,t.location.start,t,"(if <pred> <cons> <alt>?)");const e=t.unwrap(),n=e[1],r=e[2],s=t.length()>3?e[3]:void 0,i=this.parseExpression(n),a=this.parseExpression(r),o=s?this.parseExpression(s):new as.Identifier(t.location,"undefined");return new as.Conditional(t.location,i,a,o)}parseApplication(t){if(t.length()<1)throw new Kr(this.source,t.location.start,t,"(<func> <args>*)");const e=t.unwrap(),n=e[0],r=e.splice(1),s=this.parseExpression(n),i=[];for(const t of r)i.push(this.parseExpression(t));return new as.Application(t.location,s,i)}parseLet(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach((t=>{this.parseExpression(t)})),new os.Let(t.location,[],[],new as.Identifier(t.location,"undefined"))}if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(let ((<identifier> <value>)*) <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);if(!Jr(n))throw new Kr(this.source,n.pos,n,"((<identifier> <value>)*)");const s=[],i=[],a=n.unwrap();for(const t of a){if(!Jr(t))throw new Kr(this.source,t.pos,t,"(<identifier> <value>)");if(2!==t.length())throw new Kr(this.source,t.location.start,t,"(<identifier> <value>)");const[e,n]=t.unwrap();if(!Wr(e))throw new Kr(this.source,e.location.start,e,"<identifier>");if(e.type!==Tr.IDENTIFIER)throw new Kr(this.source,e.pos,e,"<identifier>");s.push(new as.Identifier(this.toLocation(e),e.lexeme)),i.push(this.parseExpression(n))}const o=r.map(this.parseExpression.bind(this));if(o.length<1)throw new Kr(this.source,t.location.start,t,"(let ... <body>+)");if(1===o.length)return new os.Let(t.location,s,i,o[0]);const c=o.at(0).location.merge(o.at(-1).location),u=new as.Sequence(c,o);return new os.Let(t.location,s,i,u)}parseExtendedCond(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach((t=>{this.parseExpression(t)})),new os.Cond(t.location,[],[],new as.Identifier(t.location,"undefined"))}if(t.length()<2)throw new Kr(this.source,t.location.start,t,"(cond (<pred> <body>*)* (else <val>)?)");const e=t.unwrap().splice(1),n=e.pop(),r=[],s=[];for(const t of e){if(!Jr(t))throw new Kr(this.source,t.pos,t,"(<pred> <body>*)");if(t.length()<1)throw new Kr(this.source,t.firstToken().pos,t.firstToken(),"(<pred> <body>*)");const[e,...n]=t.unwrap();if(Wr(e)&&e.type===Tr.ELSE)throw new Kr(this.source,e.pos,e,"<predicate>");const i=this.parseExpression(e),a=n.map(this.parseExpression.bind(this)),o=n.length<1?i.location:a.at(0).location.merge(a.at(-1).location),c=n.length<1?i:n.length<2?a[0]:new as.Sequence(o,a);r.push(i),s.push(c)}if(!Jr(n))throw new Kr(this.source,n.pos,n,"(<pred> <body>+) | (else <val>)");if(n.length()<2)throw new Kr(this.source,n.firstToken().pos,n.firstToken(),"(<pred> <body>+) | (else <val>)");const[i,...a]=n.unwrap();let o=!1;if(Wr(i)&&i.type===Tr.ELSE&&(o=!0,1!==a.length))throw new Kr(this.source,n.location.start,n,"(else <val>)");if(a.length<1)throw new Kr(this.source,n.location.start,n,"(<pred> <body>+)");const c=a.map(this.parseExpression.bind(this)),u=c.at(0).location.merge(c.at(-1).location),h=1===a.length?c[0]:new as.Sequence(u,c);if(o)return new os.Cond(t.location,r,s,h);const l=this.parseExpression(i);return r.push(l),s.push(h),new os.Cond(t.location,r,s)}parseSet(t){if(3!==t.length())throw new Kr(this.source,t.location.start,t,"(set! <identifier> <expr>)");const e=t.unwrap(),n=e[1],r=e[2];if(Jr(n))throw new Kr(this.source,n.location.start,n,"<identifier>");if(n.type!==Tr.IDENTIFIER)throw new Kr(this.source,n.pos,n,"<identifier>");const s=new as.Identifier(this.toLocation(n),n.lexeme),i=this.parseExpression(r);return new as.Reassignment(t.location,s,i)}parseBegin(t){if(t.length()<2)throw new Kr(this.source,t.location.start,t,"(begin <body>+)");const e=t.unwrap().slice(1),n=[];for(const t of e)n.push(this.parseExpression(t));return new os.Begin(t.location,n)}parseDelay(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach((t=>{this.parseExpression(t)})),new os.Delay(t.location,new as.Identifier(t.location,"undefined"))}if(2!==t.length())throw new Kr(this.source,t.location.start,t,"(delay <expr>)");const e=t.unwrap()[1],n=this.parseExpression(e);return new os.Delay(t.location,n)}parseDefineSyntax(t){if(3!==t.length())throw new Kr(this.source,t.location.start,t,"(define-syntax <identifier> <transformer>)");const e=t.unwrap(),n=e[1],r=e[2];this.quoteMode=cs.QUOTE;const s=this.parseExpression(n);if(this.quoteMode=cs.NONE,!(s instanceof as.Symbol))throw new Kr(this.source,s.location.start,n,"<identifier>");if(!Jr(r))throw new Kr(this.source,r.pos,r,"<transformer>");if(r.length()<2)throw new Kr(this.source,r.firstToken().pos,r,"(syntax-rules ...)");const i=r.unwrap()[0];if(!Wr(r.unwrap()[0]))throw new Kr(this.source,r.firstToken().pos,i,"syntax-rules");if(i.type!==Tr.SYNTAX_RULES)throw new Kr(this.source,i.pos,i,"syntax-rules");const a=this.parseSyntaxRules(r);return new as.DefineSyntax(t.location,s,a)}isValidPattern(t){if(t instanceof os.List){if(void 0===t.terminator){if(t.elements.filter((t=>t instanceof as.Symbol&&"..."===t.value)).length>1)return!1;const e=t.elements.findIndex((t=>t instanceof as.Symbol&&"..."===t.value));if(-1!=e&&0===e)return!1;for(const e of t.elements)if(!this.isValidPattern(e))return!1;return!0}{if(t.elements.filter((t=>t instanceof as.Symbol&&"..."===t.value)).length>1)return!1;const e=t.elements.findIndex((t=>t instanceof as.Symbol&&"..."===t.value));if(-1!=e){if(0===e)return!1;if(e===t.elements.length-1)return!1}for(const e of t.elements)if(!this.isValidPattern(e))return!1;return this.isValidPattern(t.terminator)}}return t instanceof as.Symbol||t instanceof as.BooleanLiteral||t instanceof as.NumericLiteral||t instanceof as.StringLiteral||t instanceof as.Nil}isValidTemplate(t){if(t instanceof os.List){if(void 0===t.terminator){if(0===t.elements.length)return!1;if(2===t.elements.length&&t.elements[0]instanceof as.Symbol&&"..."===t.elements[0].value)return this.isValidTemplate(t.elements[1]);let e=!1;for(let n=0;n<t.elements.length;n++){const r=t.elements[n];if(r instanceof as.Symbol&&"..."===r.value){if(e){e=!1;continue}return!1}if(!this.isValidTemplate(r))return!1;e=!0}return!0}{if(0===t.elements.length)return!1;let e=!1;for(let n=0;n<t.elements.length;n++){const r=t.elements[n];if(r instanceof as.Symbol&&"..."===r.value){if(e){e=!1;continue}return!1}if(!this.isValidTemplate(r))return!1;e=!0}return this.isValidTemplate(t.terminator)}}return t instanceof as.Symbol||t instanceof as.BooleanLiteral||t instanceof as.NumericLiteral||t instanceof as.StringLiteral||t instanceof as.Nil}parseSyntaxRules(t){if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(syntax-rules (<literal>*) <syntax-rule>+)");const e=t.unwrap(),n=e[1],r=e.slice(2),s=[];if(!Jr(n))throw new Kr(this.source,n.pos,n,"(<literal>*)");this.quoteMode=cs.QUOTE;for(const t of n.unwrap()){if(!Wr(t))throw new Kr(this.source,t.location.start,t,"<literal>");const e=this.parseExpression(t);if(!(e instanceof as.Symbol))throw new Kr(this.source,t.pos,t,"<literal>");s.push(e)}const i=[];for(const t of r){if(!Jr(t))throw new Kr(this.source,t.pos,t,"(<pattern> <template>)");if(2!==t.length())throw new Kr(this.source,t.location.start,t,"(<pattern> <template>)");const[e,n]=t.unwrap(),r=this.parseExpression(e),s=this.parseExpression(n);if(!this.isValidPattern(r))throw new Kr(this.source,r.location.start,e,"<symbol> | <literal> | (<pattern>+) | (<pattern>+ ... <pattern>*) | (<pattern>+ ... <pattern>+ . <pattern>)");if(!this.isValidTemplate(s))throw new Kr(this.source,s.location.start,n,"<symbol> | <literal> | (<element>+) | (<element>+ . <template>) | (... <template>)");i.push([r,s])}return this.quoteMode=cs.NONE,new as.SyntaxRules(t.location,s,i)}parseImport(t){if(3!==t.length())throw new Kr(this.source,t.firstToken().pos,t.firstToken(),'(import "<source>" (<identifier>*))');const e=t.unwrap(),n=e[1],r=e[2];if(!Wr(n))throw new Kr(this.source,n.location.start,n,'"<source>"');if(n.type!==Tr.STRING)throw new Kr(this.source,n.pos,n,'"<source>"');if(!Jr(r))throw new Kr(this.source,r.pos,r,"(<identifier>*)");const s=r.unwrap(),i=[];for(const t of s){if(!Wr(t))throw new Kr(this.source,t.location.start,t,"<identifier>");if(t.type!==Tr.IDENTIFIER)throw new Kr(this.source,t.pos,t,"<identifier>");i.push(new as.Identifier(this.toLocation(t),t.lexeme))}const a=new as.StringLiteral(this.toLocation(n),n.literal);return new as.Import(t.location,a,i)}parseExport(t){if(2!==t.length())throw new Kr(this.source,t.firstToken().pos,t.firstToken(),"(export (<definition>))");const e=t.unwrap()[1];if(!Jr(e))throw new Kr(this.source,e.pos,e,"(<definition>)");const n=this.parseExpression(e);if(!(n instanceof as.Definition||n instanceof os.FunctionDefinition))throw new Kr(this.source,e.location.start,e,"(<definition>)");return new as.Export(t.location,n)}parseVector(t){const e=t.unwrap()[1].unwrap().map(this.parseExpression.bind(this));return new as.Vector(t.location,e)}parse(t=!1){t&&(this.quoteMode=cs.QUOTE,this.current=0);const e=[];for(;!this.isAtEnd()&&this.peek().type!==Tr.EOF;){const t=this.grouping();if(!t)continue;const n=this.parseExpression(t);e.push(n)}if(this.chapter>=5&&!t){return[...e.filter((t=>t instanceof as.Import)),...this.parse(!0).filter((t=>!(t instanceof os.List&&t.elements&&t.elements[0]instanceof as.Symbol&&"import"===t.elements[0].value)))]}return e}}function hs(t){return new Tn(t,!0)}function ls(t){return new N(hs(t),t.source)}function ps(t){if(t instanceof as.Symbol)return t.value;if(t instanceof as.NumericLiteral)return t.value;if(t instanceof os.List)return ps(t.elements[0]);throw new Error("Expected a Element, but got: "+t)}function fs(t,e){return new Pn(e.start,e.end,t)}function ws(t,e){return fs(ps(t),e)}function ys(t){const e=new is(t);return new us("",e.scanTokens()).parse()}class ds{static parsePie(t){return ds.parseElements(ys(t)[0])}static parseElements(t){const e=ps(t);if("U"===e)return n=fs("U",t.location),new kn(hs(n));if("the"===e){let e=t.elements;return function(t,e,n){return new _n(hs(t),e,n)}(fs("the",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("Nat"===e)return function(t){return new Sn(hs(t))}(fs("Nat",t.location));if("zero"===e)return function(t){return new $n(hs(t))}(fs("zero",t.location));if("add1"===e)return function(t,e){return new On(hs(t),e)}(fs("add1",t.location),this.parseElements(t.elements[1]));if("->"===e||"→"===e){let e=t.elements;return function(t,e){return new Cn(hs(t),e[0],e[1],e[2])}(fs("->",t.location),[this.parseElements(e[1]),this.parseElements(e[2]),e.slice(3).map((t=>this.parseElements(t)))])}if("lambda"===e||"λ"===e){let e=t.elements,n=t.location,r=e[1],s=e[2];return function(t,e,n){return new qn(hs(t),e,n)}(fs("λ",n),r.elements.map((e=>ls(ws(e,t.location)))),this.parseElements(s))}if("Pi"===e||"Π"===e){let e=t.elements,n=e[1],r=e[2],s=n.elements[0],i=s.elements[0],a=s.elements[1],o=n.elements.slice(1).map((t=>{let e=t.elements[0],n=t.elements[1];return new x(ls(ws(e,t.location)),this.parseElements(n))}));return function(t,e,n){return new Rn(hs(t),e,n)}(fs("Π",t.location),ms(new x(ls(ws(i,s.location)),this.parseElements(a)),o),this.parseElements(r))}if("Sigma"===e||"Σ"===e){let e=t.elements,n=e[1],r=e[2],s=n.elements[0],i=s.elements[0],a=s.elements[1],o=n.elements.slice(1).map((t=>{let e=t.elements[0],n=t.elements[1];return new x(ls(ws(e,t.location)),this.parseElements(n))}));return function(t,e,n){return new Mn(hs(t),e,n)}(fs("Π",t.location),ms(new x(ls(ws(i,s.location)),this.parseElements(a)),o),this.parseElements(r))}if("Pair"===e){let e=t.elements;return function(t,e,n){return new zn(hs(t),e,n)}(fs("Pair",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("cons"===e){let e=t.elements;return function(t,e,n){return new Qn(hs(t),e,n)}(fs("Cons",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("car"===e)return function(t,e){return new Fn(hs(t),e)}(fs("car",t.location),this.parseElements(t.elements[1]));if("cdr"===e)return function(t,e){return new Vn(hs(t),e)}(fs("cdr",t.location),this.parseElements(t.elements[1]));if("which-Nat"===e){let e=t.elements;return function(t,e,n,r){return new Ln(hs(t),e,n,r)}(fs("which-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("iter-Nat"===e){let e=t.elements;return function(t,e,n,r){return new An(hs(t),e,n,r)}(fs("iter-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("rec-Nat"===e){let e=t.elements;return function(t,e,n,r){return new In(hs(t),e,n,r)}(fs("rec-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("ind-Nat"===e){let e=t.elements;return function(t,e,n,r,s){return new Bn(hs(t),e,n,r,s)}(fs("ind-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("Atom"===e)return function(t){return new Hn(hs(t))}(fs("Atom",t.location));if("quote"===e)return function(t,e){return new Dn(hs(t),e)}(fs("Quote",t.location),ps(t.elements[1]));if("Trivial"===e)return function(t){return new Gn(hs(t))}(fs("Trivial",t.location));if("sole"===e)return function(t){return new Xn(hs(t))}(fs("sole",t.location));if("List"===e)return function(t,e){return new Zn(hs(t),e)}(fs("List",t.location),this.parseElements(t.elements[1]));if("nil"===e)return function(t){return new Kn(hs(t))}(fs("nil",t.location));if("::"===e){let e=t.elements;return function(t,e,n){return new jn(hs(t),e,n)}(fs("::",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("rec-List"===e){let e=t.elements;return function(t,e,n,r){return new Wn(hs(t),e,n,r)}(fs("rec-List",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("ind-List"===e){let e=t.elements;return function(t,e,n,r,s){return new Jn(hs(t),e,n,r,s)}(fs("ind-List",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("="===e){let e=t.elements;return function(t,e,n,r){return new nr(hs(t),e,n,r)}(fs("=",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("same"===e)return function(t,e){return new rr(hs(t),e)}(fs("same",t.location),this.parseElements(t.elements[1]));if("replace"===e){let e=t.elements;return function(t,e,n,r){return new sr(hs(t),e,n,r)}(fs("replace",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("trans"===e){let e=t.elements;return function(t,e,n){return new ir(hs(t),e,n)}(fs("trans",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("cong"===e){let e=t.elements;return function(t,e,n){return new ar(hs(t),e,n)}(fs("cong",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("ind-="===e){let e=t.elements;return function(t,e,n,r){return new cr(hs(t),e,n,r)}(fs("ind-=",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("symm"===e)return function(t,e){return new or(hs(t),e)}(fs("symm",t.location),this.parseElements(t.elements[1]));if("Vec"===e){let e=t.elements;return function(t,e,n){return new ur(hs(t),e,n)}(fs("Vec",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("vecnil"===e)return function(t){return new hr(hs(t))}(fs("vecnil",t.location));if("vec::"===e){let e=t.elements;return function(t,e,n){return new lr(hs(t),e,n)}(fs("vec::",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("head"===e)return function(t,e){return new pr(hs(t),e)}(fs("head",t.location),this.parseElements(t.elements[1]));if("tail"===e)return function(t,e){return new fr(hs(t),e)}(fs("tail",t.location),this.parseElements(t.elements[1]));if("ind-Vec"===e){let e=t.elements;return function(t,e,n,r,s,i){return new wr(hs(t),e,n,r,s,i)}(fs("ind-Vec",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]),this.parseElements(e[5]))}if("Either"===e){let e=t.elements;return function(t,e,n){return new yr(hs(t),e,n)}(fs("Either",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("left"===e)return function(t,e){return new dr(hs(t),e)}(fs("left",t.location),this.parseElements(t.elements[1]));if("right"===e)return function(t,e){return new mr(hs(t),e)}(fs("right",t.location),this.parseElements(t.elements[1]));if("ind-Either"===e){let e=t.elements;return function(t,e,n,r,s){return new gr(hs(t),e,n,r,s)}(fs("ind-Either",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("Absurd"===e)return function(t){return new tr(hs(t))}(fs("Absurd",t.location));if("ind-Absurd"===e){let e=t.elements;return function(t,e,n){return new er(hs(t),e,n)}(fs("ind-Absurd",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("TODO"===e)return function(t){return new vr(hs(t))}(fs("TODO",t.location));if(t instanceof os.List&&t.elements.length>1){let e=t.elements;return function(t,e,n,r){return new Er(hs(t),e,n,r)}(fs("App",t.location),this.parseElements(e[0]),this.parseElements(e[1]),e.slice(2).map((t=>this.parseElements(t))))}if(C(e))return function(t,e){return new Un(hs(t),e)}(fs(e,t.location),e);if(!isNaN(Number(e)))return function(t,e){return new Yn(hs(t),Number(e))}(fs(e,t.location),e);var n;throw new Error("Unexpected element: "+t)}}function ms(t,e){return[t,...e]}class gs{location;name;type;constructor(t,e,n){this.location=t,this.name=e,this.type=n}}class vs{location;name;expr;constructor(t,e,n){this.location=t,this.name=e,this.expr=n}}class Es{location;type;left;right;constructor(t,e,n,r){this.location=t,this.type=e,this.left=n,this.right=r}}class Ps{static parseDeclaration(t){const e=ps(t);if("claim"===e){let e=t.elements;return new gs(hs(ws(e[0],t.location)),ps(e[1]),ds.parseElements(e[2]))}if("define"===e){let e=t.elements;return new vs(hs(ws(e[0],t.location)),ps(e[1]),ds.parseElements(e[2]))}if("check-same"===e){let e=t.elements;return new Es(hs(ws(e[0],t.location)),ds.parseElements(e[1]),ds.parseElements(e[2]),ds.parseElements(e[3]))}return ds.parseElements(t)}}function Ts(t,e){const n=new O("outmeta");return L([[n,()=>e.synth(t,new Map)]],(()=>{const e=D(t,n.value.type),r=D(t,n.value.expr);return new S(new we(e.readBackType(t),lt(t,e,r)))}))}function bs(t,e,n,r,s){const i=new O("tOut"),a=new O("tv"),o=new O("aOut"),c=new O("bOut"),u=new O("av"),h=new O("bv");return L([[i,()=>n.isType(t,new Map)],[a,()=>D(t,i.value).readBackType(t)],[o,()=>r.check(t,new Map,a.value)],[c,()=>s.check(t,new Map,a.value)],[u,()=>D(t,o.value)],[h,()=>D(t,c.value)]],(()=>dn(t,e,a.value,u.value,h.value)))}function Ns(t){return t.prettyPrint()}!function(t,e=self){const n=new c(e,!1);n.registerPlugin(m,t)}(class extends n{executionCount;constructor(t){super(t),this.executionCount=0}async evaluateChunk(t){this.executionCount++;try{let e=function(t){const e=ys(t);let n=G,r="";for(const t of e){const e=Ps.parseDeclaration(t);if(e instanceof gs){const t=Q(n,e.name,e.location,e.type);if(t instanceof S)n=t.result;else if(t instanceof $)throw new Error(""+t.where+t.message)}else if(e instanceof vs){const t=F(n,e.name,e.location,e.expr);if(t instanceof S)n=t.result;else if(t instanceof $)throw new Error(""+t.where+t.message)}else if(e instanceof Es){const t=bs(n,e.location,e.type,e.left,e.right);if(t instanceof S)n=t.result;else if(t instanceof $)throw new Error(""+t.where+t.message)}else{const t=Ts(n,e);if(t instanceof S){const e=t.result;r+=`${Ns(e.expr)}: ${Ns(e.type)}\n`}else if(t instanceof $)throw new Error(`${t.message} at ${t.where}`)}}for(const[t,e]of n)e instanceof Y?(r+=`${t}: ${Ns(e.type.readBackType(n))}\n`,r+=`${t}= ${Ns(lt(n,e.type,e.value))}\n`):r+=`${t}: ${Ns(e.type.readBackType(n))} \n`;return r}(t);this.conductor.sendOutput(`Result of expression: execution ${e}`)}catch(t){t instanceof Error?this.conductor.sendOutput(`Error: ${t.message}`):this.conductor.sendOutput(`Error: ${String(t)}`)}}})}();
+//# sourceMappingURL=index.js.map
diff --git a/public/evaluators/py-slang/pyscript.js b/public/evaluators/py-slang/pyscript.js
new file mode 100644
index 0000000000..3b72e767d7
--- /dev/null
+++ b/public/evaluators/py-slang/pyscript.js
@@ -0,0 +1,722 @@
+(function () {
+    'use strict';
+
+    /**
+     * Generic Conductor Error.
+     */
+    class ConductorError extends Error {
+        constructor(message) {
+            super(message);
+            this.name = "ConductorError";
+            this.errorType = "__unknown" /* ErrorType.UNKNOWN */;
+        }
+    }
+
+    /**
+     * Conductor internal error, probably caused by developer oversight.
+     */
+    class ConductorInternalError extends ConductorError {
+        constructor(message) {
+            super(message);
+            this.name = "ConductorInternalError";
+            this.errorType = "__internal" /* ErrorType.INTERNAL */;
+        }
+    }
+
+    class BasicEvaluator {
+        async startEvaluator(entryPoint) {
+            const initialChunk = await this.conductor.requestFile(entryPoint);
+            if (!initialChunk)
+                throw new ConductorInternalError("Cannot load entrypoint file");
+            await this.evaluateFile(entryPoint, initialChunk);
+            while (true) {
+                const chunk = await this.conductor.requestChunk();
+                await this.evaluateChunk(chunk);
+            }
+        }
+        /**
+         * Evaluates a file.
+         * @param fileName The name of the file to be evaluated.
+         * @param fileContent The content of the file to be evaluated.
+         * @returns A promise that resolves when the evaluation is complete.
+         */
+        async evaluateFile(fileName, fileContent) {
+            return this.evaluateChunk(fileContent);
+        }
+        constructor(conductor) {
+            this.conductor = conductor;
+        }
+    }
+
+    /******************************************************************************
+    Copyright (c) Microsoft Corporation.
+
+    Permission to use, copy, modify, and/or distribute this software for any
+    purpose with or without fee is hereby granted.
+
+    THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
+    REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
+    AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
+    INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
+    LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
+    OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+    PERFORMANCE OF THIS SOFTWARE.
+    ***************************************************************************** */
+    /* global Reflect, Promise, SuppressedError, Symbol, Iterator */
+
+
+    function __esDecorate(ctor, descriptorIn, decorators, contextIn, initializers, extraInitializers) {
+        function accept(f) { if (f !== void 0 && typeof f !== "function") throw new TypeError("Function expected"); return f; }
+        var kind = contextIn.kind, key = kind === "getter" ? "get" : kind === "setter" ? "set" : "value";
+        var target = !descriptorIn && ctor ? contextIn["static"] ? ctor : ctor.prototype : null;
+        var descriptor = descriptorIn || (target ? Object.getOwnPropertyDescriptor(target, contextIn.name) : {});
+        var _, done = false;
+        for (var i = decorators.length - 1; i >= 0; i--) {
+            var context = {};
+            for (var p in contextIn) context[p] = p === "access" ? {} : contextIn[p];
+            for (var p in contextIn.access) context.access[p] = contextIn.access[p];
+            context.addInitializer = function (f) { if (done) throw new TypeError("Cannot add initializers after decoration has completed"); extraInitializers.push(accept(f || null)); };
+            var result = (0, decorators[i])(kind === "accessor" ? { get: descriptor.get, set: descriptor.set } : descriptor[key], context);
+            if (kind === "accessor") {
+                if (result === void 0) continue;
+                if (result === null || typeof result !== "object") throw new TypeError("Object expected");
+                if (_ = accept(result.get)) descriptor.get = _;
+                if (_ = accept(result.set)) descriptor.set = _;
+                if (_ = accept(result.init)) initializers.unshift(_);
+            }
+            else if (_ = accept(result)) {
+                if (kind === "field") initializers.unshift(_);
+                else descriptor[key] = _;
+            }
+        }
+        if (target) Object.defineProperty(target, contextIn.name, descriptor);
+        done = true;
+    }
+    function __runInitializers(thisArg, initializers, value) {
+        var useValue = arguments.length > 2;
+        for (var i = 0; i < initializers.length; i++) {
+            value = useValue ? initializers[i].call(thisArg, value) : initializers[i].call(thisArg);
+        }
+        return useValue ? value : void 0;
+    }
+    function __setFunctionName(f, name, prefix) {
+        if (typeof name === "symbol") name = name.description ? "[".concat(name.description, "]") : "";
+        return Object.defineProperty(f, "name", { configurable: true, value: prefix ? "".concat(prefix, " ", name) : name });
+    }
+    typeof SuppressedError === "function" ? SuppressedError : function (error, suppressed, message) {
+        var e = new Error(message);
+        return e.name = "SuppressedError", e.error = error, e.suppressed = suppressed, e;
+    };
+
+    /**
+     * Imports an external plugin from a given location.
+     * @param location Where to find the external plugin.
+     * @returns A promise resolving to the imported plugin.
+     */
+    async function importExternalPlugin(location) {
+        const plugin = (await import(/* webpackIgnore: true */ location)).plugin;
+        // TODO: verify it is actually a plugin
+        return plugin;
+    }
+
+    /**
+     * Imports an external module from a given location.
+     * @param location Where to find the external module.
+     * @returns A promise resolving to the imported module.
+     */
+    async function importExternalModule(location) {
+        const plugin = await importExternalPlugin(location);
+        // TODO: additional verification it is a module
+        return plugin;
+    }
+
+    class Channel {
+        send(message, transfer) {
+            this.__verifyAlive();
+            this.__port.postMessage(message, transfer ?? []);
+        }
+        subscribe(subscriber) {
+            this.__verifyAlive();
+            this.__subscribers.add(subscriber);
+            if (this.__waitingMessages) {
+                for (const data of this.__waitingMessages) {
+                    subscriber(data);
+                }
+                delete this.__waitingMessages;
+            }
+        }
+        unsubscribe(subscriber) {
+            this.__verifyAlive();
+            this.__subscribers.delete(subscriber);
+        }
+        close() {
+            this.__verifyAlive();
+            this.__isAlive = false;
+            this.__port?.close();
+        }
+        /**
+         * Check if this Channel is allowed to be used.
+         * @throws Throws an error if the Channel has been closed.
+         */
+        __verifyAlive() {
+            if (!this.__isAlive)
+                throw new ConductorInternalError(`Channel ${this.name} has been closed`);
+        }
+        /**
+         * Dispatch some data to subscribers.
+         * @param data The data to be dispatched to subscribers.
+         */
+        __dispatch(data) {
+            this.__verifyAlive();
+            if (this.__waitingMessages) {
+                // set a limit on how many setup messages to hold
+                // this prevents unlimited memory leak if the channel will never be listened to
+                if (this.__waitingMessages.length >= 10 /* Constant.SETUP_MESSAGES_BUFFER_SIZE */) {
+                    // not an error, since non-listening of channel is allowed by design
+                    return console.warn("Channel buffer full; message dropped (no subscribers on channel)", data);
+                }
+                this.__waitingMessages.push(data);
+            }
+            else {
+                for (const subscriber of this.__subscribers) {
+                    subscriber(data);
+                }
+            }
+        }
+        /**
+         * Listens to the port's message event, and starts the port.
+         * Messages will be buffered until the first subscriber listens to the Channel.
+         * @param port The MessagePort to listen to.
+         */
+        listenToPort(port) {
+            port.addEventListener("message", e => this.__dispatch(e.data));
+            port.start();
+        }
+        /**
+         * Replaces the underlying MessagePort of this Channel and closes it, and starts the new port.
+         * @param port The new port to use.
+         */
+        replacePort(port) {
+            this.__verifyAlive();
+            this.__port?.close();
+            this.__port = port;
+            this.listenToPort(port);
+        }
+        constructor(name, port) {
+            /** The callbacks subscribed to this Channel. */
+            this.__subscribers = new Set();
+            /** Is the Channel in a valid state? */
+            this.__isAlive = true;
+            /** Messages held temporarily while waiting for a listener. */
+            this.__waitingMessages = [];
+            this.name = name;
+            this.replacePort(port);
+        }
+    }
+
+    /**
+     * A stack-based queue implementation.
+     * `push` and `pop` run in amortized constant time.
+     */
+    class Queue {
+        constructor() {
+            /** The output stack. */
+            this.__s1 = [];
+            /** The input stack. */
+            this.__s2 = [];
+        }
+        /**
+         * Adds an item to the queue.
+         * @param item The item to be added to the queue.
+         */
+        push(item) {
+            this.__s2.push(item);
+        }
+        /**
+         * Removes an item from the queue.
+         * @returns The item removed from the queue.
+         * @throws If the queue is empty.
+         */
+        pop() {
+            if (this.__s1.length === 0) {
+                if (this.__s2.length === 0)
+                    throw new Error("queue is empty");
+                let temp = this.__s1;
+                this.__s1 = this.__s2.reverse();
+                this.__s2 = temp;
+            }
+            return this.__s1.pop(); // as the length is nonzero
+        }
+        /**
+         * The length of the queue.
+         */
+        get length() {
+            return this.__s1.length + this.__s2.length;
+        }
+        /**
+         * Makes a copy of the queue.
+         * @returns A copy of the queue.
+         */
+        clone() {
+            const newQueue = new Queue();
+            newQueue.__s1 = [...this.__s1];
+            newQueue.__s2 = [...this.__s2];
+            return newQueue;
+        }
+    }
+
+    class MessageQueue {
+        push(item) {
+            if (this.__promiseQueue.length !== 0)
+                this.__promiseQueue.pop()(item);
+            else
+                this.__inputQueue.push(item);
+        }
+        async pop() {
+            if (this.__inputQueue.length !== 0)
+                return this.__inputQueue.pop();
+            return new Promise((resolve, _reject) => {
+                this.__promiseQueue.push(resolve);
+            });
+        }
+        tryPop() {
+            if (this.__inputQueue.length !== 0)
+                return this.__inputQueue.pop();
+            return undefined;
+        }
+        constructor() {
+            this.__inputQueue = new Queue();
+            this.__promiseQueue = new Queue();
+            this.push = this.push.bind(this);
+        }
+    }
+
+    class ChannelQueue {
+        async receive() {
+            return this.__messageQueue.pop();
+        }
+        tryReceive() {
+            return this.__messageQueue.tryPop();
+        }
+        send(message, transfer) {
+            this.__channel.send(message, transfer);
+        }
+        close() {
+            this.__channel.unsubscribe(this.__messageQueue.push);
+        }
+        constructor(channel) {
+            this.__messageQueue = new MessageQueue();
+            this.name = channel.name;
+            this.__channel = channel;
+            this.__channel.subscribe(this.__messageQueue.push);
+        }
+    }
+
+    class Conduit {
+        __negotiateChannel(channelName) {
+            const { port1, port2 } = new MessageChannel();
+            const channel = new Channel(channelName, port1);
+            this.__link.postMessage([channelName, port2], [port2]); // TODO: update communication protocol?
+            this.__channels.set(channelName, channel);
+        }
+        __verifyAlive() {
+            if (!this.__alive)
+                throw new ConductorInternalError("Conduit already terminated");
+        }
+        registerPlugin(pluginClass, ...arg) {
+            this.__verifyAlive();
+            const attachedChannels = [];
+            for (const channelName of pluginClass.channelAttach) {
+                if (!this.__channels.has(channelName))
+                    this.__negotiateChannel(channelName);
+                attachedChannels.push(this.__channels.get(channelName)); // as the Channel has been negotiated
+            }
+            const plugin = new pluginClass(this, attachedChannels, ...arg);
+            if (plugin.name !== undefined) {
+                if (this.__pluginMap.has(plugin.name))
+                    throw new ConductorInternalError(`Plugin ${plugin.name} already registered`);
+                this.__pluginMap.set(plugin.name, plugin);
+            }
+            this.__plugins.push(plugin);
+            return plugin;
+        }
+        unregisterPlugin(plugin) {
+            this.__verifyAlive();
+            let p = 0;
+            for (let i = 0; i < this.__plugins.length; ++i) {
+                if (this.__plugins[p] === plugin)
+                    ++p;
+                this.__plugins[i] = this.__plugins[i + p];
+            }
+            for (let i = this.__plugins.length - 1, e = this.__plugins.length - p; i >= e; --i) {
+                delete this.__plugins[i];
+            }
+            if (plugin.name) {
+                this.__pluginMap.delete(plugin.name);
+            }
+            plugin.destroy?.();
+        }
+        lookupPlugin(pluginName) {
+            this.__verifyAlive();
+            if (!this.__pluginMap.has(pluginName))
+                throw new ConductorInternalError(`Plugin ${pluginName} not registered`);
+            return this.__pluginMap.get(pluginName); // as the map has been checked
+        }
+        terminate() {
+            this.__verifyAlive();
+            for (const plugin of this.__plugins) {
+                //this.unregisterPlugin(plugin);
+                plugin.destroy?.();
+            }
+            this.__link.terminate?.();
+            this.__alive = false;
+        }
+        __handlePort(data) {
+            const [channelName, port] = data;
+            if (this.__channels.has(channelName)) { // uh-oh, we already have a port for this channel
+                const channel = this.__channels.get(channelName); // as the map has been checked
+                if (this.__parent) { // extract the data and discard the messageport; child's Channel will close it
+                    channel.listenToPort(port);
+                }
+                else { // replace our messageport; Channel will close it
+                    channel.replacePort(port);
+                }
+            }
+            else { // register the new channel
+                const channel = new Channel(channelName, port);
+                this.__channels.set(channelName, channel);
+            }
+        }
+        constructor(link, parent = false) {
+            this.__alive = true;
+            this.__channels = new Map();
+            this.__pluginMap = new Map();
+            this.__plugins = [];
+            this.__link = link;
+            link.addEventListener("message", e => this.__handlePort(e.data));
+            this.__parent = parent;
+        }
+    }
+
+    class RpcCallMessage {
+        constructor(fn, args, invokeId) {
+            this.type = 0 /* RpcMessageType.CALL */;
+            this.data = { fn, args, invokeId };
+        }
+    }
+
+    class RpcErrorMessage {
+        constructor(invokeId, err) {
+            this.type = 2 /* RpcMessageType.RETURN_ERR */;
+            this.data = { invokeId, err };
+        }
+    }
+
+    class RpcReturnMessage {
+        constructor(invokeId, res) {
+            this.type = 1 /* RpcMessageType.RETURN */;
+            this.data = { invokeId, res };
+        }
+    }
+
+    function makeRpc(channel, self) {
+        const waiting = [];
+        let invocations = 0;
+        const otherCallbacks = {};
+        channel.subscribe(async (rpcMessage) => {
+            switch (rpcMessage.type) {
+                case 0 /* RpcMessageType.CALL */:
+                    {
+                        const { fn, args, invokeId } = rpcMessage.data;
+                        try {
+                            // @ts-expect-error
+                            const res = await self[fn](...args);
+                            if (invokeId > 0)
+                                channel.send(new RpcReturnMessage(invokeId, res));
+                        }
+                        catch (err) {
+                            if (invokeId > 0)
+                                channel.send(new RpcErrorMessage(invokeId, err));
+                        }
+                        break;
+                    }
+                case 1 /* RpcMessageType.RETURN */:
+                    {
+                        const { invokeId, res } = rpcMessage.data;
+                        waiting[invokeId]?.[0]?.(res);
+                        delete waiting[invokeId];
+                        break;
+                    }
+                case 2 /* RpcMessageType.RETURN_ERR */:
+                    {
+                        const { invokeId, err } = rpcMessage.data;
+                        waiting[invokeId]?.[1]?.(err);
+                        delete waiting[invokeId];
+                        break;
+                    }
+            }
+        });
+        return new Proxy(otherCallbacks, {
+            get(target, p, receiver) {
+                const cb = Reflect.get(target, p, receiver);
+                if (cb)
+                    return cb;
+                const newCallback = typeof p === "string" && p.charAt(0) === "$"
+                    ? (...args) => {
+                        channel.send(new RpcCallMessage(p, args, 0));
+                    }
+                    : (...args) => {
+                        const invokeId = ++invocations;
+                        channel.send(new RpcCallMessage(p, args, invokeId));
+                        return new Promise((resolve, reject) => {
+                            waiting[invokeId] = [resolve, reject];
+                        });
+                    };
+                Reflect.set(target, p, newCallback, receiver);
+                return newCallback;
+            },
+        });
+    }
+
+    /**
+     * Typechecking utility decorator.
+     * It is recommended that usage of this decorator is removed
+     * before or during the build process, as some tools
+     * (e.g. terser) do not have good support for class decorators.
+     * @param _pluginClass The Class to be typechecked.
+     */
+    function checkIsPluginClass(_pluginClass) {
+    }
+
+    var DataType;
+    (function (DataType) {
+        /** The return type of functions with no returned value. As a convention, the associated JS value is undefined. */
+        DataType[DataType["VOID"] = 0] = "VOID";
+        /** A Boolean value. */
+        DataType[DataType["BOOLEAN"] = 1] = "BOOLEAN";
+        /** A numerical value. */
+        DataType[DataType["NUMBER"] = 2] = "NUMBER";
+        /** An immutable string of characters. */
+        DataType[DataType["CONST_STRING"] = 3] = "CONST_STRING";
+        /** The empty list. As a convention, the associated JS value is null. */
+        DataType[DataType["EMPTY_LIST"] = 4] = "EMPTY_LIST";
+        /** A pair of values. Reference type. */
+        DataType[DataType["PAIR"] = 5] = "PAIR";
+        /** An array of values of a single type. Reference type. */
+        DataType[DataType["ARRAY"] = 6] = "ARRAY";
+        /** A value that can be called with fixed arity. Reference type. */
+        DataType[DataType["CLOSURE"] = 7] = "CLOSURE";
+        /** An opaque value that cannot be manipulated from user code. */
+        DataType[DataType["OPAQUE"] = 8] = "OPAQUE";
+        /** A list (either a pair or the empty list). */
+        DataType[DataType["LIST"] = 9] = "LIST";
+    })(DataType || (DataType = {}));
+
+    class AbortServiceMessage {
+        constructor(minVersion) {
+            this.type = 1 /* ServiceMessageType.ABORT */;
+            this.data = { minVersion: minVersion };
+        }
+    }
+
+    class HelloServiceMessage {
+        constructor() {
+            this.type = 0 /* ServiceMessageType.HELLO */;
+            this.data = { version: 0 /* Constant.PROTOCOL_VERSION */ };
+        }
+    }
+
+    class PluginServiceMessage {
+        constructor(pluginName) {
+            this.type = 3 /* ServiceMessageType.PLUGIN */;
+            this.data = pluginName;
+        }
+    }
+
+    let RunnerPlugin = (() => {
+        let _classDecorators = [checkIsPluginClass];
+        let _classDescriptor;
+        let _classExtraInitializers = [];
+        let _classThis;
+        _classThis = class {
+            requestFile(fileName) {
+                return this.__fileRpc.requestFile(fileName);
+            }
+            async requestChunk() {
+                return (await this.__chunkQueue.receive()).chunk;
+            }
+            async requestInput() {
+                const { message } = await this.__ioQueue.receive();
+                return message;
+            }
+            tryRequestInput() {
+                const out = this.__ioQueue.tryReceive();
+                return out?.message;
+            }
+            sendOutput(message) {
+                this.__ioQueue.send({ message });
+            }
+            sendError(error) {
+                this.__errorChannel.send({ error });
+            }
+            updateStatus(status, isActive) {
+                this.__statusChannel.send({ status, isActive });
+            }
+            hostLoadPlugin(pluginName) {
+                this.__serviceChannel.send(new PluginServiceMessage(pluginName));
+            }
+            registerPlugin(pluginClass, ...arg) {
+                return this.__conduit.registerPlugin(pluginClass, ...arg);
+            }
+            unregisterPlugin(plugin) {
+                this.__conduit.unregisterPlugin(plugin);
+            }
+            registerModule(moduleClass) {
+                if (!this.__isCompatibleWithModules)
+                    throw new ConductorInternalError("Evaluator has no data interface");
+                return this.registerPlugin(moduleClass, this.__evaluator);
+            }
+            unregisterModule(module) {
+                this.unregisterPlugin(module);
+            }
+            async importAndRegisterExternalPlugin(location, ...arg) {
+                const pluginClass = await importExternalPlugin(location);
+                return this.registerPlugin(pluginClass, ...arg);
+            }
+            async importAndRegisterExternalModule(location) {
+                const moduleClass = await importExternalModule(location);
+                return this.registerModule(moduleClass);
+            }
+            constructor(conduit, [fileChannel, chunkChannel, serviceChannel, ioChannel, errorChannel, statusChannel], evaluatorClass) {
+                this.name = "__runner_main" /* InternalPluginName.RUNNER_MAIN */;
+                // @ts-expect-error TODO: figure proper way to typecheck this
+                this.__serviceHandlers = new Map([
+                    [0 /* ServiceMessageType.HELLO */, function helloServiceHandler(message) {
+                            if (message.data.version < 0 /* Constant.PROTOCOL_MIN_VERSION */) {
+                                this.__serviceChannel.send(new AbortServiceMessage(0 /* Constant.PROTOCOL_MIN_VERSION */));
+                                console.error(`Host's protocol version (${message.data.version}) must be at least ${0 /* Constant.PROTOCOL_MIN_VERSION */}`);
+                            }
+                            else {
+                                console.log(`Host is using protocol version ${message.data.version}`);
+                            }
+                        }],
+                    [1 /* ServiceMessageType.ABORT */, function abortServiceHandler(message) {
+                            console.error(`Host expects at least protocol version ${message.data.minVersion}, but we are on version ${0 /* Constant.PROTOCOL_VERSION */}`);
+                            this.__conduit.terminate();
+                        }],
+                    [2 /* ServiceMessageType.ENTRY */, function entryServiceHandler(message) {
+                            this.__evaluator.startEvaluator(message.data);
+                        }]
+                ]);
+                this.__conduit = conduit;
+                this.__fileRpc = makeRpc(fileChannel, {});
+                this.__chunkQueue = new ChannelQueue(chunkChannel);
+                this.__serviceChannel = serviceChannel;
+                this.__ioQueue = new ChannelQueue(ioChannel);
+                this.__errorChannel = errorChannel;
+                this.__statusChannel = statusChannel;
+                this.__serviceChannel.send(new HelloServiceMessage());
+                this.__serviceChannel.subscribe(message => {
+                    this.__serviceHandlers.get(message.type)?.call(this, message);
+                });
+                this.__evaluator = new evaluatorClass(this);
+                this.__isCompatibleWithModules = this.__evaluator.hasDataInterface ?? false;
+            }
+        };
+        __setFunctionName(_classThis, "RunnerPlugin");
+        (() => {
+            const _metadata = typeof Symbol === "function" && Symbol.metadata ? Object.create(null) : void 0;
+            __esDecorate(null, _classDescriptor = { value: _classThis }, _classDecorators, { kind: "class", name: _classThis.name, metadata: _metadata }, null, _classExtraInitializers);
+            _classThis = _classDescriptor.value;
+            if (_metadata) Object.defineProperty(_classThis, Symbol.metadata, { enumerable: true, configurable: true, writable: true, value: _metadata });
+        })();
+        _classThis.channelAttach = ["__file_rpc" /* InternalChannelName.FILE */, "__chunk" /* InternalChannelName.CHUNK */, "__service" /* InternalChannelName.SERVICE */, "__stdio" /* InternalChannelName.STANDARD_IO */, "__error" /* InternalChannelName.ERROR */, "__status" /* InternalChannelName.STATUS */];
+        (() => {
+            __runInitializers(_classThis, _classExtraInitializers);
+        })();
+        return _classThis;
+    })();
+
+    /**
+     * Initialise this runner with the evaluator to be used.
+     * @param evaluatorClass The Evaluator to be used on this runner.
+     * @param link The underlying communication link.
+     * @returns The initialised `runnerPlugin` and `conduit`.
+     */
+    function initialise(evaluatorClass, link = self) {
+        const conduit = new Conduit(link, false);
+        const runnerPlugin = conduit.registerPlugin(RunnerPlugin, evaluatorClass);
+        return { runnerPlugin, conduit };
+    }
+
+    // Load Pyodide inside the worker and initialise once
+    let pyodideInstance;
+    let pyodideReady;
+    function ensurePyodideLoaded() {
+        if (!pyodideReady) {
+            console.log("[runner] ensurePyodideLoaded entered");
+            try {
+                // Load pyodide from CDN in the worker scope
+                importScripts("https://cdn.jsdelivr.net/pyodide/v0.26.2/full/pyodide.js");
+            }
+            catch (e) {
+                // If importScripts is unavailable for some reason, surface the error later
+                console.error("Failed to import pyodide.js", e);
+            }
+            pyodideReady = (async () => {
+                // @ts-ignore loadPyodide is provided by the imported script
+                pyodideInstance = await loadPyodide({ indexURL: "https://cdn.jsdelivr.net/pyodide/v0.26.2/full/" });
+                await pyodideInstance.loadPackage("pandas");
+            })();
+        }
+        return pyodideReady;
+    }
+    class PythonEvaluator extends BasicEvaluator {
+        constructor(conductor) {
+            super(conductor);
+        }
+        async evaluateChunk(chunk) {
+            console.log("[runner] evaluateChunk entered with chunk: ", chunk);
+            await ensurePyodideLoaded();
+            console.log("[runner] ensurePyodideLoaded exited");
+            const pyodide = pyodideInstance;
+            // Wire stdout/stderr to conductor output
+            pyodide.setStdout({
+                batched: (text) => {
+                    if (text)
+                        this.conductor.sendOutput(text);
+                }
+            });
+            // pyodide.setStderr({
+            // 	batched: (text: string) => {
+            // 		if (text) this.conductor.sendOutput(text);
+            // 	}
+            // });
+            // Provide a synchronous input() backed by tryRequestInput()
+            // If no input is available, return empty string to avoid blocking
+            const inputSync = (prompt) => {
+                if (typeof prompt === "string" && prompt.length > 0) {
+                    this.conductor.sendOutput(prompt);
+                }
+                const line = this.conductor.tryRequestInput();
+                return line ?? "";
+            };
+            // Expose the JS function to Python and override builtins.input
+            pyodide.globals.set("__sa_input_sync__", inputSync);
+            pyodide.runPython("import builtins\n" +
+                "builtins.input = __sa_input_sync__\n");
+            try {
+                await pyodide.runPythonAsync(chunk);
+            }
+            catch (err) {
+                const message = (err && err.message) ? err.message : String(err);
+                this.conductor.sendOutput(`[python error] ${message}`);
+            }
+        }
+    }
+    // Signal that the worker loaded
+    console.log("[py-pyscript] worker booted");
+    initialise(PythonEvaluator);
+
+})();
+//# sourceMappingURL=worker.js.map
diff --git a/public/evaluators/py-slang/standard.js b/public/evaluators/py-slang/standard.js
new file mode 100644
index 0000000000..3b72e767d7
--- /dev/null
+++ b/public/evaluators/py-slang/standard.js
@@ -0,0 +1,722 @@
+(function () {
+    'use strict';
+
+    /**
+     * Generic Conductor Error.
+     */
+    class ConductorError extends Error {
+        constructor(message) {
+            super(message);
+            this.name = "ConductorError";
+            this.errorType = "__unknown" /* ErrorType.UNKNOWN */;
+        }
+    }
+
+    /**
+     * Conductor internal error, probably caused by developer oversight.
+     */
+    class ConductorInternalError extends ConductorError {
+        constructor(message) {
+            super(message);
+            this.name = "ConductorInternalError";
+            this.errorType = "__internal" /* ErrorType.INTERNAL */;
+        }
+    }
+
+    class BasicEvaluator {
+        async startEvaluator(entryPoint) {
+            const initialChunk = await this.conductor.requestFile(entryPoint);
+            if (!initialChunk)
+                throw new ConductorInternalError("Cannot load entrypoint file");
+            await this.evaluateFile(entryPoint, initialChunk);
+            while (true) {
+                const chunk = await this.conductor.requestChunk();
+                await this.evaluateChunk(chunk);
+            }
+        }
+        /**
+         * Evaluates a file.
+         * @param fileName The name of the file to be evaluated.
+         * @param fileContent The content of the file to be evaluated.
+         * @returns A promise that resolves when the evaluation is complete.
+         */
+        async evaluateFile(fileName, fileContent) {
+            return this.evaluateChunk(fileContent);
+        }
+        constructor(conductor) {
+            this.conductor = conductor;
+        }
+    }
+
+    /******************************************************************************
+    Copyright (c) Microsoft Corporation.
+
+    Permission to use, copy, modify, and/or distribute this software for any
+    purpose with or without fee is hereby granted.
+
+    THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
+    REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
+    AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
+    INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
+    LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
+    OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+    PERFORMANCE OF THIS SOFTWARE.
+    ***************************************************************************** */
+    /* global Reflect, Promise, SuppressedError, Symbol, Iterator */
+
+
+    function __esDecorate(ctor, descriptorIn, decorators, contextIn, initializers, extraInitializers) {
+        function accept(f) { if (f !== void 0 && typeof f !== "function") throw new TypeError("Function expected"); return f; }
+        var kind = contextIn.kind, key = kind === "getter" ? "get" : kind === "setter" ? "set" : "value";
+        var target = !descriptorIn && ctor ? contextIn["static"] ? ctor : ctor.prototype : null;
+        var descriptor = descriptorIn || (target ? Object.getOwnPropertyDescriptor(target, contextIn.name) : {});
+        var _, done = false;
+        for (var i = decorators.length - 1; i >= 0; i--) {
+            var context = {};
+            for (var p in contextIn) context[p] = p === "access" ? {} : contextIn[p];
+            for (var p in contextIn.access) context.access[p] = contextIn.access[p];
+            context.addInitializer = function (f) { if (done) throw new TypeError("Cannot add initializers after decoration has completed"); extraInitializers.push(accept(f || null)); };
+            var result = (0, decorators[i])(kind === "accessor" ? { get: descriptor.get, set: descriptor.set } : descriptor[key], context);
+            if (kind === "accessor") {
+                if (result === void 0) continue;
+                if (result === null || typeof result !== "object") throw new TypeError("Object expected");
+                if (_ = accept(result.get)) descriptor.get = _;
+                if (_ = accept(result.set)) descriptor.set = _;
+                if (_ = accept(result.init)) initializers.unshift(_);
+            }
+            else if (_ = accept(result)) {
+                if (kind === "field") initializers.unshift(_);
+                else descriptor[key] = _;
+            }
+        }
+        if (target) Object.defineProperty(target, contextIn.name, descriptor);
+        done = true;
+    }
+    function __runInitializers(thisArg, initializers, value) {
+        var useValue = arguments.length > 2;
+        for (var i = 0; i < initializers.length; i++) {
+            value = useValue ? initializers[i].call(thisArg, value) : initializers[i].call(thisArg);
+        }
+        return useValue ? value : void 0;
+    }
+    function __setFunctionName(f, name, prefix) {
+        if (typeof name === "symbol") name = name.description ? "[".concat(name.description, "]") : "";
+        return Object.defineProperty(f, "name", { configurable: true, value: prefix ? "".concat(prefix, " ", name) : name });
+    }
+    typeof SuppressedError === "function" ? SuppressedError : function (error, suppressed, message) {
+        var e = new Error(message);
+        return e.name = "SuppressedError", e.error = error, e.suppressed = suppressed, e;
+    };
+
+    /**
+     * Imports an external plugin from a given location.
+     * @param location Where to find the external plugin.
+     * @returns A promise resolving to the imported plugin.
+     */
+    async function importExternalPlugin(location) {
+        const plugin = (await import(/* webpackIgnore: true */ location)).plugin;
+        // TODO: verify it is actually a plugin
+        return plugin;
+    }
+
+    /**
+     * Imports an external module from a given location.
+     * @param location Where to find the external module.
+     * @returns A promise resolving to the imported module.
+     */
+    async function importExternalModule(location) {
+        const plugin = await importExternalPlugin(location);
+        // TODO: additional verification it is a module
+        return plugin;
+    }
+
+    class Channel {
+        send(message, transfer) {
+            this.__verifyAlive();
+            this.__port.postMessage(message, transfer ?? []);
+        }
+        subscribe(subscriber) {
+            this.__verifyAlive();
+            this.__subscribers.add(subscriber);
+            if (this.__waitingMessages) {
+                for (const data of this.__waitingMessages) {
+                    subscriber(data);
+                }
+                delete this.__waitingMessages;
+            }
+        }
+        unsubscribe(subscriber) {
+            this.__verifyAlive();
+            this.__subscribers.delete(subscriber);
+        }
+        close() {
+            this.__verifyAlive();
+            this.__isAlive = false;
+            this.__port?.close();
+        }
+        /**
+         * Check if this Channel is allowed to be used.
+         * @throws Throws an error if the Channel has been closed.
+         */
+        __verifyAlive() {
+            if (!this.__isAlive)
+                throw new ConductorInternalError(`Channel ${this.name} has been closed`);
+        }
+        /**
+         * Dispatch some data to subscribers.
+         * @param data The data to be dispatched to subscribers.
+         */
+        __dispatch(data) {
+            this.__verifyAlive();
+            if (this.__waitingMessages) {
+                // set a limit on how many setup messages to hold
+                // this prevents unlimited memory leak if the channel will never be listened to
+                if (this.__waitingMessages.length >= 10 /* Constant.SETUP_MESSAGES_BUFFER_SIZE */) {
+                    // not an error, since non-listening of channel is allowed by design
+                    return console.warn("Channel buffer full; message dropped (no subscribers on channel)", data);
+                }
+                this.__waitingMessages.push(data);
+            }
+            else {
+                for (const subscriber of this.__subscribers) {
+                    subscriber(data);
+                }
+            }
+        }
+        /**
+         * Listens to the port's message event, and starts the port.
+         * Messages will be buffered until the first subscriber listens to the Channel.
+         * @param port The MessagePort to listen to.
+         */
+        listenToPort(port) {
+            port.addEventListener("message", e => this.__dispatch(e.data));
+            port.start();
+        }
+        /**
+         * Replaces the underlying MessagePort of this Channel and closes it, and starts the new port.
+         * @param port The new port to use.
+         */
+        replacePort(port) {
+            this.__verifyAlive();
+            this.__port?.close();
+            this.__port = port;
+            this.listenToPort(port);
+        }
+        constructor(name, port) {
+            /** The callbacks subscribed to this Channel. */
+            this.__subscribers = new Set();
+            /** Is the Channel in a valid state? */
+            this.__isAlive = true;
+            /** Messages held temporarily while waiting for a listener. */
+            this.__waitingMessages = [];
+            this.name = name;
+            this.replacePort(port);
+        }
+    }
+
+    /**
+     * A stack-based queue implementation.
+     * `push` and `pop` run in amortized constant time.
+     */
+    class Queue {
+        constructor() {
+            /** The output stack. */
+            this.__s1 = [];
+            /** The input stack. */
+            this.__s2 = [];
+        }
+        /**
+         * Adds an item to the queue.
+         * @param item The item to be added to the queue.
+         */
+        push(item) {
+            this.__s2.push(item);
+        }
+        /**
+         * Removes an item from the queue.
+         * @returns The item removed from the queue.
+         * @throws If the queue is empty.
+         */
+        pop() {
+            if (this.__s1.length === 0) {
+                if (this.__s2.length === 0)
+                    throw new Error("queue is empty");
+                let temp = this.__s1;
+                this.__s1 = this.__s2.reverse();
+                this.__s2 = temp;
+            }
+            return this.__s1.pop(); // as the length is nonzero
+        }
+        /**
+         * The length of the queue.
+         */
+        get length() {
+            return this.__s1.length + this.__s2.length;
+        }
+        /**
+         * Makes a copy of the queue.
+         * @returns A copy of the queue.
+         */
+        clone() {
+            const newQueue = new Queue();
+            newQueue.__s1 = [...this.__s1];
+            newQueue.__s2 = [...this.__s2];
+            return newQueue;
+        }
+    }
+
+    class MessageQueue {
+        push(item) {
+            if (this.__promiseQueue.length !== 0)
+                this.__promiseQueue.pop()(item);
+            else
+                this.__inputQueue.push(item);
+        }
+        async pop() {
+            if (this.__inputQueue.length !== 0)
+                return this.__inputQueue.pop();
+            return new Promise((resolve, _reject) => {
+                this.__promiseQueue.push(resolve);
+            });
+        }
+        tryPop() {
+            if (this.__inputQueue.length !== 0)
+                return this.__inputQueue.pop();
+            return undefined;
+        }
+        constructor() {
+            this.__inputQueue = new Queue();
+            this.__promiseQueue = new Queue();
+            this.push = this.push.bind(this);
+        }
+    }
+
+    class ChannelQueue {
+        async receive() {
+            return this.__messageQueue.pop();
+        }
+        tryReceive() {
+            return this.__messageQueue.tryPop();
+        }
+        send(message, transfer) {
+            this.__channel.send(message, transfer);
+        }
+        close() {
+            this.__channel.unsubscribe(this.__messageQueue.push);
+        }
+        constructor(channel) {
+            this.__messageQueue = new MessageQueue();
+            this.name = channel.name;
+            this.__channel = channel;
+            this.__channel.subscribe(this.__messageQueue.push);
+        }
+    }
+
+    class Conduit {
+        __negotiateChannel(channelName) {
+            const { port1, port2 } = new MessageChannel();
+            const channel = new Channel(channelName, port1);
+            this.__link.postMessage([channelName, port2], [port2]); // TODO: update communication protocol?
+            this.__channels.set(channelName, channel);
+        }
+        __verifyAlive() {
+            if (!this.__alive)
+                throw new ConductorInternalError("Conduit already terminated");
+        }
+        registerPlugin(pluginClass, ...arg) {
+            this.__verifyAlive();
+            const attachedChannels = [];
+            for (const channelName of pluginClass.channelAttach) {
+                if (!this.__channels.has(channelName))
+                    this.__negotiateChannel(channelName);
+                attachedChannels.push(this.__channels.get(channelName)); // as the Channel has been negotiated
+            }
+            const plugin = new pluginClass(this, attachedChannels, ...arg);
+            if (plugin.name !== undefined) {
+                if (this.__pluginMap.has(plugin.name))
+                    throw new ConductorInternalError(`Plugin ${plugin.name} already registered`);
+                this.__pluginMap.set(plugin.name, plugin);
+            }
+            this.__plugins.push(plugin);
+            return plugin;
+        }
+        unregisterPlugin(plugin) {
+            this.__verifyAlive();
+            let p = 0;
+            for (let i = 0; i < this.__plugins.length; ++i) {
+                if (this.__plugins[p] === plugin)
+                    ++p;
+                this.__plugins[i] = this.__plugins[i + p];
+            }
+            for (let i = this.__plugins.length - 1, e = this.__plugins.length - p; i >= e; --i) {
+                delete this.__plugins[i];
+            }
+            if (plugin.name) {
+                this.__pluginMap.delete(plugin.name);
+            }
+            plugin.destroy?.();
+        }
+        lookupPlugin(pluginName) {
+            this.__verifyAlive();
+            if (!this.__pluginMap.has(pluginName))
+                throw new ConductorInternalError(`Plugin ${pluginName} not registered`);
+            return this.__pluginMap.get(pluginName); // as the map has been checked
+        }
+        terminate() {
+            this.__verifyAlive();
+            for (const plugin of this.__plugins) {
+                //this.unregisterPlugin(plugin);
+                plugin.destroy?.();
+            }
+            this.__link.terminate?.();
+            this.__alive = false;
+        }
+        __handlePort(data) {
+            const [channelName, port] = data;
+            if (this.__channels.has(channelName)) { // uh-oh, we already have a port for this channel
+                const channel = this.__channels.get(channelName); // as the map has been checked
+                if (this.__parent) { // extract the data and discard the messageport; child's Channel will close it
+                    channel.listenToPort(port);
+                }
+                else { // replace our messageport; Channel will close it
+                    channel.replacePort(port);
+                }
+            }
+            else { // register the new channel
+                const channel = new Channel(channelName, port);
+                this.__channels.set(channelName, channel);
+            }
+        }
+        constructor(link, parent = false) {
+            this.__alive = true;
+            this.__channels = new Map();
+            this.__pluginMap = new Map();
+            this.__plugins = [];
+            this.__link = link;
+            link.addEventListener("message", e => this.__handlePort(e.data));
+            this.__parent = parent;
+        }
+    }
+
+    class RpcCallMessage {
+        constructor(fn, args, invokeId) {
+            this.type = 0 /* RpcMessageType.CALL */;
+            this.data = { fn, args, invokeId };
+        }
+    }
+
+    class RpcErrorMessage {
+        constructor(invokeId, err) {
+            this.type = 2 /* RpcMessageType.RETURN_ERR */;
+            this.data = { invokeId, err };
+        }
+    }
+
+    class RpcReturnMessage {
+        constructor(invokeId, res) {
+            this.type = 1 /* RpcMessageType.RETURN */;
+            this.data = { invokeId, res };
+        }
+    }
+
+    function makeRpc(channel, self) {
+        const waiting = [];
+        let invocations = 0;
+        const otherCallbacks = {};
+        channel.subscribe(async (rpcMessage) => {
+            switch (rpcMessage.type) {
+                case 0 /* RpcMessageType.CALL */:
+                    {
+                        const { fn, args, invokeId } = rpcMessage.data;
+                        try {
+                            // @ts-expect-error
+                            const res = await self[fn](...args);
+                            if (invokeId > 0)
+                                channel.send(new RpcReturnMessage(invokeId, res));
+                        }
+                        catch (err) {
+                            if (invokeId > 0)
+                                channel.send(new RpcErrorMessage(invokeId, err));
+                        }
+                        break;
+                    }
+                case 1 /* RpcMessageType.RETURN */:
+                    {
+                        const { invokeId, res } = rpcMessage.data;
+                        waiting[invokeId]?.[0]?.(res);
+                        delete waiting[invokeId];
+                        break;
+                    }
+                case 2 /* RpcMessageType.RETURN_ERR */:
+                    {
+                        const { invokeId, err } = rpcMessage.data;
+                        waiting[invokeId]?.[1]?.(err);
+                        delete waiting[invokeId];
+                        break;
+                    }
+            }
+        });
+        return new Proxy(otherCallbacks, {
+            get(target, p, receiver) {
+                const cb = Reflect.get(target, p, receiver);
+                if (cb)
+                    return cb;
+                const newCallback = typeof p === "string" && p.charAt(0) === "$"
+                    ? (...args) => {
+                        channel.send(new RpcCallMessage(p, args, 0));
+                    }
+                    : (...args) => {
+                        const invokeId = ++invocations;
+                        channel.send(new RpcCallMessage(p, args, invokeId));
+                        return new Promise((resolve, reject) => {
+                            waiting[invokeId] = [resolve, reject];
+                        });
+                    };
+                Reflect.set(target, p, newCallback, receiver);
+                return newCallback;
+            },
+        });
+    }
+
+    /**
+     * Typechecking utility decorator.
+     * It is recommended that usage of this decorator is removed
+     * before or during the build process, as some tools
+     * (e.g. terser) do not have good support for class decorators.
+     * @param _pluginClass The Class to be typechecked.
+     */
+    function checkIsPluginClass(_pluginClass) {
+    }
+
+    var DataType;
+    (function (DataType) {
+        /** The return type of functions with no returned value. As a convention, the associated JS value is undefined. */
+        DataType[DataType["VOID"] = 0] = "VOID";
+        /** A Boolean value. */
+        DataType[DataType["BOOLEAN"] = 1] = "BOOLEAN";
+        /** A numerical value. */
+        DataType[DataType["NUMBER"] = 2] = "NUMBER";
+        /** An immutable string of characters. */
+        DataType[DataType["CONST_STRING"] = 3] = "CONST_STRING";
+        /** The empty list. As a convention, the associated JS value is null. */
+        DataType[DataType["EMPTY_LIST"] = 4] = "EMPTY_LIST";
+        /** A pair of values. Reference type. */
+        DataType[DataType["PAIR"] = 5] = "PAIR";
+        /** An array of values of a single type. Reference type. */
+        DataType[DataType["ARRAY"] = 6] = "ARRAY";
+        /** A value that can be called with fixed arity. Reference type. */
+        DataType[DataType["CLOSURE"] = 7] = "CLOSURE";
+        /** An opaque value that cannot be manipulated from user code. */
+        DataType[DataType["OPAQUE"] = 8] = "OPAQUE";
+        /** A list (either a pair or the empty list). */
+        DataType[DataType["LIST"] = 9] = "LIST";
+    })(DataType || (DataType = {}));
+
+    class AbortServiceMessage {
+        constructor(minVersion) {
+            this.type = 1 /* ServiceMessageType.ABORT */;
+            this.data = { minVersion: minVersion };
+        }
+    }
+
+    class HelloServiceMessage {
+        constructor() {
+            this.type = 0 /* ServiceMessageType.HELLO */;
+            this.data = { version: 0 /* Constant.PROTOCOL_VERSION */ };
+        }
+    }
+
+    class PluginServiceMessage {
+        constructor(pluginName) {
+            this.type = 3 /* ServiceMessageType.PLUGIN */;
+            this.data = pluginName;
+        }
+    }
+
+    let RunnerPlugin = (() => {
+        let _classDecorators = [checkIsPluginClass];
+        let _classDescriptor;
+        let _classExtraInitializers = [];
+        let _classThis;
+        _classThis = class {
+            requestFile(fileName) {
+                return this.__fileRpc.requestFile(fileName);
+            }
+            async requestChunk() {
+                return (await this.__chunkQueue.receive()).chunk;
+            }
+            async requestInput() {
+                const { message } = await this.__ioQueue.receive();
+                return message;
+            }
+            tryRequestInput() {
+                const out = this.__ioQueue.tryReceive();
+                return out?.message;
+            }
+            sendOutput(message) {
+                this.__ioQueue.send({ message });
+            }
+            sendError(error) {
+                this.__errorChannel.send({ error });
+            }
+            updateStatus(status, isActive) {
+                this.__statusChannel.send({ status, isActive });
+            }
+            hostLoadPlugin(pluginName) {
+                this.__serviceChannel.send(new PluginServiceMessage(pluginName));
+            }
+            registerPlugin(pluginClass, ...arg) {
+                return this.__conduit.registerPlugin(pluginClass, ...arg);
+            }
+            unregisterPlugin(plugin) {
+                this.__conduit.unregisterPlugin(plugin);
+            }
+            registerModule(moduleClass) {
+                if (!this.__isCompatibleWithModules)
+                    throw new ConductorInternalError("Evaluator has no data interface");
+                return this.registerPlugin(moduleClass, this.__evaluator);
+            }
+            unregisterModule(module) {
+                this.unregisterPlugin(module);
+            }
+            async importAndRegisterExternalPlugin(location, ...arg) {
+                const pluginClass = await importExternalPlugin(location);
+                return this.registerPlugin(pluginClass, ...arg);
+            }
+            async importAndRegisterExternalModule(location) {
+                const moduleClass = await importExternalModule(location);
+                return this.registerModule(moduleClass);
+            }
+            constructor(conduit, [fileChannel, chunkChannel, serviceChannel, ioChannel, errorChannel, statusChannel], evaluatorClass) {
+                this.name = "__runner_main" /* InternalPluginName.RUNNER_MAIN */;
+                // @ts-expect-error TODO: figure proper way to typecheck this
+                this.__serviceHandlers = new Map([
+                    [0 /* ServiceMessageType.HELLO */, function helloServiceHandler(message) {
+                            if (message.data.version < 0 /* Constant.PROTOCOL_MIN_VERSION */) {
+                                this.__serviceChannel.send(new AbortServiceMessage(0 /* Constant.PROTOCOL_MIN_VERSION */));
+                                console.error(`Host's protocol version (${message.data.version}) must be at least ${0 /* Constant.PROTOCOL_MIN_VERSION */}`);
+                            }
+                            else {
+                                console.log(`Host is using protocol version ${message.data.version}`);
+                            }
+                        }],
+                    [1 /* ServiceMessageType.ABORT */, function abortServiceHandler(message) {
+                            console.error(`Host expects at least protocol version ${message.data.minVersion}, but we are on version ${0 /* Constant.PROTOCOL_VERSION */}`);
+                            this.__conduit.terminate();
+                        }],
+                    [2 /* ServiceMessageType.ENTRY */, function entryServiceHandler(message) {
+                            this.__evaluator.startEvaluator(message.data);
+                        }]
+                ]);
+                this.__conduit = conduit;
+                this.__fileRpc = makeRpc(fileChannel, {});
+                this.__chunkQueue = new ChannelQueue(chunkChannel);
+                this.__serviceChannel = serviceChannel;
+                this.__ioQueue = new ChannelQueue(ioChannel);
+                this.__errorChannel = errorChannel;
+                this.__statusChannel = statusChannel;
+                this.__serviceChannel.send(new HelloServiceMessage());
+                this.__serviceChannel.subscribe(message => {
+                    this.__serviceHandlers.get(message.type)?.call(this, message);
+                });
+                this.__evaluator = new evaluatorClass(this);
+                this.__isCompatibleWithModules = this.__evaluator.hasDataInterface ?? false;
+            }
+        };
+        __setFunctionName(_classThis, "RunnerPlugin");
+        (() => {
+            const _metadata = typeof Symbol === "function" && Symbol.metadata ? Object.create(null) : void 0;
+            __esDecorate(null, _classDescriptor = { value: _classThis }, _classDecorators, { kind: "class", name: _classThis.name, metadata: _metadata }, null, _classExtraInitializers);
+            _classThis = _classDescriptor.value;
+            if (_metadata) Object.defineProperty(_classThis, Symbol.metadata, { enumerable: true, configurable: true, writable: true, value: _metadata });
+        })();
+        _classThis.channelAttach = ["__file_rpc" /* InternalChannelName.FILE */, "__chunk" /* InternalChannelName.CHUNK */, "__service" /* InternalChannelName.SERVICE */, "__stdio" /* InternalChannelName.STANDARD_IO */, "__error" /* InternalChannelName.ERROR */, "__status" /* InternalChannelName.STATUS */];
+        (() => {
+            __runInitializers(_classThis, _classExtraInitializers);
+        })();
+        return _classThis;
+    })();
+
+    /**
+     * Initialise this runner with the evaluator to be used.
+     * @param evaluatorClass The Evaluator to be used on this runner.
+     * @param link The underlying communication link.
+     * @returns The initialised `runnerPlugin` and `conduit`.
+     */
+    function initialise(evaluatorClass, link = self) {
+        const conduit = new Conduit(link, false);
+        const runnerPlugin = conduit.registerPlugin(RunnerPlugin, evaluatorClass);
+        return { runnerPlugin, conduit };
+    }
+
+    // Load Pyodide inside the worker and initialise once
+    let pyodideInstance;
+    let pyodideReady;
+    function ensurePyodideLoaded() {
+        if (!pyodideReady) {
+            console.log("[runner] ensurePyodideLoaded entered");
+            try {
+                // Load pyodide from CDN in the worker scope
+                importScripts("https://cdn.jsdelivr.net/pyodide/v0.26.2/full/pyodide.js");
+            }
+            catch (e) {
+                // If importScripts is unavailable for some reason, surface the error later
+                console.error("Failed to import pyodide.js", e);
+            }
+            pyodideReady = (async () => {
+                // @ts-ignore loadPyodide is provided by the imported script
+                pyodideInstance = await loadPyodide({ indexURL: "https://cdn.jsdelivr.net/pyodide/v0.26.2/full/" });
+                await pyodideInstance.loadPackage("pandas");
+            })();
+        }
+        return pyodideReady;
+    }
+    class PythonEvaluator extends BasicEvaluator {
+        constructor(conductor) {
+            super(conductor);
+        }
+        async evaluateChunk(chunk) {
+            console.log("[runner] evaluateChunk entered with chunk: ", chunk);
+            await ensurePyodideLoaded();
+            console.log("[runner] ensurePyodideLoaded exited");
+            const pyodide = pyodideInstance;
+            // Wire stdout/stderr to conductor output
+            pyodide.setStdout({
+                batched: (text) => {
+                    if (text)
+                        this.conductor.sendOutput(text);
+                }
+            });
+            // pyodide.setStderr({
+            // 	batched: (text: string) => {
+            // 		if (text) this.conductor.sendOutput(text);
+            // 	}
+            // });
+            // Provide a synchronous input() backed by tryRequestInput()
+            // If no input is available, return empty string to avoid blocking
+            const inputSync = (prompt) => {
+                if (typeof prompt === "string" && prompt.length > 0) {
+                    this.conductor.sendOutput(prompt);
+                }
+                const line = this.conductor.tryRequestInput();
+                return line ?? "";
+            };
+            // Expose the JS function to Python and override builtins.input
+            pyodide.globals.set("__sa_input_sync__", inputSync);
+            pyodide.runPython("import builtins\n" +
+                "builtins.input = __sa_input_sync__\n");
+            try {
+                await pyodide.runPythonAsync(chunk);
+            }
+            catch (err) {
+                const message = (err && err.message) ? err.message : String(err);
+                this.conductor.sendOutput(`[python error] ${message}`);
+            }
+        }
+    }
+    // Signal that the worker loaded
+    console.log("[py-pyscript] worker booted");
+    initialise(PythonEvaluator);
+
+})();
+//# sourceMappingURL=worker.js.map

From 9fc15935fa57b27fadcf8cd6d43d81a030abd231 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Mon, 18 Aug 2025 09:29:52 +0000
Subject: [PATCH 12/16] Format via prettier

---
 .../application/reducers/RootReducer.ts       | 26 ++++++++---------
 .../controlBar/ControlBarChapterSelect.tsx    | 16 ++++++-----
 src/commons/featureFlags/publicFlags.ts       |  1 -
 .../LegacyNavigationBarLangSelectButton.tsx   |  5 ++--
 .../NavigationBarLangSelectButton.tsx         |  2 +-
 src/commons/sagas/LanguageDirectorySaga.ts    | 26 ++++++++---------
 src/commons/sagas/MainSaga.ts                 | 28 +++++++++----------
 .../LanguageDirectoryActions.ts               |  2 +-
 .../LanguageDirectoryReducer.ts               | 28 +++++++++----------
 .../LanguageDirectoryTypes.ts                 | 10 +++++--
 10 files changed, 75 insertions(+), 69 deletions(-)

diff --git a/src/commons/application/reducers/RootReducer.ts b/src/commons/application/reducers/RootReducer.ts
index 3d966b120e..7805880190 100644
--- a/src/commons/application/reducers/RootReducer.ts
+++ b/src/commons/application/reducers/RootReducer.ts
@@ -17,19 +17,19 @@ import { SessionsReducer as session } from './SessionsReducer';
 import { VscodeReducer as vscode } from './VscodeReducer';
 
 const rootReducer: Reducer<OverallState, SourceActionType> = combineReducers({
-	router,
-	achievement,
-	leaderboard,
-	dashboard,
-	playground,
-	session,
-	stories,
-	workspaces,
-	featureFlags,
-	fileSystem,
-	sideContent,
-	vscode,
-	languageDirectory
+  router,
+  achievement,
+  leaderboard,
+  dashboard,
+  playground,
+  session,
+  stories,
+  workspaces,
+  featureFlags,
+  fileSystem,
+  sideContent,
+  vscode,
+  languageDirectory
 });
 
 export default rootReducer;
diff --git a/src/commons/controlBar/ControlBarChapterSelect.tsx b/src/commons/controlBar/ControlBarChapterSelect.tsx
index c5dc71d985..c593f61989 100644
--- a/src/commons/controlBar/ControlBarChapterSelect.tsx
+++ b/src/commons/controlBar/ControlBarChapterSelect.tsx
@@ -46,13 +46,15 @@ export const ControlBarChapterSelect: React.FC<ControlBarChapterSelectProps> = (
   }, [directoryEnabled, dirLanguages.length, dispatch]);
 
   if (!directoryEnabled) {
-    return <LegacyControlBarChapterSelect
-      isFolderModeEnabled={isFolderModeEnabled}
-      sourceChapter={sourceChapter}
-      sourceVariant={sourceVariant}
-      handleChapterSelect={handleChapterSelect}
-      disabled={disabled}
-    />;
+    return (
+      <LegacyControlBarChapterSelect
+        isFolderModeEnabled={isFolderModeEnabled}
+        sourceChapter={sourceChapter}
+        sourceVariant={sourceVariant}
+        handleChapterSelect={handleChapterSelect}
+        disabled={disabled}
+      />
+    );
   }
 
   const EvaluatorSelectComponent = Select.ofType<IEvaluatorDefinition>();
diff --git a/src/commons/featureFlags/publicFlags.ts b/src/commons/featureFlags/publicFlags.ts
index d719986b64..4e72a3bf5f 100644
--- a/src/commons/featureFlags/publicFlags.ts
+++ b/src/commons/featureFlags/publicFlags.ts
@@ -3,7 +3,6 @@ import { flagConductorEvaluatorUrl } from '../../features/conductor/flagConducto
 import { flagLanguageDirectoryEnable } from '../../features/languageDirectory/flagLanguageDirectory';
 import { FeatureFlag } from './FeatureFlag';
 
-
 export const publicFlags: FeatureFlag<any>[] = [
   flagConductorEnable,
   flagConductorEvaluatorUrl,
diff --git a/src/commons/navigationBar/subcomponents/LegacyNavigationBarLangSelectButton.tsx b/src/commons/navigationBar/subcomponents/LegacyNavigationBarLangSelectButton.tsx
index 739e92fa64..61159e2b8f 100644
--- a/src/commons/navigationBar/subcomponents/LegacyNavigationBarLangSelectButton.tsx
+++ b/src/commons/navigationBar/subcomponents/LegacyNavigationBarLangSelectButton.tsx
@@ -10,7 +10,8 @@ import {
   schemeLanguages,
   sourceLanguages,
   SUPPORTED_LANGUAGES,
-  SupportedLanguage} from 'src/commons/application/ApplicationTypes';
+  SupportedLanguage
+} from 'src/commons/application/ApplicationTypes';
 import SimpleDropdown from 'src/commons/SimpleDropdown';
 import { useTypedSelector } from 'src/commons/utils/Hooks';
 import WorkspaceActions from 'src/commons/workspace/WorkspaceActions';
@@ -20,7 +21,7 @@ const LegacyNavigationBarLangSelectButton = () => {
   const [isOpen, setIsOpen] = useState(false);
   const lang = useTypedSelector(store => store.playground.languageConfig.mainLanguage);
   const dispatch = useDispatch();
-  
+
   // Legacy default sublanguage mapping
   const defaultSublanguages: { [lang in SupportedLanguage]: SALanguage } = {
     [SupportedLanguage.JAVASCRIPT]: sourceLanguages[0],
diff --git a/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx b/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
index b77d78665c..66e2d1ba49 100644
--- a/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
+++ b/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
@@ -28,7 +28,7 @@ const NavigationBarLangSelectButton = () => {
       dispatch(LanguageDirectoryActions.fetchLanguages());
     }
   }, [languagesLoaded, dispatch]);
-  
+
   const directoryEnabled = useFeature(flagLanguageDirectoryEnable);
   if (!directoryEnabled) {
     return <LegacyNavigationBarLangSelectButton />;
diff --git a/src/commons/sagas/LanguageDirectorySaga.ts b/src/commons/sagas/LanguageDirectorySaga.ts
index 16ed44c680..14a13c1a66 100644
--- a/src/commons/sagas/LanguageDirectorySaga.ts
+++ b/src/commons/sagas/LanguageDirectorySaga.ts
@@ -10,9 +10,7 @@ import { actions } from '../utils/ActionsHelper';
 
 const LanguageDirectorySaga = combineSagaHandlers({
   [LanguageDirectoryActions.setLanguages.type]: function* () {
-    const state = yield select(
-      (s: OverallState) => s.languageDirectory
-    );
+    const state = yield select((s: OverallState) => s.languageDirectory);
     if (state.selectedLanguageId === null && state.languages.length > 0) {
       yield put(actions.setSelectedLanguage(state.languages[0].id));
     }
@@ -21,7 +19,9 @@ const LanguageDirectorySaga = combineSagaHandlers({
     }
   },
   [LanguageDirectoryActions.fetchLanguages.type]: function* () {
-    const langs = yield call(staticLanguageDirectoryProvider.getLanguages.bind(staticLanguageDirectoryProvider));
+    const langs = yield call(
+      staticLanguageDirectoryProvider.getLanguages.bind(staticLanguageDirectoryProvider)
+    );
     yield put(actions.setLanguages(langs));
   },
   [LanguageDirectoryActions.setSelectedLanguage.type]: function* (action) {
@@ -29,9 +29,13 @@ const LanguageDirectorySaga = combineSagaHandlers({
       payload: { languageId, evaluatorId }
     } = action;
     if (evaluatorId) return; // already explicitly set
-    const language = yield call(staticLanguageDirectoryProvider.getLanguageById.bind(staticLanguageDirectoryProvider), languageId);
+    const language = yield call(
+      staticLanguageDirectoryProvider.getLanguageById.bind(staticLanguageDirectoryProvider),
+      languageId
+    );
     if (!language) return;
-    const defaultEvaluatorId: string | null = language.evaluators.length > 0 ? language.evaluators[0].id : null;
+    const defaultEvaluatorId: string | null =
+      language.evaluators.length > 0 ? language.evaluators[0].id : null;
     if (!defaultEvaluatorId) return;
     // If state still matches the same language, set evaluator
     const currentLanguageId: string | null = yield select(
@@ -49,20 +53,14 @@ const LanguageDirectorySaga = combineSagaHandlers({
     );
     if (!selectedLanguageId) return;
     const evaluator = yield call(
-      staticLanguageDirectoryProvider.getEvaluatorDefinition.bind(
-        staticLanguageDirectoryProvider
-      ),
+      staticLanguageDirectoryProvider.getEvaluatorDefinition.bind(staticLanguageDirectoryProvider),
       selectedLanguageId,
       evaluatorId
     );
     if (!evaluator) return;
     yield put(actions.setFlag({ featureFlag: flagConductorEnable, value: true }));
-    yield put(
-      actions.setFlag({ featureFlag: flagConductorEvaluatorUrl, value: evaluator.path })
-    );
+    yield put(actions.setFlag({ featureFlag: flagConductorEvaluatorUrl, value: evaluator.path }));
   }
 });
 
 export default LanguageDirectorySaga;
-
-
diff --git a/src/commons/sagas/MainSaga.ts b/src/commons/sagas/MainSaga.ts
index c6f5e28b6c..15fb686c7b 100644
--- a/src/commons/sagas/MainSaga.ts
+++ b/src/commons/sagas/MainSaga.ts
@@ -17,18 +17,18 @@ import StoriesSaga from './StoriesSaga';
 import WorkspaceSaga from './WorkspaceSaga';
 
 export default function* MainSaga(): SagaIterator {
-	yield all([
-		fork(Constants.useBackend ? BackendSaga : mockBackendSaga),
-		fork(WorkspaceSaga),
-		fork(LoginSaga),
-		fork(PlaygroundSaga),
-		fork(AchievementSaga),
-		fork(LeaderboardSaga),
-		fork(PersistenceSaga),
-		fork(GitHubPersistenceSaga),
-		fork(RemoteExecutionSaga),
-		fork(StoriesSaga),
-		fork(SideContentSaga),
-		fork(LanguageDirectorySaga)
-	]);
+  yield all([
+    fork(Constants.useBackend ? BackendSaga : mockBackendSaga),
+    fork(WorkspaceSaga),
+    fork(LoginSaga),
+    fork(PlaygroundSaga),
+    fork(AchievementSaga),
+    fork(LeaderboardSaga),
+    fork(PersistenceSaga),
+    fork(GitHubPersistenceSaga),
+    fork(RemoteExecutionSaga),
+    fork(StoriesSaga),
+    fork(SideContentSaga),
+    fork(LanguageDirectorySaga)
+  ]);
 }
diff --git a/src/features/languageDirectory/LanguageDirectoryActions.ts b/src/features/languageDirectory/LanguageDirectoryActions.ts
index ed17ef24d5..8c9a250572 100644
--- a/src/features/languageDirectory/LanguageDirectoryActions.ts
+++ b/src/features/languageDirectory/LanguageDirectoryActions.ts
@@ -11,4 +11,4 @@ const LanguageDirectoryActions = createActions('conductor/languageDirectory', {
   setSelectedEvaluator: (evaluatorId: string) => ({ evaluatorId })
 });
 
-export default LanguageDirectoryActions;
\ No newline at end of file
+export default LanguageDirectoryActions;
diff --git a/src/features/languageDirectory/LanguageDirectoryReducer.ts b/src/features/languageDirectory/LanguageDirectoryReducer.ts
index 12b403da6d..e9cef78162 100644
--- a/src/features/languageDirectory/LanguageDirectoryReducer.ts
+++ b/src/features/languageDirectory/LanguageDirectoryReducer.ts
@@ -6,17 +6,17 @@ import Actions from './LanguageDirectoryActions';
 import type { LanguageDirectoryState } from './LanguageDirectoryTypes';
 
 export const LanguageDirectoryReducer: Reducer<LanguageDirectoryState, SourceActionType> =
-	createReducer(defaultLanguageDirectory, builder => {
-		builder
-			.addCase(Actions.setLanguages, (state, action) => {
-				state.languages = action.payload.languages as any;
-			})
-			.addCase(Actions.setSelectedLanguage, (state, action) => {
-				const { languageId, evaluatorId } = action.payload;
-				state.selectedLanguageId = languageId;
-				state.selectedEvaluatorId = evaluatorId ?? null;
-			})
-			.addCase(Actions.setSelectedEvaluator, (state, action) => {
-				state.selectedEvaluatorId = action.payload.evaluatorId;
-			});
-	});
+  createReducer(defaultLanguageDirectory, builder => {
+    builder
+      .addCase(Actions.setLanguages, (state, action) => {
+        state.languages = action.payload.languages as any;
+      })
+      .addCase(Actions.setSelectedLanguage, (state, action) => {
+        const { languageId, evaluatorId } = action.payload;
+        state.selectedLanguageId = languageId;
+        state.selectedEvaluatorId = evaluatorId ?? null;
+      })
+      .addCase(Actions.setSelectedEvaluator, (state, action) => {
+        state.selectedEvaluatorId = action.payload.evaluatorId;
+      });
+  });
diff --git a/src/features/languageDirectory/LanguageDirectoryTypes.ts b/src/features/languageDirectory/LanguageDirectoryTypes.ts
index 425b4899a9..d19bf23d9b 100644
--- a/src/features/languageDirectory/LanguageDirectoryTypes.ts
+++ b/src/features/languageDirectory/LanguageDirectoryTypes.ts
@@ -1,4 +1,10 @@
-import { getEvaluatorDefinition, IEvaluatorDefinition, ILanguageDefinition, languageMap, languages } from '@sourceacademy/language-directory';
+import {
+  getEvaluatorDefinition,
+  IEvaluatorDefinition,
+  ILanguageDefinition,
+  languageMap,
+  languages
+} from '@sourceacademy/language-directory';
 
 export type LanguageDirectoryState = {
   readonly selectedLanguageId: string | null;
@@ -26,7 +32,7 @@ export class StaticLanguageDirectoryProvider implements LanguageDirectoryProvide
 
   async getEvaluatorDefinition(
     languageId: string,
-    evaluatorId: string 
+    evaluatorId: string
   ): Promise<IEvaluatorDefinition | undefined> {
     const language = languageMap.get(languageId);
     if (!language) return undefined;

From 86f912b97e1fd8ea8819f9dfc7cc0fdf3351a474 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Wed, 20 Aug 2025 08:39:34 +0000
Subject: [PATCH 13/16] Fix tsc error

---
 src/commons/mocks/StoreMocks.ts | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/commons/mocks/StoreMocks.ts b/src/commons/mocks/StoreMocks.ts
index 5bef6dde54..22d8f6c093 100644
--- a/src/commons/mocks/StoreMocks.ts
+++ b/src/commons/mocks/StoreMocks.ts
@@ -6,6 +6,7 @@ import {
   defaultAchievement,
   defaultDashboard,
   defaultFileSystem,
+  defaultLanguageDirectory,
   defaultLeaderboard,
   defaultPlayground,
   defaultRouter,
@@ -36,7 +37,8 @@ export function mockInitialStore(
     featureFlags: defaultFeatureFlags,
     fileSystem: defaultFileSystem,
     sideContent: defaultSideContentManager,
-    vscode: defaultVscode
+    vscode: defaultVscode,
+    languageDirectory: defaultLanguageDirectory
   };
 
   const lodashMergeCustomizer = (objValue: any, srcValue: any) => {

From 47cbaf5e7fffc0dc871fcda4a65b77dbd07a8f87 Mon Sep 17 00:00:00 2001
From: loyaltypollution <65063925+loyaltypollution@users.noreply.github.com>
Date: Wed, 20 Aug 2025 11:02:44 +0000
Subject: [PATCH 14/16] Remove js map

---
 public/evaluators/pie-slang/pie.js     |   1 -
 public/evaluators/py-slang/pyscript.js | 702 ++++++++++++++++++++++++-
 2 files changed, 677 insertions(+), 26 deletions(-)

diff --git a/public/evaluators/pie-slang/pie.js b/public/evaluators/pie-slang/pie.js
index 1fcb0e47a6..aa2ac5aa22 100644
--- a/public/evaluators/pie-slang/pie.js
+++ b/public/evaluators/pie-slang/pie.js
@@ -1,2 +1 @@
 !function(){"use strict";class t extends Error{name="ConductorError";errorType="__unknown";constructor(t){super(t)}}class e extends t{name="ConductorInternalError";errorType="__internal";constructor(t){super(t)}}class n{conductor;async startEvaluator(t){const n=await this.conductor.requestFile(t);if(!n)throw new e("Cannot load entrypoint file");for(await this.evaluateFile(t,n);;){const t=await this.conductor.requestChunk();await this.evaluateChunk(t)}}async evaluateFile(t,e){return this.evaluateChunk(e)}constructor(t){this.conductor=t}}async function r(t){return(await import(t)).plugin}"function"==typeof SuppressedError&&SuppressedError;class s{name;__port;__subscribers=new Set;__isAlive=!0;__waitingMessages=[];send(t,e){this.__verifyAlive(),this.__port.postMessage(t,e??[])}subscribe(t){if(this.__verifyAlive(),this.__subscribers.add(t),this.__waitingMessages){for(const e of this.__waitingMessages)t(e);delete this.__waitingMessages}}unsubscribe(t){this.__verifyAlive(),this.__subscribers.delete(t)}close(){this.__verifyAlive(),this.__isAlive=!1,this.__port?.close()}__verifyAlive(){if(!this.__isAlive)throw new e(`Channel ${this.name} has been closed`)}__dispatch(t){if(this.__verifyAlive(),this.__waitingMessages)this.__waitingMessages.push(t);else for(const e of this.__subscribers)e(t)}listenToPort(t){t.addEventListener("message",(t=>this.__dispatch(t.data))),t.start()}replacePort(t){this.__verifyAlive(),this.__port?.close(),this.__port=t,this.listenToPort(t)}constructor(t,e){this.name=t,this.replacePort(e)}}class i{__s1=[];__s2=[];push(t){this.__s2.push(t)}pop(){if(0===this.__s1.length){if(0===this.__s2.length)throw new Error("queue is empty");let t=this.__s1;this.__s1=this.__s2.reverse(),this.__s2=t}return this.__s1.pop()}get length(){return this.__s1.length+this.__s2.length}clone(){const t=new i;return t.__s1=[...this.__s1],t.__s2=[...this.__s2],t}}class a{__inputQueue=new i;__promiseQueue=new i;push(t){0!==this.__promiseQueue.length?this.__promiseQueue.pop()(t):this.__inputQueue.push(t)}async pop(){return 0!==this.__inputQueue.length?this.__inputQueue.pop():new Promise(((t,e)=>{this.__promiseQueue.push(t)}))}tryPop(){if(0!==this.__inputQueue.length)return this.__inputQueue.pop()}constructor(){this.push=this.push.bind(this)}}class o{name;__channel;__messageQueue=new a;async receive(){return this.__messageQueue.pop()}tryReceive(){return this.__messageQueue.tryPop()}send(t,e){this.__channel.send(t,e)}close(){this.__channel.unsubscribe(this.__messageQueue.push)}constructor(t){this.name=t.name,this.__channel=t,this.__channel.subscribe(this.__messageQueue.push)}}class c{__alive=!0;__link;__parent;__channels=new Map;__pluginMap=new Map;__plugins=[];__negotiateChannel(t){const{port1:e,port2:n}=new MessageChannel,r=new s(t,e);this.__link.postMessage([t,n],[n]),this.__channels.set(t,r)}__verifyAlive(){if(!this.__alive)throw new e("Conduit already terminated")}registerPlugin(t,...n){this.__verifyAlive();const r=[];for(const e of t.channelAttach)this.__channels.has(e)||this.__negotiateChannel(e),r.push(this.__channels.get(e));const s=new t(this,r,...n);if(void 0!==s.name){if(this.__pluginMap.has(s.name))throw new e(`Plugin ${s.name} already registered`);this.__pluginMap.set(s.name,s)}return this.__plugins.push(s),s}unregisterPlugin(t){this.__verifyAlive();let e=0;for(let n=0;n<this.__plugins.length;++n)this.__plugins[e]===t&&++e,this.__plugins[n]=this.__plugins[n+e];for(let t=this.__plugins.length-1,n=this.__plugins.length-e;t>=n;--t)delete this.__plugins[t];t.name&&this.__pluginMap.delete(t.name),t.destroy?.()}lookupPlugin(t){if(this.__verifyAlive(),!this.__pluginMap.has(t))throw new e(`Plugin ${t} not registered`);return this.__pluginMap.get(t)}terminate(){this.__verifyAlive();for(const t of this.__plugins)t.destroy?.();this.__link.terminate?.(),this.__alive=!1}__handlePort(t){const[e,n]=t;if(this.__channels.has(e)){const t=this.__channels.get(e);this.__parent?t.listenToPort(n):t.replacePort(n)}else{const t=new s(e,n);this.__channels.set(e,t)}}constructor(t,e=!1){this.__link=t,t.addEventListener("message",(t=>this.__handlePort(t.data))),this.__parent=e}}class u{type=0;data;constructor(t,e,n){this.data={fn:t,args:e,invokeId:n}}}class h{type=2;data;constructor(t,e){this.data={invokeId:t,err:e}}}class l{type=1;data;constructor(t,e){this.data={invokeId:t,res:e}}}function p(t){}var f;!function(t){t[t.VOID=0]="VOID",t[t.BOOLEAN=1]="BOOLEAN",t[t.NUMBER=2]="NUMBER",t[t.CONST_STRING=3]="CONST_STRING",t[t.EMPTY_LIST=4]="EMPTY_LIST",t[t.PAIR=5]="PAIR",t[t.ARRAY=6]="ARRAY",t[t.CLOSURE=7]="CLOSURE",t[t.OPAQUE=8]="OPAQUE",t[t.LIST=9]="LIST"}(f||(f={}));class w{type=1;data;constructor(t){this.data={minVersion:t}}}class y{type=0;data={version:0}}class d{type=3;data;constructor(t){this.data=t}}let m=(()=>{let t,n,s=[p],i=[];return class{static{n=this}static{const e="function"==typeof Symbol&&Symbol.metadata?Object.create(null):void 0;!function(t,e,n,r,s,i){function a(t){if(void 0!==t&&"function"!=typeof t)throw new TypeError("Function expected");return t}for(var o,c=r.kind,u="getter"===c?"get":"setter"===c?"set":"value",h=!e&&t?r.static?t:t.prototype:null,l=e||(h?Object.getOwnPropertyDescriptor(h,r.name):{}),p=!1,f=n.length-1;f>=0;f--){var w={};for(var y in r)w[y]="access"===y?{}:r[y];for(var y in r.access)w.access[y]=r.access[y];w.addInitializer=function(t){if(p)throw new TypeError("Cannot add initializers after decoration has completed");i.push(a(t||null))};var d=(0,n[f])("accessor"===c?{get:l.get,set:l.set}:l[u],w);if("accessor"===c){if(void 0===d)continue;if(null===d||"object"!=typeof d)throw new TypeError("Object expected");(o=a(d.get))&&(l.get=o),(o=a(d.set))&&(l.set=o),(o=a(d.init))&&s.unshift(o)}else(o=a(d))&&("field"===c?s.unshift(o):l[u]=o)}h&&Object.defineProperty(h,r.name,l),p=!0}(null,t={value:n},s,{kind:"class",name:n.name,metadata:e},null,i),n=t.value,e&&Object.defineProperty(n,Symbol.metadata,{enumerable:!0,configurable:!0,writable:!0,value:e})}name="__runner_main";__evaluator;__isCompatibleWithModules;__conduit;__fileRpc;__chunkQueue;__serviceChannel;__ioQueue;__errorChannel;__statusChannel;__serviceHandlers=new Map([[0,function(t){t.data.version<0?(this.__serviceChannel.send(new w(0)),console.error(`Host's protocol version (${t.data.version}) must be at least 0`)):console.log(`Host is using protocol version ${t.data.version}`)}],[1,function(t){console.error(`Host expects at least protocol version ${t.data.minVersion}, but we are on version 0`),this.__conduit.terminate()}],[2,function(t){this.__evaluator.startEvaluator(t.data)}]]);requestFile(t){return this.__fileRpc.requestFile(t)}async requestChunk(){return(await this.__chunkQueue.receive()).chunk}async requestInput(){const{message:t}=await this.__ioQueue.receive();return t}tryRequestInput(){const t=this.__ioQueue.tryReceive();return t?.message}sendOutput(t){this.__ioQueue.send({message:t})}sendError(t){this.__errorChannel.send({error:t})}updateStatus(t,e){this.__statusChannel.send({status:t,isActive:e})}hostLoadPlugin(t){this.__serviceChannel.send(new d(t))}registerPlugin(t,...e){return this.__conduit.registerPlugin(t,...e)}unregisterPlugin(t){this.__conduit.unregisterPlugin(t)}registerModule(t){if(!this.__isCompatibleWithModules)throw new e("Evaluator has no data interface");return this.registerPlugin(t,this.__evaluator)}unregisterModule(t){this.unregisterPlugin(t)}async importAndRegisterExternalPlugin(t){const e=await r(t);return this.registerPlugin(e)}async importAndRegisterExternalModule(t){const e=await async function(t){return await r(t)}(t);return this.registerModule(e)}static channelAttach=["__file_rpc","__chunk","__service","__stdio","__error","__status"];constructor(t,[e,n,r,s,i,a],c){this.__conduit=t,this.__fileRpc=function(t,e){const n=[];let r=0;return t.subscribe((async r=>{switch(r.type){case 0:{const{fn:n,args:s,invokeId:i}=r.data;try{const r=await e[n](...s);i>0&&t.send(new l(i,r))}catch(e){i>0&&t.send(new h(i,e))}break}case 1:{const{invokeId:t,res:e}=r.data;n[t]?.[0]?.(e),delete n[t];break}case 2:{const{invokeId:t,err:e}=r.data;n[t]?.[1]?.(e),delete n[t];break}}})),new Proxy({},{get(e,s,i){const a=Reflect.get(e,s,i);if(a)return a;const o="string"==typeof s&&"$"===s.charAt(0)?(...e)=>{t.send(new u(s,e,0))}:(...e)=>{const i=++r;return t.send(new u(s,e,i)),new Promise(((t,e)=>{n[i]=[t,e]}))};return Reflect.set(e,s,o,i),o}})}(e,{}),this.__chunkQueue=new o(n),this.__serviceChannel=r,this.__ioQueue=new o(s),this.__errorChannel=i,this.__statusChannel=a,this.__serviceChannel.send(new y),this.__serviceChannel.subscribe((t=>{this.__serviceHandlers.get(t.type)?.call(this,t)})),this.__evaluator=new c(this),this.__isCompatibleWithModules=this.__evaluator.hasDataInterface??!1}static{!function(t,e,n){for(var r=arguments.length>2,s=0;s<e.length;s++)n=r?e[s].call(t,n):e[s].call(t)}(n,i)}},n})();const g={0:"₀",1:"₁",2:"₂",3:"₃",4:"₄",5:"₅",6:"₆",7:"₇",8:"₈",9:"₉"},v={"₀":"0","₁":"1","₂":"2","₃":"3","₄":"4","₅":"5","₆":"6","₇":"7","₈":"8","₉":"9"};function E(t,e){if(t.some((t=>t===e))){return P(t,function(t){const[e,n]=b(t,t.length-1);return[e,n]}(e))}return e}function P(t,e){const n=function([t,e]){const n=function(t){const e=t.toString().split("").map((t=>g[t]||t)).join("");return e}(e);return t+n}(e);return t.map((t=>t.toString())).includes(n.toString())?P(t,function(t){return[t[0],t[1]+1]}(e)):n}function T(t){const e=t.split("").map((t=>v[t]||t)).join("");return parseInt(e,10)||1}function b(t,e){return e<0?[t,0]:(n=t[e],Object.keys(v).includes(n)?b(t,e-1):[t.substring(0,e+1),T(t.substring(e+1))]);var n}class N{location;varName;constructor(t,e){this.location=t,this.varName=e}}class x{binder;type;constructor(t,e){this.binder=t,this.type=e}}class _{message;constructor(t){this.message=t}}class k{}class S extends k{result;constructor(t){super(),this.result=t}}class $ extends k{where;message;constructor(t,e){super(),this.where=t,this.message=e}}class O{name;value;constructor(t,e=null){this.name=t,this.value=e}}function L(t,e){for(const[e,n]of t){const r=n();if(!(r instanceof S))throw new Error(`Encountered stop when evaluating the sequence ${t}. Error message: ${r.message.message} at ${r.where}`);e.value=r.result}return e()}class A{constructor(){}}class I extends A{env;varName;expr;constructor(t,e,n){super(),this.env=t,this.varName=e,this.expr=n}valOfClosure(t){return this.expr.valOf((e=this.env,n=this.varName,r=t,new Map([...e,[n,r]])));var e,n,r}prettyPrint(){return`(CLOS ${this.varName} ${this.expr.prettyPrint()})`}toString(){return this.prettyPrint()}}class B extends A{proc;constructor(t){super(),this.proc=t}valOfClosure(t){return this.proc(t)}prettyPrint(){return"(HOCLOS)"}toString(){return this.prettyPrint()}}function C(t){return!("U"===(e=t)||"Nat"===e||"zero"===e||"add1"===e||"which-Nat"===e||"iter-Nat"===e||"rec-Nat"===e||"ind-Nat"===e||"->"===e||"→"===e||"Π"===e||"λ"===e||"Pi"===e||"∏"===e||"lambda"===e||"quote"===e||"Atom"===e||"car"===e||"cdr"===e||"cons"===e||"Σ"===e||"Sigma"===e||"Pair"===e||"Trivial"===e||"sole"===e||"List"===e||"::"===e||"nil"===e||"rec-List"===e||"ind-List"===e||"Absurd"===e||"ind-Absurd"===e||"="===e||"same"===e||"replace"===e||"trans"===e||"cong"===e||"symm"===e||"ind-="===e||"Vec"===e||"vecnil"===e||"vec::"===e||"head"===e||"tail"===e||"ind-Vec"===e||"Either"===e||"left"===e||"right"===e||"ind-Either"===e||"TODO"===e||"the"===e)&&isNaN(Number(t));var e}function R(t){return Array.from(t.keys())}function q(t,e){return E(R(t),e)}function M(t,e,n){return E(R(t).concat(e.findNames()),n)}function U(t){return[t.binder.varName].concat(t.type.findNames())}function H(t,e,n){return new Map([...t,[e,n]])}function D(t,e){return e.valOf(V(t))}function z(t){const e=new Map;for(const[n,r]of t)r instanceof Z?e.set(n,["free",r.type.readBackType(t)]):r instanceof Y?e.set(n,["def",r.type.readBackType(t),lt(t,r.type,r.value)]):r instanceof K&&e.set(n,["claim",r.type.readBackType(t)]);return e}function Q(t,e,n,r){const s=new O("typeOut");return L([[new O("_"),()=>function(t,e,n){return t.has(n)?new $(e,new _([`The name "${n}" is already in use in the context.`])):new S(!0)}(t,n,e)],[s,()=>r.isType(t,new Map)]],(()=>new S(H(t,e,new K(D(t,s.value))))))}function F(t,e,n,r){const s=new O("typeOut"),i=new O("exprOut");return L([[s,()=>function(t,e,n){for(const[r,s]of t)if(r===n){if(s instanceof Y)return new $(e,new _([`The name "${n}" is already defined.`]));if(s instanceof K)return new S(s.type)}return new $(e,new _([`No claim: ${n}`]))}(t,n,e)],[i,()=>r.check(t,new Map,s.value)]],(()=>new S(function(t,e,n,r){return H(t,e,new Y(n,r))}(function(t,e){return t.delete(e),t}(t,e),e,s.value,D(t,i.value)))))}function V(t){if(0===t.size)return new Map;const e=t.entries(),n=new Map;for(const[t,r]of e)r instanceof Y?n.set(t,r.value):r instanceof Z&&n.set(t,new oe(r.type,new wt(t)));return n}const G=new Map;class X{}let K=class extends X{type;constructor(t){super(),this.type=t}};class Y extends X{type;value;constructor(t,e){super(),this.type=t,this.value=e}}class Z extends X{type;constructor(t){super(),this.type=t}}function j(t,e,n){if(0===t.size)throw new Error(`Unknown variable ${n}`);for(const[e,r]of t.entries())if(!(r instanceof K)&&n===e)return new S(r.type);throw new Error(`Unknown variable ${n}`)}function W(t,e,n){if(t.has(e)){for(const[r,s]of t)if(r===e)return H(t,e,new Z(n));throw new Error(`\n      ${e} is already bound in ${JSON.stringify(t)}\n    `)}return H(t,e,new Z(n))}function J(t,e){const n=t.now();if(n instanceof Xt)return n.body.valOfClosure(e);if(n instanceof oe){const t=n.type.now();if(t instanceof Gt)return new oe(t.resultType.valOfClosure(e),new qt(n.neutral,new pt(t.argType,e)))}throw new Error(`doApp: invalid input ${[n,e]}`)}function tt(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(r,tt(s.smaller,e,n,r));if(s instanceof oe){if(s.type.now()instanceof Qt)return new oe(e,new mt(s.neutral,new pt(e,n),new pt(new Gt("n",new Qt,new B((t=>e))),r)))}throw new Error(`invalid input for iterNat ${[t,e,n,r]}`)}function et(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(J(r,s.smaller),et(s.smaller,e,n,r));if(s instanceof oe){if(s.type.now()instanceof Qt)return new oe(e,new gt(s.neutral,new pt(e,n),new pt(new Gt("n-1",new Qt,new B((t=>new Gt("ih",e,new B((t=>e)))))),r)))}throw new Error(`invalid input for recNat ${[t,e,n,r]}`)}function nt(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(J(r,s.smaller),nt(s.smaller,e,n,r));if(s instanceof oe){if(s.type.now()instanceof Qt)return new oe(J(e,t),new vt(s.neutral,new pt(new Gt("x",new Qt,new B((t=>new ce))),e),new pt(J(e,new Ft),n),new pt(new Gt("n-1",new Qt,new B((t=>new Gt("ih",J(e,t),new B((n=>J(e,new Vt(t)))))))),r)))}throw new Error(`invalid input for indNat ${[t,e,n,r]}`)}function rt(t){const e=t.now();if(e instanceof Yt)return e.car;if(e instanceof oe){const t=e.type.now();if(t instanceof Kt){const n=t,r=e.neutral;return new oe(n.carType,new Et(r))}}throw new Error(`invalid input for car ${t}`)}function st(t){const e=t.now();if(e instanceof Yt)return e.cdr;if(e instanceof oe){const n=e.type.now();if(n instanceof Kt){const r=n,s=e.neutral;return new oe(r.cdrType.valOfClosure(rt(t)),new Pt(s))}}throw new Error(`invalid input for cdr ${t}`)}function it(t,e,n,r){const s=t.now();if(s instanceof jt)return n;if(s instanceof Wt)return J(J(J(r,s.head),s.tail),it(s.tail,e,n,r));if(s instanceof oe){const i=s.type.now();if(i instanceof Zt){const a=i.entryType,o=s.neutral,c=new Gt("xs",new Zt(a),new B((t=>new ce)));return new oe(J(e,t),new bt(o,new pt(c,e),new pt(J(e,new jt),n),new pt(new Gt("h",a,new B((t=>new Gt("t",new Zt(a),new B((n=>new Gt("ih",J(e,n),new B((r=>J(e,new Wt(t,n))))))))))),r)))}}throw new Error(`invalid input for indList ${[s,e,n,r]}`)}function at(t,e,n,r){const s=t.now();if(s instanceof jt)return n;if(s instanceof Wt){const t=s.head,i=s.tail;return J(J(J(r,t),i),at(i,e,n,r))}if(s instanceof oe){const t=s.type.now();if(t instanceof Zt){const i=t.entryType,a=s.neutral;return new oe(e,new Tt(a,new pt(e,n),new pt(new Gt("h",i,new B((t=>new Gt("t",new Zt(i),new B((t=>new Gt("ih",e,new B((t=>e))))))))),r)))}}throw new Error(`invalid input for recList ${[s,e,n,r]}`)}function ot(t){const e=t.now();if(e instanceof re)return e.tail;if(e instanceof oe&&e.type instanceof ee&&e.type.length instanceof Vt){const t=e.type.now();if(t instanceof ee){if(t.length.now()instanceof Vt)return new oe(new ee(e.type.entryType,e.type.length.smaller),new It(e.neutral))}}throw new Error(`invalid input for tail ${t}`)}function ct(t,e){return new Gt("k",new Qt,new B((n=>new Gt("e",new ee(t,n),new B((r=>new Gt("es",new ee(t,n),new B((t=>new Gt("ih",J(J(e,n),t),new B((s=>J(J(e,new Vt(n)),new re(r,t))))))))))))))}function ut(t,e,n,r,s){const i=t.now(),a=e.now();if(i instanceof Ft&&a instanceof ne)return r;if(i instanceof Vt&&a instanceof re)return J(J(J(J(s,i.smaller),a.head),ot(e)),ut(i.smaller,a.tail,n,r,s));if(i instanceof oe&&a instanceof oe&&i.type instanceof Qt&&a.type instanceof ee){const o=a.type.entryType;return new oe(J(J(n,t),e),new Ct(i.neutral,a.neutral,new pt(new Gt("k",new Qt,new B((t=>new Gt("es",new ee(o,t),new B((t=>new ce)))))),n),new pt(J(J(n,new Ft),new ne),r),new pt(ct(a.type.entryType,n),s)))}if(ht(i,t)&&a instanceof oe&&a.type instanceof ee){const i=a.type.entryType;return new oe(J(J(n,t),e),new Bt(new pt(new Qt,t),a.neutral,new pt(new Gt("k",new Qt,new B((t=>new Gt("es",new ee(i,t),new B((t=>new ce)))))),n),new pt(J(J(n,new Qt),new ne),r),new pt(ct(i,n),s)))}throw new Error(`invalid input for indVec ${[t,e,n,r,s]}`)}function ht(t,e){const n=t.now(),r=e.now();return n instanceof Ft&&r instanceof Ft||n instanceof Vt&&r instanceof Vt&&ht(n.smaller,r.smaller)}function lt(t,e,n){const r=e.now(),s=n.now();if(r instanceof ce)return n.readBackType(t);if(r instanceof Qt&&s instanceof Ft)return new me;if(r instanceof Qt&&s instanceof Vt)return new ge(lt(t,new Qt,s.smaller));if(r instanceof Gt){const e=q(t,s instanceof Xt?s.argName:r.argName);return new Ne(e,lt(W(t,e,r.argType),r.resultType.valOfClosure(new oe(r.argType,new wt(e))),J(s,new oe(r.argType,new wt(e)))))}if(r instanceof Kt){const e=rt(n),s=st(n);return new Se(lt(t,r.carType,e),lt(t,r.cdrType.valOfClosure(e),s))}if(r instanceof ue&&s instanceof zt)return new _e(s.name);if(r instanceof he)return new qe;if(r instanceof Zt&&s instanceof jt)return new Ae;if(r instanceof Zt&&s instanceof Wt)return new Se(lt(t,r.entryType,s.head),lt(t,new Zt(r.entryType),s.tail));if(r instanceof pe&&s instanceof oe)return new we(new Me,s.neutral.readBackNeutral(t));if(r instanceof Jt&&s instanceof te)return new De(lt(t,r.type,s.value));if(r instanceof ee&&r.length.now()instanceof Ft)return new Ye;if(r instanceof ee&&r.length.now()instanceof Vt&&s instanceof re){const e=r.length.now();return new Ke(lt(t,r.entryType,s.head),lt(t,new ee(r.entryType,e.smaller),s.tail))}if(r instanceof se&&s instanceof ie)return new tn(lt(t,r.leftType,s.value));if(r instanceof se&&s instanceof ae)return new en(lt(t,r.rightType,s.value));if(s instanceof oe)return s.neutral.readBackNeutral(t);throw new Error(`Cannot read back ${s} : ${r}`)}class pt{type;value;constructor(t,e){this.type=t,this.value=e}}let ft=class{constructor(){}toString(){return this.prettyPrint()}};class wt extends ft{name;constructor(t){super(),this.name=t}readBackNeutral(t){return new an(this.name)}prettyPrint(){return`N-${this.name}`}}let yt=class extends ft{where;type;constructor(t,e){super(),this.where=t,this.type=e}readBackNeutral(t){return new rn(this.where,this.type.readBackType(t))}prettyPrint(){return"N-TODO"}},dt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new ve(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-WhichNat"}},mt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new Ee(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IterNat"}},gt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new Pe(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-RecNat"}},vt=class extends ft{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}readBackNeutral(t){return new Te(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndNat"}},Et=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new $e(this.target.readBackNeutral(t))}prettyPrint(){return"N-Car"}},Pt=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Oe(this.target.readBackNeutral(t))}prettyPrint(){return"N-Cdr"}},Tt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new Be(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-RecList"}},bt=class extends ft{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}readBackNeutral(t){return new Ce(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndList"}},Nt=class extends ft{target;motive;constructor(t,e){super(),this.target=t,this.motive=e}readBackNeutral(t){return new Ue(new we(new Me,this.target.readBackNeutral(t)),lt(t,this.motive.type,this.motive.value))}prettyPrint(){return"N-IndAbsurd"}},xt=class extends ft{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}readBackNeutral(t){return new ze(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value))}prettyPrint(){return"N-Replace"}};class _t extends ft{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new Qe(this.target1.readBackNeutral(t),lt(t,this.target2.type,this.target2.value))}prettyPrint(){return"N-Trans1"}}class kt extends ft{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new Qe(lt(t,this.target1.type,this.target1.value),this.target2.readBackNeutral(t))}prettyPrint(){return"N-Trans2"}}class St extends ft{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new Qe(this.target1.readBackNeutral(t),this.target2.readBackNeutral(t))}prettyPrint(){return"N-Trans12"}}let $t=class extends ft{target;func;constructor(t,e){super(),this.target=t,this.func=e}readBackNeutral(t){const e=this.func.type;if(e instanceof Gt){const n=e.resultType;return new Fe(this.target.readBackNeutral(t),n.valOfClosure(new pe).readBackType(t),lt(t,this.func.type,this.func.value))}throw new Error("Cong applied to non-Pi type.")}prettyPrint(){return"N-Cong"}},Ot=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Ve(this.target.readBackNeutral(t))}prettyPrint(){return"N-Symm"}},Lt=class extends ft{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}readBackNeutral(t){return new Ge(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value))}prettyPrint(){return"N-IndEqual"}},At=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Ze(this.target.readBackNeutral(t))}prettyPrint(){return"N-Head"}},It=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new je(this.target.readBackNeutral(t))}prettyPrint(){return"N-Tail"}};class Bt extends ft{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}readBackNeutral(t){return new We(lt(t,this.length.type,this.length.value),this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndVec2"}}class Ct extends ft{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}readBackNeutral(t){return new We(this.length.readBackNeutral(t),this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndVec12"}}let Rt=class extends ft{target;motive;baseLeft;baseRight;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.baseLeft=n,this.baseRight=r}readBackNeutral(t){return new nn(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.baseLeft.type,this.baseLeft.value),lt(t,this.baseRight.type,this.baseRight.value))}prettyPrint(){return"N-IndEither"}},qt=class extends ft{operator;operand;constructor(t,e){super(),this.operator=t,this.operand=e}readBackNeutral(t){return new sn(this.operator.readBackNeutral(t),lt(t,this.operand.type,this.operand.value))}prettyPrint(){return"N-Application"}};class Mt{now(){return this}}class Ut{env;expr;constructor(t,e){this.env=t,this.expr=e}undelay(){return this.expr.valOf(this.env).now()}toString(){return`DelayClosure(${this.env}, ${this.expr})`}}class Ht{content;constructor(t){this.content=t}get(){return this.content}set(t){this.content=t}}class Dt extends Mt{val;constructor(t){super(),this.val=t}now(){const t=this.val.get();if(t instanceof Ut){let e=t.undelay();return this.val.set(e),e}return t}readBackType(t){return this.now().readBackType(t)}prettyPrint(){return this.now().prettyPrint()}toString(){return`Delay(${this.val})`}}let zt=class extends Mt{name;constructor(t){super(),this.name=t}readBackType(t){throw new Error("No readBackType for Quote.")}prettyPrint(){return`'${this.name}`}toString(){return this.prettyPrint()}},Qt=class extends Mt{constructor(){super()}readBackType(t){return new de}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}},Ft=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for Zero.")}prettyPrint(){return"zero"}toString(){return this.prettyPrint()}},Vt=class extends Mt{smaller;constructor(t){super(),this.smaller=t}readBackType(t){throw new Error("No readBackType for Add1.")}prettyPrint(){return`(add1 ${this.smaller.prettyPrint()})`}toString(){return this.prettyPrint()}},Gt=class extends Mt{argName;argType;resultType;constructor(t,e,n){super(),this.argName=t,this.argType=e,this.resultType=n}readBackType(t){const e=this.argType.readBackType(t),n=q(t,this.argName),r=W(t,n,this.argType);return new be(n,e,this.resultType.valOfClosure(new oe(this.argType,new wt(n))).readBackType(r))}prettyPrint(){return`(Π ${this.argName} ${this.argType.prettyPrint()} ${this.resultType.prettyPrint()})`}toString(){return this.prettyPrint()}},Xt=class extends Mt{argName;body;constructor(t,e){super(),this.argName=t,this.body=e}readBackType(t){throw new Error("No readBackType for Lambda.")}prettyPrint(){return`(lambda ${this.argName} ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Kt=class extends Mt{carName;carType;cdrType;constructor(t,e,n){super(),this.carName=t,this.carType=e,this.cdrType=n}readBackType(t){const e=this.carType.readBackType(t),n=q(t,this.carName),r=W(t,n,this.carType);return new ke(n,e,this.cdrType.valOfClosure(new oe(this.carType,new wt(n))).readBackType(r))}prettyPrint(){return`(Σ ${this.carName} ${this.carType.prettyPrint()} ${this.cdrType.prettyPrint()})`}toString(){return this.prettyPrint()}},Yt=class extends Mt{car;cdr;constructor(t,e){super(),this.car=t,this.cdr=e}readBackType(t){throw new Error("No readBackType for Cons.")}prettyPrint(){return`(cons ${this.car.prettyPrint()} ${this.cdr.prettyPrint()})`}toString(){return this.prettyPrint()}},Zt=class extends Mt{entryType;constructor(t){super(),this.entryType=t}readBackType(t){return new Ie(this.entryType.readBackType(t))}prettyPrint(){return`(List ${this.entryType.prettyPrint()})`}toString(){return this.prettyPrint()}},jt=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for Nil.")}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}},Wt=class extends Mt{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}readBackType(t){throw new Error("No readBackType for ListCons.")}prettyPrint(){return`(:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Jt=class extends Mt{type;from;to;constructor(t,e,n){super(),this.type=t,this.from=e,this.to=n}readBackType(t){return new He(this.type.readBackType(t),lt(t,this.type,this.from),lt(t,this.type,this.to))}prettyPrint(){return`(= ${this.type.prettyPrint()} ${this.from.prettyPrint()} ${this.to.prettyPrint()})`}toString(){return this.prettyPrint()}},te=class extends Mt{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Same.")}prettyPrint(){return`(same ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},ee=class extends Mt{entryType;length;constructor(t,e){super(),this.entryType=t,this.length=e}readBackType(t){return new Xe(this.entryType.readBackType(t),lt(t,new Qt,this.length))}prettyPrint(){return`(Vec ${this.entryType.prettyPrint()} ${this.length.prettyPrint()})`}},ne=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for VecNil.")}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}},re=class extends Mt{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}readBackType(t){throw new Error("No readBackType for VecCons.")}prettyPrint(){return`(vec:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},se=class extends Mt{leftType;rightType;constructor(t,e){super(),this.leftType=t,this.rightType=e}readBackType(t){return new Je(this.leftType.readBackType(t),this.rightType.readBackType(t))}prettyPrint(){return`(Either ${this.leftType.prettyPrint()} ${this.rightType.prettyPrint()})`}toString(){return this.prettyPrint()}},ie=class extends Mt{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Left.")}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},ae=class extends Mt{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Right.")}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}};class oe extends Mt{type;neutral;constructor(t,e){super(),this.type=t,this.neutral=e}readBackType(t){return this.neutral.readBackNeutral(t)}prettyPrint(){return`(Neutral ${this.type.prettyPrint()} ${this.neutral.prettyPrint()})`}toString(){return this.prettyPrint()}}let ce=class extends Mt{constructor(){super()}readBackType(t){return new ye}prettyPrint(){return"U"}toString(){return this.prettyPrint()}},ue=class extends Mt{constructor(){super()}readBackType(t){return new xe}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}},he=class extends Mt{constructor(){super()}readBackType(t){return new Re}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}},le=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for Sole.")}prettyPrint(){return"sole"}toString(){return this.prettyPrint()}},pe=class extends Mt{constructor(){super()}readBackType(t){return new Me}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}};class fe{toLazy(t){return new Dt(new Ht(new Ut(t,this)))}}let we=class extends fe{type;expr;constructor(t,e){super(),this.type=t,this.expr=e}valOf(t){return this.expr.valOf(t)}prettyPrint(){return`(the ${this.type.prettyPrint()} ${this.expr.prettyPrint()})`}toString(){return this.prettyPrint()}},ye=class extends fe{valOf(t){return new ce}prettyPrint(){return"U"}toString(){return this.prettyPrint()}},de=class extends fe{valOf(t){return new Qt}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}},me=class extends fe{valOf(t){return new Ft}prettyPrint(){return"0"}toString(){return this.prettyPrint()}},ge=class extends fe{n;constructor(t){super(),this.n=t}valOf(t){return new Vt(this.n.toLazy(t))}prettyPrint(){return isNaN(Number(this.n.prettyPrint()))?`(add1 ${this.n.prettyPrint()})`:`${Number(this.n.prettyPrint())+1}`}toString(){return this.prettyPrint()}},ve=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return function(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(r,s.smaller);if(s instanceof oe&&s.type.now()instanceof Qt)return new oe(e,new dt(s.neutral,new pt(e,n),new pt(new Gt("n",new Qt,new B((t=>e))),r)));throw new Error(`invalid input for whichNat ${[t,e,n,r]}`)}(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(which-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Ee=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return tt(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(iter-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Pe=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return et(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(rec-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Te=class extends fe{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}valOf(t){return nt(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(ind-Nat ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},be=class extends fe{name;type;body;constructor(t,e,n){super(),this.name=t,this.type=e,this.body=n}valOf(t){const e=this.type.toLazy(t);return new Gt(this.name,e,new I(t,this.name,this.body))}prettyPrint(){return`(Π (${this.name} ${this.type.prettyPrint()}) \n          ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Ne=class extends fe{param;body;constructor(t,e){super(),this.param=t,this.body=e}valOf(t){return new Xt(this.param,new I(t,this.param,this.body))}prettyPrint(){return`(λ (${this.param}) ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},xe=class extends fe{valOf(t){return new ue}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}},_e=class extends fe{sym;constructor(t){super(),this.sym=t}valOf(t){return new zt(this.sym)}prettyPrint(){return`'${this.sym}`}toString(){return this.prettyPrint()}},ke=class extends fe{name;type;body;constructor(t,e,n){super(),this.name=t,this.type=e,this.body=n}valOf(t){const e=this.type.toLazy(t);return new Kt(this.name,e,new I(t,this.name,this.body))}prettyPrint(){return`(Σ (${this.name} ${this.type.prettyPrint()}) \n              ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Se=class extends fe{first;second;constructor(t,e){super(),this.first=t,this.second=e}valOf(t){const e=this.first.toLazy(t),n=this.second.toLazy(t);return new Yt(e,n)}prettyPrint(){return`(cons ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}},$e=class extends fe{pair;constructor(t){super(),this.pair=t}valOf(t){return rt(this.pair.toLazy(t))}prettyPrint(){return`(car ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}},Oe=class extends fe{pair;constructor(t){super(),this.pair=t}valOf(t){return st(this.pair.toLazy(t))}prettyPrint(){return`(cdr ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}},Le=class extends fe{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}valOf(t){const e=this.head.toLazy(t),n=this.tail.toLazy(t);return new Wt(e,n)}prettyPrint(){return`(:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Ae=class extends fe{valOf(t){return new jt}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}},Ie=class extends fe{elemType;constructor(t){super(),this.elemType=t}valOf(t){return new Zt(this.elemType.toLazy(t))}prettyPrint(){return`(List ${this.elemType.prettyPrint()})`}toString(){return this.prettyPrint()}},Be=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return at(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(rec-List ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Ce=class extends fe{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}valOf(t){return it(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(ind-List ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Re=class extends fe{valOf(t){return new he}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}},qe=class extends fe{valOf(t){return new le}prettyPrint(){return"sole"}toString(){return this.prettyPrint()}},Me=class extends fe{valOf(t){return new pe}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}},Ue=class extends fe{target;motive;constructor(t,e){super(),this.target=t,this.motive=e}valOf(t){return function(t,e){const n=t.now();if(n instanceof oe&&n.type.now()instanceof pe)return new oe(e,new Nt(n.neutral,new pt(new ce,e)));throw new Error(`invalid input for indAbsurd ${[t,e]}`)}(this.target.toLazy(t),this.motive.toLazy(t))}prettyPrint(){return`(ind-Absurd \n              ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()})`}toString(){return this.prettyPrint()}},He=class extends fe{type;left;right;constructor(t,e,n){super(),this.type=t,this.left=e,this.right=n}valOf(t){return new Jt(this.type.toLazy(t),this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(= ${this.type.prettyPrint()} \n              ${this.left.prettyPrint()} \n              ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},De=class extends fe{type;constructor(t){super(),this.type=t}valOf(t){return new te(this.type.toLazy(t))}prettyPrint(){return`(same ${this.type.prettyPrint()})`}toString(){return this.prettyPrint()}},ze=class extends fe{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof te)return n;if(r instanceof oe){const t=r.type.now();if(t instanceof Jt){const s=r.neutral,i=t.type,a=t.from,o=t.to;return new oe(J(e,o),new xt(s,new pt(new Gt("x",i,new B((t=>new ce))),e),new pt(J(e,a),n)))}}throw new Error(`invalid input for replace ${[t,e,n]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t))}prettyPrint(){return`(replace ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}},Qe=class extends fe{left;right;constructor(t,e){super(),this.left=t,this.right=e}valOf(t){return function(t,e){const n=t.now(),r=e.now();if(n instanceof te&&r instanceof te)return new te(n.value);if(n instanceof te&&r instanceof oe){const t=r.type.now();if(t instanceof Jt){const e=n.value,s=t.to,i=t.type,a=r.neutral;return new oe(new Jt(i,e,s),new kt(new pt(new Jt(i,e,e),new te(e)),a))}}else if(n instanceof oe&&r instanceof te){const t=n.type.now();if(t instanceof Jt){const e=t.from,s=r.value,i=t.type,a=n.neutral;return new oe(new Jt(i,e,s),new _t(a,new pt(new Jt(i,s,s),new te(s))))}}else if(n instanceof oe&&r instanceof oe){const t=n.type.now(),e=r.type.now();if(t instanceof Jt&&e instanceof Jt){const s=t.from,i=e.to,a=t.type,o=n.neutral,c=r.neutral;return new oe(new Jt(a,s,i),new St(o,c))}}throw new Error(`invalid input for do-trans: ${[t,e]}`)}(this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(trans ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},Fe=class extends fe{target;base;fun;constructor(t,e,n){super(),this.target=t,this.base=e,this.fun=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof te)return new te(J(n,r.value));if(r instanceof oe){const t=r.type.now();if(t instanceof Jt){const s=t.type,i=t.from,a=t.to,o=r.neutral;return new oe(new Jt(e,J(n,i),J(n,a)),new $t(o,new pt(new Gt("x",s,new B((t=>e))),n)))}}throw new Error(`invalid input for cong ${[t,e,n]}`)}(this.target.toLazy(t),this.base.toLazy(t),this.fun.toLazy(t))}prettyPrint(){return`(cong ${this.target.prettyPrint()} ${this.fun.prettyPrint()})`}toString(){return this.prettyPrint()}},Ve=class extends fe{equality;constructor(t){super(),this.equality=t}valOf(t){return function(t){const e=t.now();if(e instanceof te)return new te(e.value);if(e instanceof oe){const t=e.type.now();if(t instanceof Jt)return new oe(new Jt(t.type,t.to,t.from),new Ot(e.neutral))}throw new Error(`invalid input for symm ${t}`)}(this.equality.toLazy(t))}prettyPrint(){return`(symm ${this.equality.prettyPrint()})`}toString(){return this.prettyPrint()}},Ge=class extends fe{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof te)return n;if(r instanceof oe){const s=r.type.now();if(s instanceof Jt){const i=s.type,a=s.from,o=s.to,c=r.neutral;return new oe(J(J(e,o),t),new Lt(c,new pt(new Gt("to",i,new B((t=>new Gt("p",new Jt(i,a,t),new B((t=>new ce)))))),e),new pt(J(J(e,a),new te(a)),n)))}}throw new Error(`invalid input for indEqual ${[t,e,n]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t))}prettyPrint(){return`(ind-= ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}},Xe=class extends fe{type;length;constructor(t,e){super(),this.type=t,this.length=e}valOf(t){return new ee(this.type.toLazy(t),this.length.toLazy(t))}prettyPrint(){return`(Vec ${this.type.prettyPrint()} ${this.length.prettyPrint()})`}toString(){return this.prettyPrint()}},Ke=class extends fe{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}valOf(t){return new re(this.head.toLazy(t),this.tail.toLazy(t))}prettyPrint(){return`(vec:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Ye=class extends fe{valOf(t){return new ne}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}},Ze=class extends fe{vec;constructor(t){super(),this.vec=t}valOf(t){return function(t){const e=t.now();if(e instanceof re)return e.head;if(e instanceof oe){const t=e.type.now();if(t instanceof ee&&t.length.now()instanceof Vt)return new oe(t.entryType,new At(e.neutral))}throw new Error(`invalid input for head ${t}`)}(this.vec.toLazy(t))}prettyPrint(){return`(head ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}},je=class extends fe{vec;constructor(t){super(),this.vec=t}valOf(t){return ot(this.vec.toLazy(t))}prettyPrint(){return`(tail ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}},We=class extends fe{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}valOf(t){return ut(this.length.toLazy(t),this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`ind-Vec ${this.length.prettyPrint()}\n              ${this.target.prettyPrint()}\n              ${this.motive.prettyPrint()}\n              ${this.base.prettyPrint()}\n              ${this.step.prettyPrint()}`}toString(){return this.prettyPrint()}},Je=class extends fe{left;right;constructor(t,e){super(),this.left=t,this.right=e}valOf(t){return new se(this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(Either ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},tn=class extends fe{value;constructor(t){super(),this.value=t}valOf(t){return new ie(this.value.toLazy(t))}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},en=class extends fe{value;constructor(t){super(),this.value=t}valOf(t){return new ae(this.value.toLazy(t))}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},nn=class extends fe{target;motive;baseLeft;baseRight;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.baseLeft=n,this.baseRight=r}valOf(t){return function(t,e,n,r){const s=t.now();if(s instanceof ie)return J(n,s.value);if(s instanceof ae)return J(r,s.value);if(s instanceof oe){const i=s.type.now();if(i instanceof se){const a=i.leftType,o=i.rightType,c=new Gt("x",new se(a,o),new B((t=>new ce)));return new oe(J(e,t),new Rt(s.neutral,new pt(c,e),new pt(new Gt("x",a,new B((t=>J(e,new ie(t))))),n),new pt(new Gt("x",o,new B((t=>J(e,new ae(t))))),r)))}}throw new Error(`invalid input for indEither: ${[t,e,n,r]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.baseLeft.toLazy(t),this.baseRight.toLazy(t))}prettyPrint(){return`(ind-Either ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.baseLeft.prettyPrint()} \n              ${this.baseRight.prettyPrint()})`}toString(){return this.prettyPrint()}},rn=class extends fe{loc;type;constructor(t,e){super(),this.loc=t,this.type=e}valOf(t){return new oe(this.type.toLazy(t),new yt(this.loc,this.type.toLazy(t)))}prettyPrint(){return`TODO ${this.type.prettyPrint()}`}toString(){return this.prettyPrint()}},sn=class extends fe{fun;arg;constructor(t,e){super(),this.fun=t,this.arg=e}valOf(t){return J(this.fun.toLazy(t),this.arg.toLazy(t))}prettyPrint(){return`(${this.fun.prettyPrint()} ${this.arg.prettyPrint()})`}toString(){return this.prettyPrint()}};class an extends fe{name;constructor(t){super(),this.name=t}valOf(t){if(C(this.name))return function(t,e){if(t.has(e))return t.get(e);throw new Error(`Variable ${e} not found in environment`)}(t,this.name);throw new Error("{this.name} is not a valid variable name")}prettyPrint(){return this.name}toString(){return this.prettyPrint()}}function on(t,e){return ln(0,new Map,new Map,t,e)}const cn=-1;function un(t,e,n){return new Map([[e,n],...t])}function hn(t,e){return e.has(t)?e.get(t):cn}function ln(t,e,n,r,s){if(r instanceof an&&s instanceof an){const t=r.name,i=s.name;if(C(t)&&C(i)){const r=hn(t,e),s=hn(i,n);return r!==cn&&s!==cn?r===s:r===cn&&s===cn&&t===i}return!1}return r instanceof _e&&s instanceof _e?r.sym===s.sym:r instanceof be&&s instanceof be||r instanceof ke&&s instanceof ke?ln(t,e,n,r.type,s.type)&&ln(t+1,un(e,r.name,t),un(n,s.name,t),r.body,s.body):r instanceof Ne&&s instanceof Ne?ln(t+1,un(e,r.param,t),un(n,s.param,t),r.body,s.body):r instanceof we&&s instanceof we&&r.type instanceof Me&&s.type instanceof Me||(r instanceof sn&&s instanceof sn?ln(t,e,n,r.fun,s.fun)&&ln(t,e,n,r.arg,s.arg):r instanceof ye&&s instanceof ye||r instanceof de&&s instanceof de||r instanceof me&&s instanceof me||r instanceof xe&&s instanceof xe||r instanceof Me&&s instanceof Me||r instanceof qe&&s instanceof qe||r instanceof Ae&&s instanceof Ae||r instanceof Ye&&s instanceof Ye||r instanceof Re&&s instanceof Re||(r instanceof we&&s instanceof we?ln(t,e,n,r.type,s.type)&&ln(t,e,n,r.expr,s.expr):r instanceof Ie&&s instanceof Ie?ln(t,e,n,r.elemType,s.elemType):r instanceof ge&&s instanceof ge?ln(t,e,n,r.n,s.n):r instanceof ve&&s instanceof ve||r instanceof Ee&&s instanceof Ee||r instanceof Pe&&s instanceof Pe?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Te&&s instanceof Te?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Se&&s instanceof Se?ln(t,e,n,r.first,s.first)&&ln(t,e,n,r.second,s.second):r instanceof $e&&s instanceof $e||r instanceof Oe&&s instanceof Oe?ln(t,e,n,r.pair,s.pair):r instanceof Le&&s instanceof Le?ln(t,e,n,r.head,s.head)&&ln(t,e,n,r.tail,s.tail):r instanceof Be&&s instanceof Be?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Ce&&s instanceof Ce?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Ue&&s instanceof Ue?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive):r instanceof He&&s instanceof He?ln(t,e,n,r.type,s.type)&&ln(t,e,n,r.left,s.left)&&ln(t,e,n,r.right,s.right):r instanceof De&&s instanceof De?ln(t,e,n,r.type,s.type):r instanceof ze&&s instanceof ze?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base):r instanceof Qe&&s instanceof Qe?ln(t,e,n,r.left,s.left)&&ln(t,e,n,r.right,s.right):r instanceof Fe&&s instanceof Fe?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.fun,s.fun):r instanceof Ve&&s instanceof Ve?ln(t,e,n,r.equality,s.equality):r instanceof Ge&&s instanceof Ge?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base):r instanceof Xe&&s instanceof Xe?ln(t,e,n,r.type,s.type)&&ln(t,e,n,r.length,s.length):r instanceof Ke&&s instanceof Ke?ln(t,e,n,r.head,s.head)&&ln(t,e,n,r.tail,s.tail):r instanceof Ze&&s instanceof Ze||r instanceof je&&s instanceof je?ln(t,e,n,r.vec,s.vec):r instanceof We&&s instanceof We?ln(t,e,n,r.length,s.length)&&ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Je&&s instanceof Je?ln(t,e,n,r.left,s.left)&&ln(t,e,n,r.right,s.right):r instanceof tn&&s instanceof tn||r instanceof en&&s instanceof en?ln(t,e,n,r.value,s.value):r instanceof nn&&s instanceof nn?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.baseLeft,s.baseLeft)&&ln(t,e,n,r.baseRight,s.baseRight):r instanceof rn&&s instanceof rn&&(function(t,e){return t.startLine===e.startLine&&t.startColumn===e.startColumn&&t.endLine===e.endLine&&t.endColumn===e.endColumn}(r.loc,s.loc)&&ln(t,e,n,r.type,s.type))))}function pn(t,e){t.forInfo}function fn(t,e){const n=t.get(e);return n||e}function wn(t,e,n){return new Map([[e,n],...t])}function yn(t,e,n,r){const s=n.readBackType(t),i=r.readBackType(t);return on(s,i)?new S(void 0):new $(e,new _([`Expected ${i} but got ${s}`]))}function dn(t,e,n,r,s){return on(lt(t,n,r),lt(t,n,s))?new S(void 0):new $(e,new _([`The terms ${r} and ${s} are not the same ${n}.`]))}function mn(t){return gn(t.split(""))}function gn(t){return 0===t.length||(e=t[0],!(!/^[a-zA-Z]$/.test(e)&&"-"!==t[0])&&gn(t.slice(1)));var e}function vn(t,e,n){return new Er(t.location,t,e,n)}class En{source;startLine;startColumn;endLine;endColumn;constructor(t,e,n,r,s){this.source=t,this.startLine=e,this.startColumn=n,this.endLine=r,this.endColumn=s}}class Pn{start;end;source;constructor(t,e,n){this.start=t,this.end=e,this.source=n}}let Tn=class{syntax;forInfo;constructor(t,e){this.syntax=t,this.forInfo=e}locationToSrcLoc(){return new En(this.syntax.source,this.syntax.start.line,this.syntax.start.column,this.syntax.end.line,this.syntax.end.column)}toString(){return`${this.syntax.source}:${this.syntax.start.line}:${this.syntax.start.column}`}};function bn(t){return new Tn(t.syntax,!1)}class Nn{static synthNat(t,e){return new S(new we(new ye,new de))}static synthUniverse(t,e,n){return new $(n,new _(["U is a type, but it does not have a type."]))}static synthArrow(t,e,n,r,s,i){if(0===i.length){const n=M(t,s,"x"),i=new O("Aout"),a=new O("Bout");return L([[i,()=>r.check(t,e,new ce)],[a,()=>s.check(W(t,n,D(t,i.value)),e,new ce)]],(()=>new S(new we(new ye,new be(n,i.value,a.value)))))}{const[a,...o]=i,c=M(t,vn(s,a,o),"x"),u=new O("Aout"),h=new O("tout");return L([[u,()=>r.check(t,e,new ce)],[h,()=>new Cn(bn(n),s,a,o).check(W(t,c,D(t,u.value)),e,new ce)]],(()=>new S(new we(new ye,new be(c,u.value,h.value)))))}}static synthPi(t,e,n,r,s){if(1===r.length){const[n,i]=[r[0].binder,r[0].type],a=q(t,n.varName),o=(n.location,new O("Aout")),c=new O("Bout");return L([[o,()=>i.check(t,e,new ce)],[c,()=>s.check(W(t,a,D(t,o.value)),wn(e,n.varName,a),new ce)]],(()=>(o.value,new S(new we(new ye,new be(a,o.value,c.value))))))}if(r.length>1){const[i,...a]=r,[o,c]=[i.binder,i.type],u=(o.location,o.varName),h=q(t,u),l=new O("Aout"),p=new O("Bout");return L([[l,()=>c.check(t,e,new ce)],[p,()=>new Rn(bn(n),a,s).check(W(t,h,D(t,l.value)),wn(e,u,h),new ce)]],(()=>(l.value,new S(new we(new ye,new be(h,l.value,p.value))))))}throw new Error("Invalid number of binders in Pi type")}static synthZero(t,e){return new S(new we(new de,new me))}static synthAdd1(t,e,n){const r=new O("nout");return L([[r,()=>n.check(t,e,new Qt)]],(()=>new S(new we(new de,new ge(r.value)))))}static synthWhichNat(t,e,n,r,s){const i=new O("tgtout"),a=new O("bout"),o=new O("sout");let c=q(t,"n_minus_1");return L([[i,()=>n.check(t,e,new Qt)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,new Gt(c,new Qt,new I(V(t),c,a.value.type)))]],(()=>new S(new we(a.value.type,new ve(i.value,new we(a.value.type,a.value.expr),o.value)))))}static synthIterNat(t,e,n,r,s){const i=new O("tgtout"),a=new O("bout"),o=new O("sout");return L([[i,()=>n.check(t,e,new Qt)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,(()=>{const e=q(t,"old");return D(t,new be(e,a.value.type,a.value.type))})())]],(()=>new S(new we(a.value.type,new Ee(i.value,new we(a.value.type,a.value.expr),o.value)))))}static synthRecNat(t,e,n,r,s){const i=new O("tgtout"),a=new O("bout"),o=new O("sout");return L([[i,()=>n.check(t,e,new Qt)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,(()=>{const e=q(t,"n_minus_1"),n=q(t,"old");return D(t,new be(e,new de,new be(n,a.value.type,a.value.type)))})())]],(()=>new S(new we(a.value.type,new Pe(i.value,new we(a.value.type,a.value.expr),o.value)))))}static synthIndNat(t,e,n,r,s,i){const a=new O("tgtout"),o=new O("motout"),c=new O("motval"),u=new O("bout"),h=new O("sout");return L([[a,()=>n.check(t,e,new Qt)],[o,()=>r.check(t,e,new Gt("n",new Qt,new B((t=>new ce))))],[c,()=>new S(D(t,o.value))],[u,()=>s.check(t,e,J(c.value,new Ft))],[h,()=>i.check(t,e,new Gt("n_minus_1",new Qt,new B((t=>new Gt("ih",J(c.value,t),new B((e=>J(c.value,new Vt(t)))))))))]],(()=>new S(new we(new sn(o.value,a.value),new Te(a.value,o.value,u.value,h.value)))))}static synthAtom(t,e){return new S(new we(new ye,new xe))}static synthPair(t,e,n,r){const s=q(t,"a"),i=new O("Aout"),a=new O("Dout");return L([[i,()=>n.check(t,e,new ce)],[a,()=>r.check(W(t,s,D(t,i.value)),e,new ce)]],(()=>new S(new we(new ye,new ke(s,i.value,a.value)))))}static synthSigma(t,e,n,r,s){if(1===r.length){const[n,i]=[r[0].binder,r[0].type],a=q(t,n.varName),o=(n.location,new O("Aout")),c=new O("Dout");return L([[o,()=>i.check(t,e,new ce)],[c,()=>s.check(W(t,a,D(t,o.value)),wn(e,n.varName,a),new ce)]],(()=>(o.value,new S(new we(new ye,new ke(a,o.value,c.value))))))}if(r.length>1){const[i,...a]=r,[o,c]=[i.binder,i.type],u=(o.location,o.varName),h=q(t,u),l=new O("Aout"),p=new O("Dout");return L([[l,()=>c.check(t,e,new ce)],[p,()=>new Mn(bn(n),a,s).check(W(t,h,D(t,l.value)),wn(e,u,h),new ce)]],(()=>(l.value,new S(new we(new ye,new ke(h,l.value,p.value))))))}throw new Error("Invalid number of binders in Sigma type")}static synthCar(t,e,n,r){const s=new O("p_rst");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type);return e instanceof Kt?new S(new we(e.carType.readBackType(t),new $e(s.value.expr))):new $(n,new _([`car requires a Pair type, but was used as a: ${e}.`]))}))}static synthCdr(t,e,n,r){const s=new O("pout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type);if(e instanceof Kt){const[n,r,i]=[e.carName,e.carType,e.cdrType];return new S(new we(i.valOfClosure(rt(D(t,s.value.expr))).readBackType(t),new Oe(s.value.expr)))}return new $(n,new _([`cdr requires a Pair type, but was used as a: ${e}.`]))}))}static synthQuote(t,e,n,r){return mn(r)?new S(new we(new xe,new _e(r))):new $(n,new _([`Invalid atom: ${r}. Atoms consist of letters and hyphens.`]))}static synthTrivial(t,e){return new S(new we(new ye,new Re))}static synthSole(t,e){return new S(new we(new Re,new qe))}static synthIndList(t,e,n,r,s,i,a){const o=new O("tgtout"),c=new O("motout"),u=new O("motval"),h=new O("bout"),l=new O("sout");return L([[o,()=>r.synth(t,e)]],(()=>{const[r,p]=[o.value.type,o.value.expr],f=D(t,r);if(f instanceof Zt){const n=f.entryType;return L([[c,()=>s.check(t,e,new Gt("xs",new Zt(n),new I(V(t),"xs",new ye)))],[u,()=>new S(D(t,c.value))],[h,()=>i.check(t,e,J(u.value,new jt))],[l,()=>a.check(t,e,new Gt("e",n,new B((t=>new Gt("es",new Zt(n),new B((e=>new Gt("ih",J(u.value,e),new B((n=>J(u.value,new Wt(t,e))))))))))))]],(()=>new S(new we(new sn(c.value,p),new Ce(p,c.value,h.value,l.value)))))}return new $(n,new _([`Not a List: ${f.readBackType(t)}.`]))}))}static synthRecList(t,e,n,r,s,i){const a=new O("tgtout");return L([[a,()=>r.synth(t,e)]],(()=>{const[r,o]=[a.value.type,a.value.expr],c=D(t,r);if(c instanceof Zt){const n=c.entryType,r=new O("bout"),a=new O("btval"),u=new O("sout");return L([[r,()=>s.synth(t,e)],[a,()=>new S(D(t,r.value.type))],[u,()=>i.check(t,e,new Gt("e",n,new B((t=>new Gt("es",new Zt(n),new B((t=>new Gt("ih",a.value,new B((t=>a.value))))))))))]],(()=>new S(new we(r.value.type,new Be(o,new we(r.value.type,r.value.expr),u.value)))))}return new $(n,new _([`Not a List: ${c.readBackType(t)}.`]))}))}static synthList(t,e,n){const r=new O("Eout");return L([[r,()=>n.entryType.check(t,e,new ce)]],(()=>new S(new we(new ye,new Ie(r.value)))))}static synthListCons(t,e,n,r){const s=new O("eout"),i=new O("esout");return L([[s,()=>n.synth(t,e)],[i,()=>r.check(t,e,D(t,new Ie(s.value.type)))]],(()=>new S(new we(new Ie(s.value.type),new Le(s.value.expr,i.value)))))}static synthAbsurd(t,e,n){return new S(new we(new ye,new Me))}static synthIndAbsurd(t,e,n){const r=new O("tgtout"),s=new O("motout");return L([[r,()=>n.target.check(t,e,new pe)],[s,()=>n.motive.check(t,e,new ce)]],(()=>new S(new we(s.value,new Ue(r.value,s.value)))))}static synthEqual(t,e,n,r,s){const i=new O("Aout"),a=new O("Av"),o=new O("from_out"),c=new O("to_out");return L([[i,()=>n.check(t,e,new ce)],[a,()=>new S(D(t,i.value))],[o,()=>r.check(t,e,a.value)],[c,()=>s.check(t,e,a.value)]],(()=>new S(new we(new ye,new He(i.value,o.value,c.value)))))}static synthReplace(t,e,n,r,s,i){const a=new O("tgt_rst"),o=new O("motout"),c=new O("bout");return L([[a,()=>r.synth(t,e)]],(()=>{const r=D(t,a.value.type);if(r instanceof Jt){const[n,u,h]=[r.type,r.from,r.to];return L([[o,()=>s.check(t,e,new Gt("x",n,new B((t=>new ce))))],[c,()=>i.check(t,e,J(D(t,o.value),u))]],(()=>new S(new we(J(D(t,o.value),h).readBackType(t),new ze(a.value.expr,o.value,c.value)))))}return new $(n,new _([`Expected an expression with = type, but the type was: ${a.value.type}.`]))}))}static synthTrans(t,e,n,r,s){const i=new O("p1_rst"),a=new O("p2_rst");return L([[i,()=>r.synth(t,e)],[a,()=>s.synth(t,e)]],(()=>{const e=D(t,i.value.type),r=D(t,a.value.type);if(e instanceof Jt&&r instanceof Jt){const[s,o,c]=[e.type,e.from,e.to],[u,h,l]=[r.type,r.from,r.to];return L([[new O("_"),()=>yn(t,n,s,u)],[new O("_"),()=>dn(t,n,s,c,h)]],(()=>new S(new we(new Jt(s,o,l).readBackType(t),new Qe(i.value.expr,a.value.expr)))))}return new $(n,new _([`Expected =, got ${e} and ${r}.`]))}))}static synthCong(t,e,n,r,s){const i=new O("bout"),a=new O("f_rst");return L([[i,()=>r.synth(t,e)],[a,()=>s.synth(t,e)]],(()=>{const e=D(t,i.value.type),r=D(t,a.value.type);if(e instanceof Jt){const[s,o,c]=[e.type,e.from,e.to];if(r instanceof Gt){const[e,u,h]=[r.argName,r.argType,r.resultType],l=new O("ph"),p=new O("Cv"),f=new O("fv");return L([[l,()=>yn(t,n,s,u)],[p,()=>new S(h.valOfClosure(o))],[f,()=>new S(D(t,a.value.expr))]],(()=>new S(new we(new He(p.value.readBackType(t),lt(t,p.value,J(f.value,o)),lt(t,p.value,J(f.value,c))),new Fe(i.value.expr,p.value.readBackType(t),a.value.expr)))))}return new $(n,new _([`Expected a function type, got ${r.readBackType(t)}.`]))}return new $(n,new _([`Expected an = type, got ${e.readBackType(t)}.`]))}))}static synthSymm(t,e,n,r){const s=new O("eout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type);if(e instanceof Jt){const[n,r,i]=[e.type,e.from,e.to];return new S(new we(new Jt(n,i,r).readBackType(t),new Ve(s.value.expr)))}return new $(n,new _([`Expected an = type, got ${e.readBackType(t)}.`]))}))}static synthIndEqual(t,e,n,r,s,i){const a=new O("tgtout"),o=new O("motout"),c=new O("motv"),u=new O("baseout");return L([[a,()=>r.synth(t,e)]],(()=>{const r=D(t,a.value.type);if(r instanceof Jt){const[n,h,l]=[r.type,r.from,r.to];return L([[o,()=>s.check(t,e,new Gt("to",n,new B((t=>new Gt("p",new Jt(n,h,t),new B((t=>new ce)))))))],[c,()=>new S(D(t,o.value))],[u,()=>i.check(t,e,J(J(c.value,h),new te(h)))]],(()=>new S(new we(J(J(c.value,l),D(t,a.value.expr)).readBackType(t),new Ge(a.value.expr,o.value,u.value)))))}return new $(n,new _([`Expected evidence of equality, got ${r.readBackType(t)}.`]))}))}static synthVec(t,e,n,r){const s=new O("tout"),i=new O("lenout");return L([[s,()=>n.check(t,e,new ce)],[i,()=>r.check(t,e,new Qt)]],(()=>new S(new we(new ye,new Xe(s.value,i.value)))))}static synthHead(t,e,n,r){const s=new O("vout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type).now();if(e instanceof ee){const[r,i]=[e.entryType,e.length];return i.now()instanceof Vt?new S(new we(r.readBackType(t),new Ze(s.value.expr))):new $(n,new _([`Expected a Vec with add1 at the top of the length, got ${lt(t,new Qt,i)}.`]))}return new $(n,new _([`Expected a Vec, got ${e.readBackType(t)}.`]))}))}static synthTail(t,e,n,r){const s=new O("vout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type).now();if(e instanceof ee){const[r,i]=[e.entryType,e.length],a=i.now();if(a instanceof Vt){const e=a.smaller;return new S(new we(new Xe(r.readBackType(t),lt(t,new Qt,e)),new je(s.value.expr)))}return new $(n,new _([`Expected a Vec with add1 at the top of the length, got ${lt(t,new Qt,i)}.`]))}return new $(n,new _([`Expected a Vec, got ${e.readBackType(t)}.`]))}))}static synthIndVec(t,e,n,r,s,i,a,o){const c=new O("lenout"),u=new O("lenv"),h=new O("vecout"),l=new O("motout"),p=new O("motval"),f=new O("bout"),w=new O("sout");return L([[c,()=>r.check(t,e,new Qt)],[u,()=>new S(D(t,c.value))],[h,()=>s.synth(t,e)]],(()=>{const r=D(t,h.value.type);if(r instanceof ee){const[s,y]=[r.entryType,r.length];return L([[new O("_"),()=>dn(t,n,new Qt,u.value,y)],[l,()=>i.check(t,e,new Gt("k",new Qt,new B((t=>new Gt("es",new ee(s,t),new B((t=>new ce)))))))],[p,()=>new S(D(t,l.value))],[f,()=>a.check(t,e,J(J(p.value,new Ft),new ne))],[w,()=>o.check(t,e,ct(s,p.value))]],(()=>new S(new we(new sn(new sn(l.value,c.value),h.value.expr),new We(c.value,h.value.expr,l.value,f.value,w.value)))))}return new $(n,new _([`Expected a Vec, got ${r.readBackType(t)}.`]))}))}static synthEither(t,e,n,r){const s=new O("Lout"),i=new O("Rout");return L([[s,()=>n.check(t,e,new ce)],[i,()=>r.check(t,e,new ce)]],(()=>new S(new we(new ye,new Je(s.value,i.value)))))}static synthIndEither(t,e,n,r,s,i,a){const o=new O("tgtout"),c=new O("motout"),u=new O("motval"),h=new O("lout"),l=new O("rout");return L([[o,()=>r.synth(t,e)]],(()=>{const r=D(t,o.value.type);if(r instanceof se){const[n,p]=[r.leftType,r.rightType];return L([[c,()=>s.check(t,e,new Gt("x",new se(n,p),new B((t=>new ce))))],[u,()=>new S(D(t,c.value))],[h,()=>i.check(t,e,new Gt("x",n,new B((t=>J(u.value,new ie(t))))))],[l,()=>a.check(t,e,new Gt("x",p,new B((t=>J(u.value,new ae(t))))))]],(()=>new S(new we(new sn(c.value,o.value.expr),new nn(o.value.expr,c.value,h.value,l.value)))))}return new $(n,new _([`Expected an Either, but got a ${r.readBackType(t)}.`]))}))}static synthThe(t,e,n,r){const s=new O("t_out"),i=new O("e_out");return L([[s,()=>n.isType(t,e)],[i,()=>r.check(t,e,D(t,s.value))]],(()=>new S(new we(s.value,i.value))))}static synthApplication(t,e,n,r,s,i){if(0===i.length){const i=new O("fout");return L([[i,()=>r.synth(t,e)]],(()=>{const r=D(t,i.value.type);if(r instanceof Gt){const[n,a,o]=[r.argName,r.argType,r.resultType],c=new O("argout");return L([[c,()=>s.check(t,e,a)]],(()=>new S(new we(o.valOfClosure(D(t,c.value)).readBackType(t),new sn(i.value.expr,c.value)))))}return new $(n,new _([`Not a function type: ${r.readBackType(t)}.`]))}))}{const a=new O("appout");return L([[a,()=>new Er(bn(n),r,s,i.slice(0,i.length-1)).synth(t,e)]],(()=>{const r=D(t,a.value.type);if(r instanceof Gt){const[n,s,o]=[r.argName,r.argType,r.resultType],c=new O("fout");return L([[c,()=>i[i.length-1].check(t,e,s)]],(()=>new S(new we(o.valOfClosure(D(t,c.value)).readBackType(t),new sn(a.value.expr,c.value)))))}return new $(n,new _([`Not a function type: ${r.readBackType(t)}.`]))}))}}static synthName(t,e,n,r){const s=fn(e,r),i=new O("x_tv");return L([[i,()=>j(t,0,s)]],(()=>(t.get(s),new S(new we(i.value.readBackType(t),new an(s))))))}static synthNumber(t,e,n,r){if(0===r)return new S(new we(new de,new me));if(r>0){const s=new O("n_1_out");return L([[s,()=>new Yn(n,r-1).check(t,e,new Qt)]],(()=>new S(new we(new de,new ge(s.value)))))}return new $(n,new _([`Expected a positive number, got ${r}.`]))}}class xn{location;constructor(t){this.location=t}isType(t,e){const n=new O("ok"),r=this.getType(t,e);return L([[n,()=>r]],(()=>(pn(this.location,n.value),new S(n.value))))}getType(t,e){const n=this.check(t,e,new ce);if(n instanceof S)return n;if(n instanceof $){if(this instanceof Un&&C(this.name)){const e=new O("other-tv");return new L([[e,()=>j(t,this.location,this.name)]],(()=>{new $(this.location,new _([`Expected , but given ${e.value.readBackType(t)}`]))}))}return new $(this.location,new _(["not a type"]))}throw new Error("Invalid checkType")}check(t,e,n){const r=new O("ok"),s=this.checkOut(t,e,n);return L([[r,()=>s]],(()=>new S(r.value)))}synth(t,e){const n=new O("ok");return L([[n,()=>this.synthHelper(t,e)]],(()=>(pn(this.location,n.value.type),new S(n.value))))}checkOut(t,e,n){const r=new O("theT");return L([[r,()=>this.synth(t,e)],[new O("_"),()=>yn(t,this.location,D(t,r.value.type),n)]],(()=>new S(r.value.expr)))}}class _n extends xn{location;type;value;constructor(t,e,n){super(t),this.location=t,this.type=e,this.value=n}synthHelper(t,e){return Nn.synthThe(t,e,this.type,this.value)}findNames(){return this.type.findNames().concat(this.value.findNames())}prettyPrint(){return`(the ${this.type.prettyPrint()} ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class kn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthUniverse(t,e,this.location)}findNames(){return[]}getType(t,e){return new S(new ye)}prettyPrint(){return"U"}toString(){return this.prettyPrint()}}class Sn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthNat(t,e)}findNames(){return[]}getType(t,e){return new S(new de)}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}}class $n extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthZero(t,e)}findNames(){return[]}prettyPrint(){return"zero"}toString(){return this.prettyPrint()}}class On extends xn{location;base;constructor(t,e){super(t),this.location=t,this.base=e}synthHelper(t,e){return Nn.synthAdd1(t,e,this.base)}findNames(){return this.base.findNames()}prettyPrint(){return`(add1 ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class Ln extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthWhichNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(which-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class An extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthIterNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(iter-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class In extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthRecNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(rec-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Bn extends xn{location;target;motive;base;step;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.base=r,this.step=s}synthHelper(t,e){return Nn.synthIndNat(t,e,this.target,this.motive,this.base,this.step)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(ind-nat ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Cn extends xn{location;arg1;arg2;args;constructor(t,e,n,r){super(t),this.location=t,this.arg1=e,this.arg2=n,this.args=r}synthHelper(t,e){return Nn.synthArrow(t,e,this.location,this.arg1,this.arg2,this.args)}findNames(){return this.arg1.findNames().concat(this.arg2.findNames()).concat(this.args.flatMap((t=>t.findNames())))}getType(t,e){const[n,r,s]=[this.arg1,this.arg2,this.args];if(0===s.length){const s=M(t,r,"x"),i=new O("Aout"),a=new O("Bout");return L([[i,()=>n.isType(t,e)],[a,()=>r.isType(W(t,s,D(t,i.value)),e)]],(()=>new S(new be(s,i.value,a.value))))}{const[i,...a]=s,o=M(t,vn(r,i,a),"x"),c=new O("Aout"),u=new O("tout");return L([[c,()=>n.isType(t,e)],[u,()=>new Cn(bn(this.location),r,i,a).isType(W(t,o,D(t,c.value)),e)]],(()=>new S(new be(o,c.value,u.value))))}}prettyPrint(){return`(-> ${this.arg1.prettyPrint()} ${this.arg2.prettyPrint()} ${this.args.map((t=>t.prettyPrint())).join(" ")})`}toString(){return this.prettyPrint()}}class Rn extends xn{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){return Nn.synthPi(t,e,this.location,this.binders,this.body)}findNames(){return this.binders.flatMap((t=>U(t))).concat(this.body.findNames())}getType(t,e){const[n,r]=[this.binders,this.body];if(1===n.length){const[s,i]=[n[0].binder,n[0].type],a=q(t,s.varName),o=(s.location,new O("Aout")),c=new O("Aoutv"),u=new O("Bout");return L([[o,()=>i.isType(t,e)],[c,()=>new S(D(t,o.value))],[u,()=>r.isType(W(t,a,c.value),wn(e,s.varName,a))]],(()=>(o.value,new S(new be(a,o.value,u.value)))))}if(n.length>1){const[s,...i]=n,[a,o]=[s.binder.varName,s.type],c=q(t,a),u=(s.binder.location,new O("Aout")),h=new O("Aoutv"),l=new O("Bout");return L([[u,()=>o.isType(t,e)],[h,()=>new S(D(t,u.value))],[l,()=>new Rn(bn(this.location),i,r).isType(W(t,c,h.value),wn(e,s.binder.varName,c))]],(()=>(u.value,new S(new be(c,u.value,l.value)))))}throw new Error("Invalid number of binders in Pi type")}prettyPrint(){return`(Π ${this.binders.map((t=>`(${t.binder.varName} ${t.type.prettyPrint()})`)).join(" ")} \n            ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class qn extends xn{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.binders.map((t=>t.varName)).concat(this.body.findNames())}checkOut(t,e,n){if(1===this.binders.length){const r=this.body,s=this.binders[0],i=s.varName,a=s.location,o=n.now();if(o instanceof Gt){const n=o.argType,s=o.resultType,a=fn(e,i),c=new O("bout");return L([[c,()=>r.check(W(t,a,n),wn(e,i,a),s.valOfClosure(new oe(n,new wt(a))))]],(()=>(n.readBackType(t),new S(new Ne(a,c.value)))))}return new $(a,new _([`Not a function type: ${o.readBackType(t)}.`]))}return new qn(this.location,[this.binders[0]],new qn(bn(this.location),this.binders.slice(1),this.body)).check(t,e,n)}prettyPrint(){return`(lambda ${this.binders.map((t=>t.varName)).join(" ")} ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class Mn extends xn{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){return Nn.synthSigma(t,e,this.location,this.binders,this.body)}findNames(){return this.binders.flatMap((t=>U(t))).concat(this.body.findNames())}getType(t,e){const[n,r]=[this.binders,this.body];if(1===n.length){const[s,i]=[n[0].binder,n[0].type],a=s.varName,o=q(t,a),c=(s.location,new O("Aout")),u=new O("Aoutv"),h=new O("Dout");return L([[c,()=>i.isType(t,e)],[u,()=>new S(D(t,c.value))],[h,()=>r.isType(W(t,o,u.value),wn(e,a,o))]],(()=>(c.value,new S(new ke(o,c.value,h.value)))))}if(n.length>1){const[[s,i],...a]=[[n[0].binder,n[0].type],n[1],...n.slice(2)],o=s.varName,c=q(t,o),u=(s.location,new O("Aout")),h=new O("Aoutv"),l=new O("Dout");return L([[u,()=>i.isType(t,e)],[h,()=>new S(D(t,u.value))],[l,()=>new Mn(this.location,a,r).isType(W(t,o,h.value),wn(e,o,c))]],(()=>(u.value,new S(new ke(c,u.value,l.value)))))}throw new Error("Invalid number of binders in Sigma type")}prettyPrint(){return`(Σ ${this.binders.map((t=>`(${t.binder.varName} ${t.type.prettyPrint()})`)).join(" ")} \n            ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class Un extends xn{location;name;constructor(t,e){super(t),this.location=t,this.name=e}synthHelper(t,e){return Nn.synthName(t,e,this.location,this.name)}findNames(){return[this.name]}prettyPrint(){return this.name}toString(){return this.prettyPrint()}}class Hn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthAtom(t,e)}findNames(){return[]}getType(t,e){return new S(new xe)}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}}class Dn extends xn{location;name;constructor(t,e){super(t),this.location=t,this.name=e}synthHelper(t,e){return Nn.synthQuote(t,e,this.location,this.name)}findNames(){return[]}prettyPrint(){return`'${this.name}`}toString(){return this.prettyPrint()}}class zn extends xn{location;first;second;constructor(t,e,n){super(t),this.location=t,this.first=e,this.second=n}synthHelper(t,e){return Nn.synthPair(t,e,this.first,this.second)}findNames(){return this.first.findNames().concat(this.second.findNames())}getType(t,e){const n=new O("Aout"),r=new O("Dout"),s=M(t,this.second,"x");return L([[n,()=>this.first.isType(t,e)],[r,()=>this.second.isType(W(t,s,D(t,n.value)),e)]],(()=>new S(new ke(s,n.value,r.value))))}prettyPrint(){return`(Pair ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}}class Qn extends xn{location;first;second;constructor(t,e,n){super(t),this.location=t,this.first=e,this.second=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.first.findNames().concat(this.second.findNames())}checkOut(t,e,n){const r=n.now();if(r instanceof Kt){const n=r.carType,s=r.cdrType,i=new O("aout"),a=new O("dout");return L([[i,()=>this.first.check(t,e,n)],[a,()=>this.second.check(t,e,s.valOfClosure(D(t,i.value)))]],(()=>new S(new Se(i.value,a.value))))}return new $(this.location,new _([`cons requires a Pair or Σ type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(cons ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}}class Fn extends xn{location;pair;constructor(t,e){super(t),this.location=t,this.pair=e}synthHelper(t,e){return Nn.synthCar(t,e,this.location,this.pair)}findNames(){return this.pair.findNames()}prettyPrint(){return`(car ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}}class Vn extends xn{location;pair;constructor(t,e){super(t),this.location=t,this.pair=e}synthHelper(t,e){return Nn.synthCdr(t,e,this.location,this.pair)}findNames(){return this.pair.findNames()}prettyPrint(){return`(cdr ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}}class Gn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthTrivial(t,e)}findNames(){return[]}getType(t,e){return new S(new Re)}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}}class Xn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthSole(t,e)}findNames(){return[]}prettyPrint(){return"Sole"}}class Kn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.now();return r instanceof Zt?new S(new Ae):new $(this.location,new _([`nil requires a List type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}}let Yn=class extends xn{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){return Nn.synthNumber(t,e,this.location,this.value)}findNames(){return[]}prettyPrint(){return`${this.value}`}toString(){return this.prettyPrint()}};class Zn extends xn{location;entryType;constructor(t,e){super(t),this.location=t,this.entryType=e}synthHelper(t,e){return Nn.synthList(t,e,this)}findNames(){return this.entryType.findNames()}getType(t,e){const n=new O("Eout");return L([[n,()=>this.entryType.isType(t,e)]],(()=>new S(new Ie(n.value))))}prettyPrint(){return`(List ${this.entryType.prettyPrint()})`}toString(){return this.prettyPrint()}}class jn extends xn{location;x;xs;constructor(t,e,n){super(t),this.location=t,this.x=e,this.xs=n}synthHelper(t,e){return Nn.synthListCons(t,e,this.x,this.xs)}findNames(){return this.x.findNames().concat(this.xs.findNames())}prettyPrint(){return`(:: ${this.x.prettyPrint()} ${this.xs.prettyPrint()})`}toString(){return this.prettyPrint()}}class Wn extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthRecList(t,e,this.location,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(rec-list ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Jn extends xn{location;target;motive;base;step;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.base=r,this.step=s}synthHelper(t,e){return Nn.synthIndList(t,e,this.location,this.target,this.motive,this.base,this.step)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(ind-list ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class tr extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthAbsurd(t,e,this)}findNames(){return[]}getType(t,e){return new S(new Me)}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}}class er extends xn{location;target;motive;constructor(t,e,n){super(t),this.location=t,this.target=e,this.motive=n}synthHelper(t,e){return Nn.synthIndAbsurd(t,e,this)}findNames(){return this.target.findNames().concat(this.motive.findNames())}prettyPrint(){return`(ind-Absurd \n              ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()})`}toString(){return this.prettyPrint()}}class nr extends xn{location;type;left;right;constructor(t,e,n,r){super(t),this.location=t,this.type=e,this.left=n,this.right=r}synthHelper(t,e){return Nn.synthEqual(t,e,this.type,this.left,this.right)}findNames(){return this.type.findNames().concat(this.left.findNames()).concat(this.right.findNames())}getType(t,e){const[n,r,s]=[this.type,this.left,this.right],i=new O("Aout"),a=new O("Av"),o=new O("from_out"),c=new O("to_out");return L([[i,()=>n.isType(t,e)],[a,()=>new S(D(t,i.value))],[o,()=>r.check(t,e,a.value)],[c,()=>s.check(t,e,a.value)]],(()=>new S(new He(i.value,o.value,c.value))))}prettyPrint(){return`(= ${this.type.prettyPrint()} \n              ${this.left.prettyPrint()} \n              ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class rr extends xn{location;type;constructor(t,e){super(t),this.location=t,this.type=e}findNames(){return this.type.findNames()}synthHelper(t,e){throw new Error("Method not implemented.")}checkOut(t,e,n){const r=n.now();if(r instanceof Jt){const n=r.type,s=r.from,i=r.to,a=new O("cout"),o=new O("val");return L([[a,()=>this.type.check(t,e,n)],[o,()=>new S(D(t,a.value))],[new O("_"),()=>dn(t,this.type.location,n,s,o.value)],[new O("_"),()=>dn(t,this.type.location,n,i,o.value)]],(()=>new S(new De(a.value))))}return new $(this.location,new _([`same requires an Equal type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(same ${this.type.prettyPrint()})`}toString(){return this.prettyPrint()}}class sr extends xn{location;target;motive;base;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.motive=n,this.base=r}synthHelper(t,e){return Nn.synthReplace(t,e,this.location,this.target,this.motive,this.base)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames())}prettyPrint(){return`(replace ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class ir extends xn{location;left;right;synthHelper(t,e){return Nn.synthTrans(t,e,this.location,this.left,this.right)}constructor(t,e,n){super(t),this.location=t,this.left=e,this.right=n}findNames(){return this.left.findNames().concat(this.right.findNames())}prettyPrint(){return`(trans ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class ar extends xn{location;target;fun;constructor(t,e,n){super(t),this.location=t,this.target=e,this.fun=n}synthHelper(t,e){return Nn.synthCong(t,e,this.location,this.target,this.fun)}findNames(){return this.target.findNames().concat(this.fun.findNames())}prettyPrint(){return`(cong ${this.target.prettyPrint()} ${this.fun.prettyPrint()})`}toString(){return this.prettyPrint()}}class or extends xn{location;equality;constructor(t,e){super(t),this.location=t,this.equality=e}synthHelper(t,e){return Nn.synthSymm(t,e,this.location,this.equality)}findNames(){return this.equality.findNames()}prettyPrint(){return`(symm ${this.equality.prettyPrint()})`}toString(){return this.prettyPrint()}}class cr extends xn{location;target;motive;base;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.motive=n,this.base=r}synthHelper(t,e){return Nn.synthIndEqual(t,e,this.location,this.target,this.motive,this.base)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames())}prettyPrint(){return`(ind-= ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class ur extends xn{location;type;length;constructor(t,e,n){super(t),this.location=t,this.type=e,this.length=n}synthHelper(t,e){return Nn.synthVec(t,e,this.type,this.length)}findNames(){return this.type.findNames().concat(this.length.findNames())}getType(t,e){const n=new O("Eout"),r=new O("lenout");return L([[n,()=>this.type.isType(t,e)],[r,()=>this.length.check(t,e,new Qt)]],(()=>new S(new Xe(n.value,r.value))))}prettyPrint(){return`(Vec ${this.type.prettyPrint()} ${this.length.prettyPrint()})`}toString(){return this.prettyPrint()}}class hr extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.now();if(r instanceof ee){return r.length.now()instanceof Ft?new S(new Ye):new $(this.location,new _([`vecnil requires a Vec type with length ZERO, but was used as a: \n          ${lt(t,new Qt,r.length)}.`]))}return new $(this.location,new _([`vecnil requires a Vec type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}}class lr extends xn{location;x;xs;constructor(t,e,n){super(t),this.location=t,this.x=e,this.xs=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.x.findNames().concat(this.xs.findNames())}checkOut(t,e,n){const r=n.now();if(r instanceof ee){const n=r.length.now();if(n instanceof Vt){const s=new O("hout"),i=new O("tout"),a=n.smaller;return L([[s,()=>this.x.check(t,e,r.entryType)],[i,()=>this.xs.check(t,e,new ee(r.entryType,a))]],(()=>new S(new Ke(s.value,i.value))))}return new $(this.location,new _([`vec:: requires a Vec type with length Add1, but was used with a: \n          ${lt(t,new Qt,r.length)}.`]))}return new $(this.location,new _([`vec:: requires a Vec type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(vec:: ${this.x.prettyPrint()} ${this.xs.prettyPrint()})`}toString(){return this.prettyPrint()}}class pr extends xn{location;vec;constructor(t,e){super(t),this.location=t,this.vec=e}synthHelper(t,e){return Nn.synthHead(t,e,this.location,this.vec)}findNames(){return this.vec.findNames()}prettyPrint(){return`(head ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}}class fr extends xn{location;vec;constructor(t,e){super(t),this.location=t,this.vec=e}synthHelper(t,e){return Nn.synthTail(t,e,this.location,this.vec)}findNames(){return this.vec.findNames()}prettyPrint(){return`(tail ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}}class wr extends xn{location;length;target;motive;base;step;constructor(t,e,n,r,s,i){super(t),this.location=t,this.length=e,this.target=n,this.motive=r,this.base=s,this.step=i}synthHelper(t,e){return Nn.synthIndVec(t,e,this.location,this.length,this.target,this.motive,this.base,this.step)}findNames(){return this.length.findNames().concat(this.target.findNames()).concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`ind-Vec ${this.length.prettyPrint()}\n              ${this.target.prettyPrint()}\n              ${this.motive.prettyPrint()}\n              ${this.base.prettyPrint()}\n              ${this.step.prettyPrint()}`}toString(){return this.prettyPrint()}}class yr extends xn{location;left;right;constructor(t,e,n){super(t),this.location=t,this.left=e,this.right=n}synthHelper(t,e){return Nn.synthEither(t,e,this.left,this.right)}findNames(){return this.left.findNames().concat(this.right.findNames())}getType(t,e){const n=new O("Lout"),r=new O("Rout");return L([[n,()=>this.left.isType(t,e)],[r,()=>this.right.isType(t,e)]],(()=>new S(new Je(n.value,r.value))))}prettyPrint(){return`(Either ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class dr extends xn{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.value.findNames()}checkOut(t,e,n){const r=n.now();if(r instanceof se){const n=new O("lout");return L([[n,()=>this.value.check(t,e,r.leftType)]],(()=>new S(new tn(n.value))))}return new $(this.location,new _([`left requires an Either type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class mr extends xn{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.value.findNames()}checkOut(t,e,n){const r=n.now();if(r instanceof se){const n=new O("rout");return L([[n,()=>this.value.check(t,e,r.rightType)]],(()=>new S(new en(n.value))))}return new $(this.location,new _([`right requires an Either type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class gr extends xn{location;target;motive;baseLeft;baseRight;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.baseLeft=r,this.baseRight=s}synthHelper(t,e){return Nn.synthIndEither(t,e,this.location,this.target,this.motive,this.baseLeft,this.baseRight)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.baseLeft.findNames()).concat(this.baseRight.findNames())}prettyPrint(){return`(ind-Either ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.baseLeft.prettyPrint()} \n              ${this.baseRight.prettyPrint()})`}toString(){return this.prettyPrint()}}class vr extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.readBackType(t);return pn(this.location,z(t)),new S(new rn(this.location.locationToSrcLoc(),r))}prettyPrint(){return"TODO"}toString(){return this.prettyPrint()}}class Er extends xn{location;func;arg;args;constructor(t,e,n,r){super(t),this.location=t,this.func=e,this.arg=n,this.args=r}synthHelper(t,e){return Nn.synthApplication(t,e,this.location,this.func,this.arg,this.args)}findNames(){return this.func.findNames().concat(this.arg.findNames()).concat(this.args.flatMap((t=>t.findNames())))}prettyPrint(){return`(${this.func.prettyPrint()} ${this.arg.prettyPrint()} ${this.args.map((t=>t.prettyPrint())).join(" ")})`}toString(){return this.prettyPrint()}}var Pr,Tr;!function(t){t[t.INTEGER=1]="INTEGER",t[t.RATIONAL=2]="RATIONAL",t[t.REAL=3]="REAL",t[t.COMPLEX=4]="COMPLEX"}(Pr||(Pr={}));class br{result;constructor(t){this.result=t}}class Nr extends br{result;value;constructor(t,e){super(t),this.result=t,this.value=e}isSigned(){return!!this.result&&("+"===this.value[0]||"-"===this.value[0])}build(){return Or.build(this.value)}}class xr extends br{result;numerator;denominator;constructor(t,e,n){super(t),this.result=t,this.numerator=e,this.denominator=n}build(){return Lr.build(this.numerator,this.denominator)}}class _r extends br{result;integer;decimal;exponent;constructor(t,e,n,r){super(t),this.result=t,this.integer=e,this.decimal=n,this.exponent=r}build(){if(this.integer?.includes("inf"))return this.integer.includes("-")?Ar.NEG_INFINITY:Ar.INFINITY;if(this.integer?.includes("nan"))return Ar.NAN;let t=(this.exponent?this.exponent.build():Ar.INEXACT_ZERO).coerce(),e=Number((this.integer?this.integer:"0")+"."+(this.decimal?this.decimal:"0"));return e*=Math.pow(10,t),Ar.build(e)}}class kr extends br{result;real;sign;imaginary;constructor(t,e,n,r){super(t),this.result=t,this.real=e,this.sign=n,this.imaginary=r}build(){const t=this.real?this.real.build():Or.EXACT_ZERO,e=this.imaginary.build();return this.sign&&"-"===this.sign?Ir.build(t,e.negate()):Ir.build(t,e)}}function Sr(t){const e=new RegExp("^([+-]?)(\\d+)$").exec(t);return e?new Nr(!0,e[0]):new Nr(!1)}function $r(t,e){const n=Sr(t);if(n.result&&e>=Pr.INTEGER)return n;const r=function(t){if(1!==(t.match(/\//g)||[]).length)return new xr(!1);const e=t.split("/");if(2!==e.length)return new xr(!1);const[n,r]=e,s=Sr(n),i=Sr(r);return s.result&&i.result?new xr(!0,n,r):new xr(!1)}(t);if(r.result&&e>=Pr.RATIONAL)return r;const s=function(t){function e(t){if(function(t){return"+inf.0"===t||"-inf.0"===t||"+nan.0"===t||"-nan.0"===t}(t))return new _r(!0,t);const e=(t.match(/\./g)||[]).length;if(e>1)return new _r(!1);if(0===e){const e=Sr(t);return new _r(e.result,e.value)}const[n,r]=t.split("."),s=Sr(n),i=Sr(r),a=s.result||""===n,o=i.result||""===r;return"+"===n||"-"===n?""===r?new _r(!1):new _r(!0,`${n}0`,t):s.result&&o||a&&i.result?i.result&&i.isSigned()?new _r(!1):new _r(!0,s.value,i.value):new _r(!1)}return 0===(t.match(/[eE]/g)||[]).length?e(t):function(t){const n=t.indexOf("e"),r=t.indexOf("E");if(-1===n&&-1===r)return new _r(!1);const s=-1===n?r:n,i=t.substring(0,s),a=t.substring(s+1);if(""===i||""==a)return new _r(!1);const o=e(i);if(!o.result)return new _r(!1);const c=$r(a,Pr.REAL);return c.result?new _r(!0,o.integer,o.decimal,c):new _r(!1)}(t)}(t);if(s.result&&e>=Pr.REAL)return s;const i=function(t){if((t.match(/i/g)||[]).length<1)return new kr(!1);if("i"!==t[t.length-1])return new kr(!1);const e=t.search(/(?<!^)[+-]/);if(-1===e){const e=$r(t.slice(0,-1),Pr.REAL);return e.result?new kr(!0,void 0,void 0,e):new kr(!1)}const n=t.slice(0,e);let r=t.slice(e+1,-1);"+"!==r[0]&&"-"!==r[0]&&(r="+"+r);const s=$r(n,Pr.REAL),i=$r(r,Pr.REAL);return s.result&&i.result?new kr(!0,s,t[e],i):new kr(!1)}(t);return i.result&&e>=Pr.COMPLEX?i:new Nr(!1)}class Or{numberType=Pr.INTEGER;value;static EXACT_ZERO=new Or(0n);constructor(t){this.value=t}static build(t,e=!1){const n=BigInt(t);return 0n===n?Or.EXACT_ZERO:new Or(n)}promote(t){switch(t){case Pr.INTEGER:return this;case Pr.RATIONAL:return Lr.build(this.value,1n,!0);case Pr.REAL:return Ar.build(this.coerce(),!0);case Pr.COMPLEX:return Ir.build(this,Or.EXACT_ZERO,!0)}}equals(t){return t instanceof Or&&this.value===t.value}greaterThan(t){return this.value>t.value}negate(){return this===Or.EXACT_ZERO?this:Or.build(-this.value)}multiplicativeInverse(){if(this===Or.EXACT_ZERO)throw new Error("Division by zero");return Lr.build(1n,this.value,!1)}add(t){return Or.build(this.value+t.value)}multiply(t){return Or.build(this.value*t.value)}getBigInt(){return this.value}coerce(){return this.value>Number.MAX_SAFE_INTEGER?1/0:this.value<Number.MIN_SAFE_INTEGER?-1/0:Number(this.value)}toString(){return this.value.toString()}}class Lr{numberType=Pr.RATIONAL;numerator;denominator;constructor(t,e){this.numerator=t,this.denominator=e}static build(t,e,n=!1){return Lr.simplify(BigInt(t),BigInt(e),n)}static simplify(t,e,n=!1){const r=(t,e)=>0n===e?t:r(e,t.valueOf()%e.valueOf()),s=r(t,e),i=t<0n?-1n:1n,a=e<0n?-1n:1n,o=i*a;return t*=i,1n!==(e*=a)||n?new Lr(o*t/s,e/s):Or.build(o*t)}getNumerator(){return this.numerator}getDenominator(){return this.denominator}promote(t){switch(t){case Pr.RATIONAL:return this;case Pr.REAL:return Ar.build(this.coerce(),!0);case Pr.COMPLEX:return Ir.build(this,Or.EXACT_ZERO,!0);default:throw new Error("Unable to demote rational")}}equals(t){return t instanceof Lr&&this.numerator===t.numerator&&this.denominator===t.denominator}greaterThan(t){return this.numerator*t.denominator>t.numerator*this.denominator}negate(){return Lr.build(-this.numerator,this.denominator)}multiplicativeInverse(){if(0n===this.numerator)throw new Error("Division by zero");return Lr.build(this.denominator,this.numerator)}add(t){const e=this.numerator*t.denominator+t.numerator*this.denominator,n=this.denominator*t.denominator;return Lr.build(e,n)}multiply(t){const e=this.numerator*t.numerator,n=this.denominator*t.denominator;return Lr.build(e,n)}coerce(){const t=this.numerator<0n?-this.numerator:this.numerator;let e=this.denominator;const n=Number(t/e);if(n>Number.MAX_VALUE)return this.numerator<0n?-1/0:1/0;let r=t%e;for(;r>Number.MAX_SAFE_INTEGER||e>Number.MAX_SAFE_INTEGER;)r/=2n,e/=2n;const s=Number(r)/Number(e);return this.numerator<0n?-(n+s):n+s}toString(){return`${this.numerator}/${this.denominator}`}}class Ar{numberType=Pr.REAL;value;static INEXACT_ZERO=new Ar(0);static INEXACT_NEG_ZERO=new Ar(-0);static INFINITY=new Ar(1/0);static NEG_INFINITY=new Ar(-1/0);static NAN=new Ar(NaN);static build(t,e=!1){return t===1/0?Ar.INFINITY:t===-1/0?Ar.NEG_INFINITY:isNaN(t)?Ar.NAN:0===t?Ar.INEXACT_ZERO:-0===t?Ar.INEXACT_NEG_ZERO:new Ar(t)}constructor(t){this.value=t}promote(t){switch(t){case Pr.REAL:return this;case Pr.COMPLEX:return Ir.build(this,Or.EXACT_ZERO,!0);default:throw new Error("Unable to demote real")}}equals(t){return t instanceof Ar&&this.value===t.value}greaterThan(t){return this.value>t.value}negate(){return Ar.build(-this.value)}multiplicativeInverse(){if(this===Ar.INEXACT_ZERO||this===Ar.INEXACT_NEG_ZERO)throw new Error("Division by zero");return Ar.build(1/this.value)}add(t){return Ar.build(this.value+t.value)}multiply(t){return Ar.build(this.value*t.value)}coerce(){return this.value}toString(){return this===Ar.INFINITY?"+inf.0":this===Ar.NEG_INFINITY?"-inf.0":this===Ar.NAN?"+nan.0":this.value.toString()}}class Ir{numberType=Pr.COMPLEX;real;imaginary;static build(t,e,n=!1){return Ir.simplify(new Ir(t,e),n)}constructor(t,e){this.real=t,this.imaginary=e}static simplify(t,e){return!e&&qr(t.imaginary,Or.EXACT_ZERO)?t.real:t}promote(t){if(t===Pr.COMPLEX)return this;throw new Error("Unable to demote complex")}negate(){return Ir.build(this.real.negate(),this.imaginary.negate())}equals(t){return qr(this.real,t.real)&&qr(this.imaginary,t.imaginary)}greaterThan(t){return Mr(this.real,t.real)&&Mr(this.imaginary,t.imaginary)}multiplicativeInverse(){const t=Ur(Hr(this.real,this.real),Hr(this.imaginary,this.imaginary));return Ir.build(Hr(t.multiplicativeInverse(),this.real),Hr(t.multiplicativeInverse(),this.imaginary.negate()))}add(t){return Ir.build(Ur(this.real,t.real),Ur(this.imaginary,t.imaginary))}multiply(t){const e=(n=Hr(this.real,t.real),r=Hr(this.imaginary,t.imaginary),Ur(n,function(t){return t.negate()}(r)));var n,r;const s=Ur(Hr(this.real,t.imaginary),Hr(this.imaginary,t.real));return Ir.build(e,s)}getReal(){return this.real}getImaginary(){return this.imaginary}coerce(){throw new Error("Cannot coerce a complex number to a javascript number")}toPolar(){const t=this.real.promote(Pr.REAL),e=this.imaginary.promote(Pr.REAL),n=Ar.build(Math.sqrt(t.coerce()*t.coerce()+e.coerce()*e.coerce())),r=Ar.build(Math.atan2(e.coerce(),t.coerce()));return Br.build(n,r)}toString(){return`${this.real}+${this.imaginary}i`}}class Br{magnitude;angle;constructor(t,e){this.magnitude=t,this.angle=e}static build(t,e){return new Br(t,e)}toCartesian(){const t=Ar.build(this.magnitude.coerce()*Math.cos(this.angle.coerce())),e=Ar.build(this.magnitude.coerce()*Math.sin(this.angle.coerce()));return Ir.build(t,e)}}function Cr(t){switch(t.numberType){case Pr.INTEGER:return t;case Pr.RATIONAL:return 1n===t.getDenominator()?Or.build(t.getNumerator()):t;case Pr.REAL:return t;case Pr.COMPLEX:return Ir.build(Cr(t.getReal()),Cr(t.getImaginary()))}}function Rr(t,e){return t.numberType>e.numberType?[t,e.promote(t.numberType)]:t.numberType<e.numberType?[t.promote(e.numberType),e]:[t,e]}function qr(t,e){const[n,r]=Rr(t,e);return n.equals(r)}function Mr(t,e){const[n,r]=Rr(t,e);return n.greaterThan(r)}function Ur(t,e){const[n,r]=Rr(t,e);return Cr(n.add(r))}function Hr(t,e){const[n,r]=Rr(t,e);return Cr(n.multiply(r))}class Dr{start;end;constructor(t,e){this.start=t,this.end=e}merge(t){return new Dr(this.start,t.end)}}class zr{line;column;constructor(t,e){this.line=t,this.column=e}}function Qr(t,e){return t.split("\n")[e.line-1]}function Fr(t){return"^".padStart(t.column," ")}!function(t){t[t.LEFT_PAREN=0]="LEFT_PAREN",t[t.RIGHT_PAREN=1]="RIGHT_PAREN",t[t.LEFT_BRACKET=2]="LEFT_BRACKET",t[t.RIGHT_BRACKET=3]="RIGHT_BRACKET",t[t.DOT=4]="DOT",t[t.HASH_SEMICOLON=5]="HASH_SEMICOLON",t[t.IDENTIFIER=6]="IDENTIFIER",t[t.NUMBER=7]="NUMBER",t[t.BOOLEAN=8]="BOOLEAN",t[t.STRING=9]="STRING",t[t.IF=10]="IF",t[t.LET=11]="LET",t[t.COND=12]="COND",t[t.ELSE=13]="ELSE",t[t.DEFINE=14]="DEFINE",t[t.LAMBDA=15]="LAMBDA",t[t.APOSTROPHE=16]="APOSTROPHE",t[t.BACKTICK=17]="BACKTICK",t[t.COMMA=18]="COMMA",t[t.COMMA_AT=19]="COMMA_AT",t[t.QUOTE=20]="QUOTE",t[t.QUASIQUOTE=21]="QUASIQUOTE",t[t.UNQUOTE=22]="UNQUOTE",t[t.UNQUOTE_SPLICING=23]="UNQUOTE_SPLICING",t[t.SET=24]="SET",t[t.BEGIN=25]="BEGIN",t[t.DELAY=26]="DELAY",t[t.IMPORT=27]="IMPORT",t[t.EXPORT=28]="EXPORT",t[t.DEFINE_SYNTAX=29]="DEFINE_SYNTAX",t[t.SYNTAX_RULES=30]="SYNTAX_RULES",t[t.HASH_VECTOR=31]="HASH_VECTOR",t[t.VECTOR=32]="VECTOR",t[t.EOF=33]="EOF"}(Tr||(Tr={}));class Vr extends SyntaxError{loc;constructor(t,e){super(`Syntax error at (${e.line}:${e.column})\n${t}`),this.loc=e}toString(){return this.message}}let Gr=class extends Vr{constructor(t,e){super(Qr(t,e)+"\nUnexpected EOF",e),this.name="UnexpectedEOFError"}};class Xr extends Vr{form;constructor(t,e,n){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Unexpected '${n}'`,e),this.form=n,this.name="UnexpectedTokenError"}}class Kr extends Vr{form;expected;constructor(t,e,n,r){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Expected '${r}' but got '${n}'`,e),this.form=n,this.expected=r,this.name="ExpectedTokenError"}}class Yr extends Vr{token;constructor(t,e,n,r){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Syntax '${n}' not allowed at Scheme §${r}`,e),this.token=n,this.name="DisallowedTokenError"}}class Zr extends Vr{token;constructor(t,e,n){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Syntax '${n}' not supported yet`,e),this.token=n,this.name="UnsupportedTokenError"}}class jr{elements;location;constructor(t){this.elements=t,this.location=new Dr(this.firstPos(),this.lastPos())}static build(t){if(0===t.length)throw new Error("Illegal empty group. This should never happen.");if(1===t.length){const n=t[0];if(Jr(n))return n;if((e=n).type!==Tr.IDENTIFIER&&e.type!==Tr.NUMBER&&e.type!==Tr.STRING&&e.type!==Tr.BOOLEAN)throw new Kr("",n.pos,n,"<data>");return new jr(t)}var e;if(2===t.length){const e=t[0];if(Wr(e)&&function(t){return t.type===Tr.APOSTROPHE||t.type===Tr.BACKTICK||t.type===Tr.HASH_VECTOR||t.type===Tr.COMMA||t.type===Tr.COMMA_AT}(e))return new jr(t)}const n=t[0],r=t[t.length-1];if(Wr(n)&&Wr(r)&&(i=r,(s=n).type===Tr.LEFT_PAREN&&i.type===Tr.RIGHT_PAREN||s.type===Tr.LEFT_BRACKET&&i.type===Tr.RIGHT_BRACKET))return new jr(t);var s,i;const a=new jr(t);throw new Kr("",a.location.start,a,"matching parentheses")}first(){return this.elements[0]}firstToken(){const t=this.first();return Wr(t)?t:t.firstToken()}firstPos(){return this.firstToken().pos}last(){return this.elements[this.elements.length-1]}lastToken(){const t=this.last();return Wr(t)?t:t.lastToken()}lastPos(){return this.lastToken().pos}isParenthesized(){const t=this.first();return Wr(t)&&(t.type===Tr.LEFT_PAREN||t.type===Tr.LEFT_BRACKET)}isSingleIdentifier(){return!this.isParenthesized()&&1===this.length()}unwrap(){return this.isParenthesized()?this.elements.slice(1,this.elements.length-1):this.elements}length(){return this.unwrap().length}toString(){return this.elements.map((t=>t.toString())).join(" ")}}function Wr(t){return t instanceof ts}function Jr(t){return t instanceof jr}class ts{type;lexeme;literal;start;end;pos;endPos;constructor(t,e,n,r,s,i,a){this.type=t,this.lexeme=e,this.literal=n,this.start=r,this.end=s,this.pos=new zr(i,a),this.endPos=new zr(i,a+e.length-1)}convertToken(){switch(this.type){case Tr.APOSTROPHE:return new ts(Tr.QUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.BACKTICK:return new ts(Tr.QUASIQUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.HASH_VECTOR:return new ts(Tr.VECTOR,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.COMMA:return new ts(Tr.UNQUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.COMMA_AT:return new ts(Tr.UNQUOTE_SPLICING,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);default:return this}}toString(){return`${this.lexeme}`}}class es extends SyntaxError{loc;constructor(t,e,n){super(t),this.loc={line:e,column:n}}toString(){return this.message}}class ns extends es{char;constructor(t,e,n){super(`Unexpected character '${n}' (${t}:${e})`,t,e),this.char=n,this.name="UnexpectedCharacterError"}}class rs extends es{constructor(t,e){super(`Unexpected EOF (${t}:${e})`,t,e),this.name="UnexpectedEOFError"}}let ss=new Map([[".",Tr.DOT],["if",Tr.IF],["let",Tr.LET],["cond",Tr.COND],["else",Tr.ELSE],["set!",Tr.SET],["begin",Tr.BEGIN],["delay",Tr.DELAY],["quote",Tr.QUOTE],["export",Tr.EXPORT],["import",Tr.IMPORT],["define",Tr.DEFINE],["lambda",Tr.LAMBDA],["define-syntax",Tr.DEFINE_SYNTAX],["syntax-rules",Tr.SYNTAX_RULES]]);class is{source;tokens;start=0;current=0;line=1;col=0;constructor(t){this.source=t,this.tokens=[]}isAtEnd(){return this.current>=this.source.length}advance(){return this.col++,this.source.charAt(this.current++)}jump(){this.start=this.current,this.col++,this.current++}addToken(t,e=null){const n=this.source.substring(this.start,this.current);this.tokens.push(new ts(t,n,e,this.start,this.current,this.line,this.col))}scanTokens(){for(;!this.isAtEnd();)this.start=this.current,this.scanToken();return this.tokens.push(new ts(Tr.EOF,"",null,this.start,this.current,this.line,this.col)),this.tokens}scanToken(){const t=this.advance();switch(t){case"(":this.addToken(Tr.LEFT_PAREN);break;case")":this.addToken(Tr.RIGHT_PAREN);break;case"[":this.addToken(Tr.LEFT_BRACKET);break;case"]":this.addToken(Tr.RIGHT_BRACKET);break;case"'":this.addToken(Tr.APOSTROPHE);break;case"`":this.addToken(Tr.BACKTICK);break;case",":if(this.match("@")){this.addToken(Tr.COMMA_AT);break}this.addToken(Tr.COMMA);break;case"#":if(this.match("t")||this.match("f"))this.booleanToken();else if(this.match("|"))this.comment();else if(this.match(";"))this.addToken(Tr.HASH_SEMICOLON);else{if("("!==this.peek()&&"["!==this.peek())throw new ns(this.line,this.col,t);this.addToken(Tr.HASH_VECTOR)}break;case";":for(;"\n"!=this.peek()&&!this.isAtEnd();)this.advance();break;case" ":case"\r":case"\t":break;case"\n":this.line++,this.col=0;break;case'"':this.stringToken();break;case"|":this.identifierTokenLoose();break;default:if(this.isDigit(t)||"-"===t||"+"===t||"."===t||"i"===t||"n"===t)this.identifierNumberToken();else{if(!this.isValidIdentifier(t))throw new ns(this.line,this.col,t);this.identifierToken()}}}comment(){for(;("|"!=this.peek()||"#"!=this.peekNext())&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new rs(this.line,this.col);this.jump(),this.jump()}identifierToken(){for(;this.isValidIdentifier(this.peek());)this.advance();this.addToken(this.checkKeyword())}identifierTokenLoose(){for(this.advance();"|"!=this.peek()&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new rs(this.line,this.col);this.advance(),this.addToken(this.checkKeyword())}identifierNumberToken(){for(;this.isValidIdentifier(this.peek());)this.advance();const t=this.source.substring(this.start,this.current);$r(t,Pr.COMPLEX).result?this.addToken(Tr.NUMBER,t):this.addToken(this.checkKeyword())}checkKeyword(){var t=this.source.substring(this.start,this.current);return ss.has(t)?ss.get(t):Tr.IDENTIFIER}stringToken(){for(;'"'!=this.peek()&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new rs(this.line,this.col);this.advance();const t=this.source.substring(this.start+1,this.current-1);this.addToken(Tr.STRING,t)}booleanToken(){this.addToken(Tr.BOOLEAN,"t"===this.peekPrev())}match(t){return!this.isAtEnd()&&(this.source.charAt(this.current)==t&&(this.current++,!0))}peek(){return this.isAtEnd()?"\0":this.source.charAt(this.current)}peekNext(){return this.current+1>=this.source.length?"\0":this.source.charAt(this.current+1)}peekPrev(){return this.current-1<0?"\0":this.source.charAt(this.current-1)}isDigit(t){return t>="0"&&t<="9"}isSpecialSyntax(t){return"("===t||")"===t||"["===t||"]"===t||";"===t||"|"===t}isValidIdentifier(t){return!this.isWhitespace(t)&&!this.isSpecialSyntax(t)}isWhitespace(t){return" "===t||"\0"===t||"\n"===t||"\r"===t||"\t"===t}}var as,os;!function(t){class e{location;expressions;constructor(t,e){this.location=t,this.expressions=e}accept(t){return t.visitSequence(this)}equals(t){if(t instanceof e){if(this.expressions.length!==t.expressions.length)return!1;for(let e=0;e<this.expressions.length;e++)if(!this.expressions[e].equals(t.expressions[e]))return!1;return!0}return!1}}t.Sequence=e;class n{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitNumericLiteral(this)}equals(t){return t instanceof n&&this.value===t.value}}t.NumericLiteral=n;class r{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitBooleanLiteral(this)}equals(t){return t instanceof r&&this.value===t.value}}t.BooleanLiteral=r;class s{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitStringLiteral(this)}equals(t){return t instanceof s&&this.value===t.value}}t.StringLiteral=s;class i{location;params;rest;body;constructor(t,e,n,r=void 0){this.location=t,this.params=n,this.rest=r,this.body=e}accept(t){return t.visitLambda(this)}equals(t){if(t instanceof i){if(this.params.length!==t.params.length)return!1;for(let e=0;e<this.params.length;e++)if(!this.params[e].equals(t.params[e]))return!1;if(this.rest&&t.rest){if(!this.rest.equals(t.rest))return!1}else if(this.rest||t.rest)return!1;return this.body.equals(t.body)}return!1}}t.Lambda=i;class a{location;name;constructor(t,e){this.location=t,this.name=e}accept(t){return t.visitIdentifier(this)}equals(t){return t instanceof a&&this.name===t.name}}t.Identifier=a;class o{location;name;value;constructor(t,e,n){this.location=t,this.name=e,this.value=n}accept(t){return t.visitDefinition(this)}equals(t){return t instanceof o&&(this.name.equals(t.name)&&this.value.equals(t.value))}}t.Definition=o;class c{location;operator;operands;constructor(t,e,n){this.location=t,this.operator=e,this.operands=n}accept(t){return t.visitApplication(this)}equals(t){if(t instanceof c){if(!this.operator.equals(t.operator))return!1;if(this.operands.length!==t.operands.length)return!1;for(let e=0;e<this.operands.length;e++)if(!this.operands[e].equals(t.operands[e]))return!1;return!0}return!1}}t.Application=c;class u{location;test;consequent;alternate;constructor(t,e,n,r){this.location=t,this.test=e,this.consequent=n,this.alternate=r}accept(t){return t.visitConditional(this)}equals(t){return t instanceof u&&(this.test.equals(t.test)&&this.consequent.equals(t.consequent)&&this.alternate.equals(t.alternate))}}t.Conditional=u;class h{location;car;cdr;constructor(t,e,n){this.location=t,this.car=e,this.cdr=n}accept(t){return t.visitPair(this)}equals(t){return t instanceof h&&(this.car.equals(t.car)&&this.cdr.equals(t.cdr))}}t.Pair=h;class l{location;constructor(t){this.location=t}accept(t){return t.visitNil(this)}equals(t){return t instanceof l}}t.Nil=l;class p{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitSymbol(this)}equals(t){return t instanceof p&&this.value===t.value}}t.Symbol=p;class f{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitSpliceMarker(this)}equals(t){return t instanceof f&&this.value.equals(t.value)}}t.SpliceMarker=f;class w{location;name;value;constructor(t,e,n){this.location=t,this.name=e,this.value=n}accept(t){return t.visitReassignment(this)}equals(t){return t instanceof w&&(this.name.equals(t.name)&&this.value.equals(t.value))}}t.Reassignment=w;class y{location;source;identifiers;constructor(t,e,n){this.location=t,this.source=e,this.identifiers=n}accept(t){return t.visitImport(this)}equals(t){if(t instanceof y){if(!this.source.equals(t.source))return!1;if(this.identifiers.length!==t.identifiers.length)return!1;for(let e=0;e<this.identifiers.length;e++)if(!this.identifiers[e].equals(t.identifiers[e]))return!1;return!0}return!1}}t.Import=y;class d{location;definition;constructor(t,e){this.location=t,this.definition=e}accept(t){return t.visitExport(this)}equals(t){return t instanceof d&&this.definition.equals(t.definition)}}t.Export=d;class m{location;elements;constructor(t,e){this.location=t,this.elements=e}accept(t){return t.visitVector(this)}equals(t){if(t instanceof m){if(this.elements.length!==t.elements.length)return!1;for(let e=0;e<this.elements.length;e++)if(!this.elements[e].equals(t.elements[e]))return!1;return!0}return!1}}t.Vector=m;class g{location;name;transformer;constructor(t,e,n){this.location=t,this.name=e,this.transformer=n}accept(t){return t.visitDefineSyntax(this)}equals(t){return t instanceof g&&(this.name.equals(t.name)&&this.transformer.equals(t.transformer))}}t.DefineSyntax=g;class v{location;literals;rules;constructor(t,e,n){this.location=t,this.literals=e,this.rules=n}accept(t){return t.visitSyntaxRules(this)}equals(t){if(t instanceof v){if(this.literals.length!==t.literals.length)return!1;for(let e=0;e<this.literals.length;e++)if(!this.literals[e].equals(t.literals[e]))return!1;if(this.rules.length!==t.rules.length)return!1;for(let e=0;e<this.rules.length;e++)if(!this.rules[e][0].equals(t.rules[e][0])||!this.rules[e][1].equals(t.rules[e][1]))return!1;return!0}return!1}}t.SyntaxRules=v}(as||(as={})),function(t){class e{location;name;params;rest;body;constructor(t,e,n,r,s=void 0){this.location=t,this.name=e,this.body=n,this.params=r,this.rest=s}accept(t){return t.visitFunctionDefinition(this)}equals(t){if(t instanceof e){if(this.params.length!==t.params.length)return!1;for(let e=0;e<this.params.length;e++)if(!this.params[e].equals(t.params[e]))return!1;if(this.rest&&t.rest){if(!this.rest.equals(t.rest))return!1}else if(this.rest||t.rest)return!1;return this.body.equals(t.body)}return!1}}t.FunctionDefinition=e;class n{location;identifiers;values;body;constructor(t,e,n,r){this.location=t,this.identifiers=e,this.values=n,this.body=r}accept(t){return t.visitLet(this)}equals(t){if(t instanceof n){if(this.identifiers.length!==t.identifiers.length)return!1;for(let e=0;e<this.identifiers.length;e++)if(!this.identifiers[e].equals(t.identifiers[e]))return!1;if(this.values.length!==t.values.length)return!1;for(let e=0;e<this.values.length;e++)if(!this.values[e].equals(t.values[e]))return!1;return this.body.equals(t.body)}return!1}}t.Let=n;class r{location;predicates;consequents;catchall;constructor(t,e,n,r){this.location=t,this.predicates=e,this.consequents=n,this.catchall=r}accept(t){return t.visitCond(this)}equals(t){if(t instanceof r){if(this.predicates.length!==t.predicates.length)return!1;for(let e=0;e<this.predicates.length;e++)if(!this.predicates[e].equals(t.predicates[e]))return!1;if(this.consequents.length!==t.consequents.length)return!1;for(let e=0;e<this.consequents.length;e++)if(!this.consequents[e].equals(t.consequents[e]))return!1;return this.catchall&&t.catchall?this.catchall.equals(t.catchall):!this.catchall&&!t.catchall}return!1}}t.Cond=r;class s{location;elements;terminator;constructor(t,e,n=void 0){this.location=t,this.elements=e,this.terminator=n}accept(t){return t.visitList(this)}equals(t){if(t instanceof s){if(this.elements.length!==t.elements.length)return!1;for(let e=0;e<this.elements.length;e++)if(!this.elements[e].equals(t.elements[e]))return!1;return this.terminator&&t.terminator?this.terminator.equals(t.terminator):!this.terminator&&!t.terminator}return!1}}t.List=s;class i{location;expressions;constructor(t,e){this.location=t,this.expressions=e}accept(t){return t.visitBegin(this)}equals(t){if(t instanceof i){if(this.expressions.length!==t.expressions.length)return!1;for(let e=0;e<this.expressions.length;e++)if(!this.expressions[e].equals(t.expressions[e]))return!1;return!0}return!1}}t.Begin=i;class a{location;expression;constructor(t,e){this.location=t,this.expression=e}accept(t){return t.visitDelay(this)}equals(t){return t instanceof a&&this.expression.equals(t.expression)}}t.Delay=a}(os||(os={}));var cs;!function(t){t[t.NONE=0]="NONE",t[t.QUOTE=1]="QUOTE",t[t.QUASIQUOTE=2]="QUASIQUOTE"}(cs||(cs={}));class us{source;tokens;chapter;current=0;quoteMode=cs.NONE;constructor(t,e,n=1/0){this.source=t,this.tokens=e,this.chapter=n}advance(){return this.isAtEnd()||this.current++,this.previous()}isAtEnd(){return this.current>=this.tokens.length}previous(){return this.tokens[this.current-1]}peek(){return this.tokens[this.current]}validateChapter(t,e){if(this.chapter<e)throw new Yr(this.source,t.pos,t,this.chapter)}toLocation(t){return new Dr(t.pos,t.endPos)}destructureList(t,e=t=>{}){if(0===t.length)return[[],void 0];if(1===t.length)return e(t[0]),[[this.parseExpression(t[0])],void 0];const n=t.at(-2);if(Wr(n)&&n.type===Tr.DOT){const n=t.at(-1),r=t.slice(0,-2);return e(n),r.forEach(e),[r.map(this.parseExpression.bind(this)),this.parseExpression(n)]}const r=t;return r.forEach(e),[r.map(this.parseExpression.bind(this)),void 0]}grouping(t){const e=[];let n=!1;t&&(n=!0,e.push(t));do{let t=this.advance();switch(t.type){case Tr.LEFT_PAREN:case Tr.LEFT_BRACKET:const r=this.grouping(t);e.push(r);break;case Tr.RIGHT_PAREN:case Tr.RIGHT_BRACKET:if(!n)throw new Xr(this.source,t.pos,t);e.push(t),n=!1;break;case Tr.APOSTROPHE:case Tr.BACKTICK:case Tr.COMMA:case Tr.COMMA_AT:case Tr.HASH_VECTOR:let s;do{s=this.grouping()}while(!s);e.push(this.affect(t,s));break;case Tr.QUOTE:case Tr.QUASIQUOTE:case Tr.UNQUOTE:case Tr.UNQUOTE_SPLICING:case Tr.IDENTIFIER:case Tr.NUMBER:case Tr.BOOLEAN:case Tr.STRING:case Tr.DOT:case Tr.DEFINE:case Tr.IF:case Tr.ELSE:case Tr.COND:case Tr.LAMBDA:case Tr.LET:case Tr.SET:case Tr.BEGIN:case Tr.DELAY:case Tr.IMPORT:case Tr.EXPORT:case Tr.DEFINE_SYNTAX:case Tr.SYNTAX_RULES:e.push(t);break;case Tr.HASH_SEMICOLON:for(;!this.grouping(););break;case Tr.EOF:throw new Gr(this.source,t.pos);default:throw new Xr(this.source,t.pos,t)}}while(n);if(0!==e.length)try{return jr.build(e)}catch(t){if(t instanceof Kr)throw new Kr(this.source,t.loc,t.form,t.expected);throw t}}affect(t,e){return jr.build([t,e])}parseExpression(t){return Wr(t)?this.parseToken(t):t.isSingleIdentifier()?this.parseToken(t.unwrap()[0]):this.parseGroup(t)}parseToken(t){switch(t.type){case Tr.IDENTIFIER:return this.quoteMode===cs.NONE?new as.Identifier(this.toLocation(t),t.lexeme):new as.Symbol(this.toLocation(t),t.lexeme);case Tr.NUMBER:return new as.NumericLiteral(this.toLocation(t),t.literal);case Tr.BOOLEAN:return new as.BooleanLiteral(this.toLocation(t),t.literal);case Tr.STRING:return new as.StringLiteral(this.toLocation(t),t.literal);default:if(this.quoteMode!==cs.NONE||this.chapter>=5)return new as.Symbol(this.toLocation(t),t.lexeme);throw new Xr(this.source,t.pos,t)}}parseGroup(t){if(!t.isParenthesized())return this.parseAffectorGroup(t);switch(this.quoteMode){case cs.NONE:return this.parseNormalGroup(t);case cs.QUOTE:case cs.QUASIQUOTE:return this.parseQuotedGroup(t)}}parseAffectorGroup(t){const[e,n]=t.unwrap();switch(e.type){case Tr.APOSTROPHE:case Tr.QUOTE:if(this.validateChapter(e,2),this.quoteMode!==cs.NONE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"quote"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.QUOTE;const r=this.parseExpression(n);return this.quoteMode=cs.NONE,r;case Tr.BACKTICK:case Tr.QUASIQUOTE:if(this.validateChapter(e,2),this.quoteMode!==cs.NONE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"quasiquote"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.QUASIQUOTE;const s=this.parseExpression(n);return this.quoteMode=cs.NONE,s;case Tr.COMMA:case Tr.UNQUOTE:this.validateChapter(e,2);let i=this.quoteMode;if(i===cs.NONE)throw new Zr(this.source,e.pos,e);if(i===cs.QUOTE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"unquote"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.NONE;const a=this.parseExpression(n);return this.quoteMode=i,a;case Tr.COMMA_AT:case Tr.UNQUOTE_SPLICING:this.validateChapter(e,2);let o=this.quoteMode;if(o===cs.NONE)throw new Xr(this.source,e.pos,e);if(o===cs.QUOTE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"unquote-splicing"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.NONE;const c=this.parseExpression(n);this.quoteMode=o;const u=this.toLocation(e).merge(c.location);return new as.SpliceMarker(u,c);case Tr.HASH_VECTOR:this.validateChapter(e,3);let h=this.quoteMode;this.quoteMode=cs.QUOTE;const l=this.parseVector(t);return this.quoteMode=h,l;default:throw new Xr(this.source,e.pos,e)}}parseNormalGroup(t){if(0===t.length()){if(this.chapter>=5)return new as.Nil(t.location);throw new Kr(this.source,t.location.start,t,"non-empty group")}const e=t.unwrap()[0];if(Wr(e))switch(e.type){case Tr.LAMBDA:return this.validateChapter(e,1),this.parseLambda(t);case Tr.DEFINE:return this.validateChapter(e,1),this.parseDefinition(t);case Tr.IF:return this.validateChapter(e,1),this.parseConditional(t);case Tr.LET:return this.validateChapter(e,1),this.parseLet(t);case Tr.COND:return this.validateChapter(e,1),this.parseExtendedCond(t);case Tr.QUOTE:case Tr.APOSTROPHE:case Tr.QUASIQUOTE:case Tr.BACKTICK:case Tr.UNQUOTE:case Tr.COMMA:case Tr.UNQUOTE_SPLICING:case Tr.COMMA_AT:return this.validateChapter(e,2),this.parseAffectorGroup(t);case Tr.BEGIN:return this.validateChapter(e,3),this.parseBegin(t);case Tr.DELAY:return this.validateChapter(e,3),this.parseDelay(t);case Tr.SET:return this.validateChapter(e,3),this.parseSet(t);case Tr.DEFINE_SYNTAX:return this.validateChapter(e,5),this.parseDefineSyntax(t);case Tr.SYNTAX_RULES:throw new Xr(this.source,e.pos,e);case Tr.IMPORT:return this.validateChapter(e,1),this.parseImport(t);case Tr.EXPORT:return this.validateChapter(e,1),this.parseExport(t);case Tr.VECTOR:return this.validateChapter(e,3),this.parseAffectorGroup(t);default:return this.parseApplication(t)}return this.parseApplication(t)}parseQuotedGroup(t){if(0===t.length())return new as.Nil(t.location);if(1===t.length()){const e=[this.parseExpression(t.unwrap()[0])];return new os.List(t.location,e)}const e=t.unwrap(),[n,r]=this.destructureList(e);return new os.List(t.location,n,r)}parseLambda(t){if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(lambda (<identifier>* . <rest-identifier>?) <body>+) | (lambda <rest-identifer> <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);let s,i=[];if(Wr(n)){if(n.type!==Tr.IDENTIFIER)throw new Kr(this.source,n.pos,n,"<rest-identifier>");s=new as.Identifier(this.toLocation(n),n.lexeme)}else{const t=n.unwrap();[i,s]=this.destructureList(t,(t=>{if(!Wr(t))throw new Kr(this.source,t.pos,t,"<identifier>");if(t.type!==Tr.IDENTIFIER)throw new Kr(this.source,t.pos,t,"<identifier>")}))}const a=r.map(this.parseExpression.bind(this));if(a.length<1)throw new Kr(this.source,t.location.start,t,"(lambda ... <body>+)");if(1===a.length)return new as.Lambda(t.location,a[0],i,s);const o=a.at(0).location.merge(a.at(-1).location),c=new as.Sequence(o,a);return new as.Lambda(t.location,c,i,s)}parseDefinition(t){if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(define <identifier> <expr>) | (define (<identifier> <formals>) <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);let s,i,a=[],o=!1;if(Jr(n)){o=!0;const t=n.unwrap(),e=t[0],r=t.splice(1);if(!Wr(e))throw new Kr(this.source,e.location.start,e,"<identifier>");if(e.type!==Tr.IDENTIFIER)throw new Kr(this.source,e.pos,e,"<identifier>");s=new as.Identifier(this.toLocation(e),e.lexeme),[a,i]=this.destructureList(r,(t=>{if(!Wr(t))throw new Kr(this.source,t.pos,t,"<identifier>");if(t.type!==Tr.IDENTIFIER)throw new Kr(this.source,t.pos,t,"<identifier>")}))}else{if(n.type!==Tr.IDENTIFIER)throw new Kr(this.source,n.pos,n,"<identifier>");s=new as.Identifier(this.toLocation(n),n.lexeme),o=!1}if(r.length<1)throw new Kr(this.source,t.location.start,t,"(define ... <body>+)");if(o){const e=r.map(this.parseExpression.bind(this));if(1===e.length)return new os.FunctionDefinition(t.location,s,e[0],a,i);const n=e.at(0).location.merge(e.at(-1).location),o=new as.Sequence(n,e);return new os.FunctionDefinition(t.location,s,o,a,i)}if(r.length>1)throw new Kr(this.source,t.location.start,t,"(define <identifier> <expr>)");const c=this.parseExpression(r[0]);return new as.Definition(t.location,s,c)}parseConditional(t){if(t.length()<3||t.length()>4)throw new Kr(this.source,t.location.start,t,"(if <pred> <cons> <alt>?)");const e=t.unwrap(),n=e[1],r=e[2],s=t.length()>3?e[3]:void 0,i=this.parseExpression(n),a=this.parseExpression(r),o=s?this.parseExpression(s):new as.Identifier(t.location,"undefined");return new as.Conditional(t.location,i,a,o)}parseApplication(t){if(t.length()<1)throw new Kr(this.source,t.location.start,t,"(<func> <args>*)");const e=t.unwrap(),n=e[0],r=e.splice(1),s=this.parseExpression(n),i=[];for(const t of r)i.push(this.parseExpression(t));return new as.Application(t.location,s,i)}parseLet(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach((t=>{this.parseExpression(t)})),new os.Let(t.location,[],[],new as.Identifier(t.location,"undefined"))}if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(let ((<identifier> <value>)*) <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);if(!Jr(n))throw new Kr(this.source,n.pos,n,"((<identifier> <value>)*)");const s=[],i=[],a=n.unwrap();for(const t of a){if(!Jr(t))throw new Kr(this.source,t.pos,t,"(<identifier> <value>)");if(2!==t.length())throw new Kr(this.source,t.location.start,t,"(<identifier> <value>)");const[e,n]=t.unwrap();if(!Wr(e))throw new Kr(this.source,e.location.start,e,"<identifier>");if(e.type!==Tr.IDENTIFIER)throw new Kr(this.source,e.pos,e,"<identifier>");s.push(new as.Identifier(this.toLocation(e),e.lexeme)),i.push(this.parseExpression(n))}const o=r.map(this.parseExpression.bind(this));if(o.length<1)throw new Kr(this.source,t.location.start,t,"(let ... <body>+)");if(1===o.length)return new os.Let(t.location,s,i,o[0]);const c=o.at(0).location.merge(o.at(-1).location),u=new as.Sequence(c,o);return new os.Let(t.location,s,i,u)}parseExtendedCond(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach((t=>{this.parseExpression(t)})),new os.Cond(t.location,[],[],new as.Identifier(t.location,"undefined"))}if(t.length()<2)throw new Kr(this.source,t.location.start,t,"(cond (<pred> <body>*)* (else <val>)?)");const e=t.unwrap().splice(1),n=e.pop(),r=[],s=[];for(const t of e){if(!Jr(t))throw new Kr(this.source,t.pos,t,"(<pred> <body>*)");if(t.length()<1)throw new Kr(this.source,t.firstToken().pos,t.firstToken(),"(<pred> <body>*)");const[e,...n]=t.unwrap();if(Wr(e)&&e.type===Tr.ELSE)throw new Kr(this.source,e.pos,e,"<predicate>");const i=this.parseExpression(e),a=n.map(this.parseExpression.bind(this)),o=n.length<1?i.location:a.at(0).location.merge(a.at(-1).location),c=n.length<1?i:n.length<2?a[0]:new as.Sequence(o,a);r.push(i),s.push(c)}if(!Jr(n))throw new Kr(this.source,n.pos,n,"(<pred> <body>+) | (else <val>)");if(n.length()<2)throw new Kr(this.source,n.firstToken().pos,n.firstToken(),"(<pred> <body>+) | (else <val>)");const[i,...a]=n.unwrap();let o=!1;if(Wr(i)&&i.type===Tr.ELSE&&(o=!0,1!==a.length))throw new Kr(this.source,n.location.start,n,"(else <val>)");if(a.length<1)throw new Kr(this.source,n.location.start,n,"(<pred> <body>+)");const c=a.map(this.parseExpression.bind(this)),u=c.at(0).location.merge(c.at(-1).location),h=1===a.length?c[0]:new as.Sequence(u,c);if(o)return new os.Cond(t.location,r,s,h);const l=this.parseExpression(i);return r.push(l),s.push(h),new os.Cond(t.location,r,s)}parseSet(t){if(3!==t.length())throw new Kr(this.source,t.location.start,t,"(set! <identifier> <expr>)");const e=t.unwrap(),n=e[1],r=e[2];if(Jr(n))throw new Kr(this.source,n.location.start,n,"<identifier>");if(n.type!==Tr.IDENTIFIER)throw new Kr(this.source,n.pos,n,"<identifier>");const s=new as.Identifier(this.toLocation(n),n.lexeme),i=this.parseExpression(r);return new as.Reassignment(t.location,s,i)}parseBegin(t){if(t.length()<2)throw new Kr(this.source,t.location.start,t,"(begin <body>+)");const e=t.unwrap().slice(1),n=[];for(const t of e)n.push(this.parseExpression(t));return new os.Begin(t.location,n)}parseDelay(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach((t=>{this.parseExpression(t)})),new os.Delay(t.location,new as.Identifier(t.location,"undefined"))}if(2!==t.length())throw new Kr(this.source,t.location.start,t,"(delay <expr>)");const e=t.unwrap()[1],n=this.parseExpression(e);return new os.Delay(t.location,n)}parseDefineSyntax(t){if(3!==t.length())throw new Kr(this.source,t.location.start,t,"(define-syntax <identifier> <transformer>)");const e=t.unwrap(),n=e[1],r=e[2];this.quoteMode=cs.QUOTE;const s=this.parseExpression(n);if(this.quoteMode=cs.NONE,!(s instanceof as.Symbol))throw new Kr(this.source,s.location.start,n,"<identifier>");if(!Jr(r))throw new Kr(this.source,r.pos,r,"<transformer>");if(r.length()<2)throw new Kr(this.source,r.firstToken().pos,r,"(syntax-rules ...)");const i=r.unwrap()[0];if(!Wr(r.unwrap()[0]))throw new Kr(this.source,r.firstToken().pos,i,"syntax-rules");if(i.type!==Tr.SYNTAX_RULES)throw new Kr(this.source,i.pos,i,"syntax-rules");const a=this.parseSyntaxRules(r);return new as.DefineSyntax(t.location,s,a)}isValidPattern(t){if(t instanceof os.List){if(void 0===t.terminator){if(t.elements.filter((t=>t instanceof as.Symbol&&"..."===t.value)).length>1)return!1;const e=t.elements.findIndex((t=>t instanceof as.Symbol&&"..."===t.value));if(-1!=e&&0===e)return!1;for(const e of t.elements)if(!this.isValidPattern(e))return!1;return!0}{if(t.elements.filter((t=>t instanceof as.Symbol&&"..."===t.value)).length>1)return!1;const e=t.elements.findIndex((t=>t instanceof as.Symbol&&"..."===t.value));if(-1!=e){if(0===e)return!1;if(e===t.elements.length-1)return!1}for(const e of t.elements)if(!this.isValidPattern(e))return!1;return this.isValidPattern(t.terminator)}}return t instanceof as.Symbol||t instanceof as.BooleanLiteral||t instanceof as.NumericLiteral||t instanceof as.StringLiteral||t instanceof as.Nil}isValidTemplate(t){if(t instanceof os.List){if(void 0===t.terminator){if(0===t.elements.length)return!1;if(2===t.elements.length&&t.elements[0]instanceof as.Symbol&&"..."===t.elements[0].value)return this.isValidTemplate(t.elements[1]);let e=!1;for(let n=0;n<t.elements.length;n++){const r=t.elements[n];if(r instanceof as.Symbol&&"..."===r.value){if(e){e=!1;continue}return!1}if(!this.isValidTemplate(r))return!1;e=!0}return!0}{if(0===t.elements.length)return!1;let e=!1;for(let n=0;n<t.elements.length;n++){const r=t.elements[n];if(r instanceof as.Symbol&&"..."===r.value){if(e){e=!1;continue}return!1}if(!this.isValidTemplate(r))return!1;e=!0}return this.isValidTemplate(t.terminator)}}return t instanceof as.Symbol||t instanceof as.BooleanLiteral||t instanceof as.NumericLiteral||t instanceof as.StringLiteral||t instanceof as.Nil}parseSyntaxRules(t){if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(syntax-rules (<literal>*) <syntax-rule>+)");const e=t.unwrap(),n=e[1],r=e.slice(2),s=[];if(!Jr(n))throw new Kr(this.source,n.pos,n,"(<literal>*)");this.quoteMode=cs.QUOTE;for(const t of n.unwrap()){if(!Wr(t))throw new Kr(this.source,t.location.start,t,"<literal>");const e=this.parseExpression(t);if(!(e instanceof as.Symbol))throw new Kr(this.source,t.pos,t,"<literal>");s.push(e)}const i=[];for(const t of r){if(!Jr(t))throw new Kr(this.source,t.pos,t,"(<pattern> <template>)");if(2!==t.length())throw new Kr(this.source,t.location.start,t,"(<pattern> <template>)");const[e,n]=t.unwrap(),r=this.parseExpression(e),s=this.parseExpression(n);if(!this.isValidPattern(r))throw new Kr(this.source,r.location.start,e,"<symbol> | <literal> | (<pattern>+) | (<pattern>+ ... <pattern>*) | (<pattern>+ ... <pattern>+ . <pattern>)");if(!this.isValidTemplate(s))throw new Kr(this.source,s.location.start,n,"<symbol> | <literal> | (<element>+) | (<element>+ . <template>) | (... <template>)");i.push([r,s])}return this.quoteMode=cs.NONE,new as.SyntaxRules(t.location,s,i)}parseImport(t){if(3!==t.length())throw new Kr(this.source,t.firstToken().pos,t.firstToken(),'(import "<source>" (<identifier>*))');const e=t.unwrap(),n=e[1],r=e[2];if(!Wr(n))throw new Kr(this.source,n.location.start,n,'"<source>"');if(n.type!==Tr.STRING)throw new Kr(this.source,n.pos,n,'"<source>"');if(!Jr(r))throw new Kr(this.source,r.pos,r,"(<identifier>*)");const s=r.unwrap(),i=[];for(const t of s){if(!Wr(t))throw new Kr(this.source,t.location.start,t,"<identifier>");if(t.type!==Tr.IDENTIFIER)throw new Kr(this.source,t.pos,t,"<identifier>");i.push(new as.Identifier(this.toLocation(t),t.lexeme))}const a=new as.StringLiteral(this.toLocation(n),n.literal);return new as.Import(t.location,a,i)}parseExport(t){if(2!==t.length())throw new Kr(this.source,t.firstToken().pos,t.firstToken(),"(export (<definition>))");const e=t.unwrap()[1];if(!Jr(e))throw new Kr(this.source,e.pos,e,"(<definition>)");const n=this.parseExpression(e);if(!(n instanceof as.Definition||n instanceof os.FunctionDefinition))throw new Kr(this.source,e.location.start,e,"(<definition>)");return new as.Export(t.location,n)}parseVector(t){const e=t.unwrap()[1].unwrap().map(this.parseExpression.bind(this));return new as.Vector(t.location,e)}parse(t=!1){t&&(this.quoteMode=cs.QUOTE,this.current=0);const e=[];for(;!this.isAtEnd()&&this.peek().type!==Tr.EOF;){const t=this.grouping();if(!t)continue;const n=this.parseExpression(t);e.push(n)}if(this.chapter>=5&&!t){return[...e.filter((t=>t instanceof as.Import)),...this.parse(!0).filter((t=>!(t instanceof os.List&&t.elements&&t.elements[0]instanceof as.Symbol&&"import"===t.elements[0].value)))]}return e}}function hs(t){return new Tn(t,!0)}function ls(t){return new N(hs(t),t.source)}function ps(t){if(t instanceof as.Symbol)return t.value;if(t instanceof as.NumericLiteral)return t.value;if(t instanceof os.List)return ps(t.elements[0]);throw new Error("Expected a Element, but got: "+t)}function fs(t,e){return new Pn(e.start,e.end,t)}function ws(t,e){return fs(ps(t),e)}function ys(t){const e=new is(t);return new us("",e.scanTokens()).parse()}class ds{static parsePie(t){return ds.parseElements(ys(t)[0])}static parseElements(t){const e=ps(t);if("U"===e)return n=fs("U",t.location),new kn(hs(n));if("the"===e){let e=t.elements;return function(t,e,n){return new _n(hs(t),e,n)}(fs("the",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("Nat"===e)return function(t){return new Sn(hs(t))}(fs("Nat",t.location));if("zero"===e)return function(t){return new $n(hs(t))}(fs("zero",t.location));if("add1"===e)return function(t,e){return new On(hs(t),e)}(fs("add1",t.location),this.parseElements(t.elements[1]));if("->"===e||"→"===e){let e=t.elements;return function(t,e){return new Cn(hs(t),e[0],e[1],e[2])}(fs("->",t.location),[this.parseElements(e[1]),this.parseElements(e[2]),e.slice(3).map((t=>this.parseElements(t)))])}if("lambda"===e||"λ"===e){let e=t.elements,n=t.location,r=e[1],s=e[2];return function(t,e,n){return new qn(hs(t),e,n)}(fs("λ",n),r.elements.map((e=>ls(ws(e,t.location)))),this.parseElements(s))}if("Pi"===e||"Π"===e){let e=t.elements,n=e[1],r=e[2],s=n.elements[0],i=s.elements[0],a=s.elements[1],o=n.elements.slice(1).map((t=>{let e=t.elements[0],n=t.elements[1];return new x(ls(ws(e,t.location)),this.parseElements(n))}));return function(t,e,n){return new Rn(hs(t),e,n)}(fs("Π",t.location),ms(new x(ls(ws(i,s.location)),this.parseElements(a)),o),this.parseElements(r))}if("Sigma"===e||"Σ"===e){let e=t.elements,n=e[1],r=e[2],s=n.elements[0],i=s.elements[0],a=s.elements[1],o=n.elements.slice(1).map((t=>{let e=t.elements[0],n=t.elements[1];return new x(ls(ws(e,t.location)),this.parseElements(n))}));return function(t,e,n){return new Mn(hs(t),e,n)}(fs("Π",t.location),ms(new x(ls(ws(i,s.location)),this.parseElements(a)),o),this.parseElements(r))}if("Pair"===e){let e=t.elements;return function(t,e,n){return new zn(hs(t),e,n)}(fs("Pair",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("cons"===e){let e=t.elements;return function(t,e,n){return new Qn(hs(t),e,n)}(fs("Cons",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("car"===e)return function(t,e){return new Fn(hs(t),e)}(fs("car",t.location),this.parseElements(t.elements[1]));if("cdr"===e)return function(t,e){return new Vn(hs(t),e)}(fs("cdr",t.location),this.parseElements(t.elements[1]));if("which-Nat"===e){let e=t.elements;return function(t,e,n,r){return new Ln(hs(t),e,n,r)}(fs("which-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("iter-Nat"===e){let e=t.elements;return function(t,e,n,r){return new An(hs(t),e,n,r)}(fs("iter-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("rec-Nat"===e){let e=t.elements;return function(t,e,n,r){return new In(hs(t),e,n,r)}(fs("rec-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("ind-Nat"===e){let e=t.elements;return function(t,e,n,r,s){return new Bn(hs(t),e,n,r,s)}(fs("ind-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("Atom"===e)return function(t){return new Hn(hs(t))}(fs("Atom",t.location));if("quote"===e)return function(t,e){return new Dn(hs(t),e)}(fs("Quote",t.location),ps(t.elements[1]));if("Trivial"===e)return function(t){return new Gn(hs(t))}(fs("Trivial",t.location));if("sole"===e)return function(t){return new Xn(hs(t))}(fs("sole",t.location));if("List"===e)return function(t,e){return new Zn(hs(t),e)}(fs("List",t.location),this.parseElements(t.elements[1]));if("nil"===e)return function(t){return new Kn(hs(t))}(fs("nil",t.location));if("::"===e){let e=t.elements;return function(t,e,n){return new jn(hs(t),e,n)}(fs("::",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("rec-List"===e){let e=t.elements;return function(t,e,n,r){return new Wn(hs(t),e,n,r)}(fs("rec-List",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("ind-List"===e){let e=t.elements;return function(t,e,n,r,s){return new Jn(hs(t),e,n,r,s)}(fs("ind-List",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("="===e){let e=t.elements;return function(t,e,n,r){return new nr(hs(t),e,n,r)}(fs("=",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("same"===e)return function(t,e){return new rr(hs(t),e)}(fs("same",t.location),this.parseElements(t.elements[1]));if("replace"===e){let e=t.elements;return function(t,e,n,r){return new sr(hs(t),e,n,r)}(fs("replace",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("trans"===e){let e=t.elements;return function(t,e,n){return new ir(hs(t),e,n)}(fs("trans",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("cong"===e){let e=t.elements;return function(t,e,n){return new ar(hs(t),e,n)}(fs("cong",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("ind-="===e){let e=t.elements;return function(t,e,n,r){return new cr(hs(t),e,n,r)}(fs("ind-=",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("symm"===e)return function(t,e){return new or(hs(t),e)}(fs("symm",t.location),this.parseElements(t.elements[1]));if("Vec"===e){let e=t.elements;return function(t,e,n){return new ur(hs(t),e,n)}(fs("Vec",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("vecnil"===e)return function(t){return new hr(hs(t))}(fs("vecnil",t.location));if("vec::"===e){let e=t.elements;return function(t,e,n){return new lr(hs(t),e,n)}(fs("vec::",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("head"===e)return function(t,e){return new pr(hs(t),e)}(fs("head",t.location),this.parseElements(t.elements[1]));if("tail"===e)return function(t,e){return new fr(hs(t),e)}(fs("tail",t.location),this.parseElements(t.elements[1]));if("ind-Vec"===e){let e=t.elements;return function(t,e,n,r,s,i){return new wr(hs(t),e,n,r,s,i)}(fs("ind-Vec",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]),this.parseElements(e[5]))}if("Either"===e){let e=t.elements;return function(t,e,n){return new yr(hs(t),e,n)}(fs("Either",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("left"===e)return function(t,e){return new dr(hs(t),e)}(fs("left",t.location),this.parseElements(t.elements[1]));if("right"===e)return function(t,e){return new mr(hs(t),e)}(fs("right",t.location),this.parseElements(t.elements[1]));if("ind-Either"===e){let e=t.elements;return function(t,e,n,r,s){return new gr(hs(t),e,n,r,s)}(fs("ind-Either",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("Absurd"===e)return function(t){return new tr(hs(t))}(fs("Absurd",t.location));if("ind-Absurd"===e){let e=t.elements;return function(t,e,n){return new er(hs(t),e,n)}(fs("ind-Absurd",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("TODO"===e)return function(t){return new vr(hs(t))}(fs("TODO",t.location));if(t instanceof os.List&&t.elements.length>1){let e=t.elements;return function(t,e,n,r){return new Er(hs(t),e,n,r)}(fs("App",t.location),this.parseElements(e[0]),this.parseElements(e[1]),e.slice(2).map((t=>this.parseElements(t))))}if(C(e))return function(t,e){return new Un(hs(t),e)}(fs(e,t.location),e);if(!isNaN(Number(e)))return function(t,e){return new Yn(hs(t),Number(e))}(fs(e,t.location),e);var n;throw new Error("Unexpected element: "+t)}}function ms(t,e){return[t,...e]}class gs{location;name;type;constructor(t,e,n){this.location=t,this.name=e,this.type=n}}class vs{location;name;expr;constructor(t,e,n){this.location=t,this.name=e,this.expr=n}}class Es{location;type;left;right;constructor(t,e,n,r){this.location=t,this.type=e,this.left=n,this.right=r}}class Ps{static parseDeclaration(t){const e=ps(t);if("claim"===e){let e=t.elements;return new gs(hs(ws(e[0],t.location)),ps(e[1]),ds.parseElements(e[2]))}if("define"===e){let e=t.elements;return new vs(hs(ws(e[0],t.location)),ps(e[1]),ds.parseElements(e[2]))}if("check-same"===e){let e=t.elements;return new Es(hs(ws(e[0],t.location)),ds.parseElements(e[1]),ds.parseElements(e[2]),ds.parseElements(e[3]))}return ds.parseElements(t)}}function Ts(t,e){const n=new O("outmeta");return L([[n,()=>e.synth(t,new Map)]],(()=>{const e=D(t,n.value.type),r=D(t,n.value.expr);return new S(new we(e.readBackType(t),lt(t,e,r)))}))}function bs(t,e,n,r,s){const i=new O("tOut"),a=new O("tv"),o=new O("aOut"),c=new O("bOut"),u=new O("av"),h=new O("bv");return L([[i,()=>n.isType(t,new Map)],[a,()=>D(t,i.value).readBackType(t)],[o,()=>r.check(t,new Map,a.value)],[c,()=>s.check(t,new Map,a.value)],[u,()=>D(t,o.value)],[h,()=>D(t,c.value)]],(()=>dn(t,e,a.value,u.value,h.value)))}function Ns(t){return t.prettyPrint()}!function(t,e=self){const n=new c(e,!1);n.registerPlugin(m,t)}(class extends n{executionCount;constructor(t){super(t),this.executionCount=0}async evaluateChunk(t){this.executionCount++;try{let e=function(t){const e=ys(t);let n=G,r="";for(const t of e){const e=Ps.parseDeclaration(t);if(e instanceof gs){const t=Q(n,e.name,e.location,e.type);if(t instanceof S)n=t.result;else if(t instanceof $)throw new Error(""+t.where+t.message)}else if(e instanceof vs){const t=F(n,e.name,e.location,e.expr);if(t instanceof S)n=t.result;else if(t instanceof $)throw new Error(""+t.where+t.message)}else if(e instanceof Es){const t=bs(n,e.location,e.type,e.left,e.right);if(t instanceof S)n=t.result;else if(t instanceof $)throw new Error(""+t.where+t.message)}else{const t=Ts(n,e);if(t instanceof S){const e=t.result;r+=`${Ns(e.expr)}: ${Ns(e.type)}\n`}else if(t instanceof $)throw new Error(`${t.message} at ${t.where}`)}}for(const[t,e]of n)e instanceof Y?(r+=`${t}: ${Ns(e.type.readBackType(n))}\n`,r+=`${t}= ${Ns(lt(n,e.type,e.value))}\n`):r+=`${t}: ${Ns(e.type.readBackType(n))} \n`;return r}(t);this.conductor.sendOutput(`Result of expression: execution ${e}`)}catch(t){t instanceof Error?this.conductor.sendOutput(`Error: ${t.message}`):this.conductor.sendOutput(`Error: ${String(t)}`)}}})}();
-//# sourceMappingURL=index.js.map
diff --git a/public/evaluators/py-slang/pyscript.js b/public/evaluators/py-slang/pyscript.js
index 3b72e767d7..176a22a202 100644
--- a/public/evaluators/py-slang/pyscript.js
+++ b/public/evaluators/py-slang/pyscript.js
@@ -649,24 +649,568 @@
         return { runnerPlugin, conduit };
     }
 
-    // Load Pyodide inside the worker and initialise once
+    /**
+     * Configuration for Pyodide package management
+     *
+     * This file contains the list of packages that are available in the Pyodide distribution
+     * and can be loaded efficiently using pyodide.loadPackage()
+     */
+    /**
+     * List of packages available in Pyodide v0.26.2 distribution
+     * These packages are pre-compiled and optimized for WebAssembly
+     *
+     * Source: https://pyodide.org/en/stable/usage/packages-in-pyodide.html
+     */
+    const PYODIDE_BUILTIN_PACKAGES = new Set([
+        // Core scientific computing
+        'numpy',
+        'pandas',
+        'scipy',
+        'matplotlib',
+        'plotly',
+        'bokeh',
+        'seaborn',
+        // Machine learning
+        'scikit-learn',
+        'tensorflow',
+        'keras',
+        'pytorch',
+        'xgboost',
+        // Data processing
+        'pillow',
+        'opencv-python',
+        'beautifulsoup4',
+        'lxml',
+        'requests',
+        'urllib3',
+        // Numerical computing
+        'sympy',
+        'statsmodels',
+        'networkx',
+        // Package management
+        'micropip',
+        'pip',
+        // Development tools
+        'pytest',
+        'black',
+        'mypy',
+        // Other common packages
+        'dateutil',
+        'pytz',
+        'six',
+        'setuptools',
+        'wheel',
+        'packaging',
+        'certifi',
+        'charset-normalizer',
+        'idna',
+        'cycler',
+        'kiwisolver',
+        'pyparsing',
+        'fonttools',
+        // Jupyter ecosystem
+        'ipython',
+        'jupyter',
+        'notebook',
+        // Crypto/security
+        'cryptography',
+        'pycryptodome',
+        // File formats
+        'openpyxl',
+        'xlrd',
+        'h5py',
+        'tables',
+        // Visualization
+        'altair',
+        'plotnine',
+        'pygments',
+        // Statistics
+        'patsy',
+        'lifelines',
+        // Misc utilities
+        'joblib',
+        'tqdm',
+        'click',
+        'jinja2',
+        'markupsafe'
+    ]);
+    /**
+     * Essential packages that should always be available
+     * These are loaded at initialization for optimal performance
+     */
+    const ESSENTIAL_PACKAGES = [
+        'micropip' // Required for fallback package installation
+    ];
+    /**
+     * Packages that require special handling or have known issues
+     */
+    const SPECIAL_HANDLING_PACKAGES = new Map([
+        ['cv2', 'opencv-python'], // cv2 imports as opencv-python
+        ['PIL', 'pillow'], // PIL imports as pillow
+        ['sklearn', 'scikit-learn'], // sklearn imports as scikit-learn
+        ['torch', 'pytorch'], // torch imports as pytorch
+        ['tf', 'tensorflow'], // tf imports as tensorflow
+    ]);
+    /**
+     * Check if a package is available in Pyodide distribution
+     */
+    function isPyodideBuiltinPackage(packageName) {
+        // Check direct match
+        if (PYODIDE_BUILTIN_PACKAGES.has(packageName)) {
+            return true;
+        }
+        // Check special handling packages
+        if (SPECIAL_HANDLING_PACKAGES.has(packageName)) {
+            const actualPackage = SPECIAL_HANDLING_PACKAGES.get(packageName);
+            return PYODIDE_BUILTIN_PACKAGES.has(actualPackage);
+        }
+        return false;
+    }
+    /**
+     * Get the actual package name for Pyodide loading
+     */
+    function getPyodidePackageName(packageName) {
+        return SPECIAL_HANDLING_PACKAGES.get(packageName) ?? packageName;
+    }
+
+    /**
+     * Utilities for parsing Python import statements from code chunks
+     */
+    /**
+     * Extracts import statements from Python code using regex parsing
+     *
+     * This function identifies both 'import' and 'from...import' statements
+     * and extracts the relevant package information.
+     *
+     * @param code The Python code to parse
+     * @returns Array of ImportStatement objects
+     */
+    function extractImports(code) {
+        const imports = [];
+        const lines = code.split('\n');
+        for (let i = 0; i < lines.length; i++) {
+            const line = lines[i].trim();
+            // Skip comments and empty lines
+            if (line.startsWith('#') || line.length === 0) {
+                continue;
+            }
+            // Handle regular import statements: import module [as alias]
+            const importMatch = line.match(/^import\s+([a-zA-Z0-9_][a-zA-Z0-9_.]*)(?:\s+as\s+([a-zA-Z0-9_]+))?/);
+            if (importMatch) {
+                imports.push({
+                    module: importMatch[1],
+                    alias: importMatch[2],
+                    isFromImport: false,
+                    line: i + 1
+                });
+                continue;
+            }
+            // Handle from imports: from module import item1, item2 [as alias]
+            const fromImportMatch = line.match(/^from\s+([a-zA-Z0-9_][a-zA-Z0-9_.]*)\s+import\s+(.+)/);
+            if (fromImportMatch) {
+                const module = fromImportMatch[1];
+                const importPart = fromImportMatch[2];
+                // Parse the imported items (handle commas, aliases, etc.)
+                const items = parseImportItems(importPart);
+                imports.push({
+                    module,
+                    items: items.map(item => item.name),
+                    isFromImport: true,
+                    line: i + 1
+                });
+                continue;
+            }
+        }
+        return imports;
+    }
+    /**
+     * Parses the items part of a 'from...import' statement
+     * Handles cases like: item1, item2 as alias, item3, *
+     */
+    function parseImportItems(importPart) {
+        const items = [];
+        // Split by comma and process each item
+        const parts = importPart.split(',').map(part => part.trim());
+        for (const part of parts) {
+            // Handle 'item as alias'
+            const aliasMatch = part.match(/^([a-zA-Z0-9_]+)\s+as\s+([a-zA-Z0-9_]+)$/);
+            if (aliasMatch) {
+                items.push({
+                    name: aliasMatch[1],
+                    alias: aliasMatch[2]
+                });
+                continue;
+            }
+            // Handle simple item name
+            const simpleMatch = part.match(/^([a-zA-Z0-9_*]+)$/);
+            if (simpleMatch) {
+                items.push({
+                    name: simpleMatch[1]
+                });
+            }
+        }
+        return items;
+    }
+    /**
+     * Extracts unique package names from a list of import statements
+     *
+     * For submodule imports like 'numpy.random', this returns the top-level package 'numpy'
+     *
+     * @param imports Array of ImportStatement objects
+     * @returns Set of unique package names
+     */
+    function extractPackageNames(imports) {
+        const packages = new Set();
+        for (const imp of imports) {
+            // Extract the top-level package name
+            const topLevelPackage = imp.module.split('.')[0];
+            // Skip built-in Python modules
+            if (!isBuiltinPythonModule(topLevelPackage)) {
+                packages.add(topLevelPackage);
+            }
+        }
+        return packages;
+    }
+    /**
+     * Checks if a module is a built-in Python module that doesn't need installation
+     */
+    function isBuiltinPythonModule(moduleName) {
+        const builtinModules = new Set([
+            'os', 'sys', 'json', 'math', 'random', 'datetime', 'time', 'collections',
+            'itertools', 'functools', 'operator', 'pathlib', 'glob', 'shutil', 'tempfile',
+            'urllib', 'http', 'html', 'xml', 'csv', 'configparser', 'logging', 'unittest',
+            'io', 're', 'string', 'textwrap', 'unicodedata', 'calendar', 'hashlib',
+            'hmac', 'secrets', 'statistics', 'decimal', 'fractions', 'contextlib',
+            'abc', 'numbers', 'types', 'copy', 'pprint', 'reprlib', 'enum', 'graphlib',
+            'weakref', 'gc', 'inspect', 'site', 'importlib', 'pkgutil', 'modulefinder',
+            'runpy', 'traceback', 'future', 'keyword', 'token', 'tokenize', 'ast',
+            'symtable', 'symbol', 'dis', 'pickletools', 'formatter', 'errno', 'ctypes',
+            'threading', 'multiprocessing', 'concurrent', 'subprocess', 'sched', 'queue',
+            'socketserver', 'ssl', 'asyncio', 'socket', 'signal', 'mmap', 'select',
+            'selectors', 'codecs', 'locale', 'gettext', 'argparse', 'optparse', 'getopt',
+            'cmd', 'shlex', 'platform', 'warnings', 'dataclasses', 'contextlib',
+            'typing', 'pydoc', 'doctest', 'difflib', 'rlcompleter', 'tabnanny', 'trace',
+            'timeit', 'cProfile', 'profile', 'pstats', 'cgi', 'cgitb', 'wsgiref',
+            'ftplib', 'poplib', 'imaplib', 'nntplib', 'smtplib', 'smtpd', 'telnetlib',
+            'uuid', 'zlib', 'gzip', 'bz2', 'lzma', 'zipfile', 'tarfile'
+        ]);
+        return builtinModules.has(moduleName);
+    }
+
+    /**
+     * Package Manager Service for Pyodide
+     *
+     * This service handles dynamic loading of Python packages using a hybrid approach:
+     * 1. Use pyodide.loadPackage() for built-in Pyodide packages (fast)
+     * 2. Use micropip.install() for PyPI packages (comprehensive)
+     *
+     * Features:
+     * - Intelligent package detection and classification
+     * - Caching to avoid redundant downloads
+     * - Comprehensive error handling and logging
+     * - Performance monitoring
+     */
+    class PackageManager {
+        constructor(pyodide, config = {}) {
+            this.micropipReady = false;
+            this.pyodide = pyodide;
+            this.cache = {
+                loaded: new Set(),
+                failed: new Map(),
+                loadTimestamps: new Map()
+            };
+            this.config = {
+                enableCaching: true,
+                loadTimeout: 30000, // 30 seconds
+                preloadEssentials: true,
+                verbose: false,
+                ...config
+            };
+        }
+        /**
+         * Initialize the package manager with essential packages
+         */
+        async initialize() {
+            if (this.config.verbose) {
+                console.log('[PackageManager] Initializing...');
+            }
+            if (this.config.preloadEssentials) {
+                await this.loadEssentialPackages();
+            }
+        }
+        /**
+         * Load essential packages that are always needed
+         */
+        async loadEssentialPackages() {
+            const startTime = Date.now();
+            for (const packageName of ESSENTIAL_PACKAGES) {
+                try {
+                    await this.loadSinglePackage(packageName);
+                    // Set up micropip after loading
+                    if (packageName === 'micropip') {
+                        this.micropipReady = true;
+                        if (this.config.verbose) {
+                            console.log('[PackageManager] micropip is ready');
+                        }
+                    }
+                }
+                catch (error) {
+                    console.warn(`[PackageManager] Failed to load essential package ${packageName}:`, error);
+                }
+            }
+            if (this.config.verbose) {
+                console.log(`[PackageManager] Essential packages loaded in ${Date.now() - startTime}ms`);
+            }
+        }
+        /**
+         * Analyze code and load all required packages
+         */
+        async loadPackagesFromCode(code) {
+            const startTime = Date.now();
+            if (this.config.verbose) {
+                console.log('[PackageManager] Analyzing code for imports...');
+            }
+            // Extract imports from code
+            const imports = extractImports(code);
+            const packageNames = extractPackageNames(imports);
+            if (this.config.verbose) {
+                console.log(`[PackageManager] Found ${packageNames.size} packages:`, Array.from(packageNames));
+            }
+            // Load packages
+            const results = await this.loadPackages(Array.from(packageNames));
+            if (this.config.verbose) {
+                const totalTime = Date.now() - startTime;
+                const successful = results.filter(r => r.success).length;
+                console.log(`[PackageManager] Loaded ${successful}/${results.length} packages in ${totalTime}ms`);
+            }
+            return results;
+        }
+        /**
+         * Load multiple packages using optimal strategy for each
+         */
+        async loadPackages(packageNames) {
+            const results = [];
+            // Process packages in parallel for better performance
+            const loadPromises = packageNames.map(async (packageName) => {
+                return await this.loadPackageWithStrategy(packageName);
+            });
+            const loadResults = await Promise.allSettled(loadPromises);
+            for (let i = 0; i < loadResults.length; i++) {
+                const result = loadResults[i];
+                if (result.status === 'fulfilled') {
+                    results.push(result.value);
+                }
+                else {
+                    results.push({
+                        packageName: packageNames[i],
+                        success: false,
+                        method: 'pyodide',
+                        error: result.reason?.message || 'Unknown error',
+                        loadTime: 0
+                    });
+                }
+            }
+            return results;
+        }
+        /**
+         * Load a single package using the optimal strategy
+         */
+        async loadPackageWithStrategy(packageName) {
+            const startTime = Date.now();
+            // Check cache first
+            if (this.config.enableCaching && this.cache.loaded.has(packageName)) {
+                return {
+                    packageName,
+                    success: true,
+                    method: 'pyodide', // This doesn't matter for cached packages
+                    loadTime: 0
+                };
+            }
+            // Check if package previously failed
+            if (this.config.enableCaching && this.cache.failed.has(packageName)) {
+                return {
+                    packageName,
+                    success: false,
+                    method: 'pyodide',
+                    error: this.cache.failed.get(packageName),
+                    loadTime: 0
+                };
+            }
+            try {
+                let result;
+                if (isPyodideBuiltinPackage(packageName)) {
+                    // Use Pyodide's built-in package loader
+                    result = await this.loadWithPyodide(packageName);
+                }
+                else {
+                    // Fall back to micropip for PyPI packages
+                    result = await this.loadWithMicropip(packageName);
+                }
+                // Update cache
+                if (this.config.enableCaching) {
+                    if (result.success) {
+                        this.cache.loaded.add(packageName);
+                        this.cache.loadTimestamps.set(packageName, Date.now());
+                    }
+                    else {
+                        this.cache.failed.set(packageName, result.error || 'Unknown error');
+                    }
+                }
+                result.loadTime = Date.now() - startTime;
+                return result;
+            }
+            catch (error) {
+                const errorMessage = error instanceof Error ? error.message : String(error);
+                if (this.config.enableCaching) {
+                    this.cache.failed.set(packageName, errorMessage);
+                }
+                return {
+                    packageName,
+                    success: false,
+                    method: 'pyodide',
+                    error: errorMessage,
+                    loadTime: Date.now() - startTime
+                };
+            }
+        }
+        /**
+         * Load package using Pyodide's built-in loader
+         */
+        async loadWithPyodide(packageName) {
+            const actualPackageName = getPyodidePackageName(packageName);
+            if (this.config.verbose) {
+                console.log(`[PackageManager] Loading ${packageName} (${actualPackageName}) via Pyodide...`);
+            }
+            try {
+                await this.pyodide.loadPackage(actualPackageName);
+                return {
+                    packageName,
+                    success: true,
+                    method: 'pyodide',
+                    loadTime: 0 // Will be set by caller
+                };
+            }
+            catch (error) {
+                throw new Error(`Pyodide failed to load ${actualPackageName}: ${error}`);
+            }
+        }
+        /**
+         * Load package using micropip from PyPI
+         */
+        async loadWithMicropip(packageName) {
+            if (!this.micropipReady) {
+                throw new Error('micropip is not ready. Ensure essential packages are loaded first.');
+            }
+            if (this.config.verbose) {
+                console.log(`[PackageManager] Loading ${packageName} via micropip...`);
+            }
+            try {
+                // Use micropip to install the package
+                await this.pyodide.runPythonAsync(`
+        import micropip
+        await micropip.install("${packageName}")
+      `);
+                return {
+                    packageName,
+                    success: true,
+                    method: 'micropip',
+                    loadTime: 0 // Will be set by caller
+                };
+            }
+            catch (error) {
+                throw new Error(`micropip failed to install ${packageName}: ${error}`);
+            }
+        }
+        /**
+         * Load a single package directly (for manual package loading)
+         */
+        async loadSinglePackage(packageName) {
+            return await this.loadPackageWithStrategy(packageName);
+        }
+        /**
+         * Get package loading statistics
+         */
+        getStats() {
+            const loadTimes = {};
+            for (const [pkg, timestamp] of this.cache.loadTimestamps) {
+                loadTimes[pkg] = timestamp;
+            }
+            return {
+                loaded: this.cache.loaded.size,
+                failed: this.cache.failed.size,
+                loadTimes
+            };
+        }
+        /**
+         * Clear the package cache
+         */
+        clearCache() {
+            this.cache.loaded.clear();
+            this.cache.failed.clear();
+            this.cache.loadTimestamps.clear();
+        }
+        /**
+         * Check if a package is already loaded
+         */
+        isPackageLoaded(packageName) {
+            return this.cache.loaded.has(packageName);
+        }
+        /**
+         * Get list of failed packages with their error messages
+         */
+        getFailedPackages() {
+            return new Map(this.cache.failed);
+        }
+    }
+
+    /**
+     * Enhanced Python Evaluator with Dynamic Package Loading
+     *
+     * This evaluator implements a hybrid approach for package management:
+     * - Analyzes code for import statements before execution
+     * - Loads required packages dynamically using optimal strategies
+     * - Provides comprehensive error handling and logging
+     * - Maintains backward compatibility with existing conductor framework
+     */
+    // Pyodide instance management
     let pyodideInstance;
     let pyodideReady;
-    function ensurePyodideLoaded() {
+    let packageManager;
+    /**
+     * Initialize Pyodide and the package manager
+     */
+    async function ensurePyodideLoaded() {
         if (!pyodideReady) {
-            console.log("[runner] ensurePyodideLoaded entered");
+            console.log("[PythonEvaluator] Initializing Pyodide...");
             try {
                 // Load pyodide from CDN in the worker scope
                 importScripts("https://cdn.jsdelivr.net/pyodide/v0.26.2/full/pyodide.js");
             }
             catch (e) {
-                // If importScripts is unavailable for some reason, surface the error later
-                console.error("Failed to import pyodide.js", e);
+                console.error("[PythonEvaluator] Failed to import pyodide.js", e);
+                throw new Error("Failed to load Pyodide script");
             }
             pyodideReady = (async () => {
-                // @ts-ignore loadPyodide is provided by the imported script
-                pyodideInstance = await loadPyodide({ indexURL: "https://cdn.jsdelivr.net/pyodide/v0.26.2/full/" });
-                await pyodideInstance.loadPackage("pandas");
+                try {
+                    // Initialize Pyodide
+                    pyodideInstance = await loadPyodide({
+                        indexURL: "https://cdn.jsdelivr.net/pyodide/v0.26.2/full/"
+                    });
+                    // Initialize package manager with configuration
+                    const config = {
+                        enableCaching: true,
+                        loadTimeout: 30000,
+                        preloadEssentials: true,
+                        verbose: true // Enable for development, can be configured later
+                    };
+                    packageManager = new PackageManager(pyodideInstance, config);
+                    await packageManager.initialize();
+                    console.log("[PythonEvaluator] Pyodide and PackageManager initialized successfully");
+                }
+                catch (error) {
+                    console.error("[PythonEvaluator] Failed to initialize Pyodide:", error);
+                    throw error;
+                }
             })();
         }
         return pyodideReady;
@@ -676,24 +1220,39 @@
             super(conductor);
         }
         async evaluateChunk(chunk) {
-            console.log("[runner] evaluateChunk entered with chunk: ", chunk);
-            await ensurePyodideLoaded();
-            console.log("[runner] ensurePyodideLoaded exited");
-            const pyodide = pyodideInstance;
-            // Wire stdout/stderr to conductor output
+            console.log("[PythonEvaluator] Evaluating chunk:", chunk.substring(0, 100) + (chunk.length > 100 ? "..." : ""));
+            try {
+                // Ensure Pyodide is ready
+                await ensurePyodideLoaded();
+                if (!pyodideInstance || !packageManager) {
+                    throw new Error("Pyodide or PackageManager not properly initialized");
+                }
+                const pyodide = pyodideInstance;
+                // Set up I/O handling
+                this.setupIOHandling(pyodide);
+                // Load required packages before execution
+                await this.loadRequiredPackages(chunk);
+                // Execute the Python code
+                await this.executePythonCode(chunk);
+            }
+            catch (err) {
+                const message = this.formatError(err);
+                this.conductor.sendOutput(`[python error] ${message}`);
+                console.error("[PythonEvaluator] Execution error:", err);
+            }
+        }
+        /**
+         * Set up stdout/stderr handling and input function
+         */
+        setupIOHandling(pyodide) {
+            // Wire stdout to conductor output
             pyodide.setStdout({
                 batched: (text) => {
                     if (text)
                         this.conductor.sendOutput(text);
                 }
             });
-            // pyodide.setStderr({
-            // 	batched: (text: string) => {
-            // 		if (text) this.conductor.sendOutput(text);
-            // 	}
-            // });
-            // Provide a synchronous input() backed by tryRequestInput()
-            // If no input is available, return empty string to avoid blocking
+            // Provide synchronous input() backed by tryRequestInput()
             const inputSync = (prompt) => {
                 if (typeof prompt === "string" && prompt.length > 0) {
                     this.conductor.sendOutput(prompt);
@@ -705,18 +1264,111 @@
             pyodide.globals.set("__sa_input_sync__", inputSync);
             pyodide.runPython("import builtins\n" +
                 "builtins.input = __sa_input_sync__\n");
+        }
+        /**
+         * Analyze code and load required packages
+         */
+        async loadRequiredPackages(code) {
+            if (!packageManager) {
+                console.warn("[PythonEvaluator] PackageManager not available, skipping package loading");
+                return;
+            }
             try {
-                await pyodide.runPythonAsync(chunk);
+                const loadResults = await packageManager.loadPackagesFromCode(code);
+                // Report loading results
+                const successful = loadResults.filter(r => r.success);
+                const failed = loadResults.filter(r => !r.success);
+                if (successful.length > 0) {
+                    const successNames = successful.map(r => r.packageName).join(", ");
+                    console.log(`[PythonEvaluator] Successfully loaded packages: ${successNames}`);
+                }
+                if (failed.length > 0) {
+                    const failureDetails = failed.map(r => `${r.packageName} (${r.error})`).join(", ");
+                    console.warn(`[PythonEvaluator] Failed to load packages: ${failureDetails}`);
+                    // Send warning to user about failed packages
+                    this.conductor.sendOutput(`[warning] Some packages failed to load: ${failed.map(r => r.packageName).join(", ")}\n`);
+                }
+                // Log performance stats if any packages were loaded
+                if (loadResults.length > 0) {
+                    const totalTime = loadResults.reduce((sum, r) => sum + r.loadTime, 0);
+                    console.log(`[PythonEvaluator] Package loading completed in ${totalTime}ms`);
+                }
             }
-            catch (err) {
-                const message = (err && err.message) ? err.message : String(err);
-                this.conductor.sendOutput(`[python error] ${message}`);
+            catch (error) {
+                console.error("[PythonEvaluator] Error during package loading:", error);
+                this.conductor.sendOutput(`[warning] Package loading encountered issues: ${error}\n`);
+            }
+        }
+        /**
+         * Execute Python code with proper error handling
+         */
+        async executePythonCode(code) {
+            if (!pyodideInstance) {
+                throw new Error("Pyodide instance not available");
+            }
+            try {
+                await pyodideInstance.runPythonAsync(code);
+            }
+            catch (error) {
+                // Re-throw with additional context
+                throw new Error(`Python execution failed: ${error}`);
+            }
+        }
+        /**
+         * Format error messages for user-friendly display
+         */
+        formatError(err) {
+            if (!err) {
+                return "Unknown error occurred";
+            }
+            // Extract meaningful error message
+            let message = "";
+            if (typeof err === "string") {
+                message = err;
+            }
+            else if (err.message) {
+                message = err.message;
+            }
+            else {
+                message = String(err);
+            }
+            // Clean up common error patterns for better readability
+            message = message
+                .replace(/^Error: /, "")
+                .replace(/^Python execution failed: /, "")
+                .replace(/PythonError: /, "");
+            return message;
+        }
+        /**
+         * Get package manager statistics (useful for debugging)
+         */
+        getPackageStats() {
+            if (!packageManager) {
+                return { error: "PackageManager not initialized" };
+            }
+            return packageManager.getStats();
+        }
+        /**
+         * Manually load a package (useful for testing or special cases)
+         */
+        async loadPackage(packageName) {
+            if (!packageManager) {
+                console.warn("[PythonEvaluator] PackageManager not available");
+                return false;
+            }
+            try {
+                const result = await packageManager.loadSinglePackage(packageName);
+                return result.success;
+            }
+            catch (error) {
+                console.error(`[PythonEvaluator] Failed to load package ${packageName}:`, error);
+                return false;
             }
         }
     }
+
     // Signal that the worker loaded
     console.log("[py-pyscript] worker booted");
     initialise(PythonEvaluator);
 
 })();
-//# sourceMappingURL=worker.js.map

From 8887c322a330453ffee823e63f36bbcce26bb2e0 Mon Sep 17 00:00:00 2001
From: dingfeng <fengDing0321@gmail.com>
Date: Thu, 4 Sep 2025 19:08:21 +0800
Subject: [PATCH 15/16] Remove unnecessary type conversion

---
 .../subcomponents/NavigationBarLangSelectButton.tsx          | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx b/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
index 66e2d1ba49..60a69a5d31 100644
--- a/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
+++ b/src/commons/navigationBar/subcomponents/NavigationBarLangSelectButton.tsx
@@ -6,13 +6,12 @@ import SimpleDropdown from 'src/commons/SimpleDropdown';
 import { useTypedSelector } from 'src/commons/utils/Hooks';
 import { flagLanguageDirectoryEnable } from 'src/features/languageDirectory/flagLanguageDirectory';
 import LanguageDirectoryActions from 'src/features/languageDirectory/LanguageDirectoryActions';
-import type { ILanguageDefinition } from 'src/features/languageDirectory/LanguageDirectoryTypes';
 
-// Remove when conductors.languageDirectory is default behaviour
+//TODO <remove legacy>: Remove when conductors.languageDirectory is default behaviour
 import LegacyNavigationBarLangSelectButton from './LegacyNavigationBarLangSelectButton';
 
 function useDirectoryOptions() {
-  const langs = useTypedSelector(s => s.languageDirectory.languages) as ILanguageDefinition[];
+  const langs = useTypedSelector(s => s.languageDirectory.languages);
   return langs.map(l => ({ value: l.id, label: l.name }));
 }
 

From ad91239edee6c69c596750f4a77ff85b5e9c0685 Mon Sep 17 00:00:00 2001
From: dingfeng <fengDing0321@gmail.com>
Date: Sat, 6 Sep 2025 15:13:03 +0800
Subject: [PATCH 16/16] update pie's evaluator

---
 public/evaluators/pie-slang/pie.js | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/public/evaluators/pie-slang/pie.js b/public/evaluators/pie-slang/pie.js
index aa2ac5aa22..b5c084a0fe 100644
--- a/public/evaluators/pie-slang/pie.js
+++ b/public/evaluators/pie-slang/pie.js
@@ -1 +1,2 @@
-!function(){"use strict";class t extends Error{name="ConductorError";errorType="__unknown";constructor(t){super(t)}}class e extends t{name="ConductorInternalError";errorType="__internal";constructor(t){super(t)}}class n{conductor;async startEvaluator(t){const n=await this.conductor.requestFile(t);if(!n)throw new e("Cannot load entrypoint file");for(await this.evaluateFile(t,n);;){const t=await this.conductor.requestChunk();await this.evaluateChunk(t)}}async evaluateFile(t,e){return this.evaluateChunk(e)}constructor(t){this.conductor=t}}async function r(t){return(await import(t)).plugin}"function"==typeof SuppressedError&&SuppressedError;class s{name;__port;__subscribers=new Set;__isAlive=!0;__waitingMessages=[];send(t,e){this.__verifyAlive(),this.__port.postMessage(t,e??[])}subscribe(t){if(this.__verifyAlive(),this.__subscribers.add(t),this.__waitingMessages){for(const e of this.__waitingMessages)t(e);delete this.__waitingMessages}}unsubscribe(t){this.__verifyAlive(),this.__subscribers.delete(t)}close(){this.__verifyAlive(),this.__isAlive=!1,this.__port?.close()}__verifyAlive(){if(!this.__isAlive)throw new e(`Channel ${this.name} has been closed`)}__dispatch(t){if(this.__verifyAlive(),this.__waitingMessages)this.__waitingMessages.push(t);else for(const e of this.__subscribers)e(t)}listenToPort(t){t.addEventListener("message",(t=>this.__dispatch(t.data))),t.start()}replacePort(t){this.__verifyAlive(),this.__port?.close(),this.__port=t,this.listenToPort(t)}constructor(t,e){this.name=t,this.replacePort(e)}}class i{__s1=[];__s2=[];push(t){this.__s2.push(t)}pop(){if(0===this.__s1.length){if(0===this.__s2.length)throw new Error("queue is empty");let t=this.__s1;this.__s1=this.__s2.reverse(),this.__s2=t}return this.__s1.pop()}get length(){return this.__s1.length+this.__s2.length}clone(){const t=new i;return t.__s1=[...this.__s1],t.__s2=[...this.__s2],t}}class a{__inputQueue=new i;__promiseQueue=new i;push(t){0!==this.__promiseQueue.length?this.__promiseQueue.pop()(t):this.__inputQueue.push(t)}async pop(){return 0!==this.__inputQueue.length?this.__inputQueue.pop():new Promise(((t,e)=>{this.__promiseQueue.push(t)}))}tryPop(){if(0!==this.__inputQueue.length)return this.__inputQueue.pop()}constructor(){this.push=this.push.bind(this)}}class o{name;__channel;__messageQueue=new a;async receive(){return this.__messageQueue.pop()}tryReceive(){return this.__messageQueue.tryPop()}send(t,e){this.__channel.send(t,e)}close(){this.__channel.unsubscribe(this.__messageQueue.push)}constructor(t){this.name=t.name,this.__channel=t,this.__channel.subscribe(this.__messageQueue.push)}}class c{__alive=!0;__link;__parent;__channels=new Map;__pluginMap=new Map;__plugins=[];__negotiateChannel(t){const{port1:e,port2:n}=new MessageChannel,r=new s(t,e);this.__link.postMessage([t,n],[n]),this.__channels.set(t,r)}__verifyAlive(){if(!this.__alive)throw new e("Conduit already terminated")}registerPlugin(t,...n){this.__verifyAlive();const r=[];for(const e of t.channelAttach)this.__channels.has(e)||this.__negotiateChannel(e),r.push(this.__channels.get(e));const s=new t(this,r,...n);if(void 0!==s.name){if(this.__pluginMap.has(s.name))throw new e(`Plugin ${s.name} already registered`);this.__pluginMap.set(s.name,s)}return this.__plugins.push(s),s}unregisterPlugin(t){this.__verifyAlive();let e=0;for(let n=0;n<this.__plugins.length;++n)this.__plugins[e]===t&&++e,this.__plugins[n]=this.__plugins[n+e];for(let t=this.__plugins.length-1,n=this.__plugins.length-e;t>=n;--t)delete this.__plugins[t];t.name&&this.__pluginMap.delete(t.name),t.destroy?.()}lookupPlugin(t){if(this.__verifyAlive(),!this.__pluginMap.has(t))throw new e(`Plugin ${t} not registered`);return this.__pluginMap.get(t)}terminate(){this.__verifyAlive();for(const t of this.__plugins)t.destroy?.();this.__link.terminate?.(),this.__alive=!1}__handlePort(t){const[e,n]=t;if(this.__channels.has(e)){const t=this.__channels.get(e);this.__parent?t.listenToPort(n):t.replacePort(n)}else{const t=new s(e,n);this.__channels.set(e,t)}}constructor(t,e=!1){this.__link=t,t.addEventListener("message",(t=>this.__handlePort(t.data))),this.__parent=e}}class u{type=0;data;constructor(t,e,n){this.data={fn:t,args:e,invokeId:n}}}class h{type=2;data;constructor(t,e){this.data={invokeId:t,err:e}}}class l{type=1;data;constructor(t,e){this.data={invokeId:t,res:e}}}function p(t){}var f;!function(t){t[t.VOID=0]="VOID",t[t.BOOLEAN=1]="BOOLEAN",t[t.NUMBER=2]="NUMBER",t[t.CONST_STRING=3]="CONST_STRING",t[t.EMPTY_LIST=4]="EMPTY_LIST",t[t.PAIR=5]="PAIR",t[t.ARRAY=6]="ARRAY",t[t.CLOSURE=7]="CLOSURE",t[t.OPAQUE=8]="OPAQUE",t[t.LIST=9]="LIST"}(f||(f={}));class w{type=1;data;constructor(t){this.data={minVersion:t}}}class y{type=0;data={version:0}}class d{type=3;data;constructor(t){this.data=t}}let m=(()=>{let t,n,s=[p],i=[];return class{static{n=this}static{const e="function"==typeof Symbol&&Symbol.metadata?Object.create(null):void 0;!function(t,e,n,r,s,i){function a(t){if(void 0!==t&&"function"!=typeof t)throw new TypeError("Function expected");return t}for(var o,c=r.kind,u="getter"===c?"get":"setter"===c?"set":"value",h=!e&&t?r.static?t:t.prototype:null,l=e||(h?Object.getOwnPropertyDescriptor(h,r.name):{}),p=!1,f=n.length-1;f>=0;f--){var w={};for(var y in r)w[y]="access"===y?{}:r[y];for(var y in r.access)w.access[y]=r.access[y];w.addInitializer=function(t){if(p)throw new TypeError("Cannot add initializers after decoration has completed");i.push(a(t||null))};var d=(0,n[f])("accessor"===c?{get:l.get,set:l.set}:l[u],w);if("accessor"===c){if(void 0===d)continue;if(null===d||"object"!=typeof d)throw new TypeError("Object expected");(o=a(d.get))&&(l.get=o),(o=a(d.set))&&(l.set=o),(o=a(d.init))&&s.unshift(o)}else(o=a(d))&&("field"===c?s.unshift(o):l[u]=o)}h&&Object.defineProperty(h,r.name,l),p=!0}(null,t={value:n},s,{kind:"class",name:n.name,metadata:e},null,i),n=t.value,e&&Object.defineProperty(n,Symbol.metadata,{enumerable:!0,configurable:!0,writable:!0,value:e})}name="__runner_main";__evaluator;__isCompatibleWithModules;__conduit;__fileRpc;__chunkQueue;__serviceChannel;__ioQueue;__errorChannel;__statusChannel;__serviceHandlers=new Map([[0,function(t){t.data.version<0?(this.__serviceChannel.send(new w(0)),console.error(`Host's protocol version (${t.data.version}) must be at least 0`)):console.log(`Host is using protocol version ${t.data.version}`)}],[1,function(t){console.error(`Host expects at least protocol version ${t.data.minVersion}, but we are on version 0`),this.__conduit.terminate()}],[2,function(t){this.__evaluator.startEvaluator(t.data)}]]);requestFile(t){return this.__fileRpc.requestFile(t)}async requestChunk(){return(await this.__chunkQueue.receive()).chunk}async requestInput(){const{message:t}=await this.__ioQueue.receive();return t}tryRequestInput(){const t=this.__ioQueue.tryReceive();return t?.message}sendOutput(t){this.__ioQueue.send({message:t})}sendError(t){this.__errorChannel.send({error:t})}updateStatus(t,e){this.__statusChannel.send({status:t,isActive:e})}hostLoadPlugin(t){this.__serviceChannel.send(new d(t))}registerPlugin(t,...e){return this.__conduit.registerPlugin(t,...e)}unregisterPlugin(t){this.__conduit.unregisterPlugin(t)}registerModule(t){if(!this.__isCompatibleWithModules)throw new e("Evaluator has no data interface");return this.registerPlugin(t,this.__evaluator)}unregisterModule(t){this.unregisterPlugin(t)}async importAndRegisterExternalPlugin(t){const e=await r(t);return this.registerPlugin(e)}async importAndRegisterExternalModule(t){const e=await async function(t){return await r(t)}(t);return this.registerModule(e)}static channelAttach=["__file_rpc","__chunk","__service","__stdio","__error","__status"];constructor(t,[e,n,r,s,i,a],c){this.__conduit=t,this.__fileRpc=function(t,e){const n=[];let r=0;return t.subscribe((async r=>{switch(r.type){case 0:{const{fn:n,args:s,invokeId:i}=r.data;try{const r=await e[n](...s);i>0&&t.send(new l(i,r))}catch(e){i>0&&t.send(new h(i,e))}break}case 1:{const{invokeId:t,res:e}=r.data;n[t]?.[0]?.(e),delete n[t];break}case 2:{const{invokeId:t,err:e}=r.data;n[t]?.[1]?.(e),delete n[t];break}}})),new Proxy({},{get(e,s,i){const a=Reflect.get(e,s,i);if(a)return a;const o="string"==typeof s&&"$"===s.charAt(0)?(...e)=>{t.send(new u(s,e,0))}:(...e)=>{const i=++r;return t.send(new u(s,e,i)),new Promise(((t,e)=>{n[i]=[t,e]}))};return Reflect.set(e,s,o,i),o}})}(e,{}),this.__chunkQueue=new o(n),this.__serviceChannel=r,this.__ioQueue=new o(s),this.__errorChannel=i,this.__statusChannel=a,this.__serviceChannel.send(new y),this.__serviceChannel.subscribe((t=>{this.__serviceHandlers.get(t.type)?.call(this,t)})),this.__evaluator=new c(this),this.__isCompatibleWithModules=this.__evaluator.hasDataInterface??!1}static{!function(t,e,n){for(var r=arguments.length>2,s=0;s<e.length;s++)n=r?e[s].call(t,n):e[s].call(t)}(n,i)}},n})();const g={0:"₀",1:"₁",2:"₂",3:"₃",4:"₄",5:"₅",6:"₆",7:"₇",8:"₈",9:"₉"},v={"₀":"0","₁":"1","₂":"2","₃":"3","₄":"4","₅":"5","₆":"6","₇":"7","₈":"8","₉":"9"};function E(t,e){if(t.some((t=>t===e))){return P(t,function(t){const[e,n]=b(t,t.length-1);return[e,n]}(e))}return e}function P(t,e){const n=function([t,e]){const n=function(t){const e=t.toString().split("").map((t=>g[t]||t)).join("");return e}(e);return t+n}(e);return t.map((t=>t.toString())).includes(n.toString())?P(t,function(t){return[t[0],t[1]+1]}(e)):n}function T(t){const e=t.split("").map((t=>v[t]||t)).join("");return parseInt(e,10)||1}function b(t,e){return e<0?[t,0]:(n=t[e],Object.keys(v).includes(n)?b(t,e-1):[t.substring(0,e+1),T(t.substring(e+1))]);var n}class N{location;varName;constructor(t,e){this.location=t,this.varName=e}}class x{binder;type;constructor(t,e){this.binder=t,this.type=e}}class _{message;constructor(t){this.message=t}}class k{}class S extends k{result;constructor(t){super(),this.result=t}}class $ extends k{where;message;constructor(t,e){super(),this.where=t,this.message=e}}class O{name;value;constructor(t,e=null){this.name=t,this.value=e}}function L(t,e){for(const[e,n]of t){const r=n();if(!(r instanceof S))throw new Error(`Encountered stop when evaluating the sequence ${t}. Error message: ${r.message.message} at ${r.where}`);e.value=r.result}return e()}class A{constructor(){}}class I extends A{env;varName;expr;constructor(t,e,n){super(),this.env=t,this.varName=e,this.expr=n}valOfClosure(t){return this.expr.valOf((e=this.env,n=this.varName,r=t,new Map([...e,[n,r]])));var e,n,r}prettyPrint(){return`(CLOS ${this.varName} ${this.expr.prettyPrint()})`}toString(){return this.prettyPrint()}}class B extends A{proc;constructor(t){super(),this.proc=t}valOfClosure(t){return this.proc(t)}prettyPrint(){return"(HOCLOS)"}toString(){return this.prettyPrint()}}function C(t){return!("U"===(e=t)||"Nat"===e||"zero"===e||"add1"===e||"which-Nat"===e||"iter-Nat"===e||"rec-Nat"===e||"ind-Nat"===e||"->"===e||"→"===e||"Π"===e||"λ"===e||"Pi"===e||"∏"===e||"lambda"===e||"quote"===e||"Atom"===e||"car"===e||"cdr"===e||"cons"===e||"Σ"===e||"Sigma"===e||"Pair"===e||"Trivial"===e||"sole"===e||"List"===e||"::"===e||"nil"===e||"rec-List"===e||"ind-List"===e||"Absurd"===e||"ind-Absurd"===e||"="===e||"same"===e||"replace"===e||"trans"===e||"cong"===e||"symm"===e||"ind-="===e||"Vec"===e||"vecnil"===e||"vec::"===e||"head"===e||"tail"===e||"ind-Vec"===e||"Either"===e||"left"===e||"right"===e||"ind-Either"===e||"TODO"===e||"the"===e)&&isNaN(Number(t));var e}function R(t){return Array.from(t.keys())}function q(t,e){return E(R(t),e)}function M(t,e,n){return E(R(t).concat(e.findNames()),n)}function U(t){return[t.binder.varName].concat(t.type.findNames())}function H(t,e,n){return new Map([...t,[e,n]])}function D(t,e){return e.valOf(V(t))}function z(t){const e=new Map;for(const[n,r]of t)r instanceof Z?e.set(n,["free",r.type.readBackType(t)]):r instanceof Y?e.set(n,["def",r.type.readBackType(t),lt(t,r.type,r.value)]):r instanceof K&&e.set(n,["claim",r.type.readBackType(t)]);return e}function Q(t,e,n,r){const s=new O("typeOut");return L([[new O("_"),()=>function(t,e,n){return t.has(n)?new $(e,new _([`The name "${n}" is already in use in the context.`])):new S(!0)}(t,n,e)],[s,()=>r.isType(t,new Map)]],(()=>new S(H(t,e,new K(D(t,s.value))))))}function F(t,e,n,r){const s=new O("typeOut"),i=new O("exprOut");return L([[s,()=>function(t,e,n){for(const[r,s]of t)if(r===n){if(s instanceof Y)return new $(e,new _([`The name "${n}" is already defined.`]));if(s instanceof K)return new S(s.type)}return new $(e,new _([`No claim: ${n}`]))}(t,n,e)],[i,()=>r.check(t,new Map,s.value)]],(()=>new S(function(t,e,n,r){return H(t,e,new Y(n,r))}(function(t,e){return t.delete(e),t}(t,e),e,s.value,D(t,i.value)))))}function V(t){if(0===t.size)return new Map;const e=t.entries(),n=new Map;for(const[t,r]of e)r instanceof Y?n.set(t,r.value):r instanceof Z&&n.set(t,new oe(r.type,new wt(t)));return n}const G=new Map;class X{}let K=class extends X{type;constructor(t){super(),this.type=t}};class Y extends X{type;value;constructor(t,e){super(),this.type=t,this.value=e}}class Z extends X{type;constructor(t){super(),this.type=t}}function j(t,e,n){if(0===t.size)throw new Error(`Unknown variable ${n}`);for(const[e,r]of t.entries())if(!(r instanceof K)&&n===e)return new S(r.type);throw new Error(`Unknown variable ${n}`)}function W(t,e,n){if(t.has(e)){for(const[r,s]of t)if(r===e)return H(t,e,new Z(n));throw new Error(`\n      ${e} is already bound in ${JSON.stringify(t)}\n    `)}return H(t,e,new Z(n))}function J(t,e){const n=t.now();if(n instanceof Xt)return n.body.valOfClosure(e);if(n instanceof oe){const t=n.type.now();if(t instanceof Gt)return new oe(t.resultType.valOfClosure(e),new qt(n.neutral,new pt(t.argType,e)))}throw new Error(`doApp: invalid input ${[n,e]}`)}function tt(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(r,tt(s.smaller,e,n,r));if(s instanceof oe){if(s.type.now()instanceof Qt)return new oe(e,new mt(s.neutral,new pt(e,n),new pt(new Gt("n",new Qt,new B((t=>e))),r)))}throw new Error(`invalid input for iterNat ${[t,e,n,r]}`)}function et(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(J(r,s.smaller),et(s.smaller,e,n,r));if(s instanceof oe){if(s.type.now()instanceof Qt)return new oe(e,new gt(s.neutral,new pt(e,n),new pt(new Gt("n-1",new Qt,new B((t=>new Gt("ih",e,new B((t=>e)))))),r)))}throw new Error(`invalid input for recNat ${[t,e,n,r]}`)}function nt(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(J(r,s.smaller),nt(s.smaller,e,n,r));if(s instanceof oe){if(s.type.now()instanceof Qt)return new oe(J(e,t),new vt(s.neutral,new pt(new Gt("x",new Qt,new B((t=>new ce))),e),new pt(J(e,new Ft),n),new pt(new Gt("n-1",new Qt,new B((t=>new Gt("ih",J(e,t),new B((n=>J(e,new Vt(t)))))))),r)))}throw new Error(`invalid input for indNat ${[t,e,n,r]}`)}function rt(t){const e=t.now();if(e instanceof Yt)return e.car;if(e instanceof oe){const t=e.type.now();if(t instanceof Kt){const n=t,r=e.neutral;return new oe(n.carType,new Et(r))}}throw new Error(`invalid input for car ${t}`)}function st(t){const e=t.now();if(e instanceof Yt)return e.cdr;if(e instanceof oe){const n=e.type.now();if(n instanceof Kt){const r=n,s=e.neutral;return new oe(r.cdrType.valOfClosure(rt(t)),new Pt(s))}}throw new Error(`invalid input for cdr ${t}`)}function it(t,e,n,r){const s=t.now();if(s instanceof jt)return n;if(s instanceof Wt)return J(J(J(r,s.head),s.tail),it(s.tail,e,n,r));if(s instanceof oe){const i=s.type.now();if(i instanceof Zt){const a=i.entryType,o=s.neutral,c=new Gt("xs",new Zt(a),new B((t=>new ce)));return new oe(J(e,t),new bt(o,new pt(c,e),new pt(J(e,new jt),n),new pt(new Gt("h",a,new B((t=>new Gt("t",new Zt(a),new B((n=>new Gt("ih",J(e,n),new B((r=>J(e,new Wt(t,n))))))))))),r)))}}throw new Error(`invalid input for indList ${[s,e,n,r]}`)}function at(t,e,n,r){const s=t.now();if(s instanceof jt)return n;if(s instanceof Wt){const t=s.head,i=s.tail;return J(J(J(r,t),i),at(i,e,n,r))}if(s instanceof oe){const t=s.type.now();if(t instanceof Zt){const i=t.entryType,a=s.neutral;return new oe(e,new Tt(a,new pt(e,n),new pt(new Gt("h",i,new B((t=>new Gt("t",new Zt(i),new B((t=>new Gt("ih",e,new B((t=>e))))))))),r)))}}throw new Error(`invalid input for recList ${[s,e,n,r]}`)}function ot(t){const e=t.now();if(e instanceof re)return e.tail;if(e instanceof oe&&e.type instanceof ee&&e.type.length instanceof Vt){const t=e.type.now();if(t instanceof ee){if(t.length.now()instanceof Vt)return new oe(new ee(e.type.entryType,e.type.length.smaller),new It(e.neutral))}}throw new Error(`invalid input for tail ${t}`)}function ct(t,e){return new Gt("k",new Qt,new B((n=>new Gt("e",new ee(t,n),new B((r=>new Gt("es",new ee(t,n),new B((t=>new Gt("ih",J(J(e,n),t),new B((s=>J(J(e,new Vt(n)),new re(r,t))))))))))))))}function ut(t,e,n,r,s){const i=t.now(),a=e.now();if(i instanceof Ft&&a instanceof ne)return r;if(i instanceof Vt&&a instanceof re)return J(J(J(J(s,i.smaller),a.head),ot(e)),ut(i.smaller,a.tail,n,r,s));if(i instanceof oe&&a instanceof oe&&i.type instanceof Qt&&a.type instanceof ee){const o=a.type.entryType;return new oe(J(J(n,t),e),new Ct(i.neutral,a.neutral,new pt(new Gt("k",new Qt,new B((t=>new Gt("es",new ee(o,t),new B((t=>new ce)))))),n),new pt(J(J(n,new Ft),new ne),r),new pt(ct(a.type.entryType,n),s)))}if(ht(i,t)&&a instanceof oe&&a.type instanceof ee){const i=a.type.entryType;return new oe(J(J(n,t),e),new Bt(new pt(new Qt,t),a.neutral,new pt(new Gt("k",new Qt,new B((t=>new Gt("es",new ee(i,t),new B((t=>new ce)))))),n),new pt(J(J(n,new Qt),new ne),r),new pt(ct(i,n),s)))}throw new Error(`invalid input for indVec ${[t,e,n,r,s]}`)}function ht(t,e){const n=t.now(),r=e.now();return n instanceof Ft&&r instanceof Ft||n instanceof Vt&&r instanceof Vt&&ht(n.smaller,r.smaller)}function lt(t,e,n){const r=e.now(),s=n.now();if(r instanceof ce)return n.readBackType(t);if(r instanceof Qt&&s instanceof Ft)return new me;if(r instanceof Qt&&s instanceof Vt)return new ge(lt(t,new Qt,s.smaller));if(r instanceof Gt){const e=q(t,s instanceof Xt?s.argName:r.argName);return new Ne(e,lt(W(t,e,r.argType),r.resultType.valOfClosure(new oe(r.argType,new wt(e))),J(s,new oe(r.argType,new wt(e)))))}if(r instanceof Kt){const e=rt(n),s=st(n);return new Se(lt(t,r.carType,e),lt(t,r.cdrType.valOfClosure(e),s))}if(r instanceof ue&&s instanceof zt)return new _e(s.name);if(r instanceof he)return new qe;if(r instanceof Zt&&s instanceof jt)return new Ae;if(r instanceof Zt&&s instanceof Wt)return new Se(lt(t,r.entryType,s.head),lt(t,new Zt(r.entryType),s.tail));if(r instanceof pe&&s instanceof oe)return new we(new Me,s.neutral.readBackNeutral(t));if(r instanceof Jt&&s instanceof te)return new De(lt(t,r.type,s.value));if(r instanceof ee&&r.length.now()instanceof Ft)return new Ye;if(r instanceof ee&&r.length.now()instanceof Vt&&s instanceof re){const e=r.length.now();return new Ke(lt(t,r.entryType,s.head),lt(t,new ee(r.entryType,e.smaller),s.tail))}if(r instanceof se&&s instanceof ie)return new tn(lt(t,r.leftType,s.value));if(r instanceof se&&s instanceof ae)return new en(lt(t,r.rightType,s.value));if(s instanceof oe)return s.neutral.readBackNeutral(t);throw new Error(`Cannot read back ${s} : ${r}`)}class pt{type;value;constructor(t,e){this.type=t,this.value=e}}let ft=class{constructor(){}toString(){return this.prettyPrint()}};class wt extends ft{name;constructor(t){super(),this.name=t}readBackNeutral(t){return new an(this.name)}prettyPrint(){return`N-${this.name}`}}let yt=class extends ft{where;type;constructor(t,e){super(),this.where=t,this.type=e}readBackNeutral(t){return new rn(this.where,this.type.readBackType(t))}prettyPrint(){return"N-TODO"}},dt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new ve(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-WhichNat"}},mt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new Ee(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IterNat"}},gt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new Pe(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-RecNat"}},vt=class extends ft{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}readBackNeutral(t){return new Te(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndNat"}},Et=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new $e(this.target.readBackNeutral(t))}prettyPrint(){return"N-Car"}},Pt=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Oe(this.target.readBackNeutral(t))}prettyPrint(){return"N-Cdr"}},Tt=class extends ft{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new Be(this.target.readBackNeutral(t),new we(this.base.type.readBackType(t),lt(t,this.base.type,this.base.value)),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-RecList"}},bt=class extends ft{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}readBackNeutral(t){return new Ce(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndList"}},Nt=class extends ft{target;motive;constructor(t,e){super(),this.target=t,this.motive=e}readBackNeutral(t){return new Ue(new we(new Me,this.target.readBackNeutral(t)),lt(t,this.motive.type,this.motive.value))}prettyPrint(){return"N-IndAbsurd"}},xt=class extends ft{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}readBackNeutral(t){return new ze(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value))}prettyPrint(){return"N-Replace"}};class _t extends ft{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new Qe(this.target1.readBackNeutral(t),lt(t,this.target2.type,this.target2.value))}prettyPrint(){return"N-Trans1"}}class kt extends ft{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new Qe(lt(t,this.target1.type,this.target1.value),this.target2.readBackNeutral(t))}prettyPrint(){return"N-Trans2"}}class St extends ft{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new Qe(this.target1.readBackNeutral(t),this.target2.readBackNeutral(t))}prettyPrint(){return"N-Trans12"}}let $t=class extends ft{target;func;constructor(t,e){super(),this.target=t,this.func=e}readBackNeutral(t){const e=this.func.type;if(e instanceof Gt){const n=e.resultType;return new Fe(this.target.readBackNeutral(t),n.valOfClosure(new pe).readBackType(t),lt(t,this.func.type,this.func.value))}throw new Error("Cong applied to non-Pi type.")}prettyPrint(){return"N-Cong"}},Ot=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Ve(this.target.readBackNeutral(t))}prettyPrint(){return"N-Symm"}},Lt=class extends ft{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}readBackNeutral(t){return new Ge(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value))}prettyPrint(){return"N-IndEqual"}},At=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Ze(this.target.readBackNeutral(t))}prettyPrint(){return"N-Head"}},It=class extends ft{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new je(this.target.readBackNeutral(t))}prettyPrint(){return"N-Tail"}};class Bt extends ft{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}readBackNeutral(t){return new We(lt(t,this.length.type,this.length.value),this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndVec2"}}class Ct extends ft{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}readBackNeutral(t){return new We(this.length.readBackNeutral(t),this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.base.type,this.base.value),lt(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndVec12"}}let Rt=class extends ft{target;motive;baseLeft;baseRight;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.baseLeft=n,this.baseRight=r}readBackNeutral(t){return new nn(this.target.readBackNeutral(t),lt(t,this.motive.type,this.motive.value),lt(t,this.baseLeft.type,this.baseLeft.value),lt(t,this.baseRight.type,this.baseRight.value))}prettyPrint(){return"N-IndEither"}},qt=class extends ft{operator;operand;constructor(t,e){super(),this.operator=t,this.operand=e}readBackNeutral(t){return new sn(this.operator.readBackNeutral(t),lt(t,this.operand.type,this.operand.value))}prettyPrint(){return"N-Application"}};class Mt{now(){return this}}class Ut{env;expr;constructor(t,e){this.env=t,this.expr=e}undelay(){return this.expr.valOf(this.env).now()}toString(){return`DelayClosure(${this.env}, ${this.expr})`}}class Ht{content;constructor(t){this.content=t}get(){return this.content}set(t){this.content=t}}class Dt extends Mt{val;constructor(t){super(),this.val=t}now(){const t=this.val.get();if(t instanceof Ut){let e=t.undelay();return this.val.set(e),e}return t}readBackType(t){return this.now().readBackType(t)}prettyPrint(){return this.now().prettyPrint()}toString(){return`Delay(${this.val})`}}let zt=class extends Mt{name;constructor(t){super(),this.name=t}readBackType(t){throw new Error("No readBackType for Quote.")}prettyPrint(){return`'${this.name}`}toString(){return this.prettyPrint()}},Qt=class extends Mt{constructor(){super()}readBackType(t){return new de}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}},Ft=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for Zero.")}prettyPrint(){return"zero"}toString(){return this.prettyPrint()}},Vt=class extends Mt{smaller;constructor(t){super(),this.smaller=t}readBackType(t){throw new Error("No readBackType for Add1.")}prettyPrint(){return`(add1 ${this.smaller.prettyPrint()})`}toString(){return this.prettyPrint()}},Gt=class extends Mt{argName;argType;resultType;constructor(t,e,n){super(),this.argName=t,this.argType=e,this.resultType=n}readBackType(t){const e=this.argType.readBackType(t),n=q(t,this.argName),r=W(t,n,this.argType);return new be(n,e,this.resultType.valOfClosure(new oe(this.argType,new wt(n))).readBackType(r))}prettyPrint(){return`(Π ${this.argName} ${this.argType.prettyPrint()} ${this.resultType.prettyPrint()})`}toString(){return this.prettyPrint()}},Xt=class extends Mt{argName;body;constructor(t,e){super(),this.argName=t,this.body=e}readBackType(t){throw new Error("No readBackType for Lambda.")}prettyPrint(){return`(lambda ${this.argName} ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Kt=class extends Mt{carName;carType;cdrType;constructor(t,e,n){super(),this.carName=t,this.carType=e,this.cdrType=n}readBackType(t){const e=this.carType.readBackType(t),n=q(t,this.carName),r=W(t,n,this.carType);return new ke(n,e,this.cdrType.valOfClosure(new oe(this.carType,new wt(n))).readBackType(r))}prettyPrint(){return`(Σ ${this.carName} ${this.carType.prettyPrint()} ${this.cdrType.prettyPrint()})`}toString(){return this.prettyPrint()}},Yt=class extends Mt{car;cdr;constructor(t,e){super(),this.car=t,this.cdr=e}readBackType(t){throw new Error("No readBackType for Cons.")}prettyPrint(){return`(cons ${this.car.prettyPrint()} ${this.cdr.prettyPrint()})`}toString(){return this.prettyPrint()}},Zt=class extends Mt{entryType;constructor(t){super(),this.entryType=t}readBackType(t){return new Ie(this.entryType.readBackType(t))}prettyPrint(){return`(List ${this.entryType.prettyPrint()})`}toString(){return this.prettyPrint()}},jt=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for Nil.")}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}},Wt=class extends Mt{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}readBackType(t){throw new Error("No readBackType for ListCons.")}prettyPrint(){return`(:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Jt=class extends Mt{type;from;to;constructor(t,e,n){super(),this.type=t,this.from=e,this.to=n}readBackType(t){return new He(this.type.readBackType(t),lt(t,this.type,this.from),lt(t,this.type,this.to))}prettyPrint(){return`(= ${this.type.prettyPrint()} ${this.from.prettyPrint()} ${this.to.prettyPrint()})`}toString(){return this.prettyPrint()}},te=class extends Mt{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Same.")}prettyPrint(){return`(same ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},ee=class extends Mt{entryType;length;constructor(t,e){super(),this.entryType=t,this.length=e}readBackType(t){return new Xe(this.entryType.readBackType(t),lt(t,new Qt,this.length))}prettyPrint(){return`(Vec ${this.entryType.prettyPrint()} ${this.length.prettyPrint()})`}},ne=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for VecNil.")}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}},re=class extends Mt{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}readBackType(t){throw new Error("No readBackType for VecCons.")}prettyPrint(){return`(vec:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},se=class extends Mt{leftType;rightType;constructor(t,e){super(),this.leftType=t,this.rightType=e}readBackType(t){return new Je(this.leftType.readBackType(t),this.rightType.readBackType(t))}prettyPrint(){return`(Either ${this.leftType.prettyPrint()} ${this.rightType.prettyPrint()})`}toString(){return this.prettyPrint()}},ie=class extends Mt{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Left.")}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},ae=class extends Mt{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Right.")}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}};class oe extends Mt{type;neutral;constructor(t,e){super(),this.type=t,this.neutral=e}readBackType(t){return this.neutral.readBackNeutral(t)}prettyPrint(){return`(Neutral ${this.type.prettyPrint()} ${this.neutral.prettyPrint()})`}toString(){return this.prettyPrint()}}let ce=class extends Mt{constructor(){super()}readBackType(t){return new ye}prettyPrint(){return"U"}toString(){return this.prettyPrint()}},ue=class extends Mt{constructor(){super()}readBackType(t){return new xe}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}},he=class extends Mt{constructor(){super()}readBackType(t){return new Re}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}},le=class extends Mt{constructor(){super()}readBackType(t){throw new Error("No readBackType for Sole.")}prettyPrint(){return"sole"}toString(){return this.prettyPrint()}},pe=class extends Mt{constructor(){super()}readBackType(t){return new Me}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}};class fe{toLazy(t){return new Dt(new Ht(new Ut(t,this)))}}let we=class extends fe{type;expr;constructor(t,e){super(),this.type=t,this.expr=e}valOf(t){return this.expr.valOf(t)}prettyPrint(){return`(the ${this.type.prettyPrint()} ${this.expr.prettyPrint()})`}toString(){return this.prettyPrint()}},ye=class extends fe{valOf(t){return new ce}prettyPrint(){return"U"}toString(){return this.prettyPrint()}},de=class extends fe{valOf(t){return new Qt}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}},me=class extends fe{valOf(t){return new Ft}prettyPrint(){return"0"}toString(){return this.prettyPrint()}},ge=class extends fe{n;constructor(t){super(),this.n=t}valOf(t){return new Vt(this.n.toLazy(t))}prettyPrint(){return isNaN(Number(this.n.prettyPrint()))?`(add1 ${this.n.prettyPrint()})`:`${Number(this.n.prettyPrint())+1}`}toString(){return this.prettyPrint()}},ve=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return function(t,e,n,r){const s=t.now();if(s instanceof Ft)return n;if(s instanceof Vt)return J(r,s.smaller);if(s instanceof oe&&s.type.now()instanceof Qt)return new oe(e,new dt(s.neutral,new pt(e,n),new pt(new Gt("n",new Qt,new B((t=>e))),r)));throw new Error(`invalid input for whichNat ${[t,e,n,r]}`)}(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(which-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Ee=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return tt(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(iter-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Pe=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return et(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(rec-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Te=class extends fe{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}valOf(t){return nt(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(ind-Nat ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},be=class extends fe{name;type;body;constructor(t,e,n){super(),this.name=t,this.type=e,this.body=n}valOf(t){const e=this.type.toLazy(t);return new Gt(this.name,e,new I(t,this.name,this.body))}prettyPrint(){return`(Π (${this.name} ${this.type.prettyPrint()}) \n          ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Ne=class extends fe{param;body;constructor(t,e){super(),this.param=t,this.body=e}valOf(t){return new Xt(this.param,new I(t,this.param,this.body))}prettyPrint(){return`(λ (${this.param}) ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},xe=class extends fe{valOf(t){return new ue}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}},_e=class extends fe{sym;constructor(t){super(),this.sym=t}valOf(t){return new zt(this.sym)}prettyPrint(){return`'${this.sym}`}toString(){return this.prettyPrint()}},ke=class extends fe{name;type;body;constructor(t,e,n){super(),this.name=t,this.type=e,this.body=n}valOf(t){const e=this.type.toLazy(t);return new Kt(this.name,e,new I(t,this.name,this.body))}prettyPrint(){return`(Σ (${this.name} ${this.type.prettyPrint()}) \n              ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Se=class extends fe{first;second;constructor(t,e){super(),this.first=t,this.second=e}valOf(t){const e=this.first.toLazy(t),n=this.second.toLazy(t);return new Yt(e,n)}prettyPrint(){return`(cons ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}},$e=class extends fe{pair;constructor(t){super(),this.pair=t}valOf(t){return rt(this.pair.toLazy(t))}prettyPrint(){return`(car ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}},Oe=class extends fe{pair;constructor(t){super(),this.pair=t}valOf(t){return st(this.pair.toLazy(t))}prettyPrint(){return`(cdr ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}},Le=class extends fe{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}valOf(t){const e=this.head.toLazy(t),n=this.tail.toLazy(t);return new Wt(e,n)}prettyPrint(){return`(:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Ae=class extends fe{valOf(t){return new jt}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}},Ie=class extends fe{elemType;constructor(t){super(),this.elemType=t}valOf(t){return new Zt(this.elemType.toLazy(t))}prettyPrint(){return`(List ${this.elemType.prettyPrint()})`}toString(){return this.prettyPrint()}},Be=class extends fe{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return at(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(rec-List ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Ce=class extends fe{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}valOf(t){return it(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(ind-List ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Re=class extends fe{valOf(t){return new he}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}},qe=class extends fe{valOf(t){return new le}prettyPrint(){return"sole"}toString(){return this.prettyPrint()}},Me=class extends fe{valOf(t){return new pe}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}},Ue=class extends fe{target;motive;constructor(t,e){super(),this.target=t,this.motive=e}valOf(t){return function(t,e){const n=t.now();if(n instanceof oe&&n.type.now()instanceof pe)return new oe(e,new Nt(n.neutral,new pt(new ce,e)));throw new Error(`invalid input for indAbsurd ${[t,e]}`)}(this.target.toLazy(t),this.motive.toLazy(t))}prettyPrint(){return`(ind-Absurd \n              ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()})`}toString(){return this.prettyPrint()}},He=class extends fe{type;left;right;constructor(t,e,n){super(),this.type=t,this.left=e,this.right=n}valOf(t){return new Jt(this.type.toLazy(t),this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(= ${this.type.prettyPrint()} \n              ${this.left.prettyPrint()} \n              ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},De=class extends fe{type;constructor(t){super(),this.type=t}valOf(t){return new te(this.type.toLazy(t))}prettyPrint(){return`(same ${this.type.prettyPrint()})`}toString(){return this.prettyPrint()}},ze=class extends fe{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof te)return n;if(r instanceof oe){const t=r.type.now();if(t instanceof Jt){const s=r.neutral,i=t.type,a=t.from,o=t.to;return new oe(J(e,o),new xt(s,new pt(new Gt("x",i,new B((t=>new ce))),e),new pt(J(e,a),n)))}}throw new Error(`invalid input for replace ${[t,e,n]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t))}prettyPrint(){return`(replace ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}},Qe=class extends fe{left;right;constructor(t,e){super(),this.left=t,this.right=e}valOf(t){return function(t,e){const n=t.now(),r=e.now();if(n instanceof te&&r instanceof te)return new te(n.value);if(n instanceof te&&r instanceof oe){const t=r.type.now();if(t instanceof Jt){const e=n.value,s=t.to,i=t.type,a=r.neutral;return new oe(new Jt(i,e,s),new kt(new pt(new Jt(i,e,e),new te(e)),a))}}else if(n instanceof oe&&r instanceof te){const t=n.type.now();if(t instanceof Jt){const e=t.from,s=r.value,i=t.type,a=n.neutral;return new oe(new Jt(i,e,s),new _t(a,new pt(new Jt(i,s,s),new te(s))))}}else if(n instanceof oe&&r instanceof oe){const t=n.type.now(),e=r.type.now();if(t instanceof Jt&&e instanceof Jt){const s=t.from,i=e.to,a=t.type,o=n.neutral,c=r.neutral;return new oe(new Jt(a,s,i),new St(o,c))}}throw new Error(`invalid input for do-trans: ${[t,e]}`)}(this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(trans ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},Fe=class extends fe{target;base;fun;constructor(t,e,n){super(),this.target=t,this.base=e,this.fun=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof te)return new te(J(n,r.value));if(r instanceof oe){const t=r.type.now();if(t instanceof Jt){const s=t.type,i=t.from,a=t.to,o=r.neutral;return new oe(new Jt(e,J(n,i),J(n,a)),new $t(o,new pt(new Gt("x",s,new B((t=>e))),n)))}}throw new Error(`invalid input for cong ${[t,e,n]}`)}(this.target.toLazy(t),this.base.toLazy(t),this.fun.toLazy(t))}prettyPrint(){return`(cong ${this.target.prettyPrint()} ${this.fun.prettyPrint()})`}toString(){return this.prettyPrint()}},Ve=class extends fe{equality;constructor(t){super(),this.equality=t}valOf(t){return function(t){const e=t.now();if(e instanceof te)return new te(e.value);if(e instanceof oe){const t=e.type.now();if(t instanceof Jt)return new oe(new Jt(t.type,t.to,t.from),new Ot(e.neutral))}throw new Error(`invalid input for symm ${t}`)}(this.equality.toLazy(t))}prettyPrint(){return`(symm ${this.equality.prettyPrint()})`}toString(){return this.prettyPrint()}},Ge=class extends fe{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof te)return n;if(r instanceof oe){const s=r.type.now();if(s instanceof Jt){const i=s.type,a=s.from,o=s.to,c=r.neutral;return new oe(J(J(e,o),t),new Lt(c,new pt(new Gt("to",i,new B((t=>new Gt("p",new Jt(i,a,t),new B((t=>new ce)))))),e),new pt(J(J(e,a),new te(a)),n)))}}throw new Error(`invalid input for indEqual ${[t,e,n]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t))}prettyPrint(){return`(ind-= ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}},Xe=class extends fe{type;length;constructor(t,e){super(),this.type=t,this.length=e}valOf(t){return new ee(this.type.toLazy(t),this.length.toLazy(t))}prettyPrint(){return`(Vec ${this.type.prettyPrint()} ${this.length.prettyPrint()})`}toString(){return this.prettyPrint()}},Ke=class extends fe{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}valOf(t){return new re(this.head.toLazy(t),this.tail.toLazy(t))}prettyPrint(){return`(vec:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Ye=class extends fe{valOf(t){return new ne}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}},Ze=class extends fe{vec;constructor(t){super(),this.vec=t}valOf(t){return function(t){const e=t.now();if(e instanceof re)return e.head;if(e instanceof oe){const t=e.type.now();if(t instanceof ee&&t.length.now()instanceof Vt)return new oe(t.entryType,new At(e.neutral))}throw new Error(`invalid input for head ${t}`)}(this.vec.toLazy(t))}prettyPrint(){return`(head ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}},je=class extends fe{vec;constructor(t){super(),this.vec=t}valOf(t){return ot(this.vec.toLazy(t))}prettyPrint(){return`(tail ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}},We=class extends fe{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}valOf(t){return ut(this.length.toLazy(t),this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`ind-Vec ${this.length.prettyPrint()}\n              ${this.target.prettyPrint()}\n              ${this.motive.prettyPrint()}\n              ${this.base.prettyPrint()}\n              ${this.step.prettyPrint()}`}toString(){return this.prettyPrint()}},Je=class extends fe{left;right;constructor(t,e){super(),this.left=t,this.right=e}valOf(t){return new se(this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(Either ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},tn=class extends fe{value;constructor(t){super(),this.value=t}valOf(t){return new ie(this.value.toLazy(t))}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},en=class extends fe{value;constructor(t){super(),this.value=t}valOf(t){return new ae(this.value.toLazy(t))}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},nn=class extends fe{target;motive;baseLeft;baseRight;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.baseLeft=n,this.baseRight=r}valOf(t){return function(t,e,n,r){const s=t.now();if(s instanceof ie)return J(n,s.value);if(s instanceof ae)return J(r,s.value);if(s instanceof oe){const i=s.type.now();if(i instanceof se){const a=i.leftType,o=i.rightType,c=new Gt("x",new se(a,o),new B((t=>new ce)));return new oe(J(e,t),new Rt(s.neutral,new pt(c,e),new pt(new Gt("x",a,new B((t=>J(e,new ie(t))))),n),new pt(new Gt("x",o,new B((t=>J(e,new ae(t))))),r)))}}throw new Error(`invalid input for indEither: ${[t,e,n,r]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.baseLeft.toLazy(t),this.baseRight.toLazy(t))}prettyPrint(){return`(ind-Either ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.baseLeft.prettyPrint()} \n              ${this.baseRight.prettyPrint()})`}toString(){return this.prettyPrint()}},rn=class extends fe{loc;type;constructor(t,e){super(),this.loc=t,this.type=e}valOf(t){return new oe(this.type.toLazy(t),new yt(this.loc,this.type.toLazy(t)))}prettyPrint(){return`TODO ${this.type.prettyPrint()}`}toString(){return this.prettyPrint()}},sn=class extends fe{fun;arg;constructor(t,e){super(),this.fun=t,this.arg=e}valOf(t){return J(this.fun.toLazy(t),this.arg.toLazy(t))}prettyPrint(){return`(${this.fun.prettyPrint()} ${this.arg.prettyPrint()})`}toString(){return this.prettyPrint()}};class an extends fe{name;constructor(t){super(),this.name=t}valOf(t){if(C(this.name))return function(t,e){if(t.has(e))return t.get(e);throw new Error(`Variable ${e} not found in environment`)}(t,this.name);throw new Error("{this.name} is not a valid variable name")}prettyPrint(){return this.name}toString(){return this.prettyPrint()}}function on(t,e){return ln(0,new Map,new Map,t,e)}const cn=-1;function un(t,e,n){return new Map([[e,n],...t])}function hn(t,e){return e.has(t)?e.get(t):cn}function ln(t,e,n,r,s){if(r instanceof an&&s instanceof an){const t=r.name,i=s.name;if(C(t)&&C(i)){const r=hn(t,e),s=hn(i,n);return r!==cn&&s!==cn?r===s:r===cn&&s===cn&&t===i}return!1}return r instanceof _e&&s instanceof _e?r.sym===s.sym:r instanceof be&&s instanceof be||r instanceof ke&&s instanceof ke?ln(t,e,n,r.type,s.type)&&ln(t+1,un(e,r.name,t),un(n,s.name,t),r.body,s.body):r instanceof Ne&&s instanceof Ne?ln(t+1,un(e,r.param,t),un(n,s.param,t),r.body,s.body):r instanceof we&&s instanceof we&&r.type instanceof Me&&s.type instanceof Me||(r instanceof sn&&s instanceof sn?ln(t,e,n,r.fun,s.fun)&&ln(t,e,n,r.arg,s.arg):r instanceof ye&&s instanceof ye||r instanceof de&&s instanceof de||r instanceof me&&s instanceof me||r instanceof xe&&s instanceof xe||r instanceof Me&&s instanceof Me||r instanceof qe&&s instanceof qe||r instanceof Ae&&s instanceof Ae||r instanceof Ye&&s instanceof Ye||r instanceof Re&&s instanceof Re||(r instanceof we&&s instanceof we?ln(t,e,n,r.type,s.type)&&ln(t,e,n,r.expr,s.expr):r instanceof Ie&&s instanceof Ie?ln(t,e,n,r.elemType,s.elemType):r instanceof ge&&s instanceof ge?ln(t,e,n,r.n,s.n):r instanceof ve&&s instanceof ve||r instanceof Ee&&s instanceof Ee||r instanceof Pe&&s instanceof Pe?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Te&&s instanceof Te?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Se&&s instanceof Se?ln(t,e,n,r.first,s.first)&&ln(t,e,n,r.second,s.second):r instanceof $e&&s instanceof $e||r instanceof Oe&&s instanceof Oe?ln(t,e,n,r.pair,s.pair):r instanceof Le&&s instanceof Le?ln(t,e,n,r.head,s.head)&&ln(t,e,n,r.tail,s.tail):r instanceof Be&&s instanceof Be?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Ce&&s instanceof Ce?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Ue&&s instanceof Ue?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive):r instanceof He&&s instanceof He?ln(t,e,n,r.type,s.type)&&ln(t,e,n,r.left,s.left)&&ln(t,e,n,r.right,s.right):r instanceof De&&s instanceof De?ln(t,e,n,r.type,s.type):r instanceof ze&&s instanceof ze?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base):r instanceof Qe&&s instanceof Qe?ln(t,e,n,r.left,s.left)&&ln(t,e,n,r.right,s.right):r instanceof Fe&&s instanceof Fe?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.fun,s.fun):r instanceof Ve&&s instanceof Ve?ln(t,e,n,r.equality,s.equality):r instanceof Ge&&s instanceof Ge?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base):r instanceof Xe&&s instanceof Xe?ln(t,e,n,r.type,s.type)&&ln(t,e,n,r.length,s.length):r instanceof Ke&&s instanceof Ke?ln(t,e,n,r.head,s.head)&&ln(t,e,n,r.tail,s.tail):r instanceof Ze&&s instanceof Ze||r instanceof je&&s instanceof je?ln(t,e,n,r.vec,s.vec):r instanceof We&&s instanceof We?ln(t,e,n,r.length,s.length)&&ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.base,s.base)&&ln(t,e,n,r.step,s.step):r instanceof Je&&s instanceof Je?ln(t,e,n,r.left,s.left)&&ln(t,e,n,r.right,s.right):r instanceof tn&&s instanceof tn||r instanceof en&&s instanceof en?ln(t,e,n,r.value,s.value):r instanceof nn&&s instanceof nn?ln(t,e,n,r.target,s.target)&&ln(t,e,n,r.motive,s.motive)&&ln(t,e,n,r.baseLeft,s.baseLeft)&&ln(t,e,n,r.baseRight,s.baseRight):r instanceof rn&&s instanceof rn&&(function(t,e){return t.startLine===e.startLine&&t.startColumn===e.startColumn&&t.endLine===e.endLine&&t.endColumn===e.endColumn}(r.loc,s.loc)&&ln(t,e,n,r.type,s.type))))}function pn(t,e){t.forInfo}function fn(t,e){const n=t.get(e);return n||e}function wn(t,e,n){return new Map([[e,n],...t])}function yn(t,e,n,r){const s=n.readBackType(t),i=r.readBackType(t);return on(s,i)?new S(void 0):new $(e,new _([`Expected ${i} but got ${s}`]))}function dn(t,e,n,r,s){return on(lt(t,n,r),lt(t,n,s))?new S(void 0):new $(e,new _([`The terms ${r} and ${s} are not the same ${n}.`]))}function mn(t){return gn(t.split(""))}function gn(t){return 0===t.length||(e=t[0],!(!/^[a-zA-Z]$/.test(e)&&"-"!==t[0])&&gn(t.slice(1)));var e}function vn(t,e,n){return new Er(t.location,t,e,n)}class En{source;startLine;startColumn;endLine;endColumn;constructor(t,e,n,r,s){this.source=t,this.startLine=e,this.startColumn=n,this.endLine=r,this.endColumn=s}}class Pn{start;end;source;constructor(t,e,n){this.start=t,this.end=e,this.source=n}}let Tn=class{syntax;forInfo;constructor(t,e){this.syntax=t,this.forInfo=e}locationToSrcLoc(){return new En(this.syntax.source,this.syntax.start.line,this.syntax.start.column,this.syntax.end.line,this.syntax.end.column)}toString(){return`${this.syntax.source}:${this.syntax.start.line}:${this.syntax.start.column}`}};function bn(t){return new Tn(t.syntax,!1)}class Nn{static synthNat(t,e){return new S(new we(new ye,new de))}static synthUniverse(t,e,n){return new $(n,new _(["U is a type, but it does not have a type."]))}static synthArrow(t,e,n,r,s,i){if(0===i.length){const n=M(t,s,"x"),i=new O("Aout"),a=new O("Bout");return L([[i,()=>r.check(t,e,new ce)],[a,()=>s.check(W(t,n,D(t,i.value)),e,new ce)]],(()=>new S(new we(new ye,new be(n,i.value,a.value)))))}{const[a,...o]=i,c=M(t,vn(s,a,o),"x"),u=new O("Aout"),h=new O("tout");return L([[u,()=>r.check(t,e,new ce)],[h,()=>new Cn(bn(n),s,a,o).check(W(t,c,D(t,u.value)),e,new ce)]],(()=>new S(new we(new ye,new be(c,u.value,h.value)))))}}static synthPi(t,e,n,r,s){if(1===r.length){const[n,i]=[r[0].binder,r[0].type],a=q(t,n.varName),o=(n.location,new O("Aout")),c=new O("Bout");return L([[o,()=>i.check(t,e,new ce)],[c,()=>s.check(W(t,a,D(t,o.value)),wn(e,n.varName,a),new ce)]],(()=>(o.value,new S(new we(new ye,new be(a,o.value,c.value))))))}if(r.length>1){const[i,...a]=r,[o,c]=[i.binder,i.type],u=(o.location,o.varName),h=q(t,u),l=new O("Aout"),p=new O("Bout");return L([[l,()=>c.check(t,e,new ce)],[p,()=>new Rn(bn(n),a,s).check(W(t,h,D(t,l.value)),wn(e,u,h),new ce)]],(()=>(l.value,new S(new we(new ye,new be(h,l.value,p.value))))))}throw new Error("Invalid number of binders in Pi type")}static synthZero(t,e){return new S(new we(new de,new me))}static synthAdd1(t,e,n){const r=new O("nout");return L([[r,()=>n.check(t,e,new Qt)]],(()=>new S(new we(new de,new ge(r.value)))))}static synthWhichNat(t,e,n,r,s){const i=new O("tgtout"),a=new O("bout"),o=new O("sout");let c=q(t,"n_minus_1");return L([[i,()=>n.check(t,e,new Qt)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,new Gt(c,new Qt,new I(V(t),c,a.value.type)))]],(()=>new S(new we(a.value.type,new ve(i.value,new we(a.value.type,a.value.expr),o.value)))))}static synthIterNat(t,e,n,r,s){const i=new O("tgtout"),a=new O("bout"),o=new O("sout");return L([[i,()=>n.check(t,e,new Qt)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,(()=>{const e=q(t,"old");return D(t,new be(e,a.value.type,a.value.type))})())]],(()=>new S(new we(a.value.type,new Ee(i.value,new we(a.value.type,a.value.expr),o.value)))))}static synthRecNat(t,e,n,r,s){const i=new O("tgtout"),a=new O("bout"),o=new O("sout");return L([[i,()=>n.check(t,e,new Qt)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,(()=>{const e=q(t,"n_minus_1"),n=q(t,"old");return D(t,new be(e,new de,new be(n,a.value.type,a.value.type)))})())]],(()=>new S(new we(a.value.type,new Pe(i.value,new we(a.value.type,a.value.expr),o.value)))))}static synthIndNat(t,e,n,r,s,i){const a=new O("tgtout"),o=new O("motout"),c=new O("motval"),u=new O("bout"),h=new O("sout");return L([[a,()=>n.check(t,e,new Qt)],[o,()=>r.check(t,e,new Gt("n",new Qt,new B((t=>new ce))))],[c,()=>new S(D(t,o.value))],[u,()=>s.check(t,e,J(c.value,new Ft))],[h,()=>i.check(t,e,new Gt("n_minus_1",new Qt,new B((t=>new Gt("ih",J(c.value,t),new B((e=>J(c.value,new Vt(t)))))))))]],(()=>new S(new we(new sn(o.value,a.value),new Te(a.value,o.value,u.value,h.value)))))}static synthAtom(t,e){return new S(new we(new ye,new xe))}static synthPair(t,e,n,r){const s=q(t,"a"),i=new O("Aout"),a=new O("Dout");return L([[i,()=>n.check(t,e,new ce)],[a,()=>r.check(W(t,s,D(t,i.value)),e,new ce)]],(()=>new S(new we(new ye,new ke(s,i.value,a.value)))))}static synthSigma(t,e,n,r,s){if(1===r.length){const[n,i]=[r[0].binder,r[0].type],a=q(t,n.varName),o=(n.location,new O("Aout")),c=new O("Dout");return L([[o,()=>i.check(t,e,new ce)],[c,()=>s.check(W(t,a,D(t,o.value)),wn(e,n.varName,a),new ce)]],(()=>(o.value,new S(new we(new ye,new ke(a,o.value,c.value))))))}if(r.length>1){const[i,...a]=r,[o,c]=[i.binder,i.type],u=(o.location,o.varName),h=q(t,u),l=new O("Aout"),p=new O("Dout");return L([[l,()=>c.check(t,e,new ce)],[p,()=>new Mn(bn(n),a,s).check(W(t,h,D(t,l.value)),wn(e,u,h),new ce)]],(()=>(l.value,new S(new we(new ye,new ke(h,l.value,p.value))))))}throw new Error("Invalid number of binders in Sigma type")}static synthCar(t,e,n,r){const s=new O("p_rst");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type);return e instanceof Kt?new S(new we(e.carType.readBackType(t),new $e(s.value.expr))):new $(n,new _([`car requires a Pair type, but was used as a: ${e}.`]))}))}static synthCdr(t,e,n,r){const s=new O("pout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type);if(e instanceof Kt){const[n,r,i]=[e.carName,e.carType,e.cdrType];return new S(new we(i.valOfClosure(rt(D(t,s.value.expr))).readBackType(t),new Oe(s.value.expr)))}return new $(n,new _([`cdr requires a Pair type, but was used as a: ${e}.`]))}))}static synthQuote(t,e,n,r){return mn(r)?new S(new we(new xe,new _e(r))):new $(n,new _([`Invalid atom: ${r}. Atoms consist of letters and hyphens.`]))}static synthTrivial(t,e){return new S(new we(new ye,new Re))}static synthSole(t,e){return new S(new we(new Re,new qe))}static synthIndList(t,e,n,r,s,i,a){const o=new O("tgtout"),c=new O("motout"),u=new O("motval"),h=new O("bout"),l=new O("sout");return L([[o,()=>r.synth(t,e)]],(()=>{const[r,p]=[o.value.type,o.value.expr],f=D(t,r);if(f instanceof Zt){const n=f.entryType;return L([[c,()=>s.check(t,e,new Gt("xs",new Zt(n),new I(V(t),"xs",new ye)))],[u,()=>new S(D(t,c.value))],[h,()=>i.check(t,e,J(u.value,new jt))],[l,()=>a.check(t,e,new Gt("e",n,new B((t=>new Gt("es",new Zt(n),new B((e=>new Gt("ih",J(u.value,e),new B((n=>J(u.value,new Wt(t,e))))))))))))]],(()=>new S(new we(new sn(c.value,p),new Ce(p,c.value,h.value,l.value)))))}return new $(n,new _([`Not a List: ${f.readBackType(t)}.`]))}))}static synthRecList(t,e,n,r,s,i){const a=new O("tgtout");return L([[a,()=>r.synth(t,e)]],(()=>{const[r,o]=[a.value.type,a.value.expr],c=D(t,r);if(c instanceof Zt){const n=c.entryType,r=new O("bout"),a=new O("btval"),u=new O("sout");return L([[r,()=>s.synth(t,e)],[a,()=>new S(D(t,r.value.type))],[u,()=>i.check(t,e,new Gt("e",n,new B((t=>new Gt("es",new Zt(n),new B((t=>new Gt("ih",a.value,new B((t=>a.value))))))))))]],(()=>new S(new we(r.value.type,new Be(o,new we(r.value.type,r.value.expr),u.value)))))}return new $(n,new _([`Not a List: ${c.readBackType(t)}.`]))}))}static synthList(t,e,n){const r=new O("Eout");return L([[r,()=>n.entryType.check(t,e,new ce)]],(()=>new S(new we(new ye,new Ie(r.value)))))}static synthListCons(t,e,n,r){const s=new O("eout"),i=new O("esout");return L([[s,()=>n.synth(t,e)],[i,()=>r.check(t,e,D(t,new Ie(s.value.type)))]],(()=>new S(new we(new Ie(s.value.type),new Le(s.value.expr,i.value)))))}static synthAbsurd(t,e,n){return new S(new we(new ye,new Me))}static synthIndAbsurd(t,e,n){const r=new O("tgtout"),s=new O("motout");return L([[r,()=>n.target.check(t,e,new pe)],[s,()=>n.motive.check(t,e,new ce)]],(()=>new S(new we(s.value,new Ue(r.value,s.value)))))}static synthEqual(t,e,n,r,s){const i=new O("Aout"),a=new O("Av"),o=new O("from_out"),c=new O("to_out");return L([[i,()=>n.check(t,e,new ce)],[a,()=>new S(D(t,i.value))],[o,()=>r.check(t,e,a.value)],[c,()=>s.check(t,e,a.value)]],(()=>new S(new we(new ye,new He(i.value,o.value,c.value)))))}static synthReplace(t,e,n,r,s,i){const a=new O("tgt_rst"),o=new O("motout"),c=new O("bout");return L([[a,()=>r.synth(t,e)]],(()=>{const r=D(t,a.value.type);if(r instanceof Jt){const[n,u,h]=[r.type,r.from,r.to];return L([[o,()=>s.check(t,e,new Gt("x",n,new B((t=>new ce))))],[c,()=>i.check(t,e,J(D(t,o.value),u))]],(()=>new S(new we(J(D(t,o.value),h).readBackType(t),new ze(a.value.expr,o.value,c.value)))))}return new $(n,new _([`Expected an expression with = type, but the type was: ${a.value.type}.`]))}))}static synthTrans(t,e,n,r,s){const i=new O("p1_rst"),a=new O("p2_rst");return L([[i,()=>r.synth(t,e)],[a,()=>s.synth(t,e)]],(()=>{const e=D(t,i.value.type),r=D(t,a.value.type);if(e instanceof Jt&&r instanceof Jt){const[s,o,c]=[e.type,e.from,e.to],[u,h,l]=[r.type,r.from,r.to];return L([[new O("_"),()=>yn(t,n,s,u)],[new O("_"),()=>dn(t,n,s,c,h)]],(()=>new S(new we(new Jt(s,o,l).readBackType(t),new Qe(i.value.expr,a.value.expr)))))}return new $(n,new _([`Expected =, got ${e} and ${r}.`]))}))}static synthCong(t,e,n,r,s){const i=new O("bout"),a=new O("f_rst");return L([[i,()=>r.synth(t,e)],[a,()=>s.synth(t,e)]],(()=>{const e=D(t,i.value.type),r=D(t,a.value.type);if(e instanceof Jt){const[s,o,c]=[e.type,e.from,e.to];if(r instanceof Gt){const[e,u,h]=[r.argName,r.argType,r.resultType],l=new O("ph"),p=new O("Cv"),f=new O("fv");return L([[l,()=>yn(t,n,s,u)],[p,()=>new S(h.valOfClosure(o))],[f,()=>new S(D(t,a.value.expr))]],(()=>new S(new we(new He(p.value.readBackType(t),lt(t,p.value,J(f.value,o)),lt(t,p.value,J(f.value,c))),new Fe(i.value.expr,p.value.readBackType(t),a.value.expr)))))}return new $(n,new _([`Expected a function type, got ${r.readBackType(t)}.`]))}return new $(n,new _([`Expected an = type, got ${e.readBackType(t)}.`]))}))}static synthSymm(t,e,n,r){const s=new O("eout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type);if(e instanceof Jt){const[n,r,i]=[e.type,e.from,e.to];return new S(new we(new Jt(n,i,r).readBackType(t),new Ve(s.value.expr)))}return new $(n,new _([`Expected an = type, got ${e.readBackType(t)}.`]))}))}static synthIndEqual(t,e,n,r,s,i){const a=new O("tgtout"),o=new O("motout"),c=new O("motv"),u=new O("baseout");return L([[a,()=>r.synth(t,e)]],(()=>{const r=D(t,a.value.type);if(r instanceof Jt){const[n,h,l]=[r.type,r.from,r.to];return L([[o,()=>s.check(t,e,new Gt("to",n,new B((t=>new Gt("p",new Jt(n,h,t),new B((t=>new ce)))))))],[c,()=>new S(D(t,o.value))],[u,()=>i.check(t,e,J(J(c.value,h),new te(h)))]],(()=>new S(new we(J(J(c.value,l),D(t,a.value.expr)).readBackType(t),new Ge(a.value.expr,o.value,u.value)))))}return new $(n,new _([`Expected evidence of equality, got ${r.readBackType(t)}.`]))}))}static synthVec(t,e,n,r){const s=new O("tout"),i=new O("lenout");return L([[s,()=>n.check(t,e,new ce)],[i,()=>r.check(t,e,new Qt)]],(()=>new S(new we(new ye,new Xe(s.value,i.value)))))}static synthHead(t,e,n,r){const s=new O("vout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type).now();if(e instanceof ee){const[r,i]=[e.entryType,e.length];return i.now()instanceof Vt?new S(new we(r.readBackType(t),new Ze(s.value.expr))):new $(n,new _([`Expected a Vec with add1 at the top of the length, got ${lt(t,new Qt,i)}.`]))}return new $(n,new _([`Expected a Vec, got ${e.readBackType(t)}.`]))}))}static synthTail(t,e,n,r){const s=new O("vout");return L([[s,()=>r.synth(t,e)]],(()=>{const e=D(t,s.value.type).now();if(e instanceof ee){const[r,i]=[e.entryType,e.length],a=i.now();if(a instanceof Vt){const e=a.smaller;return new S(new we(new Xe(r.readBackType(t),lt(t,new Qt,e)),new je(s.value.expr)))}return new $(n,new _([`Expected a Vec with add1 at the top of the length, got ${lt(t,new Qt,i)}.`]))}return new $(n,new _([`Expected a Vec, got ${e.readBackType(t)}.`]))}))}static synthIndVec(t,e,n,r,s,i,a,o){const c=new O("lenout"),u=new O("lenv"),h=new O("vecout"),l=new O("motout"),p=new O("motval"),f=new O("bout"),w=new O("sout");return L([[c,()=>r.check(t,e,new Qt)],[u,()=>new S(D(t,c.value))],[h,()=>s.synth(t,e)]],(()=>{const r=D(t,h.value.type);if(r instanceof ee){const[s,y]=[r.entryType,r.length];return L([[new O("_"),()=>dn(t,n,new Qt,u.value,y)],[l,()=>i.check(t,e,new Gt("k",new Qt,new B((t=>new Gt("es",new ee(s,t),new B((t=>new ce)))))))],[p,()=>new S(D(t,l.value))],[f,()=>a.check(t,e,J(J(p.value,new Ft),new ne))],[w,()=>o.check(t,e,ct(s,p.value))]],(()=>new S(new we(new sn(new sn(l.value,c.value),h.value.expr),new We(c.value,h.value.expr,l.value,f.value,w.value)))))}return new $(n,new _([`Expected a Vec, got ${r.readBackType(t)}.`]))}))}static synthEither(t,e,n,r){const s=new O("Lout"),i=new O("Rout");return L([[s,()=>n.check(t,e,new ce)],[i,()=>r.check(t,e,new ce)]],(()=>new S(new we(new ye,new Je(s.value,i.value)))))}static synthIndEither(t,e,n,r,s,i,a){const o=new O("tgtout"),c=new O("motout"),u=new O("motval"),h=new O("lout"),l=new O("rout");return L([[o,()=>r.synth(t,e)]],(()=>{const r=D(t,o.value.type);if(r instanceof se){const[n,p]=[r.leftType,r.rightType];return L([[c,()=>s.check(t,e,new Gt("x",new se(n,p),new B((t=>new ce))))],[u,()=>new S(D(t,c.value))],[h,()=>i.check(t,e,new Gt("x",n,new B((t=>J(u.value,new ie(t))))))],[l,()=>a.check(t,e,new Gt("x",p,new B((t=>J(u.value,new ae(t))))))]],(()=>new S(new we(new sn(c.value,o.value.expr),new nn(o.value.expr,c.value,h.value,l.value)))))}return new $(n,new _([`Expected an Either, but got a ${r.readBackType(t)}.`]))}))}static synthThe(t,e,n,r){const s=new O("t_out"),i=new O("e_out");return L([[s,()=>n.isType(t,e)],[i,()=>r.check(t,e,D(t,s.value))]],(()=>new S(new we(s.value,i.value))))}static synthApplication(t,e,n,r,s,i){if(0===i.length){const i=new O("fout");return L([[i,()=>r.synth(t,e)]],(()=>{const r=D(t,i.value.type);if(r instanceof Gt){const[n,a,o]=[r.argName,r.argType,r.resultType],c=new O("argout");return L([[c,()=>s.check(t,e,a)]],(()=>new S(new we(o.valOfClosure(D(t,c.value)).readBackType(t),new sn(i.value.expr,c.value)))))}return new $(n,new _([`Not a function type: ${r.readBackType(t)}.`]))}))}{const a=new O("appout");return L([[a,()=>new Er(bn(n),r,s,i.slice(0,i.length-1)).synth(t,e)]],(()=>{const r=D(t,a.value.type);if(r instanceof Gt){const[n,s,o]=[r.argName,r.argType,r.resultType],c=new O("fout");return L([[c,()=>i[i.length-1].check(t,e,s)]],(()=>new S(new we(o.valOfClosure(D(t,c.value)).readBackType(t),new sn(a.value.expr,c.value)))))}return new $(n,new _([`Not a function type: ${r.readBackType(t)}.`]))}))}}static synthName(t,e,n,r){const s=fn(e,r),i=new O("x_tv");return L([[i,()=>j(t,0,s)]],(()=>(t.get(s),new S(new we(i.value.readBackType(t),new an(s))))))}static synthNumber(t,e,n,r){if(0===r)return new S(new we(new de,new me));if(r>0){const s=new O("n_1_out");return L([[s,()=>new Yn(n,r-1).check(t,e,new Qt)]],(()=>new S(new we(new de,new ge(s.value)))))}return new $(n,new _([`Expected a positive number, got ${r}.`]))}}class xn{location;constructor(t){this.location=t}isType(t,e){const n=new O("ok"),r=this.getType(t,e);return L([[n,()=>r]],(()=>(pn(this.location,n.value),new S(n.value))))}getType(t,e){const n=this.check(t,e,new ce);if(n instanceof S)return n;if(n instanceof $){if(this instanceof Un&&C(this.name)){const e=new O("other-tv");return new L([[e,()=>j(t,this.location,this.name)]],(()=>{new $(this.location,new _([`Expected , but given ${e.value.readBackType(t)}`]))}))}return new $(this.location,new _(["not a type"]))}throw new Error("Invalid checkType")}check(t,e,n){const r=new O("ok"),s=this.checkOut(t,e,n);return L([[r,()=>s]],(()=>new S(r.value)))}synth(t,e){const n=new O("ok");return L([[n,()=>this.synthHelper(t,e)]],(()=>(pn(this.location,n.value.type),new S(n.value))))}checkOut(t,e,n){const r=new O("theT");return L([[r,()=>this.synth(t,e)],[new O("_"),()=>yn(t,this.location,D(t,r.value.type),n)]],(()=>new S(r.value.expr)))}}class _n extends xn{location;type;value;constructor(t,e,n){super(t),this.location=t,this.type=e,this.value=n}synthHelper(t,e){return Nn.synthThe(t,e,this.type,this.value)}findNames(){return this.type.findNames().concat(this.value.findNames())}prettyPrint(){return`(the ${this.type.prettyPrint()} ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class kn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthUniverse(t,e,this.location)}findNames(){return[]}getType(t,e){return new S(new ye)}prettyPrint(){return"U"}toString(){return this.prettyPrint()}}class Sn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthNat(t,e)}findNames(){return[]}getType(t,e){return new S(new de)}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}}class $n extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthZero(t,e)}findNames(){return[]}prettyPrint(){return"zero"}toString(){return this.prettyPrint()}}class On extends xn{location;base;constructor(t,e){super(t),this.location=t,this.base=e}synthHelper(t,e){return Nn.synthAdd1(t,e,this.base)}findNames(){return this.base.findNames()}prettyPrint(){return`(add1 ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class Ln extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthWhichNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(which-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class An extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthIterNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(iter-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class In extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthRecNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(rec-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Bn extends xn{location;target;motive;base;step;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.base=r,this.step=s}synthHelper(t,e){return Nn.synthIndNat(t,e,this.target,this.motive,this.base,this.step)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(ind-nat ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Cn extends xn{location;arg1;arg2;args;constructor(t,e,n,r){super(t),this.location=t,this.arg1=e,this.arg2=n,this.args=r}synthHelper(t,e){return Nn.synthArrow(t,e,this.location,this.arg1,this.arg2,this.args)}findNames(){return this.arg1.findNames().concat(this.arg2.findNames()).concat(this.args.flatMap((t=>t.findNames())))}getType(t,e){const[n,r,s]=[this.arg1,this.arg2,this.args];if(0===s.length){const s=M(t,r,"x"),i=new O("Aout"),a=new O("Bout");return L([[i,()=>n.isType(t,e)],[a,()=>r.isType(W(t,s,D(t,i.value)),e)]],(()=>new S(new be(s,i.value,a.value))))}{const[i,...a]=s,o=M(t,vn(r,i,a),"x"),c=new O("Aout"),u=new O("tout");return L([[c,()=>n.isType(t,e)],[u,()=>new Cn(bn(this.location),r,i,a).isType(W(t,o,D(t,c.value)),e)]],(()=>new S(new be(o,c.value,u.value))))}}prettyPrint(){return`(-> ${this.arg1.prettyPrint()} ${this.arg2.prettyPrint()} ${this.args.map((t=>t.prettyPrint())).join(" ")})`}toString(){return this.prettyPrint()}}class Rn extends xn{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){return Nn.synthPi(t,e,this.location,this.binders,this.body)}findNames(){return this.binders.flatMap((t=>U(t))).concat(this.body.findNames())}getType(t,e){const[n,r]=[this.binders,this.body];if(1===n.length){const[s,i]=[n[0].binder,n[0].type],a=q(t,s.varName),o=(s.location,new O("Aout")),c=new O("Aoutv"),u=new O("Bout");return L([[o,()=>i.isType(t,e)],[c,()=>new S(D(t,o.value))],[u,()=>r.isType(W(t,a,c.value),wn(e,s.varName,a))]],(()=>(o.value,new S(new be(a,o.value,u.value)))))}if(n.length>1){const[s,...i]=n,[a,o]=[s.binder.varName,s.type],c=q(t,a),u=(s.binder.location,new O("Aout")),h=new O("Aoutv"),l=new O("Bout");return L([[u,()=>o.isType(t,e)],[h,()=>new S(D(t,u.value))],[l,()=>new Rn(bn(this.location),i,r).isType(W(t,c,h.value),wn(e,s.binder.varName,c))]],(()=>(u.value,new S(new be(c,u.value,l.value)))))}throw new Error("Invalid number of binders in Pi type")}prettyPrint(){return`(Π ${this.binders.map((t=>`(${t.binder.varName} ${t.type.prettyPrint()})`)).join(" ")} \n            ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class qn extends xn{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.binders.map((t=>t.varName)).concat(this.body.findNames())}checkOut(t,e,n){if(1===this.binders.length){const r=this.body,s=this.binders[0],i=s.varName,a=s.location,o=n.now();if(o instanceof Gt){const n=o.argType,s=o.resultType,a=fn(e,i),c=new O("bout");return L([[c,()=>r.check(W(t,a,n),wn(e,i,a),s.valOfClosure(new oe(n,new wt(a))))]],(()=>(n.readBackType(t),new S(new Ne(a,c.value)))))}return new $(a,new _([`Not a function type: ${o.readBackType(t)}.`]))}return new qn(this.location,[this.binders[0]],new qn(bn(this.location),this.binders.slice(1),this.body)).check(t,e,n)}prettyPrint(){return`(lambda ${this.binders.map((t=>t.varName)).join(" ")} ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class Mn extends xn{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){return Nn.synthSigma(t,e,this.location,this.binders,this.body)}findNames(){return this.binders.flatMap((t=>U(t))).concat(this.body.findNames())}getType(t,e){const[n,r]=[this.binders,this.body];if(1===n.length){const[s,i]=[n[0].binder,n[0].type],a=s.varName,o=q(t,a),c=(s.location,new O("Aout")),u=new O("Aoutv"),h=new O("Dout");return L([[c,()=>i.isType(t,e)],[u,()=>new S(D(t,c.value))],[h,()=>r.isType(W(t,o,u.value),wn(e,a,o))]],(()=>(c.value,new S(new ke(o,c.value,h.value)))))}if(n.length>1){const[[s,i],...a]=[[n[0].binder,n[0].type],n[1],...n.slice(2)],o=s.varName,c=q(t,o),u=(s.location,new O("Aout")),h=new O("Aoutv"),l=new O("Dout");return L([[u,()=>i.isType(t,e)],[h,()=>new S(D(t,u.value))],[l,()=>new Mn(this.location,a,r).isType(W(t,o,h.value),wn(e,o,c))]],(()=>(u.value,new S(new ke(c,u.value,l.value)))))}throw new Error("Invalid number of binders in Sigma type")}prettyPrint(){return`(Σ ${this.binders.map((t=>`(${t.binder.varName} ${t.type.prettyPrint()})`)).join(" ")} \n            ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class Un extends xn{location;name;constructor(t,e){super(t),this.location=t,this.name=e}synthHelper(t,e){return Nn.synthName(t,e,this.location,this.name)}findNames(){return[this.name]}prettyPrint(){return this.name}toString(){return this.prettyPrint()}}class Hn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthAtom(t,e)}findNames(){return[]}getType(t,e){return new S(new xe)}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}}class Dn extends xn{location;name;constructor(t,e){super(t),this.location=t,this.name=e}synthHelper(t,e){return Nn.synthQuote(t,e,this.location,this.name)}findNames(){return[]}prettyPrint(){return`'${this.name}`}toString(){return this.prettyPrint()}}class zn extends xn{location;first;second;constructor(t,e,n){super(t),this.location=t,this.first=e,this.second=n}synthHelper(t,e){return Nn.synthPair(t,e,this.first,this.second)}findNames(){return this.first.findNames().concat(this.second.findNames())}getType(t,e){const n=new O("Aout"),r=new O("Dout"),s=M(t,this.second,"x");return L([[n,()=>this.first.isType(t,e)],[r,()=>this.second.isType(W(t,s,D(t,n.value)),e)]],(()=>new S(new ke(s,n.value,r.value))))}prettyPrint(){return`(Pair ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}}class Qn extends xn{location;first;second;constructor(t,e,n){super(t),this.location=t,this.first=e,this.second=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.first.findNames().concat(this.second.findNames())}checkOut(t,e,n){const r=n.now();if(r instanceof Kt){const n=r.carType,s=r.cdrType,i=new O("aout"),a=new O("dout");return L([[i,()=>this.first.check(t,e,n)],[a,()=>this.second.check(t,e,s.valOfClosure(D(t,i.value)))]],(()=>new S(new Se(i.value,a.value))))}return new $(this.location,new _([`cons requires a Pair or Σ type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(cons ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}}class Fn extends xn{location;pair;constructor(t,e){super(t),this.location=t,this.pair=e}synthHelper(t,e){return Nn.synthCar(t,e,this.location,this.pair)}findNames(){return this.pair.findNames()}prettyPrint(){return`(car ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}}class Vn extends xn{location;pair;constructor(t,e){super(t),this.location=t,this.pair=e}synthHelper(t,e){return Nn.synthCdr(t,e,this.location,this.pair)}findNames(){return this.pair.findNames()}prettyPrint(){return`(cdr ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}}class Gn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthTrivial(t,e)}findNames(){return[]}getType(t,e){return new S(new Re)}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}}class Xn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthSole(t,e)}findNames(){return[]}prettyPrint(){return"Sole"}}class Kn extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.now();return r instanceof Zt?new S(new Ae):new $(this.location,new _([`nil requires a List type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}}let Yn=class extends xn{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){return Nn.synthNumber(t,e,this.location,this.value)}findNames(){return[]}prettyPrint(){return`${this.value}`}toString(){return this.prettyPrint()}};class Zn extends xn{location;entryType;constructor(t,e){super(t),this.location=t,this.entryType=e}synthHelper(t,e){return Nn.synthList(t,e,this)}findNames(){return this.entryType.findNames()}getType(t,e){const n=new O("Eout");return L([[n,()=>this.entryType.isType(t,e)]],(()=>new S(new Ie(n.value))))}prettyPrint(){return`(List ${this.entryType.prettyPrint()})`}toString(){return this.prettyPrint()}}class jn extends xn{location;x;xs;constructor(t,e,n){super(t),this.location=t,this.x=e,this.xs=n}synthHelper(t,e){return Nn.synthListCons(t,e,this.x,this.xs)}findNames(){return this.x.findNames().concat(this.xs.findNames())}prettyPrint(){return`(:: ${this.x.prettyPrint()} ${this.xs.prettyPrint()})`}toString(){return this.prettyPrint()}}class Wn extends xn{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return Nn.synthRecList(t,e,this.location,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(rec-list ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Jn extends xn{location;target;motive;base;step;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.base=r,this.step=s}synthHelper(t,e){return Nn.synthIndList(t,e,this.location,this.target,this.motive,this.base,this.step)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(ind-list ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class tr extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return Nn.synthAbsurd(t,e,this)}findNames(){return[]}getType(t,e){return new S(new Me)}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}}class er extends xn{location;target;motive;constructor(t,e,n){super(t),this.location=t,this.target=e,this.motive=n}synthHelper(t,e){return Nn.synthIndAbsurd(t,e,this)}findNames(){return this.target.findNames().concat(this.motive.findNames())}prettyPrint(){return`(ind-Absurd \n              ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()})`}toString(){return this.prettyPrint()}}class nr extends xn{location;type;left;right;constructor(t,e,n,r){super(t),this.location=t,this.type=e,this.left=n,this.right=r}synthHelper(t,e){return Nn.synthEqual(t,e,this.type,this.left,this.right)}findNames(){return this.type.findNames().concat(this.left.findNames()).concat(this.right.findNames())}getType(t,e){const[n,r,s]=[this.type,this.left,this.right],i=new O("Aout"),a=new O("Av"),o=new O("from_out"),c=new O("to_out");return L([[i,()=>n.isType(t,e)],[a,()=>new S(D(t,i.value))],[o,()=>r.check(t,e,a.value)],[c,()=>s.check(t,e,a.value)]],(()=>new S(new He(i.value,o.value,c.value))))}prettyPrint(){return`(= ${this.type.prettyPrint()} \n              ${this.left.prettyPrint()} \n              ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class rr extends xn{location;type;constructor(t,e){super(t),this.location=t,this.type=e}findNames(){return this.type.findNames()}synthHelper(t,e){throw new Error("Method not implemented.")}checkOut(t,e,n){const r=n.now();if(r instanceof Jt){const n=r.type,s=r.from,i=r.to,a=new O("cout"),o=new O("val");return L([[a,()=>this.type.check(t,e,n)],[o,()=>new S(D(t,a.value))],[new O("_"),()=>dn(t,this.type.location,n,s,o.value)],[new O("_"),()=>dn(t,this.type.location,n,i,o.value)]],(()=>new S(new De(a.value))))}return new $(this.location,new _([`same requires an Equal type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(same ${this.type.prettyPrint()})`}toString(){return this.prettyPrint()}}class sr extends xn{location;target;motive;base;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.motive=n,this.base=r}synthHelper(t,e){return Nn.synthReplace(t,e,this.location,this.target,this.motive,this.base)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames())}prettyPrint(){return`(replace ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class ir extends xn{location;left;right;synthHelper(t,e){return Nn.synthTrans(t,e,this.location,this.left,this.right)}constructor(t,e,n){super(t),this.location=t,this.left=e,this.right=n}findNames(){return this.left.findNames().concat(this.right.findNames())}prettyPrint(){return`(trans ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class ar extends xn{location;target;fun;constructor(t,e,n){super(t),this.location=t,this.target=e,this.fun=n}synthHelper(t,e){return Nn.synthCong(t,e,this.location,this.target,this.fun)}findNames(){return this.target.findNames().concat(this.fun.findNames())}prettyPrint(){return`(cong ${this.target.prettyPrint()} ${this.fun.prettyPrint()})`}toString(){return this.prettyPrint()}}class or extends xn{location;equality;constructor(t,e){super(t),this.location=t,this.equality=e}synthHelper(t,e){return Nn.synthSymm(t,e,this.location,this.equality)}findNames(){return this.equality.findNames()}prettyPrint(){return`(symm ${this.equality.prettyPrint()})`}toString(){return this.prettyPrint()}}class cr extends xn{location;target;motive;base;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.motive=n,this.base=r}synthHelper(t,e){return Nn.synthIndEqual(t,e,this.location,this.target,this.motive,this.base)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames())}prettyPrint(){return`(ind-= ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class ur extends xn{location;type;length;constructor(t,e,n){super(t),this.location=t,this.type=e,this.length=n}synthHelper(t,e){return Nn.synthVec(t,e,this.type,this.length)}findNames(){return this.type.findNames().concat(this.length.findNames())}getType(t,e){const n=new O("Eout"),r=new O("lenout");return L([[n,()=>this.type.isType(t,e)],[r,()=>this.length.check(t,e,new Qt)]],(()=>new S(new Xe(n.value,r.value))))}prettyPrint(){return`(Vec ${this.type.prettyPrint()} ${this.length.prettyPrint()})`}toString(){return this.prettyPrint()}}class hr extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.now();if(r instanceof ee){return r.length.now()instanceof Ft?new S(new Ye):new $(this.location,new _([`vecnil requires a Vec type with length ZERO, but was used as a: \n          ${lt(t,new Qt,r.length)}.`]))}return new $(this.location,new _([`vecnil requires a Vec type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}}class lr extends xn{location;x;xs;constructor(t,e,n){super(t),this.location=t,this.x=e,this.xs=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.x.findNames().concat(this.xs.findNames())}checkOut(t,e,n){const r=n.now();if(r instanceof ee){const n=r.length.now();if(n instanceof Vt){const s=new O("hout"),i=new O("tout"),a=n.smaller;return L([[s,()=>this.x.check(t,e,r.entryType)],[i,()=>this.xs.check(t,e,new ee(r.entryType,a))]],(()=>new S(new Ke(s.value,i.value))))}return new $(this.location,new _([`vec:: requires a Vec type with length Add1, but was used with a: \n          ${lt(t,new Qt,r.length)}.`]))}return new $(this.location,new _([`vec:: requires a Vec type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(vec:: ${this.x.prettyPrint()} ${this.xs.prettyPrint()})`}toString(){return this.prettyPrint()}}class pr extends xn{location;vec;constructor(t,e){super(t),this.location=t,this.vec=e}synthHelper(t,e){return Nn.synthHead(t,e,this.location,this.vec)}findNames(){return this.vec.findNames()}prettyPrint(){return`(head ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}}class fr extends xn{location;vec;constructor(t,e){super(t),this.location=t,this.vec=e}synthHelper(t,e){return Nn.synthTail(t,e,this.location,this.vec)}findNames(){return this.vec.findNames()}prettyPrint(){return`(tail ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}}class wr extends xn{location;length;target;motive;base;step;constructor(t,e,n,r,s,i){super(t),this.location=t,this.length=e,this.target=n,this.motive=r,this.base=s,this.step=i}synthHelper(t,e){return Nn.synthIndVec(t,e,this.location,this.length,this.target,this.motive,this.base,this.step)}findNames(){return this.length.findNames().concat(this.target.findNames()).concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`ind-Vec ${this.length.prettyPrint()}\n              ${this.target.prettyPrint()}\n              ${this.motive.prettyPrint()}\n              ${this.base.prettyPrint()}\n              ${this.step.prettyPrint()}`}toString(){return this.prettyPrint()}}class yr extends xn{location;left;right;constructor(t,e,n){super(t),this.location=t,this.left=e,this.right=n}synthHelper(t,e){return Nn.synthEither(t,e,this.left,this.right)}findNames(){return this.left.findNames().concat(this.right.findNames())}getType(t,e){const n=new O("Lout"),r=new O("Rout");return L([[n,()=>this.left.isType(t,e)],[r,()=>this.right.isType(t,e)]],(()=>new S(new Je(n.value,r.value))))}prettyPrint(){return`(Either ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class dr extends xn{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.value.findNames()}checkOut(t,e,n){const r=n.now();if(r instanceof se){const n=new O("lout");return L([[n,()=>this.value.check(t,e,r.leftType)]],(()=>new S(new tn(n.value))))}return new $(this.location,new _([`left requires an Either type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class mr extends xn{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.value.findNames()}checkOut(t,e,n){const r=n.now();if(r instanceof se){const n=new O("rout");return L([[n,()=>this.value.check(t,e,r.rightType)]],(()=>new S(new en(n.value))))}return new $(this.location,new _([`right requires an Either type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class gr extends xn{location;target;motive;baseLeft;baseRight;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.baseLeft=r,this.baseRight=s}synthHelper(t,e){return Nn.synthIndEither(t,e,this.location,this.target,this.motive,this.baseLeft,this.baseRight)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.baseLeft.findNames()).concat(this.baseRight.findNames())}prettyPrint(){return`(ind-Either ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.baseLeft.prettyPrint()} \n              ${this.baseRight.prettyPrint()})`}toString(){return this.prettyPrint()}}class vr extends xn{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.readBackType(t);return pn(this.location,z(t)),new S(new rn(this.location.locationToSrcLoc(),r))}prettyPrint(){return"TODO"}toString(){return this.prettyPrint()}}class Er extends xn{location;func;arg;args;constructor(t,e,n,r){super(t),this.location=t,this.func=e,this.arg=n,this.args=r}synthHelper(t,e){return Nn.synthApplication(t,e,this.location,this.func,this.arg,this.args)}findNames(){return this.func.findNames().concat(this.arg.findNames()).concat(this.args.flatMap((t=>t.findNames())))}prettyPrint(){return`(${this.func.prettyPrint()} ${this.arg.prettyPrint()} ${this.args.map((t=>t.prettyPrint())).join(" ")})`}toString(){return this.prettyPrint()}}var Pr,Tr;!function(t){t[t.INTEGER=1]="INTEGER",t[t.RATIONAL=2]="RATIONAL",t[t.REAL=3]="REAL",t[t.COMPLEX=4]="COMPLEX"}(Pr||(Pr={}));class br{result;constructor(t){this.result=t}}class Nr extends br{result;value;constructor(t,e){super(t),this.result=t,this.value=e}isSigned(){return!!this.result&&("+"===this.value[0]||"-"===this.value[0])}build(){return Or.build(this.value)}}class xr extends br{result;numerator;denominator;constructor(t,e,n){super(t),this.result=t,this.numerator=e,this.denominator=n}build(){return Lr.build(this.numerator,this.denominator)}}class _r extends br{result;integer;decimal;exponent;constructor(t,e,n,r){super(t),this.result=t,this.integer=e,this.decimal=n,this.exponent=r}build(){if(this.integer?.includes("inf"))return this.integer.includes("-")?Ar.NEG_INFINITY:Ar.INFINITY;if(this.integer?.includes("nan"))return Ar.NAN;let t=(this.exponent?this.exponent.build():Ar.INEXACT_ZERO).coerce(),e=Number((this.integer?this.integer:"0")+"."+(this.decimal?this.decimal:"0"));return e*=Math.pow(10,t),Ar.build(e)}}class kr extends br{result;real;sign;imaginary;constructor(t,e,n,r){super(t),this.result=t,this.real=e,this.sign=n,this.imaginary=r}build(){const t=this.real?this.real.build():Or.EXACT_ZERO,e=this.imaginary.build();return this.sign&&"-"===this.sign?Ir.build(t,e.negate()):Ir.build(t,e)}}function Sr(t){const e=new RegExp("^([+-]?)(\\d+)$").exec(t);return e?new Nr(!0,e[0]):new Nr(!1)}function $r(t,e){const n=Sr(t);if(n.result&&e>=Pr.INTEGER)return n;const r=function(t){if(1!==(t.match(/\//g)||[]).length)return new xr(!1);const e=t.split("/");if(2!==e.length)return new xr(!1);const[n,r]=e,s=Sr(n),i=Sr(r);return s.result&&i.result?new xr(!0,n,r):new xr(!1)}(t);if(r.result&&e>=Pr.RATIONAL)return r;const s=function(t){function e(t){if(function(t){return"+inf.0"===t||"-inf.0"===t||"+nan.0"===t||"-nan.0"===t}(t))return new _r(!0,t);const e=(t.match(/\./g)||[]).length;if(e>1)return new _r(!1);if(0===e){const e=Sr(t);return new _r(e.result,e.value)}const[n,r]=t.split("."),s=Sr(n),i=Sr(r),a=s.result||""===n,o=i.result||""===r;return"+"===n||"-"===n?""===r?new _r(!1):new _r(!0,`${n}0`,t):s.result&&o||a&&i.result?i.result&&i.isSigned()?new _r(!1):new _r(!0,s.value,i.value):new _r(!1)}return 0===(t.match(/[eE]/g)||[]).length?e(t):function(t){const n=t.indexOf("e"),r=t.indexOf("E");if(-1===n&&-1===r)return new _r(!1);const s=-1===n?r:n,i=t.substring(0,s),a=t.substring(s+1);if(""===i||""==a)return new _r(!1);const o=e(i);if(!o.result)return new _r(!1);const c=$r(a,Pr.REAL);return c.result?new _r(!0,o.integer,o.decimal,c):new _r(!1)}(t)}(t);if(s.result&&e>=Pr.REAL)return s;const i=function(t){if((t.match(/i/g)||[]).length<1)return new kr(!1);if("i"!==t[t.length-1])return new kr(!1);const e=t.search(/(?<!^)[+-]/);if(-1===e){const e=$r(t.slice(0,-1),Pr.REAL);return e.result?new kr(!0,void 0,void 0,e):new kr(!1)}const n=t.slice(0,e);let r=t.slice(e+1,-1);"+"!==r[0]&&"-"!==r[0]&&(r="+"+r);const s=$r(n,Pr.REAL),i=$r(r,Pr.REAL);return s.result&&i.result?new kr(!0,s,t[e],i):new kr(!1)}(t);return i.result&&e>=Pr.COMPLEX?i:new Nr(!1)}class Or{numberType=Pr.INTEGER;value;static EXACT_ZERO=new Or(0n);constructor(t){this.value=t}static build(t,e=!1){const n=BigInt(t);return 0n===n?Or.EXACT_ZERO:new Or(n)}promote(t){switch(t){case Pr.INTEGER:return this;case Pr.RATIONAL:return Lr.build(this.value,1n,!0);case Pr.REAL:return Ar.build(this.coerce(),!0);case Pr.COMPLEX:return Ir.build(this,Or.EXACT_ZERO,!0)}}equals(t){return t instanceof Or&&this.value===t.value}greaterThan(t){return this.value>t.value}negate(){return this===Or.EXACT_ZERO?this:Or.build(-this.value)}multiplicativeInverse(){if(this===Or.EXACT_ZERO)throw new Error("Division by zero");return Lr.build(1n,this.value,!1)}add(t){return Or.build(this.value+t.value)}multiply(t){return Or.build(this.value*t.value)}getBigInt(){return this.value}coerce(){return this.value>Number.MAX_SAFE_INTEGER?1/0:this.value<Number.MIN_SAFE_INTEGER?-1/0:Number(this.value)}toString(){return this.value.toString()}}class Lr{numberType=Pr.RATIONAL;numerator;denominator;constructor(t,e){this.numerator=t,this.denominator=e}static build(t,e,n=!1){return Lr.simplify(BigInt(t),BigInt(e),n)}static simplify(t,e,n=!1){const r=(t,e)=>0n===e?t:r(e,t.valueOf()%e.valueOf()),s=r(t,e),i=t<0n?-1n:1n,a=e<0n?-1n:1n,o=i*a;return t*=i,1n!==(e*=a)||n?new Lr(o*t/s,e/s):Or.build(o*t)}getNumerator(){return this.numerator}getDenominator(){return this.denominator}promote(t){switch(t){case Pr.RATIONAL:return this;case Pr.REAL:return Ar.build(this.coerce(),!0);case Pr.COMPLEX:return Ir.build(this,Or.EXACT_ZERO,!0);default:throw new Error("Unable to demote rational")}}equals(t){return t instanceof Lr&&this.numerator===t.numerator&&this.denominator===t.denominator}greaterThan(t){return this.numerator*t.denominator>t.numerator*this.denominator}negate(){return Lr.build(-this.numerator,this.denominator)}multiplicativeInverse(){if(0n===this.numerator)throw new Error("Division by zero");return Lr.build(this.denominator,this.numerator)}add(t){const e=this.numerator*t.denominator+t.numerator*this.denominator,n=this.denominator*t.denominator;return Lr.build(e,n)}multiply(t){const e=this.numerator*t.numerator,n=this.denominator*t.denominator;return Lr.build(e,n)}coerce(){const t=this.numerator<0n?-this.numerator:this.numerator;let e=this.denominator;const n=Number(t/e);if(n>Number.MAX_VALUE)return this.numerator<0n?-1/0:1/0;let r=t%e;for(;r>Number.MAX_SAFE_INTEGER||e>Number.MAX_SAFE_INTEGER;)r/=2n,e/=2n;const s=Number(r)/Number(e);return this.numerator<0n?-(n+s):n+s}toString(){return`${this.numerator}/${this.denominator}`}}class Ar{numberType=Pr.REAL;value;static INEXACT_ZERO=new Ar(0);static INEXACT_NEG_ZERO=new Ar(-0);static INFINITY=new Ar(1/0);static NEG_INFINITY=new Ar(-1/0);static NAN=new Ar(NaN);static build(t,e=!1){return t===1/0?Ar.INFINITY:t===-1/0?Ar.NEG_INFINITY:isNaN(t)?Ar.NAN:0===t?Ar.INEXACT_ZERO:-0===t?Ar.INEXACT_NEG_ZERO:new Ar(t)}constructor(t){this.value=t}promote(t){switch(t){case Pr.REAL:return this;case Pr.COMPLEX:return Ir.build(this,Or.EXACT_ZERO,!0);default:throw new Error("Unable to demote real")}}equals(t){return t instanceof Ar&&this.value===t.value}greaterThan(t){return this.value>t.value}negate(){return Ar.build(-this.value)}multiplicativeInverse(){if(this===Ar.INEXACT_ZERO||this===Ar.INEXACT_NEG_ZERO)throw new Error("Division by zero");return Ar.build(1/this.value)}add(t){return Ar.build(this.value+t.value)}multiply(t){return Ar.build(this.value*t.value)}coerce(){return this.value}toString(){return this===Ar.INFINITY?"+inf.0":this===Ar.NEG_INFINITY?"-inf.0":this===Ar.NAN?"+nan.0":this.value.toString()}}class Ir{numberType=Pr.COMPLEX;real;imaginary;static build(t,e,n=!1){return Ir.simplify(new Ir(t,e),n)}constructor(t,e){this.real=t,this.imaginary=e}static simplify(t,e){return!e&&qr(t.imaginary,Or.EXACT_ZERO)?t.real:t}promote(t){if(t===Pr.COMPLEX)return this;throw new Error("Unable to demote complex")}negate(){return Ir.build(this.real.negate(),this.imaginary.negate())}equals(t){return qr(this.real,t.real)&&qr(this.imaginary,t.imaginary)}greaterThan(t){return Mr(this.real,t.real)&&Mr(this.imaginary,t.imaginary)}multiplicativeInverse(){const t=Ur(Hr(this.real,this.real),Hr(this.imaginary,this.imaginary));return Ir.build(Hr(t.multiplicativeInverse(),this.real),Hr(t.multiplicativeInverse(),this.imaginary.negate()))}add(t){return Ir.build(Ur(this.real,t.real),Ur(this.imaginary,t.imaginary))}multiply(t){const e=(n=Hr(this.real,t.real),r=Hr(this.imaginary,t.imaginary),Ur(n,function(t){return t.negate()}(r)));var n,r;const s=Ur(Hr(this.real,t.imaginary),Hr(this.imaginary,t.real));return Ir.build(e,s)}getReal(){return this.real}getImaginary(){return this.imaginary}coerce(){throw new Error("Cannot coerce a complex number to a javascript number")}toPolar(){const t=this.real.promote(Pr.REAL),e=this.imaginary.promote(Pr.REAL),n=Ar.build(Math.sqrt(t.coerce()*t.coerce()+e.coerce()*e.coerce())),r=Ar.build(Math.atan2(e.coerce(),t.coerce()));return Br.build(n,r)}toString(){return`${this.real}+${this.imaginary}i`}}class Br{magnitude;angle;constructor(t,e){this.magnitude=t,this.angle=e}static build(t,e){return new Br(t,e)}toCartesian(){const t=Ar.build(this.magnitude.coerce()*Math.cos(this.angle.coerce())),e=Ar.build(this.magnitude.coerce()*Math.sin(this.angle.coerce()));return Ir.build(t,e)}}function Cr(t){switch(t.numberType){case Pr.INTEGER:return t;case Pr.RATIONAL:return 1n===t.getDenominator()?Or.build(t.getNumerator()):t;case Pr.REAL:return t;case Pr.COMPLEX:return Ir.build(Cr(t.getReal()),Cr(t.getImaginary()))}}function Rr(t,e){return t.numberType>e.numberType?[t,e.promote(t.numberType)]:t.numberType<e.numberType?[t.promote(e.numberType),e]:[t,e]}function qr(t,e){const[n,r]=Rr(t,e);return n.equals(r)}function Mr(t,e){const[n,r]=Rr(t,e);return n.greaterThan(r)}function Ur(t,e){const[n,r]=Rr(t,e);return Cr(n.add(r))}function Hr(t,e){const[n,r]=Rr(t,e);return Cr(n.multiply(r))}class Dr{start;end;constructor(t,e){this.start=t,this.end=e}merge(t){return new Dr(this.start,t.end)}}class zr{line;column;constructor(t,e){this.line=t,this.column=e}}function Qr(t,e){return t.split("\n")[e.line-1]}function Fr(t){return"^".padStart(t.column," ")}!function(t){t[t.LEFT_PAREN=0]="LEFT_PAREN",t[t.RIGHT_PAREN=1]="RIGHT_PAREN",t[t.LEFT_BRACKET=2]="LEFT_BRACKET",t[t.RIGHT_BRACKET=3]="RIGHT_BRACKET",t[t.DOT=4]="DOT",t[t.HASH_SEMICOLON=5]="HASH_SEMICOLON",t[t.IDENTIFIER=6]="IDENTIFIER",t[t.NUMBER=7]="NUMBER",t[t.BOOLEAN=8]="BOOLEAN",t[t.STRING=9]="STRING",t[t.IF=10]="IF",t[t.LET=11]="LET",t[t.COND=12]="COND",t[t.ELSE=13]="ELSE",t[t.DEFINE=14]="DEFINE",t[t.LAMBDA=15]="LAMBDA",t[t.APOSTROPHE=16]="APOSTROPHE",t[t.BACKTICK=17]="BACKTICK",t[t.COMMA=18]="COMMA",t[t.COMMA_AT=19]="COMMA_AT",t[t.QUOTE=20]="QUOTE",t[t.QUASIQUOTE=21]="QUASIQUOTE",t[t.UNQUOTE=22]="UNQUOTE",t[t.UNQUOTE_SPLICING=23]="UNQUOTE_SPLICING",t[t.SET=24]="SET",t[t.BEGIN=25]="BEGIN",t[t.DELAY=26]="DELAY",t[t.IMPORT=27]="IMPORT",t[t.EXPORT=28]="EXPORT",t[t.DEFINE_SYNTAX=29]="DEFINE_SYNTAX",t[t.SYNTAX_RULES=30]="SYNTAX_RULES",t[t.HASH_VECTOR=31]="HASH_VECTOR",t[t.VECTOR=32]="VECTOR",t[t.EOF=33]="EOF"}(Tr||(Tr={}));class Vr extends SyntaxError{loc;constructor(t,e){super(`Syntax error at (${e.line}:${e.column})\n${t}`),this.loc=e}toString(){return this.message}}let Gr=class extends Vr{constructor(t,e){super(Qr(t,e)+"\nUnexpected EOF",e),this.name="UnexpectedEOFError"}};class Xr extends Vr{form;constructor(t,e,n){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Unexpected '${n}'`,e),this.form=n,this.name="UnexpectedTokenError"}}class Kr extends Vr{form;expected;constructor(t,e,n,r){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Expected '${r}' but got '${n}'`,e),this.form=n,this.expected=r,this.name="ExpectedTokenError"}}class Yr extends Vr{token;constructor(t,e,n,r){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Syntax '${n}' not allowed at Scheme §${r}`,e),this.token=n,this.name="DisallowedTokenError"}}class Zr extends Vr{token;constructor(t,e,n){super(Qr(t,e)+"\n"+Fr(e)+"\n"+`Syntax '${n}' not supported yet`,e),this.token=n,this.name="UnsupportedTokenError"}}class jr{elements;location;constructor(t){this.elements=t,this.location=new Dr(this.firstPos(),this.lastPos())}static build(t){if(0===t.length)throw new Error("Illegal empty group. This should never happen.");if(1===t.length){const n=t[0];if(Jr(n))return n;if((e=n).type!==Tr.IDENTIFIER&&e.type!==Tr.NUMBER&&e.type!==Tr.STRING&&e.type!==Tr.BOOLEAN)throw new Kr("",n.pos,n,"<data>");return new jr(t)}var e;if(2===t.length){const e=t[0];if(Wr(e)&&function(t){return t.type===Tr.APOSTROPHE||t.type===Tr.BACKTICK||t.type===Tr.HASH_VECTOR||t.type===Tr.COMMA||t.type===Tr.COMMA_AT}(e))return new jr(t)}const n=t[0],r=t[t.length-1];if(Wr(n)&&Wr(r)&&(i=r,(s=n).type===Tr.LEFT_PAREN&&i.type===Tr.RIGHT_PAREN||s.type===Tr.LEFT_BRACKET&&i.type===Tr.RIGHT_BRACKET))return new jr(t);var s,i;const a=new jr(t);throw new Kr("",a.location.start,a,"matching parentheses")}first(){return this.elements[0]}firstToken(){const t=this.first();return Wr(t)?t:t.firstToken()}firstPos(){return this.firstToken().pos}last(){return this.elements[this.elements.length-1]}lastToken(){const t=this.last();return Wr(t)?t:t.lastToken()}lastPos(){return this.lastToken().pos}isParenthesized(){const t=this.first();return Wr(t)&&(t.type===Tr.LEFT_PAREN||t.type===Tr.LEFT_BRACKET)}isSingleIdentifier(){return!this.isParenthesized()&&1===this.length()}unwrap(){return this.isParenthesized()?this.elements.slice(1,this.elements.length-1):this.elements}length(){return this.unwrap().length}toString(){return this.elements.map((t=>t.toString())).join(" ")}}function Wr(t){return t instanceof ts}function Jr(t){return t instanceof jr}class ts{type;lexeme;literal;start;end;pos;endPos;constructor(t,e,n,r,s,i,a){this.type=t,this.lexeme=e,this.literal=n,this.start=r,this.end=s,this.pos=new zr(i,a),this.endPos=new zr(i,a+e.length-1)}convertToken(){switch(this.type){case Tr.APOSTROPHE:return new ts(Tr.QUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.BACKTICK:return new ts(Tr.QUASIQUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.HASH_VECTOR:return new ts(Tr.VECTOR,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.COMMA:return new ts(Tr.UNQUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case Tr.COMMA_AT:return new ts(Tr.UNQUOTE_SPLICING,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);default:return this}}toString(){return`${this.lexeme}`}}class es extends SyntaxError{loc;constructor(t,e,n){super(t),this.loc={line:e,column:n}}toString(){return this.message}}class ns extends es{char;constructor(t,e,n){super(`Unexpected character '${n}' (${t}:${e})`,t,e),this.char=n,this.name="UnexpectedCharacterError"}}class rs extends es{constructor(t,e){super(`Unexpected EOF (${t}:${e})`,t,e),this.name="UnexpectedEOFError"}}let ss=new Map([[".",Tr.DOT],["if",Tr.IF],["let",Tr.LET],["cond",Tr.COND],["else",Tr.ELSE],["set!",Tr.SET],["begin",Tr.BEGIN],["delay",Tr.DELAY],["quote",Tr.QUOTE],["export",Tr.EXPORT],["import",Tr.IMPORT],["define",Tr.DEFINE],["lambda",Tr.LAMBDA],["define-syntax",Tr.DEFINE_SYNTAX],["syntax-rules",Tr.SYNTAX_RULES]]);class is{source;tokens;start=0;current=0;line=1;col=0;constructor(t){this.source=t,this.tokens=[]}isAtEnd(){return this.current>=this.source.length}advance(){return this.col++,this.source.charAt(this.current++)}jump(){this.start=this.current,this.col++,this.current++}addToken(t,e=null){const n=this.source.substring(this.start,this.current);this.tokens.push(new ts(t,n,e,this.start,this.current,this.line,this.col))}scanTokens(){for(;!this.isAtEnd();)this.start=this.current,this.scanToken();return this.tokens.push(new ts(Tr.EOF,"",null,this.start,this.current,this.line,this.col)),this.tokens}scanToken(){const t=this.advance();switch(t){case"(":this.addToken(Tr.LEFT_PAREN);break;case")":this.addToken(Tr.RIGHT_PAREN);break;case"[":this.addToken(Tr.LEFT_BRACKET);break;case"]":this.addToken(Tr.RIGHT_BRACKET);break;case"'":this.addToken(Tr.APOSTROPHE);break;case"`":this.addToken(Tr.BACKTICK);break;case",":if(this.match("@")){this.addToken(Tr.COMMA_AT);break}this.addToken(Tr.COMMA);break;case"#":if(this.match("t")||this.match("f"))this.booleanToken();else if(this.match("|"))this.comment();else if(this.match(";"))this.addToken(Tr.HASH_SEMICOLON);else{if("("!==this.peek()&&"["!==this.peek())throw new ns(this.line,this.col,t);this.addToken(Tr.HASH_VECTOR)}break;case";":for(;"\n"!=this.peek()&&!this.isAtEnd();)this.advance();break;case" ":case"\r":case"\t":break;case"\n":this.line++,this.col=0;break;case'"':this.stringToken();break;case"|":this.identifierTokenLoose();break;default:if(this.isDigit(t)||"-"===t||"+"===t||"."===t||"i"===t||"n"===t)this.identifierNumberToken();else{if(!this.isValidIdentifier(t))throw new ns(this.line,this.col,t);this.identifierToken()}}}comment(){for(;("|"!=this.peek()||"#"!=this.peekNext())&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new rs(this.line,this.col);this.jump(),this.jump()}identifierToken(){for(;this.isValidIdentifier(this.peek());)this.advance();this.addToken(this.checkKeyword())}identifierTokenLoose(){for(this.advance();"|"!=this.peek()&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new rs(this.line,this.col);this.advance(),this.addToken(this.checkKeyword())}identifierNumberToken(){for(;this.isValidIdentifier(this.peek());)this.advance();const t=this.source.substring(this.start,this.current);$r(t,Pr.COMPLEX).result?this.addToken(Tr.NUMBER,t):this.addToken(this.checkKeyword())}checkKeyword(){var t=this.source.substring(this.start,this.current);return ss.has(t)?ss.get(t):Tr.IDENTIFIER}stringToken(){for(;'"'!=this.peek()&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new rs(this.line,this.col);this.advance();const t=this.source.substring(this.start+1,this.current-1);this.addToken(Tr.STRING,t)}booleanToken(){this.addToken(Tr.BOOLEAN,"t"===this.peekPrev())}match(t){return!this.isAtEnd()&&(this.source.charAt(this.current)==t&&(this.current++,!0))}peek(){return this.isAtEnd()?"\0":this.source.charAt(this.current)}peekNext(){return this.current+1>=this.source.length?"\0":this.source.charAt(this.current+1)}peekPrev(){return this.current-1<0?"\0":this.source.charAt(this.current-1)}isDigit(t){return t>="0"&&t<="9"}isSpecialSyntax(t){return"("===t||")"===t||"["===t||"]"===t||";"===t||"|"===t}isValidIdentifier(t){return!this.isWhitespace(t)&&!this.isSpecialSyntax(t)}isWhitespace(t){return" "===t||"\0"===t||"\n"===t||"\r"===t||"\t"===t}}var as,os;!function(t){class e{location;expressions;constructor(t,e){this.location=t,this.expressions=e}accept(t){return t.visitSequence(this)}equals(t){if(t instanceof e){if(this.expressions.length!==t.expressions.length)return!1;for(let e=0;e<this.expressions.length;e++)if(!this.expressions[e].equals(t.expressions[e]))return!1;return!0}return!1}}t.Sequence=e;class n{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitNumericLiteral(this)}equals(t){return t instanceof n&&this.value===t.value}}t.NumericLiteral=n;class r{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitBooleanLiteral(this)}equals(t){return t instanceof r&&this.value===t.value}}t.BooleanLiteral=r;class s{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitStringLiteral(this)}equals(t){return t instanceof s&&this.value===t.value}}t.StringLiteral=s;class i{location;params;rest;body;constructor(t,e,n,r=void 0){this.location=t,this.params=n,this.rest=r,this.body=e}accept(t){return t.visitLambda(this)}equals(t){if(t instanceof i){if(this.params.length!==t.params.length)return!1;for(let e=0;e<this.params.length;e++)if(!this.params[e].equals(t.params[e]))return!1;if(this.rest&&t.rest){if(!this.rest.equals(t.rest))return!1}else if(this.rest||t.rest)return!1;return this.body.equals(t.body)}return!1}}t.Lambda=i;class a{location;name;constructor(t,e){this.location=t,this.name=e}accept(t){return t.visitIdentifier(this)}equals(t){return t instanceof a&&this.name===t.name}}t.Identifier=a;class o{location;name;value;constructor(t,e,n){this.location=t,this.name=e,this.value=n}accept(t){return t.visitDefinition(this)}equals(t){return t instanceof o&&(this.name.equals(t.name)&&this.value.equals(t.value))}}t.Definition=o;class c{location;operator;operands;constructor(t,e,n){this.location=t,this.operator=e,this.operands=n}accept(t){return t.visitApplication(this)}equals(t){if(t instanceof c){if(!this.operator.equals(t.operator))return!1;if(this.operands.length!==t.operands.length)return!1;for(let e=0;e<this.operands.length;e++)if(!this.operands[e].equals(t.operands[e]))return!1;return!0}return!1}}t.Application=c;class u{location;test;consequent;alternate;constructor(t,e,n,r){this.location=t,this.test=e,this.consequent=n,this.alternate=r}accept(t){return t.visitConditional(this)}equals(t){return t instanceof u&&(this.test.equals(t.test)&&this.consequent.equals(t.consequent)&&this.alternate.equals(t.alternate))}}t.Conditional=u;class h{location;car;cdr;constructor(t,e,n){this.location=t,this.car=e,this.cdr=n}accept(t){return t.visitPair(this)}equals(t){return t instanceof h&&(this.car.equals(t.car)&&this.cdr.equals(t.cdr))}}t.Pair=h;class l{location;constructor(t){this.location=t}accept(t){return t.visitNil(this)}equals(t){return t instanceof l}}t.Nil=l;class p{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitSymbol(this)}equals(t){return t instanceof p&&this.value===t.value}}t.Symbol=p;class f{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitSpliceMarker(this)}equals(t){return t instanceof f&&this.value.equals(t.value)}}t.SpliceMarker=f;class w{location;name;value;constructor(t,e,n){this.location=t,this.name=e,this.value=n}accept(t){return t.visitReassignment(this)}equals(t){return t instanceof w&&(this.name.equals(t.name)&&this.value.equals(t.value))}}t.Reassignment=w;class y{location;source;identifiers;constructor(t,e,n){this.location=t,this.source=e,this.identifiers=n}accept(t){return t.visitImport(this)}equals(t){if(t instanceof y){if(!this.source.equals(t.source))return!1;if(this.identifiers.length!==t.identifiers.length)return!1;for(let e=0;e<this.identifiers.length;e++)if(!this.identifiers[e].equals(t.identifiers[e]))return!1;return!0}return!1}}t.Import=y;class d{location;definition;constructor(t,e){this.location=t,this.definition=e}accept(t){return t.visitExport(this)}equals(t){return t instanceof d&&this.definition.equals(t.definition)}}t.Export=d;class m{location;elements;constructor(t,e){this.location=t,this.elements=e}accept(t){return t.visitVector(this)}equals(t){if(t instanceof m){if(this.elements.length!==t.elements.length)return!1;for(let e=0;e<this.elements.length;e++)if(!this.elements[e].equals(t.elements[e]))return!1;return!0}return!1}}t.Vector=m;class g{location;name;transformer;constructor(t,e,n){this.location=t,this.name=e,this.transformer=n}accept(t){return t.visitDefineSyntax(this)}equals(t){return t instanceof g&&(this.name.equals(t.name)&&this.transformer.equals(t.transformer))}}t.DefineSyntax=g;class v{location;literals;rules;constructor(t,e,n){this.location=t,this.literals=e,this.rules=n}accept(t){return t.visitSyntaxRules(this)}equals(t){if(t instanceof v){if(this.literals.length!==t.literals.length)return!1;for(let e=0;e<this.literals.length;e++)if(!this.literals[e].equals(t.literals[e]))return!1;if(this.rules.length!==t.rules.length)return!1;for(let e=0;e<this.rules.length;e++)if(!this.rules[e][0].equals(t.rules[e][0])||!this.rules[e][1].equals(t.rules[e][1]))return!1;return!0}return!1}}t.SyntaxRules=v}(as||(as={})),function(t){class e{location;name;params;rest;body;constructor(t,e,n,r,s=void 0){this.location=t,this.name=e,this.body=n,this.params=r,this.rest=s}accept(t){return t.visitFunctionDefinition(this)}equals(t){if(t instanceof e){if(this.params.length!==t.params.length)return!1;for(let e=0;e<this.params.length;e++)if(!this.params[e].equals(t.params[e]))return!1;if(this.rest&&t.rest){if(!this.rest.equals(t.rest))return!1}else if(this.rest||t.rest)return!1;return this.body.equals(t.body)}return!1}}t.FunctionDefinition=e;class n{location;identifiers;values;body;constructor(t,e,n,r){this.location=t,this.identifiers=e,this.values=n,this.body=r}accept(t){return t.visitLet(this)}equals(t){if(t instanceof n){if(this.identifiers.length!==t.identifiers.length)return!1;for(let e=0;e<this.identifiers.length;e++)if(!this.identifiers[e].equals(t.identifiers[e]))return!1;if(this.values.length!==t.values.length)return!1;for(let e=0;e<this.values.length;e++)if(!this.values[e].equals(t.values[e]))return!1;return this.body.equals(t.body)}return!1}}t.Let=n;class r{location;predicates;consequents;catchall;constructor(t,e,n,r){this.location=t,this.predicates=e,this.consequents=n,this.catchall=r}accept(t){return t.visitCond(this)}equals(t){if(t instanceof r){if(this.predicates.length!==t.predicates.length)return!1;for(let e=0;e<this.predicates.length;e++)if(!this.predicates[e].equals(t.predicates[e]))return!1;if(this.consequents.length!==t.consequents.length)return!1;for(let e=0;e<this.consequents.length;e++)if(!this.consequents[e].equals(t.consequents[e]))return!1;return this.catchall&&t.catchall?this.catchall.equals(t.catchall):!this.catchall&&!t.catchall}return!1}}t.Cond=r;class s{location;elements;terminator;constructor(t,e,n=void 0){this.location=t,this.elements=e,this.terminator=n}accept(t){return t.visitList(this)}equals(t){if(t instanceof s){if(this.elements.length!==t.elements.length)return!1;for(let e=0;e<this.elements.length;e++)if(!this.elements[e].equals(t.elements[e]))return!1;return this.terminator&&t.terminator?this.terminator.equals(t.terminator):!this.terminator&&!t.terminator}return!1}}t.List=s;class i{location;expressions;constructor(t,e){this.location=t,this.expressions=e}accept(t){return t.visitBegin(this)}equals(t){if(t instanceof i){if(this.expressions.length!==t.expressions.length)return!1;for(let e=0;e<this.expressions.length;e++)if(!this.expressions[e].equals(t.expressions[e]))return!1;return!0}return!1}}t.Begin=i;class a{location;expression;constructor(t,e){this.location=t,this.expression=e}accept(t){return t.visitDelay(this)}equals(t){return t instanceof a&&this.expression.equals(t.expression)}}t.Delay=a}(os||(os={}));var cs;!function(t){t[t.NONE=0]="NONE",t[t.QUOTE=1]="QUOTE",t[t.QUASIQUOTE=2]="QUASIQUOTE"}(cs||(cs={}));class us{source;tokens;chapter;current=0;quoteMode=cs.NONE;constructor(t,e,n=1/0){this.source=t,this.tokens=e,this.chapter=n}advance(){return this.isAtEnd()||this.current++,this.previous()}isAtEnd(){return this.current>=this.tokens.length}previous(){return this.tokens[this.current-1]}peek(){return this.tokens[this.current]}validateChapter(t,e){if(this.chapter<e)throw new Yr(this.source,t.pos,t,this.chapter)}toLocation(t){return new Dr(t.pos,t.endPos)}destructureList(t,e=t=>{}){if(0===t.length)return[[],void 0];if(1===t.length)return e(t[0]),[[this.parseExpression(t[0])],void 0];const n=t.at(-2);if(Wr(n)&&n.type===Tr.DOT){const n=t.at(-1),r=t.slice(0,-2);return e(n),r.forEach(e),[r.map(this.parseExpression.bind(this)),this.parseExpression(n)]}const r=t;return r.forEach(e),[r.map(this.parseExpression.bind(this)),void 0]}grouping(t){const e=[];let n=!1;t&&(n=!0,e.push(t));do{let t=this.advance();switch(t.type){case Tr.LEFT_PAREN:case Tr.LEFT_BRACKET:const r=this.grouping(t);e.push(r);break;case Tr.RIGHT_PAREN:case Tr.RIGHT_BRACKET:if(!n)throw new Xr(this.source,t.pos,t);e.push(t),n=!1;break;case Tr.APOSTROPHE:case Tr.BACKTICK:case Tr.COMMA:case Tr.COMMA_AT:case Tr.HASH_VECTOR:let s;do{s=this.grouping()}while(!s);e.push(this.affect(t,s));break;case Tr.QUOTE:case Tr.QUASIQUOTE:case Tr.UNQUOTE:case Tr.UNQUOTE_SPLICING:case Tr.IDENTIFIER:case Tr.NUMBER:case Tr.BOOLEAN:case Tr.STRING:case Tr.DOT:case Tr.DEFINE:case Tr.IF:case Tr.ELSE:case Tr.COND:case Tr.LAMBDA:case Tr.LET:case Tr.SET:case Tr.BEGIN:case Tr.DELAY:case Tr.IMPORT:case Tr.EXPORT:case Tr.DEFINE_SYNTAX:case Tr.SYNTAX_RULES:e.push(t);break;case Tr.HASH_SEMICOLON:for(;!this.grouping(););break;case Tr.EOF:throw new Gr(this.source,t.pos);default:throw new Xr(this.source,t.pos,t)}}while(n);if(0!==e.length)try{return jr.build(e)}catch(t){if(t instanceof Kr)throw new Kr(this.source,t.loc,t.form,t.expected);throw t}}affect(t,e){return jr.build([t,e])}parseExpression(t){return Wr(t)?this.parseToken(t):t.isSingleIdentifier()?this.parseToken(t.unwrap()[0]):this.parseGroup(t)}parseToken(t){switch(t.type){case Tr.IDENTIFIER:return this.quoteMode===cs.NONE?new as.Identifier(this.toLocation(t),t.lexeme):new as.Symbol(this.toLocation(t),t.lexeme);case Tr.NUMBER:return new as.NumericLiteral(this.toLocation(t),t.literal);case Tr.BOOLEAN:return new as.BooleanLiteral(this.toLocation(t),t.literal);case Tr.STRING:return new as.StringLiteral(this.toLocation(t),t.literal);default:if(this.quoteMode!==cs.NONE||this.chapter>=5)return new as.Symbol(this.toLocation(t),t.lexeme);throw new Xr(this.source,t.pos,t)}}parseGroup(t){if(!t.isParenthesized())return this.parseAffectorGroup(t);switch(this.quoteMode){case cs.NONE:return this.parseNormalGroup(t);case cs.QUOTE:case cs.QUASIQUOTE:return this.parseQuotedGroup(t)}}parseAffectorGroup(t){const[e,n]=t.unwrap();switch(e.type){case Tr.APOSTROPHE:case Tr.QUOTE:if(this.validateChapter(e,2),this.quoteMode!==cs.NONE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"quote"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.QUOTE;const r=this.parseExpression(n);return this.quoteMode=cs.NONE,r;case Tr.BACKTICK:case Tr.QUASIQUOTE:if(this.validateChapter(e,2),this.quoteMode!==cs.NONE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"quasiquote"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.QUASIQUOTE;const s=this.parseExpression(n);return this.quoteMode=cs.NONE,s;case Tr.COMMA:case Tr.UNQUOTE:this.validateChapter(e,2);let i=this.quoteMode;if(i===cs.NONE)throw new Zr(this.source,e.pos,e);if(i===cs.QUOTE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"unquote"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.NONE;const a=this.parseExpression(n);return this.quoteMode=i,a;case Tr.COMMA_AT:case Tr.UNQUOTE_SPLICING:this.validateChapter(e,2);let o=this.quoteMode;if(o===cs.NONE)throw new Xr(this.source,e.pos,e);if(o===cs.QUOTE){const t=this.parseExpression(n),r=new as.Symbol(this.toLocation(e),"unquote-splicing"),s=r.location.merge(t.location);return new os.List(s,[r,t])}this.quoteMode=cs.NONE;const c=this.parseExpression(n);this.quoteMode=o;const u=this.toLocation(e).merge(c.location);return new as.SpliceMarker(u,c);case Tr.HASH_VECTOR:this.validateChapter(e,3);let h=this.quoteMode;this.quoteMode=cs.QUOTE;const l=this.parseVector(t);return this.quoteMode=h,l;default:throw new Xr(this.source,e.pos,e)}}parseNormalGroup(t){if(0===t.length()){if(this.chapter>=5)return new as.Nil(t.location);throw new Kr(this.source,t.location.start,t,"non-empty group")}const e=t.unwrap()[0];if(Wr(e))switch(e.type){case Tr.LAMBDA:return this.validateChapter(e,1),this.parseLambda(t);case Tr.DEFINE:return this.validateChapter(e,1),this.parseDefinition(t);case Tr.IF:return this.validateChapter(e,1),this.parseConditional(t);case Tr.LET:return this.validateChapter(e,1),this.parseLet(t);case Tr.COND:return this.validateChapter(e,1),this.parseExtendedCond(t);case Tr.QUOTE:case Tr.APOSTROPHE:case Tr.QUASIQUOTE:case Tr.BACKTICK:case Tr.UNQUOTE:case Tr.COMMA:case Tr.UNQUOTE_SPLICING:case Tr.COMMA_AT:return this.validateChapter(e,2),this.parseAffectorGroup(t);case Tr.BEGIN:return this.validateChapter(e,3),this.parseBegin(t);case Tr.DELAY:return this.validateChapter(e,3),this.parseDelay(t);case Tr.SET:return this.validateChapter(e,3),this.parseSet(t);case Tr.DEFINE_SYNTAX:return this.validateChapter(e,5),this.parseDefineSyntax(t);case Tr.SYNTAX_RULES:throw new Xr(this.source,e.pos,e);case Tr.IMPORT:return this.validateChapter(e,1),this.parseImport(t);case Tr.EXPORT:return this.validateChapter(e,1),this.parseExport(t);case Tr.VECTOR:return this.validateChapter(e,3),this.parseAffectorGroup(t);default:return this.parseApplication(t)}return this.parseApplication(t)}parseQuotedGroup(t){if(0===t.length())return new as.Nil(t.location);if(1===t.length()){const e=[this.parseExpression(t.unwrap()[0])];return new os.List(t.location,e)}const e=t.unwrap(),[n,r]=this.destructureList(e);return new os.List(t.location,n,r)}parseLambda(t){if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(lambda (<identifier>* . <rest-identifier>?) <body>+) | (lambda <rest-identifer> <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);let s,i=[];if(Wr(n)){if(n.type!==Tr.IDENTIFIER)throw new Kr(this.source,n.pos,n,"<rest-identifier>");s=new as.Identifier(this.toLocation(n),n.lexeme)}else{const t=n.unwrap();[i,s]=this.destructureList(t,(t=>{if(!Wr(t))throw new Kr(this.source,t.pos,t,"<identifier>");if(t.type!==Tr.IDENTIFIER)throw new Kr(this.source,t.pos,t,"<identifier>")}))}const a=r.map(this.parseExpression.bind(this));if(a.length<1)throw new Kr(this.source,t.location.start,t,"(lambda ... <body>+)");if(1===a.length)return new as.Lambda(t.location,a[0],i,s);const o=a.at(0).location.merge(a.at(-1).location),c=new as.Sequence(o,a);return new as.Lambda(t.location,c,i,s)}parseDefinition(t){if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(define <identifier> <expr>) | (define (<identifier> <formals>) <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);let s,i,a=[],o=!1;if(Jr(n)){o=!0;const t=n.unwrap(),e=t[0],r=t.splice(1);if(!Wr(e))throw new Kr(this.source,e.location.start,e,"<identifier>");if(e.type!==Tr.IDENTIFIER)throw new Kr(this.source,e.pos,e,"<identifier>");s=new as.Identifier(this.toLocation(e),e.lexeme),[a,i]=this.destructureList(r,(t=>{if(!Wr(t))throw new Kr(this.source,t.pos,t,"<identifier>");if(t.type!==Tr.IDENTIFIER)throw new Kr(this.source,t.pos,t,"<identifier>")}))}else{if(n.type!==Tr.IDENTIFIER)throw new Kr(this.source,n.pos,n,"<identifier>");s=new as.Identifier(this.toLocation(n),n.lexeme),o=!1}if(r.length<1)throw new Kr(this.source,t.location.start,t,"(define ... <body>+)");if(o){const e=r.map(this.parseExpression.bind(this));if(1===e.length)return new os.FunctionDefinition(t.location,s,e[0],a,i);const n=e.at(0).location.merge(e.at(-1).location),o=new as.Sequence(n,e);return new os.FunctionDefinition(t.location,s,o,a,i)}if(r.length>1)throw new Kr(this.source,t.location.start,t,"(define <identifier> <expr>)");const c=this.parseExpression(r[0]);return new as.Definition(t.location,s,c)}parseConditional(t){if(t.length()<3||t.length()>4)throw new Kr(this.source,t.location.start,t,"(if <pred> <cons> <alt>?)");const e=t.unwrap(),n=e[1],r=e[2],s=t.length()>3?e[3]:void 0,i=this.parseExpression(n),a=this.parseExpression(r),o=s?this.parseExpression(s):new as.Identifier(t.location,"undefined");return new as.Conditional(t.location,i,a,o)}parseApplication(t){if(t.length()<1)throw new Kr(this.source,t.location.start,t,"(<func> <args>*)");const e=t.unwrap(),n=e[0],r=e.splice(1),s=this.parseExpression(n),i=[];for(const t of r)i.push(this.parseExpression(t));return new as.Application(t.location,s,i)}parseLet(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach((t=>{this.parseExpression(t)})),new os.Let(t.location,[],[],new as.Identifier(t.location,"undefined"))}if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(let ((<identifier> <value>)*) <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);if(!Jr(n))throw new Kr(this.source,n.pos,n,"((<identifier> <value>)*)");const s=[],i=[],a=n.unwrap();for(const t of a){if(!Jr(t))throw new Kr(this.source,t.pos,t,"(<identifier> <value>)");if(2!==t.length())throw new Kr(this.source,t.location.start,t,"(<identifier> <value>)");const[e,n]=t.unwrap();if(!Wr(e))throw new Kr(this.source,e.location.start,e,"<identifier>");if(e.type!==Tr.IDENTIFIER)throw new Kr(this.source,e.pos,e,"<identifier>");s.push(new as.Identifier(this.toLocation(e),e.lexeme)),i.push(this.parseExpression(n))}const o=r.map(this.parseExpression.bind(this));if(o.length<1)throw new Kr(this.source,t.location.start,t,"(let ... <body>+)");if(1===o.length)return new os.Let(t.location,s,i,o[0]);const c=o.at(0).location.merge(o.at(-1).location),u=new as.Sequence(c,o);return new os.Let(t.location,s,i,u)}parseExtendedCond(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach((t=>{this.parseExpression(t)})),new os.Cond(t.location,[],[],new as.Identifier(t.location,"undefined"))}if(t.length()<2)throw new Kr(this.source,t.location.start,t,"(cond (<pred> <body>*)* (else <val>)?)");const e=t.unwrap().splice(1),n=e.pop(),r=[],s=[];for(const t of e){if(!Jr(t))throw new Kr(this.source,t.pos,t,"(<pred> <body>*)");if(t.length()<1)throw new Kr(this.source,t.firstToken().pos,t.firstToken(),"(<pred> <body>*)");const[e,...n]=t.unwrap();if(Wr(e)&&e.type===Tr.ELSE)throw new Kr(this.source,e.pos,e,"<predicate>");const i=this.parseExpression(e),a=n.map(this.parseExpression.bind(this)),o=n.length<1?i.location:a.at(0).location.merge(a.at(-1).location),c=n.length<1?i:n.length<2?a[0]:new as.Sequence(o,a);r.push(i),s.push(c)}if(!Jr(n))throw new Kr(this.source,n.pos,n,"(<pred> <body>+) | (else <val>)");if(n.length()<2)throw new Kr(this.source,n.firstToken().pos,n.firstToken(),"(<pred> <body>+) | (else <val>)");const[i,...a]=n.unwrap();let o=!1;if(Wr(i)&&i.type===Tr.ELSE&&(o=!0,1!==a.length))throw new Kr(this.source,n.location.start,n,"(else <val>)");if(a.length<1)throw new Kr(this.source,n.location.start,n,"(<pred> <body>+)");const c=a.map(this.parseExpression.bind(this)),u=c.at(0).location.merge(c.at(-1).location),h=1===a.length?c[0]:new as.Sequence(u,c);if(o)return new os.Cond(t.location,r,s,h);const l=this.parseExpression(i);return r.push(l),s.push(h),new os.Cond(t.location,r,s)}parseSet(t){if(3!==t.length())throw new Kr(this.source,t.location.start,t,"(set! <identifier> <expr>)");const e=t.unwrap(),n=e[1],r=e[2];if(Jr(n))throw new Kr(this.source,n.location.start,n,"<identifier>");if(n.type!==Tr.IDENTIFIER)throw new Kr(this.source,n.pos,n,"<identifier>");const s=new as.Identifier(this.toLocation(n),n.lexeme),i=this.parseExpression(r);return new as.Reassignment(t.location,s,i)}parseBegin(t){if(t.length()<2)throw new Kr(this.source,t.location.start,t,"(begin <body>+)");const e=t.unwrap().slice(1),n=[];for(const t of e)n.push(this.parseExpression(t));return new os.Begin(t.location,n)}parseDelay(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach((t=>{this.parseExpression(t)})),new os.Delay(t.location,new as.Identifier(t.location,"undefined"))}if(2!==t.length())throw new Kr(this.source,t.location.start,t,"(delay <expr>)");const e=t.unwrap()[1],n=this.parseExpression(e);return new os.Delay(t.location,n)}parseDefineSyntax(t){if(3!==t.length())throw new Kr(this.source,t.location.start,t,"(define-syntax <identifier> <transformer>)");const e=t.unwrap(),n=e[1],r=e[2];this.quoteMode=cs.QUOTE;const s=this.parseExpression(n);if(this.quoteMode=cs.NONE,!(s instanceof as.Symbol))throw new Kr(this.source,s.location.start,n,"<identifier>");if(!Jr(r))throw new Kr(this.source,r.pos,r,"<transformer>");if(r.length()<2)throw new Kr(this.source,r.firstToken().pos,r,"(syntax-rules ...)");const i=r.unwrap()[0];if(!Wr(r.unwrap()[0]))throw new Kr(this.source,r.firstToken().pos,i,"syntax-rules");if(i.type!==Tr.SYNTAX_RULES)throw new Kr(this.source,i.pos,i,"syntax-rules");const a=this.parseSyntaxRules(r);return new as.DefineSyntax(t.location,s,a)}isValidPattern(t){if(t instanceof os.List){if(void 0===t.terminator){if(t.elements.filter((t=>t instanceof as.Symbol&&"..."===t.value)).length>1)return!1;const e=t.elements.findIndex((t=>t instanceof as.Symbol&&"..."===t.value));if(-1!=e&&0===e)return!1;for(const e of t.elements)if(!this.isValidPattern(e))return!1;return!0}{if(t.elements.filter((t=>t instanceof as.Symbol&&"..."===t.value)).length>1)return!1;const e=t.elements.findIndex((t=>t instanceof as.Symbol&&"..."===t.value));if(-1!=e){if(0===e)return!1;if(e===t.elements.length-1)return!1}for(const e of t.elements)if(!this.isValidPattern(e))return!1;return this.isValidPattern(t.terminator)}}return t instanceof as.Symbol||t instanceof as.BooleanLiteral||t instanceof as.NumericLiteral||t instanceof as.StringLiteral||t instanceof as.Nil}isValidTemplate(t){if(t instanceof os.List){if(void 0===t.terminator){if(0===t.elements.length)return!1;if(2===t.elements.length&&t.elements[0]instanceof as.Symbol&&"..."===t.elements[0].value)return this.isValidTemplate(t.elements[1]);let e=!1;for(let n=0;n<t.elements.length;n++){const r=t.elements[n];if(r instanceof as.Symbol&&"..."===r.value){if(e){e=!1;continue}return!1}if(!this.isValidTemplate(r))return!1;e=!0}return!0}{if(0===t.elements.length)return!1;let e=!1;for(let n=0;n<t.elements.length;n++){const r=t.elements[n];if(r instanceof as.Symbol&&"..."===r.value){if(e){e=!1;continue}return!1}if(!this.isValidTemplate(r))return!1;e=!0}return this.isValidTemplate(t.terminator)}}return t instanceof as.Symbol||t instanceof as.BooleanLiteral||t instanceof as.NumericLiteral||t instanceof as.StringLiteral||t instanceof as.Nil}parseSyntaxRules(t){if(t.length()<3)throw new Kr(this.source,t.location.start,t,"(syntax-rules (<literal>*) <syntax-rule>+)");const e=t.unwrap(),n=e[1],r=e.slice(2),s=[];if(!Jr(n))throw new Kr(this.source,n.pos,n,"(<literal>*)");this.quoteMode=cs.QUOTE;for(const t of n.unwrap()){if(!Wr(t))throw new Kr(this.source,t.location.start,t,"<literal>");const e=this.parseExpression(t);if(!(e instanceof as.Symbol))throw new Kr(this.source,t.pos,t,"<literal>");s.push(e)}const i=[];for(const t of r){if(!Jr(t))throw new Kr(this.source,t.pos,t,"(<pattern> <template>)");if(2!==t.length())throw new Kr(this.source,t.location.start,t,"(<pattern> <template>)");const[e,n]=t.unwrap(),r=this.parseExpression(e),s=this.parseExpression(n);if(!this.isValidPattern(r))throw new Kr(this.source,r.location.start,e,"<symbol> | <literal> | (<pattern>+) | (<pattern>+ ... <pattern>*) | (<pattern>+ ... <pattern>+ . <pattern>)");if(!this.isValidTemplate(s))throw new Kr(this.source,s.location.start,n,"<symbol> | <literal> | (<element>+) | (<element>+ . <template>) | (... <template>)");i.push([r,s])}return this.quoteMode=cs.NONE,new as.SyntaxRules(t.location,s,i)}parseImport(t){if(3!==t.length())throw new Kr(this.source,t.firstToken().pos,t.firstToken(),'(import "<source>" (<identifier>*))');const e=t.unwrap(),n=e[1],r=e[2];if(!Wr(n))throw new Kr(this.source,n.location.start,n,'"<source>"');if(n.type!==Tr.STRING)throw new Kr(this.source,n.pos,n,'"<source>"');if(!Jr(r))throw new Kr(this.source,r.pos,r,"(<identifier>*)");const s=r.unwrap(),i=[];for(const t of s){if(!Wr(t))throw new Kr(this.source,t.location.start,t,"<identifier>");if(t.type!==Tr.IDENTIFIER)throw new Kr(this.source,t.pos,t,"<identifier>");i.push(new as.Identifier(this.toLocation(t),t.lexeme))}const a=new as.StringLiteral(this.toLocation(n),n.literal);return new as.Import(t.location,a,i)}parseExport(t){if(2!==t.length())throw new Kr(this.source,t.firstToken().pos,t.firstToken(),"(export (<definition>))");const e=t.unwrap()[1];if(!Jr(e))throw new Kr(this.source,e.pos,e,"(<definition>)");const n=this.parseExpression(e);if(!(n instanceof as.Definition||n instanceof os.FunctionDefinition))throw new Kr(this.source,e.location.start,e,"(<definition>)");return new as.Export(t.location,n)}parseVector(t){const e=t.unwrap()[1].unwrap().map(this.parseExpression.bind(this));return new as.Vector(t.location,e)}parse(t=!1){t&&(this.quoteMode=cs.QUOTE,this.current=0);const e=[];for(;!this.isAtEnd()&&this.peek().type!==Tr.EOF;){const t=this.grouping();if(!t)continue;const n=this.parseExpression(t);e.push(n)}if(this.chapter>=5&&!t){return[...e.filter((t=>t instanceof as.Import)),...this.parse(!0).filter((t=>!(t instanceof os.List&&t.elements&&t.elements[0]instanceof as.Symbol&&"import"===t.elements[0].value)))]}return e}}function hs(t){return new Tn(t,!0)}function ls(t){return new N(hs(t),t.source)}function ps(t){if(t instanceof as.Symbol)return t.value;if(t instanceof as.NumericLiteral)return t.value;if(t instanceof os.List)return ps(t.elements[0]);throw new Error("Expected a Element, but got: "+t)}function fs(t,e){return new Pn(e.start,e.end,t)}function ws(t,e){return fs(ps(t),e)}function ys(t){const e=new is(t);return new us("",e.scanTokens()).parse()}class ds{static parsePie(t){return ds.parseElements(ys(t)[0])}static parseElements(t){const e=ps(t);if("U"===e)return n=fs("U",t.location),new kn(hs(n));if("the"===e){let e=t.elements;return function(t,e,n){return new _n(hs(t),e,n)}(fs("the",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("Nat"===e)return function(t){return new Sn(hs(t))}(fs("Nat",t.location));if("zero"===e)return function(t){return new $n(hs(t))}(fs("zero",t.location));if("add1"===e)return function(t,e){return new On(hs(t),e)}(fs("add1",t.location),this.parseElements(t.elements[1]));if("->"===e||"→"===e){let e=t.elements;return function(t,e){return new Cn(hs(t),e[0],e[1],e[2])}(fs("->",t.location),[this.parseElements(e[1]),this.parseElements(e[2]),e.slice(3).map((t=>this.parseElements(t)))])}if("lambda"===e||"λ"===e){let e=t.elements,n=t.location,r=e[1],s=e[2];return function(t,e,n){return new qn(hs(t),e,n)}(fs("λ",n),r.elements.map((e=>ls(ws(e,t.location)))),this.parseElements(s))}if("Pi"===e||"Π"===e){let e=t.elements,n=e[1],r=e[2],s=n.elements[0],i=s.elements[0],a=s.elements[1],o=n.elements.slice(1).map((t=>{let e=t.elements[0],n=t.elements[1];return new x(ls(ws(e,t.location)),this.parseElements(n))}));return function(t,e,n){return new Rn(hs(t),e,n)}(fs("Π",t.location),ms(new x(ls(ws(i,s.location)),this.parseElements(a)),o),this.parseElements(r))}if("Sigma"===e||"Σ"===e){let e=t.elements,n=e[1],r=e[2],s=n.elements[0],i=s.elements[0],a=s.elements[1],o=n.elements.slice(1).map((t=>{let e=t.elements[0],n=t.elements[1];return new x(ls(ws(e,t.location)),this.parseElements(n))}));return function(t,e,n){return new Mn(hs(t),e,n)}(fs("Π",t.location),ms(new x(ls(ws(i,s.location)),this.parseElements(a)),o),this.parseElements(r))}if("Pair"===e){let e=t.elements;return function(t,e,n){return new zn(hs(t),e,n)}(fs("Pair",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("cons"===e){let e=t.elements;return function(t,e,n){return new Qn(hs(t),e,n)}(fs("Cons",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("car"===e)return function(t,e){return new Fn(hs(t),e)}(fs("car",t.location),this.parseElements(t.elements[1]));if("cdr"===e)return function(t,e){return new Vn(hs(t),e)}(fs("cdr",t.location),this.parseElements(t.elements[1]));if("which-Nat"===e){let e=t.elements;return function(t,e,n,r){return new Ln(hs(t),e,n,r)}(fs("which-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("iter-Nat"===e){let e=t.elements;return function(t,e,n,r){return new An(hs(t),e,n,r)}(fs("iter-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("rec-Nat"===e){let e=t.elements;return function(t,e,n,r){return new In(hs(t),e,n,r)}(fs("rec-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("ind-Nat"===e){let e=t.elements;return function(t,e,n,r,s){return new Bn(hs(t),e,n,r,s)}(fs("ind-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("Atom"===e)return function(t){return new Hn(hs(t))}(fs("Atom",t.location));if("quote"===e)return function(t,e){return new Dn(hs(t),e)}(fs("Quote",t.location),ps(t.elements[1]));if("Trivial"===e)return function(t){return new Gn(hs(t))}(fs("Trivial",t.location));if("sole"===e)return function(t){return new Xn(hs(t))}(fs("sole",t.location));if("List"===e)return function(t,e){return new Zn(hs(t),e)}(fs("List",t.location),this.parseElements(t.elements[1]));if("nil"===e)return function(t){return new Kn(hs(t))}(fs("nil",t.location));if("::"===e){let e=t.elements;return function(t,e,n){return new jn(hs(t),e,n)}(fs("::",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("rec-List"===e){let e=t.elements;return function(t,e,n,r){return new Wn(hs(t),e,n,r)}(fs("rec-List",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("ind-List"===e){let e=t.elements;return function(t,e,n,r,s){return new Jn(hs(t),e,n,r,s)}(fs("ind-List",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("="===e){let e=t.elements;return function(t,e,n,r){return new nr(hs(t),e,n,r)}(fs("=",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("same"===e)return function(t,e){return new rr(hs(t),e)}(fs("same",t.location),this.parseElements(t.elements[1]));if("replace"===e){let e=t.elements;return function(t,e,n,r){return new sr(hs(t),e,n,r)}(fs("replace",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("trans"===e){let e=t.elements;return function(t,e,n){return new ir(hs(t),e,n)}(fs("trans",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("cong"===e){let e=t.elements;return function(t,e,n){return new ar(hs(t),e,n)}(fs("cong",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("ind-="===e){let e=t.elements;return function(t,e,n,r){return new cr(hs(t),e,n,r)}(fs("ind-=",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("symm"===e)return function(t,e){return new or(hs(t),e)}(fs("symm",t.location),this.parseElements(t.elements[1]));if("Vec"===e){let e=t.elements;return function(t,e,n){return new ur(hs(t),e,n)}(fs("Vec",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("vecnil"===e)return function(t){return new hr(hs(t))}(fs("vecnil",t.location));if("vec::"===e){let e=t.elements;return function(t,e,n){return new lr(hs(t),e,n)}(fs("vec::",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("head"===e)return function(t,e){return new pr(hs(t),e)}(fs("head",t.location),this.parseElements(t.elements[1]));if("tail"===e)return function(t,e){return new fr(hs(t),e)}(fs("tail",t.location),this.parseElements(t.elements[1]));if("ind-Vec"===e){let e=t.elements;return function(t,e,n,r,s,i){return new wr(hs(t),e,n,r,s,i)}(fs("ind-Vec",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]),this.parseElements(e[5]))}if("Either"===e){let e=t.elements;return function(t,e,n){return new yr(hs(t),e,n)}(fs("Either",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("left"===e)return function(t,e){return new dr(hs(t),e)}(fs("left",t.location),this.parseElements(t.elements[1]));if("right"===e)return function(t,e){return new mr(hs(t),e)}(fs("right",t.location),this.parseElements(t.elements[1]));if("ind-Either"===e){let e=t.elements;return function(t,e,n,r,s){return new gr(hs(t),e,n,r,s)}(fs("ind-Either",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("Absurd"===e)return function(t){return new tr(hs(t))}(fs("Absurd",t.location));if("ind-Absurd"===e){let e=t.elements;return function(t,e,n){return new er(hs(t),e,n)}(fs("ind-Absurd",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("TODO"===e)return function(t){return new vr(hs(t))}(fs("TODO",t.location));if(t instanceof os.List&&t.elements.length>1){let e=t.elements;return function(t,e,n,r){return new Er(hs(t),e,n,r)}(fs("App",t.location),this.parseElements(e[0]),this.parseElements(e[1]),e.slice(2).map((t=>this.parseElements(t))))}if(C(e))return function(t,e){return new Un(hs(t),e)}(fs(e,t.location),e);if(!isNaN(Number(e)))return function(t,e){return new Yn(hs(t),Number(e))}(fs(e,t.location),e);var n;throw new Error("Unexpected element: "+t)}}function ms(t,e){return[t,...e]}class gs{location;name;type;constructor(t,e,n){this.location=t,this.name=e,this.type=n}}class vs{location;name;expr;constructor(t,e,n){this.location=t,this.name=e,this.expr=n}}class Es{location;type;left;right;constructor(t,e,n,r){this.location=t,this.type=e,this.left=n,this.right=r}}class Ps{static parseDeclaration(t){const e=ps(t);if("claim"===e){let e=t.elements;return new gs(hs(ws(e[0],t.location)),ps(e[1]),ds.parseElements(e[2]))}if("define"===e){let e=t.elements;return new vs(hs(ws(e[0],t.location)),ps(e[1]),ds.parseElements(e[2]))}if("check-same"===e){let e=t.elements;return new Es(hs(ws(e[0],t.location)),ds.parseElements(e[1]),ds.parseElements(e[2]),ds.parseElements(e[3]))}return ds.parseElements(t)}}function Ts(t,e){const n=new O("outmeta");return L([[n,()=>e.synth(t,new Map)]],(()=>{const e=D(t,n.value.type),r=D(t,n.value.expr);return new S(new we(e.readBackType(t),lt(t,e,r)))}))}function bs(t,e,n,r,s){const i=new O("tOut"),a=new O("tv"),o=new O("aOut"),c=new O("bOut"),u=new O("av"),h=new O("bv");return L([[i,()=>n.isType(t,new Map)],[a,()=>D(t,i.value).readBackType(t)],[o,()=>r.check(t,new Map,a.value)],[c,()=>s.check(t,new Map,a.value)],[u,()=>D(t,o.value)],[h,()=>D(t,c.value)]],(()=>dn(t,e,a.value,u.value,h.value)))}function Ns(t){return t.prettyPrint()}!function(t,e=self){const n=new c(e,!1);n.registerPlugin(m,t)}(class extends n{executionCount;constructor(t){super(t),this.executionCount=0}async evaluateChunk(t){this.executionCount++;try{let e=function(t){const e=ys(t);let n=G,r="";for(const t of e){const e=Ps.parseDeclaration(t);if(e instanceof gs){const t=Q(n,e.name,e.location,e.type);if(t instanceof S)n=t.result;else if(t instanceof $)throw new Error(""+t.where+t.message)}else if(e instanceof vs){const t=F(n,e.name,e.location,e.expr);if(t instanceof S)n=t.result;else if(t instanceof $)throw new Error(""+t.where+t.message)}else if(e instanceof Es){const t=bs(n,e.location,e.type,e.left,e.right);if(t instanceof S)n=t.result;else if(t instanceof $)throw new Error(""+t.where+t.message)}else{const t=Ts(n,e);if(t instanceof S){const e=t.result;r+=`${Ns(e.expr)}: ${Ns(e.type)}\n`}else if(t instanceof $)throw new Error(`${t.message} at ${t.where}`)}}for(const[t,e]of n)e instanceof Y?(r+=`${t}: ${Ns(e.type.readBackType(n))}\n`,r+=`${t}= ${Ns(lt(n,e.type,e.value))}\n`):r+=`${t}: ${Ns(e.type.readBackType(n))} \n`;return r}(t);this.conductor.sendOutput(`Result of expression: execution ${e}`)}catch(t){t instanceof Error?this.conductor.sendOutput(`Error: ${t.message}`):this.conductor.sendOutput(`Error: ${String(t)}`)}}})}();
+!function(){"use strict";class t extends Error{name="ConductorError";errorType="__unknown";constructor(t){super(t)}}class e extends t{name="ConductorInternalError";errorType="__internal";constructor(t){super(t)}}class n{conductor;async startEvaluator(t){const n=await this.conductor.requestFile(t);if(!n)throw new e("Cannot load entrypoint file");for(await this.evaluateFile(t,n);;){const t=await this.conductor.requestChunk();await this.evaluateChunk(t)}}async evaluateFile(t,e){return this.evaluateChunk(e)}constructor(t){this.conductor=t}}async function r(t){return(await import(t)).plugin}"function"==typeof SuppressedError&&SuppressedError;class s{name;__port;__subscribers=new Set;__isAlive=!0;__waitingMessages=[];send(t,e){this.__verifyAlive(),this.__port.postMessage(t,e??[])}subscribe(t){if(this.__verifyAlive(),this.__subscribers.add(t),this.__waitingMessages){for(const e of this.__waitingMessages)t(e);delete this.__waitingMessages}}unsubscribe(t){this.__verifyAlive(),this.__subscribers.delete(t)}close(){this.__verifyAlive(),this.__isAlive=!1,this.__port?.close()}__verifyAlive(){if(!this.__isAlive)throw new e(`Channel ${this.name} has been closed`)}__dispatch(t){if(this.__verifyAlive(),this.__waitingMessages)this.__waitingMessages.push(t);else for(const e of this.__subscribers)e(t)}listenToPort(t){t.addEventListener("message",t=>this.__dispatch(t.data)),t.start()}replacePort(t){this.__verifyAlive(),this.__port?.close(),this.__port=t,this.listenToPort(t)}constructor(t,e){this.name=t,this.replacePort(e)}}class i{__s1=[];__s2=[];push(t){this.__s2.push(t)}pop(){if(0===this.__s1.length){if(0===this.__s2.length)throw new Error("queue is empty");let t=this.__s1;this.__s1=this.__s2.reverse(),this.__s2=t}return this.__s1.pop()}get length(){return this.__s1.length+this.__s2.length}clone(){const t=new i;return t.__s1=[...this.__s1],t.__s2=[...this.__s2],t}}class a{__inputQueue=new i;__promiseQueue=new i;push(t){0!==this.__promiseQueue.length?this.__promiseQueue.pop()(t):this.__inputQueue.push(t)}async pop(){return 0!==this.__inputQueue.length?this.__inputQueue.pop():new Promise((t,e)=>{this.__promiseQueue.push(t)})}tryPop(){if(0!==this.__inputQueue.length)return this.__inputQueue.pop()}constructor(){this.push=this.push.bind(this)}}class o{name;__channel;__messageQueue=new a;async receive(){return this.__messageQueue.pop()}tryReceive(){return this.__messageQueue.tryPop()}send(t,e){this.__channel.send(t,e)}close(){this.__channel.unsubscribe(this.__messageQueue.push)}constructor(t){this.name=t.name,this.__channel=t,this.__channel.subscribe(this.__messageQueue.push)}}class c{__alive=!0;__link;__parent;__channels=new Map;__pluginMap=new Map;__plugins=[];__negotiateChannel(t){const{port1:e,port2:n}=new MessageChannel,r=new s(t,e);this.__link.postMessage([t,n],[n]),this.__channels.set(t,r)}__verifyAlive(){if(!this.__alive)throw new e("Conduit already terminated")}registerPlugin(t,...n){this.__verifyAlive();const r=[];for(const e of t.channelAttach)this.__channels.has(e)||this.__negotiateChannel(e),r.push(this.__channels.get(e));const s=new t(this,r,...n);if(void 0!==s.name){if(this.__pluginMap.has(s.name))throw new e(`Plugin ${s.name} already registered`);this.__pluginMap.set(s.name,s)}return this.__plugins.push(s),s}unregisterPlugin(t){this.__verifyAlive();let e=0;for(let n=0;n<this.__plugins.length;++n)this.__plugins[e]===t&&++e,this.__plugins[n]=this.__plugins[n+e];for(let t=this.__plugins.length-1,n=this.__plugins.length-e;t>=n;--t)delete this.__plugins[t];t.name&&this.__pluginMap.delete(t.name),t.destroy?.()}lookupPlugin(t){if(this.__verifyAlive(),!this.__pluginMap.has(t))throw new e(`Plugin ${t} not registered`);return this.__pluginMap.get(t)}terminate(){this.__verifyAlive();for(const t of this.__plugins)t.destroy?.();this.__link.terminate?.(),this.__alive=!1}__handlePort(t){const[e,n]=t;if(this.__channels.has(e)){const t=this.__channels.get(e);this.__parent?t.listenToPort(n):t.replacePort(n)}else{const t=new s(e,n);this.__channels.set(e,t)}}constructor(t,e=!1){this.__link=t,t.addEventListener("message",t=>this.__handlePort(t.data)),this.__parent=e}}class u{type=0;data;constructor(t,e,n){this.data={fn:t,args:e,invokeId:n}}}class h{type=2;data;constructor(t,e){this.data={invokeId:t,err:e}}}class l{type=1;data;constructor(t,e){this.data={invokeId:t,res:e}}}function p(t){}var w;!function(t){t[t.VOID=0]="VOID",t[t.BOOLEAN=1]="BOOLEAN",t[t.NUMBER=2]="NUMBER",t[t.CONST_STRING=3]="CONST_STRING",t[t.EMPTY_LIST=4]="EMPTY_LIST",t[t.PAIR=5]="PAIR",t[t.ARRAY=6]="ARRAY",t[t.CLOSURE=7]="CLOSURE",t[t.OPAQUE=8]="OPAQUE",t[t.LIST=9]="LIST"}(w||(w={}));class f{type=1;data;constructor(t){this.data={minVersion:t}}}class y{type=0;data={version:0}}class d{type=3;data;constructor(t){this.data=t}}let m=(()=>{let t,n,s=[p],i=[];return class{static{n=this}static{const e="function"==typeof Symbol&&Symbol.metadata?Object.create(null):void 0;!function(t,e,n,r,s,i){function a(t){if(void 0!==t&&"function"!=typeof t)throw new TypeError("Function expected");return t}for(var o,c=r.kind,u="getter"===c?"get":"setter"===c?"set":"value",h=!e&&t?r.static?t:t.prototype:null,l=e||(h?Object.getOwnPropertyDescriptor(h,r.name):{}),p=!1,w=n.length-1;w>=0;w--){var f={};for(var y in r)f[y]="access"===y?{}:r[y];for(var y in r.access)f.access[y]=r.access[y];f.addInitializer=function(t){if(p)throw new TypeError("Cannot add initializers after decoration has completed");i.push(a(t||null))};var d=(0,n[w])("accessor"===c?{get:l.get,set:l.set}:l[u],f);if("accessor"===c){if(void 0===d)continue;if(null===d||"object"!=typeof d)throw new TypeError("Object expected");(o=a(d.get))&&(l.get=o),(o=a(d.set))&&(l.set=o),(o=a(d.init))&&s.unshift(o)}else(o=a(d))&&("field"===c?s.unshift(o):l[u]=o)}h&&Object.defineProperty(h,r.name,l),p=!0}(null,t={value:n},s,{kind:"class",name:n.name,metadata:e},null,i),n=t.value,e&&Object.defineProperty(n,Symbol.metadata,{enumerable:!0,configurable:!0,writable:!0,value:e})}name="__runner_main";__evaluator;__isCompatibleWithModules;__conduit;__fileRpc;__chunkQueue;__serviceChannel;__ioQueue;__errorChannel;__statusChannel;__serviceHandlers=new Map([[0,function(t){t.data.version<0?(this.__serviceChannel.send(new f(0)),console.error(`Host's protocol version (${t.data.version}) must be at least 0`)):console.log(`Host is using protocol version ${t.data.version}`)}],[1,function(t){console.error(`Host expects at least protocol version ${t.data.minVersion}, but we are on version 0`),this.__conduit.terminate()}],[2,function(t){this.__evaluator.startEvaluator(t.data)}]]);requestFile(t){return this.__fileRpc.requestFile(t)}async requestChunk(){return(await this.__chunkQueue.receive()).chunk}async requestInput(){const{message:t}=await this.__ioQueue.receive();return t}tryRequestInput(){const t=this.__ioQueue.tryReceive();return t?.message}sendOutput(t){this.__ioQueue.send({message:t})}sendError(t){this.__errorChannel.send({error:t})}updateStatus(t,e){this.__statusChannel.send({status:t,isActive:e})}hostLoadPlugin(t){this.__serviceChannel.send(new d(t))}registerPlugin(t,...e){return this.__conduit.registerPlugin(t,...e)}unregisterPlugin(t){this.__conduit.unregisterPlugin(t)}registerModule(t){if(!this.__isCompatibleWithModules)throw new e("Evaluator has no data interface");return this.registerPlugin(t,this.__evaluator)}unregisterModule(t){this.unregisterPlugin(t)}async importAndRegisterExternalPlugin(t){const e=await r(t);return this.registerPlugin(e)}async importAndRegisterExternalModule(t){const e=await async function(t){return await r(t)}(t);return this.registerModule(e)}static channelAttach=["__file_rpc","__chunk","__service","__stdio","__error","__status"];constructor(t,[e,n,r,s,i,a],c){this.__conduit=t,this.__fileRpc=function(t,e){const n=[];let r=0;return t.subscribe(async r=>{switch(r.type){case 0:{const{fn:n,args:s,invokeId:i}=r.data;try{const r=await e[n](...s);i>0&&t.send(new l(i,r))}catch(e){i>0&&t.send(new h(i,e))}break}case 1:{const{invokeId:t,res:e}=r.data;n[t]?.[0]?.(e),delete n[t];break}case 2:{const{invokeId:t,err:e}=r.data;n[t]?.[1]?.(e),delete n[t];break}}}),new Proxy({},{get(e,s,i){const a=Reflect.get(e,s,i);if(a)return a;const o="string"==typeof s&&"$"===s.charAt(0)?(...e)=>{t.send(new u(s,e,0))}:(...e)=>{const i=++r;return t.send(new u(s,e,i)),new Promise((t,e)=>{n[i]=[t,e]})};return Reflect.set(e,s,o,i),o}})}(e,{}),this.__chunkQueue=new o(n),this.__serviceChannel=r,this.__ioQueue=new o(s),this.__errorChannel=i,this.__statusChannel=a,this.__serviceChannel.send(new y),this.__serviceChannel.subscribe(t=>{this.__serviceHandlers.get(t.type)?.call(this,t)}),this.__evaluator=new c(this),this.__isCompatibleWithModules=this.__evaluator.hasDataInterface??!1}static{!function(t,e,n){for(var r=arguments.length>2,s=0;s<e.length;s++)n=r?e[s].call(t,n):e[s].call(t)}(n,i)}},n})();var g;!function(t){t[t.INTEGER=1]="INTEGER",t[t.RATIONAL=2]="RATIONAL",t[t.REAL=3]="REAL",t[t.COMPLEX=4]="COMPLEX"}(g||(g={}));class v{result;constructor(t){this.result=t}}class E extends v{result;value;constructor(t,e){super(t),this.result=t,this.value=e}isSigned(){return!!this.result&&("+"===this.value[0]||"-"===this.value[0])}build(){return _.build(this.value)}}class P extends v{result;numerator;denominator;constructor(t,e,n){super(t),this.result=t,this.numerator=e,this.denominator=n}build(){return k.build(this.numerator,this.denominator)}}class T extends v{result;integer;decimal;exponent;constructor(t,e,n,r){super(t),this.result=t,this.integer=e,this.decimal=n,this.exponent=r}build(){if(this.integer?.includes("inf"))return this.integer.includes("-")?$.NEG_INFINITY:$.INFINITY;if(this.integer?.includes("nan"))return $.NAN;const t=(this.exponent?this.exponent.build():$.INEXACT_ZERO).coerce();let e=Number((this.integer?this.integer:"0")+"."+(this.decimal?this.decimal:"0"));return e*=Math.pow(10,t),$.build(e)}}class b extends v{result;real;sign;imaginary;constructor(t,e,n,r){super(t),this.result=t,this.real=e,this.sign=n,this.imaginary=r}build(){const t=this.real?this.real.build():_.EXACT_ZERO,e=this.imaginary.build();return this.sign&&"-"===this.sign?S.build(t,e.negate()):S.build(t,e)}}function N(t){const e=new RegExp("^([+-]?)(\\d+)$").exec(t);return e?new E(!0,e[0]):new E(!1)}function x(t,e){const n=N(t);if(n.result&&e>=g.INTEGER)return n;const r=function(t){if(1!==(t.match(/\//g)||[]).length)return new P(!1);const e=t.split("/");if(2!==e.length)return new P(!1);const[n,r]=e,s=N(n),i=N(r);return s.result&&i.result?new P(!0,n,r):new P(!1)}(t);if(r.result&&e>=g.RATIONAL)return r;const s=function(t){function e(t){if(function(t){return"+inf.0"===t||"-inf.0"===t||"+nan.0"===t||"-nan.0"===t}(t))return new T(!0,t);const e=(t.match(/\./g)||[]).length;if(e>1)return new T(!1);if(0===e){const e=N(t);return new T(e.result,e.value)}const[n,r]=t.split("."),s=N(n),i=N(r),a=s.result||""===n,o=i.result||""===r;return"+"===n||"-"===n?""===r?new T(!1):new T(!0,`${n}0`,t):s.result&&o||a&&i.result?i.result&&i.isSigned()?new T(!1):new T(!0,s.value,i.value):new T(!1)}return 0===(t.match(/[eE]/g)||[]).length?e(t):function(t){const n=t.indexOf("e"),r=t.indexOf("E");if(-1===n&&-1===r)return new T(!1);const s=-1===n?r:n,i=t.substring(0,s),a=t.substring(s+1);if(""===i||""==a)return new T(!1);const o=e(i);if(!o.result)return new T(!1);const c=x(a,g.REAL);return c.result?new T(!0,o.integer,o.decimal,c):new T(!1)}(t)}(t);if(s.result&&e>=g.REAL)return s;const i=function(t){if((t.match(/i/g)||[]).length<1)return new b(!1);if("i"!==t[t.length-1])return new b(!1);const e=t.search(/(?<!^)[+-]/);if(-1===e){const e=x(t.slice(0,-1),g.REAL);return e.result?new b(!0,void 0,void 0,e):new b(!1)}const n=t.slice(0,e);let r=t.slice(e+1,-1);"+"!==r[0]&&"-"!==r[0]&&(r="+"+r);const s=x(n,g.REAL),i=x(r,g.REAL);return s.result&&i.result?new b(!0,s,t[e],i):new b(!1)}(t);return i.result&&e>=g.COMPLEX?i:new E(!1)}class _{numberType=g.INTEGER;value;static EXACT_ZERO=new _(0n);constructor(t){this.value=t}static build(t,e=!1){const n=BigInt(t);return 0n===n?_.EXACT_ZERO:new _(n)}promote(t){switch(t){case g.INTEGER:return this;case g.RATIONAL:return k.build(this.value,1n,!0);case g.REAL:return $.build(this.coerce(),!0);case g.COMPLEX:return S.build(this,_.EXACT_ZERO,!0)}}equals(t){return t instanceof _&&this.value===t.value}greaterThan(t){return this.value>t.value}negate(){return this===_.EXACT_ZERO?this:_.build(-this.value)}multiplicativeInverse(){if(this===_.EXACT_ZERO)throw new Error("Division by zero");return k.build(1n,this.value,!1)}add(t){return _.build(this.value+t.value)}multiply(t){return _.build(this.value*t.value)}getBigInt(){return this.value}coerce(){return this.value>Number.MAX_SAFE_INTEGER?1/0:this.value<Number.MIN_SAFE_INTEGER?-1/0:Number(this.value)}toString(){return this.value.toString()}}class k{numberType=g.RATIONAL;numerator;denominator;constructor(t,e){this.numerator=t,this.denominator=e}static build(t,e,n=!1){return k.simplify(BigInt(t),BigInt(e),n)}static simplify(t,e,n=!1){const r=(t,e)=>0n===e?t:r(e,t.valueOf()%e.valueOf()),s=r(t,e),i=t<0n?-1n:1n,a=e<0n?-1n:1n,o=i*a;return t*=i,1n!==(e*=a)||n?new k(o*t/s,e/s):_.build(o*t)}getNumerator(){return this.numerator}getDenominator(){return this.denominator}promote(t){switch(t){case g.RATIONAL:return this;case g.REAL:return $.build(this.coerce(),!0);case g.COMPLEX:return S.build(this,_.EXACT_ZERO,!0);default:throw new Error("Unable to demote rational")}}equals(t){return t instanceof k&&this.numerator===t.numerator&&this.denominator===t.denominator}greaterThan(t){return this.numerator*t.denominator>t.numerator*this.denominator}negate(){return k.build(-this.numerator,this.denominator)}multiplicativeInverse(){if(0n===this.numerator)throw new Error("Division by zero");return k.build(this.denominator,this.numerator)}add(t){const e=this.numerator*t.denominator+t.numerator*this.denominator,n=this.denominator*t.denominator;return k.build(e,n)}multiply(t){const e=this.numerator*t.numerator,n=this.denominator*t.denominator;return k.build(e,n)}coerce(){const t=this.numerator<0n?-this.numerator:this.numerator;let e=this.denominator;const n=Number(t/e);if(n>Number.MAX_VALUE)return this.numerator<0n?-1/0:1/0;let r=t%e;for(;r>Number.MAX_SAFE_INTEGER||e>Number.MAX_SAFE_INTEGER;)r/=2n,e/=2n;const s=Number(r)/Number(e);return this.numerator<0n?-(n+s):n+s}toString(){return`${this.numerator}/${this.denominator}`}}class ${numberType=g.REAL;value;static INEXACT_ZERO=new $(0);static INEXACT_NEG_ZERO=new $(-0);static INFINITY=new $(1/0);static NEG_INFINITY=new $(-1/0);static NAN=new $(NaN);static build(t,e=!1){return t===1/0?$.INFINITY:t===-1/0?$.NEG_INFINITY:isNaN(t)?$.NAN:0===t?$.INEXACT_ZERO:-0===t?$.INEXACT_NEG_ZERO:new $(t)}constructor(t){this.value=t}promote(t){switch(t){case g.REAL:return this;case g.COMPLEX:return S.build(this,_.EXACT_ZERO,!0);default:throw new Error("Unable to demote real")}}equals(t){return t instanceof $&&this.value===t.value}greaterThan(t){return this.value>t.value}negate(){return $.build(-this.value)}multiplicativeInverse(){if(this===$.INEXACT_ZERO||this===$.INEXACT_NEG_ZERO)throw new Error("Division by zero");return $.build(1/this.value)}add(t){return $.build(this.value+t.value)}multiply(t){return $.build(this.value*t.value)}coerce(){return this.value}toString(){return this===$.INFINITY?"+inf.0":this===$.NEG_INFINITY?"-inf.0":this===$.NAN?"+nan.0":this.value.toString()}}class S{numberType=g.COMPLEX;real;imaginary;static build(t,e,n=!1){return S.simplify(new S(t,e),n)}constructor(t,e){this.real=t,this.imaginary=e}static simplify(t,e){return!e&&I(t.imaginary,_.EXACT_ZERO)?t.real:t}promote(t){if(t===g.COMPLEX)return this;throw new Error("Unable to demote complex")}negate(){return S.build(this.real.negate(),this.imaginary.negate())}equals(t){return I(this.real,t.real)&&I(this.imaginary,t.imaginary)}greaterThan(t){return C(this.real,t.real)&&C(this.imaginary,t.imaginary)}multiplicativeInverse(){const t=B(R(this.real,this.real),R(this.imaginary,this.imaginary));return S.build(R(t.multiplicativeInverse(),this.real),R(t.multiplicativeInverse(),this.imaginary.negate()))}add(t){return S.build(B(this.real,t.real),B(this.imaginary,t.imaginary))}multiply(t){const e=(n=R(this.real,t.real),r=R(this.imaginary,t.imaginary),B(n,function(t){return t.negate()}(r)));var n,r;const s=B(R(this.real,t.imaginary),R(this.imaginary,t.real));return S.build(e,s)}getReal(){return this.real}getImaginary(){return this.imaginary}coerce(){throw new Error("Cannot coerce a complex number to a javascript number")}toPolar(){const t=this.real.promote(g.REAL),e=this.imaginary.promote(g.REAL),n=$.build(Math.sqrt(t.coerce()*t.coerce()+e.coerce()*e.coerce())),r=$.build(Math.atan2(e.coerce(),t.coerce()));return O.build(n,r)}toString(){return`${this.real}+${this.imaginary}i`}}class O{magnitude;angle;constructor(t,e){this.magnitude=t,this.angle=e}static build(t,e){return new O(t,e)}toCartesian(){const t=$.build(this.magnitude.coerce()*Math.cos(this.angle.coerce())),e=$.build(this.magnitude.coerce()*Math.sin(this.angle.coerce()));return S.build(t,e)}}function L(t){switch(t.numberType){case g.INTEGER:return t;case g.RATIONAL:return 1n===t.getDenominator()?_.build(t.getNumerator()):t;case g.REAL:return t;case g.COMPLEX:return S.build(L(t.getReal()),L(t.getImaginary()))}}function A(t,e){return t.numberType>e.numberType?[t,e.promote(t.numberType)]:t.numberType<e.numberType?[t.promote(e.numberType),e]:[t,e]}function I(t,e){const[n,r]=A(t,e);return n.equals(r)}function C(t,e){const[n,r]=A(t,e);return n.greaterThan(r)}function B(t,e){const[n,r]=A(t,e);return L(n.add(r))}function R(t,e){const[n,r]=A(t,e);return L(n.multiply(r))}let q=class t{start;end;constructor(t,e){this.start=t,this.end=e}merge(e){return new t(this.start,e.end)}};class M{line;column;constructor(t,e){this.line=t,this.column=e}}var G;function U(t,e){return t.split("\n")[e.line-1]}function H(t){return"^".padStart(t.column," ")}!function(t){t[t.LEFT_PAREN=0]="LEFT_PAREN",t[t.RIGHT_PAREN=1]="RIGHT_PAREN",t[t.LEFT_BRACKET=2]="LEFT_BRACKET",t[t.RIGHT_BRACKET=3]="RIGHT_BRACKET",t[t.DOT=4]="DOT",t[t.HASH_SEMICOLON=5]="HASH_SEMICOLON",t[t.IDENTIFIER=6]="IDENTIFIER",t[t.NUMBER=7]="NUMBER",t[t.BOOLEAN=8]="BOOLEAN",t[t.STRING=9]="STRING",t[t.IF=10]="IF",t[t.LET=11]="LET",t[t.COND=12]="COND",t[t.ELSE=13]="ELSE",t[t.DEFINE=14]="DEFINE",t[t.LAMBDA=15]="LAMBDA",t[t.APOSTROPHE=16]="APOSTROPHE",t[t.BACKTICK=17]="BACKTICK",t[t.COMMA=18]="COMMA",t[t.COMMA_AT=19]="COMMA_AT",t[t.QUOTE=20]="QUOTE",t[t.QUASIQUOTE=21]="QUASIQUOTE",t[t.UNQUOTE=22]="UNQUOTE",t[t.UNQUOTE_SPLICING=23]="UNQUOTE_SPLICING",t[t.SET=24]="SET",t[t.BEGIN=25]="BEGIN",t[t.DELAY=26]="DELAY",t[t.IMPORT=27]="IMPORT",t[t.EXPORT=28]="EXPORT",t[t.DEFINE_SYNTAX=29]="DEFINE_SYNTAX",t[t.SYNTAX_RULES=30]="SYNTAX_RULES",t[t.HASH_VECTOR=31]="HASH_VECTOR",t[t.VECTOR=32]="VECTOR",t[t.EOF=33]="EOF"}(G||(G={}));class z extends SyntaxError{loc;constructor(t,e){super(`Syntax error at (${e.line}:${e.column})\n${t}`),this.loc=e}toString(){return this.message}}let D=class extends z{constructor(t,e){super(U(t,e)+"\nUnexpected EOF",e),this.name="UnexpectedEOFError"}};class F extends z{form;constructor(t,e,n){super(U(t,e)+"\n"+H(e)+"\n"+`Unexpected '${n}'`,e),this.form=n,this.name="UnexpectedTokenError"}}class Q extends z{form;expected;constructor(t,e,n,r){super(U(t,e)+"\n"+H(e)+"\n"+`Expected '${r}' but got '${n}'`,e),this.form=n,this.expected=r,this.name="ExpectedTokenError"}}class V extends z{token;constructor(t,e,n,r){super(U(t,e)+"\n"+H(e)+"\n"+`Syntax '${n}' not allowed at Scheme §${r}`,e),this.token=n,this.name="DisallowedTokenError"}}class X extends z{token;constructor(t,e,n){super(U(t,e)+"\n"+H(e)+"\n"+`Syntax '${n}' not supported yet`,e),this.token=n,this.name="UnsupportedTokenError"}}class K{elements;location;constructor(t){this.elements=t,this.location=new q(this.firstPos(),this.lastPos())}static build(t){if(0===t.length)throw new Error("Illegal empty group. This should never happen.");if(1===t.length){const n=t[0];if(j(n))return n;if((e=n).type!==G.IDENTIFIER&&e.type!==G.NUMBER&&e.type!==G.STRING&&e.type!==G.BOOLEAN)throw new Q("",n.pos,n,"<data>");return new K(t)}var e;if(2===t.length){const e=t[0];if(Y(e)&&function(t){return t.type===G.APOSTROPHE||t.type===G.BACKTICK||t.type===G.HASH_VECTOR||t.type===G.COMMA||t.type===G.COMMA_AT}(e))return new K(t)}const n=t[0],r=t[t.length-1];if(Y(n)&&Y(r)&&(i=r,(s=n).type===G.LEFT_PAREN&&i.type===G.RIGHT_PAREN||s.type===G.LEFT_BRACKET&&i.type===G.RIGHT_BRACKET))return new K(t);var s,i;const a=new K(t);throw new Q("",a.location.start,a,"matching parentheses")}first(){return this.elements[0]}firstToken(){const t=this.first();return Y(t)?t:t.firstToken()}firstPos(){return this.firstToken().pos}last(){return this.elements[this.elements.length-1]}lastToken(){const t=this.last();return Y(t)?t:t.lastToken()}lastPos(){return this.lastToken().pos}isParenthesized(){const t=this.first();return Y(t)&&(t.type===G.LEFT_PAREN||t.type===G.LEFT_BRACKET)}isSingleIdentifier(){return!this.isParenthesized()&&1===this.length()}unwrap(){return this.isParenthesized()?this.elements.slice(1,this.elements.length-1):this.elements}length(){return this.unwrap().length}toString(){return this.elements.map(t=>t.toString()).join(" ")}}function Y(t){return t instanceof Z}function j(t){return t instanceof K}class Z{type;lexeme;literal;start;end;pos;endPos;constructor(t,e,n,r,s,i,a){this.type=t,this.lexeme=e,this.literal=n,this.start=r,this.end=s,this.pos=new M(i,a),this.endPos=new M(i,a+e.length-1)}convertToken(){switch(this.type){case G.APOSTROPHE:return new Z(G.QUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case G.BACKTICK:return new Z(G.QUASIQUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case G.HASH_VECTOR:return new Z(G.VECTOR,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case G.COMMA:return new Z(G.UNQUOTE,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);case G.COMMA_AT:return new Z(G.UNQUOTE_SPLICING,this.lexeme,this.literal,this.start,this.end,this.pos.line,this.pos.column);default:return this}}toString(){return`${this.lexeme}`}}class W extends SyntaxError{loc;constructor(t,e,n){super(t),this.loc={line:e,column:n}}toString(){return this.message}}class J extends W{char;constructor(t,e,n){super(`Unexpected character '${n}' (${t}:${e})`,t,e),this.char=n,this.name="UnexpectedCharacterError"}}class tt extends W{constructor(t,e){super(`Unexpected EOF (${t}:${e})`,t,e),this.name="UnexpectedEOFError"}}const et=new Map([[".",G.DOT],["if",G.IF],["let",G.LET],["cond",G.COND],["else",G.ELSE],["set!",G.SET],["begin",G.BEGIN],["delay",G.DELAY],["quote",G.QUOTE],["export",G.EXPORT],["import",G.IMPORT],["define",G.DEFINE],["lambda",G.LAMBDA],["define-syntax",G.DEFINE_SYNTAX],["syntax-rules",G.SYNTAX_RULES]]);class nt{source;tokens;start=0;current=0;line=1;col=0;constructor(t){this.source=t,this.tokens=[]}isAtEnd(){return this.current>=this.source.length}advance(){return this.col++,this.source.charAt(this.current++)}jump(){this.start=this.current,this.col++,this.current++}addToken(t,e=null){const n=this.source.substring(this.start,this.current);this.tokens.push(new Z(t,n,e,this.start,this.current,this.line,this.col))}scanTokens(){for(;!this.isAtEnd();)this.start=this.current,this.scanToken();return this.tokens.push(new Z(G.EOF,"",null,this.start,this.current,this.line,this.col)),this.tokens}scanToken(){const t=this.advance();switch(t){case"(":this.addToken(G.LEFT_PAREN);break;case")":this.addToken(G.RIGHT_PAREN);break;case"[":this.addToken(G.LEFT_BRACKET);break;case"]":this.addToken(G.RIGHT_BRACKET);break;case"'":this.addToken(G.APOSTROPHE);break;case"`":this.addToken(G.BACKTICK);break;case",":if(this.match("@")){this.addToken(G.COMMA_AT);break}this.addToken(G.COMMA);break;case"#":if(this.match("t")||this.match("f"))this.booleanToken();else if(this.match("|"))this.comment();else if(this.match(";"))this.addToken(G.HASH_SEMICOLON);else{if("("!==this.peek()&&"["!==this.peek())throw new J(this.line,this.col,t);this.addToken(G.HASH_VECTOR)}break;case";":for(;"\n"!=this.peek()&&!this.isAtEnd();)this.advance();break;case" ":case"\r":case"\t":break;case"\n":this.line++,this.col=0;break;case'"':this.stringToken();break;case"|":this.identifierTokenLoose();break;default:if(this.isDigit(t)||"-"===t||"+"===t||"."===t||"i"===t||"n"===t)this.identifierNumberToken();else{if(!this.isValidIdentifier(t))throw new J(this.line,this.col,t);this.identifierToken()}}}comment(){for(;("|"!=this.peek()||"#"!=this.peekNext())&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new tt(this.line,this.col);this.jump(),this.jump()}identifierToken(){for(;this.isValidIdentifier(this.peek());)this.advance();this.addToken(this.checkKeyword())}identifierTokenLoose(){for(this.advance();"|"!=this.peek()&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new tt(this.line,this.col);this.advance(),this.addToken(this.checkKeyword())}identifierNumberToken(){for(;this.isValidIdentifier(this.peek());)this.advance();const t=this.source.substring(this.start,this.current);x(t,g.COMPLEX).result?this.addToken(G.NUMBER,t):this.addToken(this.checkKeyword())}checkKeyword(){const t=this.source.substring(this.start,this.current);return et.has(t)?et.get(t):G.IDENTIFIER}stringToken(){for(;'"'!=this.peek()&&!this.isAtEnd();)"\n"===this.peek()&&(this.line++,this.col=0),this.advance();if(this.isAtEnd())throw new tt(this.line,this.col);this.advance();const t=this.source.substring(this.start+1,this.current-1);this.addToken(G.STRING,t)}booleanToken(){this.addToken(G.BOOLEAN,"t"===this.peekPrev())}match(t){return!this.isAtEnd()&&(this.source.charAt(this.current)==t&&(this.current++,!0))}peek(){return this.isAtEnd()?"\0":this.source.charAt(this.current)}peekNext(){return this.current+1>=this.source.length?"\0":this.source.charAt(this.current+1)}peekPrev(){return this.current-1<0?"\0":this.source.charAt(this.current-1)}isDigit(t){return t>="0"&&t<="9"}isSpecialSyntax(t){return"("===t||")"===t||"["===t||"]"===t||";"===t||"|"===t}isValidIdentifier(t){return!this.isWhitespace(t)&&!this.isSpecialSyntax(t)}isWhitespace(t){return" "===t||"\0"===t||"\n"===t||"\r"===t||"\t"===t}}var rt,st;!function(t){class e{location;expressions;constructor(t,e){this.location=t,this.expressions=e}accept(t){return t.visitSequence(this)}equals(t){if(t instanceof e){if(this.expressions.length!==t.expressions.length)return!1;for(let e=0;e<this.expressions.length;e++)if(!this.expressions[e].equals(t.expressions[e]))return!1;return!0}return!1}}t.Sequence=e;class n{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitNumericLiteral(this)}equals(t){return t instanceof n&&this.value===t.value}}t.NumericLiteral=n;class r{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitBooleanLiteral(this)}equals(t){return t instanceof r&&this.value===t.value}}t.BooleanLiteral=r;class s{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitStringLiteral(this)}equals(t){return t instanceof s&&this.value===t.value}}t.StringLiteral=s;class i{location;params;rest;body;constructor(t,e,n,r=void 0){this.location=t,this.params=n,this.rest=r,this.body=e}accept(t){return t.visitLambda(this)}equals(t){if(t instanceof i){if(this.params.length!==t.params.length)return!1;for(let e=0;e<this.params.length;e++)if(!this.params[e].equals(t.params[e]))return!1;if(this.rest&&t.rest){if(!this.rest.equals(t.rest))return!1}else if(this.rest||t.rest)return!1;return this.body.equals(t.body)}return!1}}t.Lambda=i;class a{location;name;constructor(t,e){this.location=t,this.name=e}accept(t){return t.visitIdentifier(this)}equals(t){return t instanceof a&&this.name===t.name}}t.Identifier=a;class o{location;name;value;constructor(t,e,n){this.location=t,this.name=e,this.value=n}accept(t){return t.visitDefinition(this)}equals(t){return t instanceof o&&(this.name.equals(t.name)&&this.value.equals(t.value))}}t.Definition=o;class c{location;operator;operands;constructor(t,e,n){this.location=t,this.operator=e,this.operands=n}accept(t){return t.visitApplication(this)}equals(t){if(t instanceof c){if(!this.operator.equals(t.operator))return!1;if(this.operands.length!==t.operands.length)return!1;for(let e=0;e<this.operands.length;e++)if(!this.operands[e].equals(t.operands[e]))return!1;return!0}return!1}}t.Application=c;class u{location;test;consequent;alternate;constructor(t,e,n,r){this.location=t,this.test=e,this.consequent=n,this.alternate=r}accept(t){return t.visitConditional(this)}equals(t){return t instanceof u&&(this.test.equals(t.test)&&this.consequent.equals(t.consequent)&&this.alternate.equals(t.alternate))}}t.Conditional=u;class h{location;car;cdr;constructor(t,e,n){this.location=t,this.car=e,this.cdr=n}accept(t){return t.visitPair(this)}equals(t){return t instanceof h&&(this.car.equals(t.car)&&this.cdr.equals(t.cdr))}}t.Pair=h;class l{location;constructor(t){this.location=t}accept(t){return t.visitNil(this)}equals(t){return t instanceof l}}t.Nil=l;class p{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitSymbol(this)}equals(t){return t instanceof p&&this.value===t.value}}t.Symbol=p;class w{location;value;constructor(t,e){this.location=t,this.value=e}accept(t){return t.visitSpliceMarker(this)}equals(t){return t instanceof w&&this.value.equals(t.value)}}t.SpliceMarker=w;class f{location;name;value;constructor(t,e,n){this.location=t,this.name=e,this.value=n}accept(t){return t.visitReassignment(this)}equals(t){return t instanceof f&&(this.name.equals(t.name)&&this.value.equals(t.value))}}t.Reassignment=f;class y{location;source;identifiers;constructor(t,e,n){this.location=t,this.source=e,this.identifiers=n}accept(t){return t.visitImport(this)}equals(t){if(t instanceof y){if(!this.source.equals(t.source))return!1;if(this.identifiers.length!==t.identifiers.length)return!1;for(let e=0;e<this.identifiers.length;e++)if(!this.identifiers[e].equals(t.identifiers[e]))return!1;return!0}return!1}}t.Import=y;class d{location;definition;constructor(t,e){this.location=t,this.definition=e}accept(t){return t.visitExport(this)}equals(t){return t instanceof d&&this.definition.equals(t.definition)}}t.Export=d;class m{location;elements;constructor(t,e){this.location=t,this.elements=e}accept(t){return t.visitVector(this)}equals(t){if(t instanceof m){if(this.elements.length!==t.elements.length)return!1;for(let e=0;e<this.elements.length;e++)if(!this.elements[e].equals(t.elements[e]))return!1;return!0}return!1}}t.Vector=m;class g{location;name;transformer;constructor(t,e,n){this.location=t,this.name=e,this.transformer=n}accept(t){return t.visitDefineSyntax(this)}equals(t){return t instanceof g&&(this.name.equals(t.name)&&this.transformer.equals(t.transformer))}}t.DefineSyntax=g;class v{location;literals;rules;constructor(t,e,n){this.location=t,this.literals=e,this.rules=n}accept(t){return t.visitSyntaxRules(this)}equals(t){if(t instanceof v){if(this.literals.length!==t.literals.length)return!1;for(let e=0;e<this.literals.length;e++)if(!this.literals[e].equals(t.literals[e]))return!1;if(this.rules.length!==t.rules.length)return!1;for(let e=0;e<this.rules.length;e++)if(!this.rules[e][0].equals(t.rules[e][0])||!this.rules[e][1].equals(t.rules[e][1]))return!1;return!0}return!1}}t.SyntaxRules=v}(rt||(rt={})),function(t){class e{location;name;params;rest;body;constructor(t,e,n,r,s=void 0){this.location=t,this.name=e,this.body=n,this.params=r,this.rest=s}accept(t){return t.visitFunctionDefinition(this)}equals(t){if(t instanceof e){if(this.params.length!==t.params.length)return!1;for(let e=0;e<this.params.length;e++)if(!this.params[e].equals(t.params[e]))return!1;if(this.rest&&t.rest){if(!this.rest.equals(t.rest))return!1}else if(this.rest||t.rest)return!1;return this.body.equals(t.body)}return!1}}t.FunctionDefinition=e;class n{location;identifiers;values;body;constructor(t,e,n,r){this.location=t,this.identifiers=e,this.values=n,this.body=r}accept(t){return t.visitLet(this)}equals(t){if(t instanceof n){if(this.identifiers.length!==t.identifiers.length)return!1;for(let e=0;e<this.identifiers.length;e++)if(!this.identifiers[e].equals(t.identifiers[e]))return!1;if(this.values.length!==t.values.length)return!1;for(let e=0;e<this.values.length;e++)if(!this.values[e].equals(t.values[e]))return!1;return this.body.equals(t.body)}return!1}}t.Let=n;class r{location;predicates;consequents;catchall;constructor(t,e,n,r){this.location=t,this.predicates=e,this.consequents=n,this.catchall=r}accept(t){return t.visitCond(this)}equals(t){if(t instanceof r){if(this.predicates.length!==t.predicates.length)return!1;for(let e=0;e<this.predicates.length;e++)if(!this.predicates[e].equals(t.predicates[e]))return!1;if(this.consequents.length!==t.consequents.length)return!1;for(let e=0;e<this.consequents.length;e++)if(!this.consequents[e].equals(t.consequents[e]))return!1;return this.catchall&&t.catchall?this.catchall.equals(t.catchall):!this.catchall&&!t.catchall}return!1}}t.Cond=r;class s{location;elements;terminator;constructor(t,e,n=void 0){this.location=t,this.elements=e,this.terminator=n}accept(t){return t.visitList(this)}equals(t){if(t instanceof s){if(this.elements.length!==t.elements.length)return!1;for(let e=0;e<this.elements.length;e++)if(!this.elements[e].equals(t.elements[e]))return!1;return this.terminator&&t.terminator?this.terminator.equals(t.terminator):!this.terminator&&!t.terminator}return!1}}t.List=s;class i{location;expressions;constructor(t,e){this.location=t,this.expressions=e}accept(t){return t.visitBegin(this)}equals(t){if(t instanceof i){if(this.expressions.length!==t.expressions.length)return!1;for(let e=0;e<this.expressions.length;e++)if(!this.expressions[e].equals(t.expressions[e]))return!1;return!0}return!1}}t.Begin=i;class a{location;expression;constructor(t,e){this.location=t,this.expression=e}accept(t){return t.visitDelay(this)}equals(t){return t instanceof a&&this.expression.equals(t.expression)}}t.Delay=a}(st||(st={}));var it;!function(t){t[t.NONE=0]="NONE",t[t.QUOTE=1]="QUOTE",t[t.QUASIQUOTE=2]="QUASIQUOTE"}(it||(it={}));class at{source;tokens;chapter;current=0;quoteMode=it.NONE;constructor(t,e,n=1/0){this.source=t,this.tokens=e,this.chapter=n}advance(){return this.isAtEnd()||this.current++,this.previous()}isAtEnd(){return this.current>=this.tokens.length}previous(){return this.tokens[this.current-1]}peek(){return this.tokens[this.current]}validateChapter(t,e){if(this.chapter<e)throw new V(this.source,t.pos,t,this.chapter)}toLocation(t){return new q(t.pos,t.endPos)}destructureList(t,e=t=>{}){if(0===t.length)return[[],void 0];if(1===t.length)return e(t[0]),[[this.parseExpression(t[0])],void 0];const n=t.at(-2);if(Y(n)&&n.type===G.DOT){const n=t.at(-1),r=t.slice(0,-2);return e(n),r.forEach(e),[r.map(this.parseExpression.bind(this)),this.parseExpression(n)]}const r=t;return r.forEach(e),[r.map(this.parseExpression.bind(this)),void 0]}grouping(t){const e=[];let n=!1;t&&(n=!0,e.push(t));do{const t=this.advance();switch(t.type){case G.LEFT_PAREN:case G.LEFT_BRACKET:const r=this.grouping(t);e.push(r);break;case G.RIGHT_PAREN:case G.RIGHT_BRACKET:if(!n)throw new F(this.source,t.pos,t);e.push(t),n=!1;break;case G.APOSTROPHE:case G.BACKTICK:case G.COMMA:case G.COMMA_AT:case G.HASH_VECTOR:let s;do{s=this.grouping()}while(!s);e.push(this.affect(t,s));break;case G.QUOTE:case G.QUASIQUOTE:case G.UNQUOTE:case G.UNQUOTE_SPLICING:case G.IDENTIFIER:case G.NUMBER:case G.BOOLEAN:case G.STRING:case G.DOT:case G.DEFINE:case G.IF:case G.ELSE:case G.COND:case G.LAMBDA:case G.LET:case G.SET:case G.BEGIN:case G.DELAY:case G.IMPORT:case G.EXPORT:case G.DEFINE_SYNTAX:case G.SYNTAX_RULES:e.push(t);break;case G.HASH_SEMICOLON:for(;!this.grouping(););break;case G.EOF:throw new D(this.source,t.pos);default:throw new F(this.source,t.pos,t)}}while(n);if(0!==e.length)try{return K.build(e)}catch(t){if(t instanceof Q)throw new Q(this.source,t.loc,t.form,t.expected);throw t}}affect(t,e){return K.build([t,e])}parseExpression(t){return Y(t)?this.parseToken(t):t.isSingleIdentifier()?this.parseToken(t.unwrap()[0]):this.parseGroup(t)}parseToken(t){switch(t.type){case G.IDENTIFIER:return this.quoteMode===it.NONE?new rt.Identifier(this.toLocation(t),t.lexeme):new rt.Symbol(this.toLocation(t),t.lexeme);case G.NUMBER:return new rt.NumericLiteral(this.toLocation(t),t.literal);case G.BOOLEAN:return new rt.BooleanLiteral(this.toLocation(t),t.literal);case G.STRING:return new rt.StringLiteral(this.toLocation(t),t.literal);default:if(this.quoteMode!==it.NONE||this.chapter>=5)return new rt.Symbol(this.toLocation(t),t.lexeme);throw new F(this.source,t.pos,t)}}parseGroup(t){if(!t.isParenthesized())return this.parseAffectorGroup(t);switch(this.quoteMode){case it.NONE:return this.parseNormalGroup(t);case it.QUOTE:case it.QUASIQUOTE:return this.parseQuotedGroup(t)}}parseAffectorGroup(t){const[e,n]=t.unwrap();switch(e.type){case G.APOSTROPHE:case G.QUOTE:if(this.validateChapter(e,2),this.quoteMode!==it.NONE){const t=this.parseExpression(n),r=new rt.Symbol(this.toLocation(e),"quote"),s=r.location.merge(t.location);return new st.List(s,[r,t])}this.quoteMode=it.QUOTE;const r=this.parseExpression(n);return this.quoteMode=it.NONE,r;case G.BACKTICK:case G.QUASIQUOTE:if(this.validateChapter(e,2),this.quoteMode!==it.NONE){const t=this.parseExpression(n),r=new rt.Symbol(this.toLocation(e),"quasiquote"),s=r.location.merge(t.location);return new st.List(s,[r,t])}this.quoteMode=it.QUASIQUOTE;const s=this.parseExpression(n);return this.quoteMode=it.NONE,s;case G.COMMA:case G.UNQUOTE:this.validateChapter(e,2);const i=this.quoteMode;if(i===it.NONE)throw new X(this.source,e.pos,e);if(i===it.QUOTE){const t=this.parseExpression(n),r=new rt.Symbol(this.toLocation(e),"unquote"),s=r.location.merge(t.location);return new st.List(s,[r,t])}this.quoteMode=it.NONE;const a=this.parseExpression(n);return this.quoteMode=i,a;case G.COMMA_AT:case G.UNQUOTE_SPLICING:this.validateChapter(e,2);const o=this.quoteMode;if(o===it.NONE)throw new F(this.source,e.pos,e);if(o===it.QUOTE){const t=this.parseExpression(n),r=new rt.Symbol(this.toLocation(e),"unquote-splicing"),s=r.location.merge(t.location);return new st.List(s,[r,t])}this.quoteMode=it.NONE;const c=this.parseExpression(n);this.quoteMode=o;const u=this.toLocation(e).merge(c.location);return new rt.SpliceMarker(u,c);case G.HASH_VECTOR:this.validateChapter(e,3);const h=this.quoteMode;this.quoteMode=it.QUOTE;const l=this.parseVector(t);return this.quoteMode=h,l;default:throw new F(this.source,e.pos,e)}}parseNormalGroup(t){if(0===t.length()){if(this.chapter>=5)return new rt.Nil(t.location);throw new Q(this.source,t.location.start,t,"non-empty group")}const e=t.unwrap()[0];if(Y(e))switch(e.type){case G.LAMBDA:return this.validateChapter(e,1),this.parseLambda(t);case G.DEFINE:return this.validateChapter(e,1),this.parseDefinition(t);case G.IF:return this.validateChapter(e,1),this.parseConditional(t);case G.LET:return this.validateChapter(e,1),this.parseLet(t);case G.COND:return this.validateChapter(e,1),this.parseExtendedCond(t);case G.QUOTE:case G.APOSTROPHE:case G.QUASIQUOTE:case G.BACKTICK:case G.UNQUOTE:case G.COMMA:case G.UNQUOTE_SPLICING:case G.COMMA_AT:return this.validateChapter(e,2),this.parseAffectorGroup(t);case G.BEGIN:return this.validateChapter(e,3),this.parseBegin(t);case G.DELAY:return this.validateChapter(e,3),this.parseDelay(t);case G.SET:return this.validateChapter(e,3),this.parseSet(t);case G.DEFINE_SYNTAX:return this.validateChapter(e,5),this.parseDefineSyntax(t);case G.SYNTAX_RULES:throw new F(this.source,e.pos,e);case G.IMPORT:return this.validateChapter(e,1),this.parseImport(t);case G.EXPORT:return this.validateChapter(e,1),this.parseExport(t);case G.VECTOR:return this.validateChapter(e,3),this.parseAffectorGroup(t);default:return this.parseApplication(t)}return this.parseApplication(t)}parseQuotedGroup(t){if(0===t.length())return new rt.Nil(t.location);if(1===t.length()){const e=[this.parseExpression(t.unwrap()[0])];return new st.List(t.location,e)}const e=t.unwrap(),[n,r]=this.destructureList(e);return new st.List(t.location,n,r)}parseLambda(t){if(t.length()<3)throw new Q(this.source,t.location.start,t,"(lambda (<identifier>* . <rest-identifier>?) <body>+) | (lambda <rest-identifer> <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);let s,i=[];if(Y(n)){if(n.type!==G.IDENTIFIER)throw new Q(this.source,n.pos,n,"<rest-identifier>");s=new rt.Identifier(this.toLocation(n),n.lexeme)}else{const t=n.unwrap();[i,s]=this.destructureList(t,t=>{if(!Y(t))throw new Q(this.source,t.pos,t,"<identifier>");if(t.type!==G.IDENTIFIER)throw new Q(this.source,t.pos,t,"<identifier>")})}const a=r.map(this.parseExpression.bind(this));if(a.length<1)throw new Q(this.source,t.location.start,t,"(lambda ... <body>+)");if(1===a.length)return new rt.Lambda(t.location,a[0],i,s);const o=a.at(0).location.merge(a.at(-1).location),c=new rt.Sequence(o,a);return new rt.Lambda(t.location,c,i,s)}parseDefinition(t){if(t.length()<3)throw new Q(this.source,t.location.start,t,"(define <identifier> <expr>) | (define (<identifier> <formals>) <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);let s,i,a=[],o=!1;if(j(n)){o=!0;const t=n.unwrap(),e=t[0],r=t.splice(1);if(!Y(e))throw new Q(this.source,e.location.start,e,"<identifier>");if(e.type!==G.IDENTIFIER)throw new Q(this.source,e.pos,e,"<identifier>");s=new rt.Identifier(this.toLocation(e),e.lexeme),[a,i]=this.destructureList(r,t=>{if(!Y(t))throw new Q(this.source,t.pos,t,"<identifier>");if(t.type!==G.IDENTIFIER)throw new Q(this.source,t.pos,t,"<identifier>")})}else{if(n.type!==G.IDENTIFIER)throw new Q(this.source,n.pos,n,"<identifier>");s=new rt.Identifier(this.toLocation(n),n.lexeme),o=!1}if(r.length<1)throw new Q(this.source,t.location.start,t,"(define ... <body>+)");if(o){const e=r.map(this.parseExpression.bind(this));if(1===e.length)return new st.FunctionDefinition(t.location,s,e[0],a,i);const n=e.at(0).location.merge(e.at(-1).location),o=new rt.Sequence(n,e);return new st.FunctionDefinition(t.location,s,o,a,i)}if(r.length>1)throw new Q(this.source,t.location.start,t,"(define <identifier> <expr>)");const c=this.parseExpression(r[0]);return new rt.Definition(t.location,s,c)}parseConditional(t){if(t.length()<3||t.length()>4)throw new Q(this.source,t.location.start,t,"(if <pred> <cons> <alt>?)");const e=t.unwrap(),n=e[1],r=e[2],s=t.length()>3?e[3]:void 0,i=this.parseExpression(n),a=this.parseExpression(r),o=s?this.parseExpression(s):new rt.Identifier(t.location,"undefined");return new rt.Conditional(t.location,i,a,o)}parseApplication(t){if(t.length()<1)throw new Q(this.source,t.location.start,t,"(<func> <args>*)");const e=t.unwrap(),n=e[0],r=e.splice(1),s=this.parseExpression(n),i=[];for(const t of r)i.push(this.parseExpression(t));return new rt.Application(t.location,s,i)}parseLet(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach(t=>{this.parseExpression(t)}),new st.Let(t.location,[],[],new rt.Identifier(t.location,"undefined"))}if(t.length()<3)throw new Q(this.source,t.location.start,t,"(let ((<identifier> <value>)*) <body>+)");const e=t.unwrap(),n=e[1],r=e.slice(2);if(!j(n))throw new Q(this.source,n.pos,n,"((<identifier> <value>)*)");const s=[],i=[],a=n.unwrap();for(const t of a){if(!j(t))throw new Q(this.source,t.pos,t,"(<identifier> <value>)");if(2!==t.length())throw new Q(this.source,t.location.start,t,"(<identifier> <value>)");const[e,n]=t.unwrap();if(!Y(e))throw new Q(this.source,e.location.start,e,"<identifier>");if(e.type!==G.IDENTIFIER)throw new Q(this.source,e.pos,e,"<identifier>");s.push(new rt.Identifier(this.toLocation(e),e.lexeme)),i.push(this.parseExpression(n))}const o=r.map(this.parseExpression.bind(this));if(o.length<1)throw new Q(this.source,t.location.start,t,"(let ... <body>+)");if(1===o.length)return new st.Let(t.location,s,i,o[0]);const c=o.at(0).location.merge(o.at(-1).location),u=new rt.Sequence(c,o);return new st.Let(t.location,s,i,u)}parseExtendedCond(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach(t=>{this.parseExpression(t)}),new st.Cond(t.location,[],[],new rt.Identifier(t.location,"undefined"))}if(t.length()<2)throw new Q(this.source,t.location.start,t,"(cond (<pred> <body>*)* (else <val>)?)");const e=t.unwrap().splice(1),n=e.pop(),r=[],s=[];for(const t of e){if(!j(t))throw new Q(this.source,t.pos,t,"(<pred> <body>*)");if(t.length()<1)throw new Q(this.source,t.firstToken().pos,t.firstToken(),"(<pred> <body>*)");const[e,...n]=t.unwrap();if(Y(e)&&e.type===G.ELSE)throw new Q(this.source,e.pos,e,"<predicate>");const i=this.parseExpression(e),a=n.map(this.parseExpression.bind(this)),o=n.length<1?i.location:a.at(0).location.merge(a.at(-1).location),c=n.length<1?i:n.length<2?a[0]:new rt.Sequence(o,a);r.push(i),s.push(c)}if(!j(n))throw new Q(this.source,n.pos,n,"(<pred> <body>+) | (else <val>)");if(n.length()<2)throw new Q(this.source,n.firstToken().pos,n.firstToken(),"(<pred> <body>+) | (else <val>)");const[i,...a]=n.unwrap();let o=!1;if(Y(i)&&i.type===G.ELSE&&(o=!0,1!==a.length))throw new Q(this.source,n.location.start,n,"(else <val>)");if(a.length<1)throw new Q(this.source,n.location.start,n,"(<pred> <body>+)");const c=a.map(this.parseExpression.bind(this)),u=c.at(0).location.merge(c.at(-1).location),h=1===a.length?c[0]:new rt.Sequence(u,c);if(o)return new st.Cond(t.location,r,s,h);const l=this.parseExpression(i);return r.push(l),s.push(h),new st.Cond(t.location,r,s)}parseSet(t){if(3!==t.length())throw new Q(this.source,t.location.start,t,"(set! <identifier> <expr>)");const e=t.unwrap(),n=e[1],r=e[2];if(j(n))throw new Q(this.source,n.location.start,n,"<identifier>");if(n.type!==G.IDENTIFIER)throw new Q(this.source,n.pos,n,"<identifier>");const s=new rt.Identifier(this.toLocation(n),n.lexeme),i=this.parseExpression(r);return new rt.Reassignment(t.location,s,i)}parseBegin(t){if(t.length()<2)throw new Q(this.source,t.location.start,t,"(begin <body>+)");const e=t.unwrap().slice(1),n=[];for(const t of e)n.push(this.parseExpression(t));return new st.Begin(t.location,n)}parseDelay(t){if(this.chapter>=5){return t.unwrap().slice(1).forEach(t=>{this.parseExpression(t)}),new st.Delay(t.location,new rt.Identifier(t.location,"undefined"))}if(2!==t.length())throw new Q(this.source,t.location.start,t,"(delay <expr>)");const e=t.unwrap()[1],n=this.parseExpression(e);return new st.Delay(t.location,n)}parseDefineSyntax(t){if(3!==t.length())throw new Q(this.source,t.location.start,t,"(define-syntax <identifier> <transformer>)");const e=t.unwrap(),n=e[1],r=e[2];this.quoteMode=it.QUOTE;const s=this.parseExpression(n);if(this.quoteMode=it.NONE,!(s instanceof rt.Symbol))throw new Q(this.source,s.location.start,n,"<identifier>");if(!j(r))throw new Q(this.source,r.pos,r,"<transformer>");if(r.length()<2)throw new Q(this.source,r.firstToken().pos,r,"(syntax-rules ...)");const i=r.unwrap()[0];if(!Y(r.unwrap()[0]))throw new Q(this.source,r.firstToken().pos,i,"syntax-rules");if(i.type!==G.SYNTAX_RULES)throw new Q(this.source,i.pos,i,"syntax-rules");const a=this.parseSyntaxRules(r);return new rt.DefineSyntax(t.location,s,a)}isValidPattern(t){if(t instanceof st.List){if(void 0===t.terminator){if(t.elements.filter(t=>t instanceof rt.Symbol&&"..."===t.value).length>1)return!1;const e=t.elements.findIndex(t=>t instanceof rt.Symbol&&"..."===t.value);if(-1!=e&&0===e)return!1;for(const e of t.elements)if(!this.isValidPattern(e))return!1;return!0}{if(t.elements.filter(t=>t instanceof rt.Symbol&&"..."===t.value).length>1)return!1;const e=t.elements.findIndex(t=>t instanceof rt.Symbol&&"..."===t.value);if(-1!=e){if(0===e)return!1;if(e===t.elements.length-1)return!1}for(const e of t.elements)if(!this.isValidPattern(e))return!1;return this.isValidPattern(t.terminator)}}return t instanceof rt.Symbol||t instanceof rt.BooleanLiteral||t instanceof rt.NumericLiteral||t instanceof rt.StringLiteral||t instanceof rt.Nil}isValidTemplate(t){if(t instanceof st.List){if(void 0===t.terminator){if(0===t.elements.length)return!1;if(2===t.elements.length&&t.elements[0]instanceof rt.Symbol&&"..."===t.elements[0].value)return this.isValidTemplate(t.elements[1]);let e=!1;for(let n=0;n<t.elements.length;n++){const r=t.elements[n];if(r instanceof rt.Symbol&&"..."===r.value){if(e){e=!1;continue}return!1}if(!this.isValidTemplate(r))return!1;e=!0}return!0}{if(0===t.elements.length)return!1;let e=!1;for(let n=0;n<t.elements.length;n++){const r=t.elements[n];if(r instanceof rt.Symbol&&"..."===r.value){if(e){e=!1;continue}return!1}if(!this.isValidTemplate(r))return!1;e=!0}return this.isValidTemplate(t.terminator)}}return t instanceof rt.Symbol||t instanceof rt.BooleanLiteral||t instanceof rt.NumericLiteral||t instanceof rt.StringLiteral||t instanceof rt.Nil}parseSyntaxRules(t){if(t.length()<3)throw new Q(this.source,t.location.start,t,"(syntax-rules (<literal>*) <syntax-rule>+)");const e=t.unwrap(),n=e[1],r=e.slice(2),s=[];if(!j(n))throw new Q(this.source,n.pos,n,"(<literal>*)");this.quoteMode=it.QUOTE;for(const t of n.unwrap()){if(!Y(t))throw new Q(this.source,t.location.start,t,"<literal>");const e=this.parseExpression(t);if(!(e instanceof rt.Symbol))throw new Q(this.source,t.pos,t,"<literal>");s.push(e)}const i=[];for(const t of r){if(!j(t))throw new Q(this.source,t.pos,t,"(<pattern> <template>)");if(2!==t.length())throw new Q(this.source,t.location.start,t,"(<pattern> <template>)");const[e,n]=t.unwrap(),r=this.parseExpression(e),s=this.parseExpression(n);if(!this.isValidPattern(r))throw new Q(this.source,r.location.start,e,"<symbol> | <literal> | (<pattern>+) | (<pattern>+ ... <pattern>*) | (<pattern>+ ... <pattern>+ . <pattern>)");if(!this.isValidTemplate(s))throw new Q(this.source,s.location.start,n,"<symbol> | <literal> | (<element>+) | (<element>+ . <template>) | (... <template>)");i.push([r,s])}return this.quoteMode=it.NONE,new rt.SyntaxRules(t.location,s,i)}parseImport(t){if(3!==t.length())throw new Q(this.source,t.firstToken().pos,t.firstToken(),'(import "<source>" (<identifier>*))');const e=t.unwrap(),n=e[1],r=e[2];if(!Y(n))throw new Q(this.source,n.location.start,n,'"<source>"');if(n.type!==G.STRING)throw new Q(this.source,n.pos,n,'"<source>"');if(!j(r))throw new Q(this.source,r.pos,r,"(<identifier>*)");const s=r.unwrap(),i=[];for(const t of s){if(!Y(t))throw new Q(this.source,t.location.start,t,"<identifier>");if(t.type!==G.IDENTIFIER)throw new Q(this.source,t.pos,t,"<identifier>");i.push(new rt.Identifier(this.toLocation(t),t.lexeme))}const a=new rt.StringLiteral(this.toLocation(n),n.literal);return new rt.Import(t.location,a,i)}parseExport(t){if(2!==t.length())throw new Q(this.source,t.firstToken().pos,t.firstToken(),"(export (<definition>))");const e=t.unwrap()[1];if(!j(e))throw new Q(this.source,e.pos,e,"(<definition>)");const n=this.parseExpression(e);if(!(n instanceof rt.Definition||n instanceof st.FunctionDefinition))throw new Q(this.source,e.location.start,e,"(<definition>)");return new rt.Export(t.location,n)}parseVector(t){const e=t.unwrap()[1].unwrap().map(this.parseExpression.bind(this));return new rt.Vector(t.location,e)}parse(t=!1){t&&(this.quoteMode=it.QUOTE,this.current=0);const e=[];for(;!this.isAtEnd()&&this.peek().type!==G.EOF;){const t=this.grouping();if(!t)continue;const n=this.parseExpression(t);e.push(n)}if(this.chapter>=5&&!t){return[...e.filter(t=>t instanceof rt.Import),...this.parse(!0).filter(t=>!(t instanceof st.List&&t.elements&&t.elements[0]instanceof rt.Symbol&&"import"===t.elements[0].value))]}return e}}class ot{source;startLine;startColumn;endLine;endColumn;constructor(t,e,n,r,s){this.source=t,this.startLine=e,this.startColumn=n,this.endLine=r,this.endColumn=s}}class ct{start;end;source;constructor(t,e,n){this.start=t,this.end=e,this.source=n}}class ut{syntax;forInfo;constructor(t,e){this.syntax=t,this.forInfo=e}locationToSrcLoc(){return new ot(this.syntax.source,this.syntax.start.line,this.syntax.start.column,this.syntax.end.line,this.syntax.end.column)}toString(){return`${this.syntax.source}:${this.syntax.start.line}:${this.syntax.start.column}`}}function ht(t){return new ut(t.syntax,!1)}const lt={0:"₀",1:"₁",2:"₂",3:"₃",4:"₄",5:"₅",6:"₆",7:"₇",8:"₈",9:"₉"},pt={"₀":"0","₁":"1","₂":"2","₃":"3","₄":"4","₅":"5","₆":"6","₇":"7","₈":"8","₉":"9"};function wt(t,e){if(t.some(t=>t===e)){return ft(t,function(t){const[e,n]=dt(t,t.length-1);return[e,n]}(e))}return e}function ft(t,e){const n=function([t,e]){const n=function(t){const e=t.toString().split("").map(t=>lt[t]||t).join("");return e}(e);return t+n}(e);return t.map(t=>t.toString()).includes(n.toString())?ft(t,function(t){return[t[0],t[1]+1]}(e)):n}function yt(t){const e=t.split("").map(t=>pt[t]||t).join("");return parseInt(e,10)||1}function dt(t,e){return e<0?[t,0]:(n=t[e],Object.keys(pt).includes(n)?dt(t,e-1):[t.substring(0,e+1),yt(t.substring(e+1))]);var n}class mt{location;varName;constructor(t,e){this.location=t,this.varName=e}}class gt{binder;type;constructor(t,e){this.binder=t,this.type=e}}class vt{message;constructor(t){this.message=t}toString(){return this.message.map(t=>"string"==typeof t?t:t.prettyPrint()).join(" ")}}class Et{}class Pt extends Et{result;constructor(t){super(),this.result=t}}class Tt extends Et{where;message;constructor(t,e){super(),this.where=t,this.message=e}}class bt{name;value;constructor(t,e=null){this.name=t,this.value=e}}function Nt(t,e){for(const[e,n]of t){const r=n();if(!(r instanceof Pt))throw new Error(`Encountered stop when evaluating the sequence ${t}. Error message: ${r.message.message} at ${r.where}`);e.value=r.result}return e()}class xt{constructor(){}}class _t extends xt{env;varName;expr;constructor(t,e,n){super(),this.env=t,this.varName=e,this.expr=n}valOfClosure(t){return this.expr.valOf((e=this.env,n=this.varName,r=t,new Map([...e,[n,r]])));var e,n,r}prettyPrint(){return`(CLOS ${this.varName} ${this.expr.prettyPrint()})`}toString(){return this.prettyPrint()}}class kt extends xt{proc;constructor(t){super(),this.proc=t}valOfClosure(t){return this.proc(t)}prettyPrint(){return"(HOCLOS)"}toString(){return this.prettyPrint()}}function $t(t){return!("U"===(e=t)||"Nat"===e||"zero"===e||"add1"===e||"which-Nat"===e||"iter-Nat"===e||"rec-Nat"===e||"ind-Nat"===e||"->"===e||"→"===e||"Π"===e||"λ"===e||"Pi"===e||"∏"===e||"lambda"===e||"quote"===e||"Atom"===e||"car"===e||"cdr"===e||"cons"===e||"Σ"===e||"Sigma"===e||"Pair"===e||"Trivial"===e||"sole"===e||"List"===e||"::"===e||"nil"===e||"rec-List"===e||"ind-List"===e||"Absurd"===e||"ind-Absurd"===e||"="===e||"same"===e||"replace"===e||"trans"===e||"cong"===e||"symm"===e||"ind-="===e||"Vec"===e||"vecnil"===e||"vec::"===e||"head"===e||"tail"===e||"ind-Vec"===e||"Either"===e||"left"===e||"right"===e||"ind-Either"===e||"TODO"===e||"the"===e)&&isNaN(Number(t));var e}function St(t){return Array.from(t.keys())}function Ot(t,e){return wt(St(t),e)}function Lt(t,e,n){return wt(St(t).concat(e.findNames()),n)}function At(t){return[t.binder.varName].concat(t.type.findNames())}function It(t,e,n){return new Map([...t,[e,n]])}function Ct(t,e){return e.valOf(Mt(t))}function Bt(t){const e=new Map;for(const[n,r]of t)r instanceof Dt?e.set(n,["free",r.type.readBackType(t)]):r instanceof zt?e.set(n,["def",r.type.readBackType(t),se(t,r.type,r.value)]):r instanceof Ht&&e.set(n,["claim",r.type.readBackType(t)]);return e}function Rt(t,e,n,r){const s=new bt("typeOut");return Nt([[new bt("_"),()=>function(t,e,n){return t.has(n)?new Tt(e,new vt([`The name "${n}" is already in use in the context.`])):new Pt(!0)}(t,n,e)],[s,()=>r.isType(t,new Map)]],()=>new Pt(It(t,e,new Ht(Ct(t,s.value)))))}function qt(t,e,n,r){const s=new bt("typeOut"),i=new bt("exprOut");return Nt([[s,()=>function(t,e,n){for(const[r,s]of t)if(r===n){if(s instanceof zt)return new Tt(e,new vt([`The name "${n}" is already defined.`]));if(s instanceof Ht)return new Pt(s.type)}return new Tt(e,new vt([`No claim: ${n}`]))}(t,n,e)],[i,()=>r.check(t,new Map,s.value)]],()=>new Pt(function(t,e,n,r){return It(t,e,new zt(n,r))}(function(t,e){return t.delete(e),t}(t,e),e,s.value,Ct(t,i.value))))}function Mt(t){if(0===t.size)return new Map;const e=t.entries(),n=new Map;for(const[t,r]of e)r instanceof zt?n.set(t,r.value):r instanceof Dt&&n.set(t,new tn(r.type,new oe(t)));return n}const Gt=new Map;class Ut{}let Ht=class extends Ut{type;constructor(t){super(),this.type=t}};class zt extends Ut{type;value;constructor(t,e){super(),this.type=t,this.value=e}}class Dt extends Ut{type;constructor(t){super(),this.type=t}}function Ft(t,e,n){if(0===t.size)throw new Error(`The context ${JSON.stringify(t)} is empty, but we are looking for ${n}`);for(const[e,r]of t.entries())if(!(r instanceof Ht)&&n===e)return new Pt(r.type);throw new Error(`Unknown variable ${n}`)}function Qt(t,e,n){if(t.has(e)){for(const[r,s]of t)if(r===e)return It(t,e,new Dt(n));throw new Error(`\n      ${e} is already bound in ${JSON.stringify(t)}\n    `)}return It(t,e,new Dt(n))}function Vt(t,e){const n=t.now();if(n instanceof Ue)return n.body.valOfClosure(e);if(n instanceof tn){const t=n.type.now();if(t instanceof Ge)return new tn(t.resultType.valOfClosure(e),new Oe(n.neutral,new ie(t.argType,e)))}throw new Error(`doApp: invalid input ${[n,e]}`)}function Xt(t,e,n,r){const s=t.now();if(s instanceof qe)return n;if(s instanceof Me)return Vt(r,Xt(s.smaller,e,n,r));if(s instanceof tn){if(s.type.now()instanceof Re)return new tn(e,new he(s.neutral,new ie(e,n),new ie(new Ge("n",new Re,new kt(t=>e)),r)))}throw new Error(`invalid input for iterNat ${[t,e,n,r]}`)}function Kt(t,e,n,r){const s=t.now();if(s instanceof qe)return n;if(s instanceof Me)return Vt(Vt(r,s.smaller),Kt(s.smaller,e,n,r));if(s instanceof tn){if(s.type.now()instanceof Re)return new tn(e,new le(s.neutral,new ie(e,n),new ie(new Ge("n-1",new Re,new kt(t=>new Ge("ih",e,new kt(t=>e)))),r)))}throw new Error(`invalid input for recNat ${[t,e,n,r]}`)}function Yt(t,e,n,r){const s=t.now();if(s instanceof qe)return n;if(s instanceof Me)return Vt(Vt(r,s.smaller),Yt(s.smaller,e,n,r));if(s instanceof tn){if(s.type.now()instanceof Re)return new tn(Vt(e,t),new pe(s.neutral,new ie(new Ge("x",new Re,new kt(t=>new en)),e),new ie(Vt(e,new qe),n),new ie(new Ge("n-1",new Re,new kt(t=>new Ge("ih",Vt(e,t),new kt(n=>Vt(e,new Me(t)))))),r)))}throw new Error(`invalid input for indNat ${[t,e,n,r]}`)}function jt(t){const e=t.now();if(e instanceof ze)return e.car;if(e instanceof tn){const t=e.type.now();if(t instanceof He){const n=t,r=e.neutral;return new tn(n.carType,new we(r))}}throw new Error(`invalid input for car ${t}`)}function Zt(t){const e=t.now();if(e instanceof ze)return e.cdr;if(e instanceof tn){const n=e.type.now();if(n instanceof He){const r=n,s=e.neutral;return new tn(r.cdrType.valOfClosure(jt(t)),new fe(s))}}throw new Error(`invalid input for cdr ${t}`)}function Wt(t,e,n,r){const s=t.now();if(s instanceof Fe)return n;if(s instanceof Qe)return Vt(Vt(Vt(r,s.head),s.tail),Wt(s.tail,e,n,r));if(s instanceof tn){const i=s.type.now();if(i instanceof De){const a=i.entryType,o=s.neutral,c=new Ge("xs",new De(a),new kt(t=>new en));return new tn(Vt(e,t),new de(o,new ie(c,e),new ie(Vt(e,new Fe),n),new ie(new Ge("h",a,new kt(t=>new Ge("t",new De(a),new kt(n=>new Ge("ih",Vt(e,n),new kt(r=>Vt(e,new Qe(t,n)))))))),r)))}}throw new Error(`invalid input for indList ${[s,e,n,r]}`)}function Jt(t,e,n,r){const s=t.now();if(s instanceof Fe)return n;if(s instanceof Qe){const t=s.head,i=s.tail;return Vt(Vt(Vt(r,t),i),Jt(i,e,n,r))}if(s instanceof tn){const t=s.type.now();if(t instanceof De){const i=t.entryType,a=s.neutral;return new tn(e,new ye(a,new ie(e,n),new ie(new Ge("h",i,new kt(t=>new Ge("t",new De(i),new kt(t=>new Ge("ih",e,new kt(t=>e)))))),r)))}}throw new Error(`invalid input for recList ${[s,e,n,r]}`)}function te(t){const e=t.now();if(e instanceof je)return e.tail;if(e instanceof tn&&e.type.now()instanceof Ke&&e.type.now().length.now()instanceof Me){const t=e.type.now();if(t instanceof Ke){if(t.length.now()instanceof Me)return new tn(new Ke(e.type.now().entryType,e.type.now().length.now().smaller),new _e(e.neutral))}}throw new Error(`invalid input for tail ${t.prettyPrint()}`)}function ee(t,e){return new Ge("k",new Re,new kt(n=>new Ge("e",t,new kt(r=>new Ge("es",new Ke(t,n),new kt(t=>new Ge("ih",Vt(Vt(e,n),t),new kt(s=>Vt(Vt(e,new Me(n)),new je(r,t))))))))))}function ne(t,e,n,r,s){const i=t.now(),a=e.now();if(i instanceof qe&&a instanceof Ye)return r;if(i instanceof Me&&a instanceof je)return Vt(Vt(Vt(Vt(s,i.smaller),a.head),te(e)),ne(i.smaller,a.tail,n,r,s));if(i instanceof tn&&a instanceof tn&&i.type.now()instanceof Re&&a.type.now()instanceof Ke){const o=a.type.now().entryType;return new tn(Vt(Vt(n,t),e),new $e(i.neutral,a.neutral,new ie(new Ge("k",new Re,new kt(t=>new Ge("es",new Ke(o,t),new kt(t=>new en)))),n),new ie(Vt(Vt(n,new qe),new Ye),r),new ie(ee(a.type.now().entryType,n),s)))}if(re(i,t)&&a instanceof tn&&a.type.now()instanceof Ke){const i=a.type.now().entryType;return new tn(Vt(Vt(n,t),e),new ke(new ie(new Re,t),a.neutral,new ie(new Ge("k",new Re,new kt(t=>new Ge("es",new Ke(i,t),new kt(t=>new en)))),n),new ie(Vt(Vt(n,new Re),new Ye),r),new ie(ee(i,n),s)))}throw new Error(`invalid input for indVec ${[t,e,n,r,s]}`)}function re(t,e){const n=t.now(),r=e.now();return n instanceof qe&&r instanceof qe||n instanceof Me&&r instanceof Me&&re(n.smaller,r.smaller)}function se(t,e,n){const r=e.now(),s=n.now();if(r instanceof en)return n.readBackType(t);if(r instanceof Re&&s instanceof qe)return new ln;if(r instanceof Re&&s instanceof Me)return new pn(se(t,new Re,s.smaller));if(r instanceof Ge){const e=Ot(t,s instanceof Ue?s.argName:r.argName);return new gn(e,se(Qt(t,e,r.argType),r.resultType.valOfClosure(new tn(r.argType,new oe(e))),Vt(s,new tn(r.argType,new oe(e)))))}if(r instanceof He){const e=jt(n),s=Zt(n);return new Tn(se(t,r.carType,e),se(t,r.cdrType.valOfClosure(e),s))}if(r instanceof nn&&s instanceof Be)return new En(s.name);if(r instanceof rn)return new Ln;if(r instanceof De&&s instanceof Fe)return new _n;if(r instanceof De&&s instanceof Qe)return new Tn(se(t,r.entryType,s.head),se(t,new De(r.entryType),s.tail));if(r instanceof an&&s instanceof tn)return new cn(new An,s.neutral.readBackNeutral(t));if(r instanceof Ve&&s instanceof Xe)return new Bn(se(t,r.type,s.value));if(r instanceof Ke&&r.length.now()instanceof qe&&s instanceof Ye)return new Dn;if(r instanceof Ke&&r.length.now()instanceof Me&&s instanceof je)return r.length.now(),new zn(se(t,r.entryType,s.head),se(t,new Ke(r.entryType,r.length.now().smaller),s.tail));if(r instanceof Ze&&s instanceof We)return new Kn(se(t,r.leftType,s.value));if(r instanceof Ze&&s instanceof Je)return new Yn(se(t,r.rightType,s.value));if(s instanceof tn)return s.neutral.readBackNeutral(t);throw new Error(`Cannot read back ${s.prettyPrint()} : ${r.prettyPrint()}`)}class ie{type;value;constructor(t,e){this.type=t,this.value=e}}let ae=class{constructor(){}toString(){return this.prettyPrint()}};class oe extends ae{name;constructor(t){super(),this.name=t}readBackNeutral(t){return new Jn(this.name)}prettyPrint(){return`N-${this.name}`}}let ce=class extends ae{where;type;constructor(t,e){super(),this.where=t,this.type=e}readBackNeutral(t){return new Zn(this.where,this.type.readBackType(t))}prettyPrint(){return"N-TODO"}},ue=class extends ae{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new wn(this.target.readBackNeutral(t),new cn(this.base.type.readBackType(t),se(t,this.base.type,this.base.value)),se(t,this.step.type,this.step.value))}prettyPrint(){return"N-WhichNat"}},he=class extends ae{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new fn(this.target.readBackNeutral(t),new cn(this.base.type.readBackType(t),se(t,this.base.type,this.base.value)),se(t,this.step.type,this.step.value))}prettyPrint(){return"N-IterNat"}},le=class extends ae{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new yn(this.target.readBackNeutral(t),new cn(this.base.type.readBackType(t),se(t,this.base.type,this.base.value)),se(t,this.step.type,this.step.value))}prettyPrint(){return"N-RecNat"}},pe=class extends ae{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}readBackNeutral(t){return new dn(this.target.readBackNeutral(t),se(t,this.motive.type,this.motive.value),se(t,this.base.type,this.base.value),se(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndNat"}},we=class extends ae{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new bn(this.target.readBackNeutral(t))}prettyPrint(){return"N-Car"}},fe=class extends ae{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Nn(this.target.readBackNeutral(t))}prettyPrint(){return"N-Cdr"}},ye=class extends ae{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}readBackNeutral(t){return new $n(this.target.readBackNeutral(t),new cn(this.base.type.readBackType(t),se(t,this.base.type,this.base.value)),se(t,this.step.type,this.step.value))}prettyPrint(){return"N-RecList"}},de=class extends ae{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}readBackNeutral(t){return new Sn(this.target.readBackNeutral(t),se(t,this.motive.type,this.motive.value),se(t,this.base.type,this.base.value),se(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndList"}},me=class extends ae{target;motive;constructor(t,e){super(),this.target=t,this.motive=e}readBackNeutral(t){return new In(new cn(new An,this.target.readBackNeutral(t)),se(t,this.motive.type,this.motive.value))}prettyPrint(){return"N-IndAbsurd"}},ge=class extends ae{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}readBackNeutral(t){return new Rn(this.target.readBackNeutral(t),se(t,this.motive.type,this.motive.value),se(t,this.base.type,this.base.value))}prettyPrint(){return"N-Replace"}};class ve extends ae{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new qn(this.target1.readBackNeutral(t),se(t,this.target2.type,this.target2.value))}prettyPrint(){return"N-Trans1"}}class Ee extends ae{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new qn(se(t,this.target1.type,this.target1.value),this.target2.readBackNeutral(t))}prettyPrint(){return"N-Trans2"}}class Pe extends ae{target1;target2;constructor(t,e){super(),this.target1=t,this.target2=e}readBackNeutral(t){return new qn(this.target1.readBackNeutral(t),this.target2.readBackNeutral(t))}prettyPrint(){return"N-Trans12"}}let Te=class extends ae{target;func;constructor(t,e){super(),this.target=t,this.func=e}readBackNeutral(t){const e=this.func.type;if(e instanceof Ge){const n=e.resultType;return new Mn(this.target.readBackNeutral(t),n.valOfClosure(new an).readBackType(t),se(t,this.func.type,this.func.value))}throw new Error("Cong applied to non-Pi type.")}prettyPrint(){return"N-Cong"}},be=class extends ae{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Gn(this.target.readBackNeutral(t))}prettyPrint(){return"N-Symm"}},Ne=class extends ae{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}readBackNeutral(t){return new Un(this.target.readBackNeutral(t),se(t,this.motive.type,this.motive.value),se(t,this.base.type,this.base.value))}prettyPrint(){return"N-IndEqual"}},xe=class extends ae{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Fn(this.target.readBackNeutral(t))}prettyPrint(){return"N-Head"}},_e=class extends ae{target;constructor(t){super(),this.target=t}readBackNeutral(t){return new Qn(this.target.readBackNeutral(t))}prettyPrint(){return"N-Tail"}};class ke extends ae{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}readBackNeutral(t){return new Vn(se(t,this.length.type,this.length.value),this.target.readBackNeutral(t),se(t,this.motive.type,this.motive.value),se(t,this.base.type,this.base.value),se(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndVec2"}}class $e extends ae{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}readBackNeutral(t){return new Vn(this.length.readBackNeutral(t),this.target.readBackNeutral(t),se(t,this.motive.type,this.motive.value),se(t,this.base.type,this.base.value),se(t,this.step.type,this.step.value))}prettyPrint(){return"N-IndVec12"}}let Se=class extends ae{target;motive;baseLeft;baseRight;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.baseLeft=n,this.baseRight=r}readBackNeutral(t){return new jn(this.target.readBackNeutral(t),se(t,this.motive.type,this.motive.value),se(t,this.baseLeft.type,this.baseLeft.value),se(t,this.baseRight.type,this.baseRight.value))}prettyPrint(){return"N-IndEither"}},Oe=class extends ae{operator;operand;constructor(t,e){super(),this.operator=t,this.operand=e}readBackNeutral(t){return new Wn(this.operator.readBackNeutral(t),se(t,this.operand.type,this.operand.value))}prettyPrint(){return"N-Application"}};class Le{now(){return this}}class Ae{env;expr;constructor(t,e){this.env=t,this.expr=e}undelay(){return this.expr.valOf(this.env).now()}toString(){return`DelayClosure(${this.env}, ${this.expr})`}}class Ie{content;constructor(t){this.content=t}get(){return this.content}set(t){this.content=t}}class Ce extends Le{val;constructor(t){super(),this.val=t}now(){const t=this.val.get();if(t instanceof Ae){const e=t.undelay();return this.val.set(e),e}return t}readBackType(t){return this.now().readBackType(t)}prettyPrint(){return this.now().prettyPrint()}toString(){return`Delay(${this.val})`}}let Be=class extends Le{name;constructor(t){super(),this.name=t}readBackType(t){throw new Error("No readBackType for Quote.")}prettyPrint(){return`'${this.name}`}toString(){return this.prettyPrint()}},Re=class extends Le{constructor(){super()}readBackType(t){return new hn}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}},qe=class extends Le{constructor(){super()}readBackType(t){throw new Error("No readBackType for Zero.")}prettyPrint(){return"zero"}toString(){return this.prettyPrint()}},Me=class extends Le{smaller;constructor(t){super(),this.smaller=t}readBackType(t){throw new Error("No readBackType for Add1.")}prettyPrint(){return`(add1 ${this.smaller.prettyPrint()})`}toString(){return this.prettyPrint()}},Ge=class extends Le{argName;argType;resultType;constructor(t,e,n){super(),this.argName=t,this.argType=e,this.resultType=n}readBackType(t){const e=this.argType.readBackType(t),n=Ot(t,this.argName),r=Qt(t,n,this.argType);return new mn(n,e,this.resultType.valOfClosure(new tn(this.argType,new oe(n))).readBackType(r))}prettyPrint(){return`(Π ${this.argName} ${this.argType.prettyPrint()} ${this.resultType.prettyPrint()})`}toString(){return this.prettyPrint()}},Ue=class extends Le{argName;body;constructor(t,e){super(),this.argName=t,this.body=e}readBackType(t){throw new Error("No readBackType for Lambda.")}prettyPrint(){return`(lambda ${this.argName} ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},He=class extends Le{carName;carType;cdrType;constructor(t,e,n){super(),this.carName=t,this.carType=e,this.cdrType=n}readBackType(t){const e=this.carType.readBackType(t),n=Ot(t,this.carName),r=Qt(t,n,this.carType);return new Pn(n,e,this.cdrType.valOfClosure(new tn(this.carType,new oe(n))).readBackType(r))}prettyPrint(){return`(Σ ${this.carName} ${this.carType.prettyPrint()} ${this.cdrType.prettyPrint()})`}toString(){return this.prettyPrint()}},ze=class extends Le{car;cdr;constructor(t,e){super(),this.car=t,this.cdr=e}readBackType(t){throw new Error("No readBackType for Cons.")}prettyPrint(){return`(cons ${this.car.prettyPrint()} ${this.cdr.prettyPrint()})`}toString(){return this.prettyPrint()}},De=class extends Le{entryType;constructor(t){super(),this.entryType=t}readBackType(t){return new kn(this.entryType.readBackType(t))}prettyPrint(){return`(List ${this.entryType.prettyPrint()})`}toString(){return this.prettyPrint()}},Fe=class extends Le{constructor(){super()}readBackType(t){throw new Error("No readBackType for Nil.")}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}},Qe=class extends Le{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}readBackType(t){throw new Error("No readBackType for ListCons.")}prettyPrint(){return`(:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Ve=class extends Le{type;from;to;constructor(t,e,n){super(),this.type=t,this.from=e,this.to=n}readBackType(t){return new Cn(this.type.readBackType(t),se(t,this.type,this.from),se(t,this.type,this.to))}prettyPrint(){return`(= ${this.type.prettyPrint()} ${this.from.prettyPrint()} ${this.to.prettyPrint()})`}toString(){return this.prettyPrint()}},Xe=class extends Le{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Same.")}prettyPrint(){return`(same ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},Ke=class extends Le{entryType;length;constructor(t,e){super(),this.entryType=t,this.length=e}readBackType(t){return new Hn(this.entryType.readBackType(t),se(t,new Re,this.length))}prettyPrint(){return`(Vec ${this.entryType.prettyPrint()} ${this.length.prettyPrint()})`}},Ye=class extends Le{constructor(){super()}readBackType(t){throw new Error("No readBackType for VecNil.")}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}},je=class extends Le{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}readBackType(t){throw new Error("No readBackType for VecCons.")}prettyPrint(){return`(vec:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Ze=class extends Le{leftType;rightType;constructor(t,e){super(),this.leftType=t,this.rightType=e}readBackType(t){return new Xn(this.leftType.readBackType(t),this.rightType.readBackType(t))}prettyPrint(){return`(Either ${this.leftType.prettyPrint()} ${this.rightType.prettyPrint()})`}toString(){return this.prettyPrint()}},We=class extends Le{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Left.")}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},Je=class extends Le{value;constructor(t){super(),this.value=t}readBackType(t){throw new Error("No readBackType for Right.")}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}};class tn extends Le{type;neutral;constructor(t,e){super(),this.type=t,this.neutral=e}readBackType(t){return this.neutral.readBackNeutral(t)}prettyPrint(){return`(Neutral ${this.type.prettyPrint()} ${this.neutral.prettyPrint()})`}toString(){return this.prettyPrint()}}let en=class extends Le{constructor(){super()}readBackType(t){return new un}prettyPrint(){return"U"}toString(){return this.prettyPrint()}},nn=class extends Le{constructor(){super()}readBackType(t){return new vn}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}},rn=class extends Le{constructor(){super()}readBackType(t){return new On}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}},sn=class extends Le{constructor(){super()}readBackType(t){throw new Error("No readBackType for Sole.")}prettyPrint(){return"sole"}toString(){return this.prettyPrint()}},an=class extends Le{constructor(){super()}readBackType(t){return new An}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}};class on{toLazy(t){return new Ce(new Ie(new Ae(t,this)))}}let cn=class extends on{type;expr;constructor(t,e){super(),this.type=t,this.expr=e}valOf(t){return this.expr.valOf(t)}prettyPrint(){return`(the ${this.type.prettyPrint()} ${this.expr.prettyPrint()})`}toString(){return this.prettyPrint()}},un=class extends on{valOf(t){return new en}prettyPrint(){return"U"}toString(){return this.prettyPrint()}},hn=class extends on{valOf(t){return new Re}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}},ln=class extends on{valOf(t){return new qe}prettyPrint(){return"0"}toString(){return this.prettyPrint()}},pn=class extends on{n;constructor(t){super(),this.n=t}valOf(t){return new Me(this.n.toLazy(t))}prettyPrint(){const t=Number(this.n.prettyPrint());return isNaN(t)?`(add1 ${this.n.prettyPrint()})`:`${t+1}`}toString(){return this.prettyPrint()}},wn=class extends on{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return function(t,e,n,r){const s=t.now();if(s instanceof qe)return n;if(s instanceof Me)return Vt(r,s.smaller);if(s instanceof tn&&s.type.now()instanceof Re)return new tn(e,new ue(s.neutral,new ie(e,n),new ie(new Ge("n",new Re,new kt(t=>e)),r)));throw new Error(`invalid input for whichNat ${[t,e,n,r]}`)}(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(which-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},fn=class extends on{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return Xt(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(iter-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},yn=class extends on{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return Kt(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(rec-Nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},dn=class extends on{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}valOf(t){return Yt(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(ind-Nat ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},mn=class extends on{name;type;body;constructor(t,e,n){super(),this.name=t,this.type=e,this.body=n}valOf(t){const e=this.type.toLazy(t);return new Ge(this.name,e,new _t(t,this.name,this.body))}prettyPrint(){return`(Π (${this.name} ${this.type.prettyPrint()}) \n          ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},gn=class extends on{param;body;constructor(t,e){super(),this.param=t,this.body=e}valOf(t){return new Ue(this.param,new _t(t,this.param,this.body))}prettyPrint(){return`(λ (${this.param}) ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},vn=class extends on{valOf(t){return new nn}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}},En=class extends on{sym;constructor(t){super(),this.sym=t}valOf(t){return new Be(this.sym)}prettyPrint(){return`'${this.sym}`}toString(){return this.prettyPrint()}},Pn=class extends on{name;type;body;constructor(t,e,n){super(),this.name=t,this.type=e,this.body=n}valOf(t){const e=this.type.toLazy(t);return new He(this.name,e,new _t(t,this.name,this.body))}prettyPrint(){return`(Σ (${this.name} ${this.type.prettyPrint()}) \n              ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}},Tn=class extends on{first;second;constructor(t,e){super(),this.first=t,this.second=e}valOf(t){const e=this.first.toLazy(t),n=this.second.toLazy(t);return new ze(e,n)}prettyPrint(){return`(cons ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}},bn=class extends on{pair;constructor(t){super(),this.pair=t}valOf(t){return jt(this.pair.toLazy(t))}prettyPrint(){return`(car ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}},Nn=class extends on{pair;constructor(t){super(),this.pair=t}valOf(t){return Zt(this.pair.toLazy(t))}prettyPrint(){return`(cdr ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}},xn=class extends on{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}valOf(t){const e=this.head.toLazy(t),n=this.tail.toLazy(t);return new Qe(e,n)}prettyPrint(){return`(:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},_n=class extends on{valOf(t){return new Fe}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}},kn=class extends on{elemType;constructor(t){super(),this.elemType=t}valOf(t){return new De(this.elemType.toLazy(t))}prettyPrint(){return`(List ${this.elemType.prettyPrint()})`}toString(){return this.prettyPrint()}},$n=class extends on{target;base;step;constructor(t,e,n){super(),this.target=t,this.base=e,this.step=n}valOf(t){return Jt(this.target.toLazy(t),this.base.type.toLazy(t),this.base.expr.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(rec-List ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},Sn=class extends on{target;motive;base;step;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.base=n,this.step=r}valOf(t){return Wt(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`(ind-List ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}},On=class extends on{valOf(t){return new rn}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}},Ln=class extends on{valOf(t){return new sn}prettyPrint(){return"sole"}toString(){return this.prettyPrint()}},An=class extends on{valOf(t){return new an}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}},In=class extends on{target;motive;constructor(t,e){super(),this.target=t,this.motive=e}valOf(t){return function(t,e){const n=t.now();if(n instanceof tn&&n.type.now()instanceof an)return new tn(e,new me(n.neutral,new ie(new en,e)));throw new Error(`invalid input for indAbsurd ${[t,e]}`)}(this.target.toLazy(t),this.motive.toLazy(t))}prettyPrint(){return`(ind-Absurd \n              ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()})`}toString(){return this.prettyPrint()}},Cn=class extends on{type;left;right;constructor(t,e,n){super(),this.type=t,this.left=e,this.right=n}valOf(t){return new Ve(this.type.toLazy(t),this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(= ${this.type.prettyPrint()} \n              ${this.left.prettyPrint()} \n              ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},Bn=class extends on{type;constructor(t){super(),this.type=t}valOf(t){return new Xe(this.type.toLazy(t))}prettyPrint(){return`(same ${this.type.prettyPrint()})`}toString(){return this.prettyPrint()}},Rn=class extends on{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof Xe)return n;if(r instanceof tn){const t=r.type.now();if(t instanceof Ve){const s=r.neutral,i=t.type,a=t.from,o=t.to;return new tn(Vt(e,o),new ge(s,new ie(new Ge("x",i,new kt(t=>new en)),e),new ie(Vt(e,a),n)))}}throw new Error(`invalid input for replace ${[t,e,n]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t))}prettyPrint(){return`(replace ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}},qn=class extends on{left;right;constructor(t,e){super(),this.left=t,this.right=e}valOf(t){return function(t,e){const n=t.now(),r=e.now();if(n instanceof Xe&&r instanceof Xe)return new Xe(n.value);if(n instanceof Xe&&r instanceof tn){const t=r.type.now();if(t instanceof Ve){const e=n.value,s=t.to,i=t.type,a=r.neutral;return new tn(new Ve(i,e,s),new Ee(new ie(new Ve(i,e,e),new Xe(e)),a))}}else if(n instanceof tn&&r instanceof Xe){const t=n.type.now();if(t instanceof Ve){const e=t.from,s=r.value,i=t.type,a=n.neutral;return new tn(new Ve(i,e,s),new ve(a,new ie(new Ve(i,s,s),new Xe(s))))}}else if(n instanceof tn&&r instanceof tn){const t=n.type.now(),e=r.type.now();if(t instanceof Ve&&e instanceof Ve){const s=t.from,i=e.to,a=t.type,o=n.neutral,c=r.neutral;return new tn(new Ve(a,s,i),new Pe(o,c))}}throw new Error(`invalid input for do-trans: ${[t,e]}`)}(this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(trans ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},Mn=class extends on{target;base;fun;constructor(t,e,n){super(),this.target=t,this.base=e,this.fun=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof Xe)return new Xe(Vt(n,r.value));if(r instanceof tn){const t=r.type.now();if(t instanceof Ve){const s=t.type,i=t.from,a=t.to,o=r.neutral;return new tn(new Ve(e,Vt(n,i),Vt(n,a)),new Te(o,new ie(new Ge("x",s,new kt(t=>e)),n)))}}throw new Error(`invalid input for cong ${[t,e,n]}`)}(this.target.toLazy(t),this.base.toLazy(t),this.fun.toLazy(t))}prettyPrint(){return`(cong ${this.target.prettyPrint()} ${this.fun.prettyPrint()})`}toString(){return this.prettyPrint()}},Gn=class extends on{equality;constructor(t){super(),this.equality=t}valOf(t){return function(t){const e=t.now();if(e instanceof Xe)return new Xe(e.value);if(e instanceof tn){const t=e.type.now();if(t instanceof Ve)return new tn(new Ve(t.type,t.to,t.from),new be(e.neutral))}throw new Error(`invalid input for symm ${t}`)}(this.equality.toLazy(t))}prettyPrint(){return`(symm ${this.equality.prettyPrint()})`}toString(){return this.prettyPrint()}},Un=class extends on{target;motive;base;constructor(t,e,n){super(),this.target=t,this.motive=e,this.base=n}valOf(t){return function(t,e,n){const r=t.now();if(r instanceof Xe)return n;if(r instanceof tn){const s=r.type.now();if(s instanceof Ve){const i=s.type,a=s.from,o=s.to,c=r.neutral;return new tn(Vt(Vt(e,o),t),new Ne(c,new ie(new Ge("to",i,new kt(t=>new Ge("p",new Ve(i,a,t),new kt(t=>new en)))),e),new ie(Vt(Vt(e,a),new Xe(a)),n)))}}throw new Error(`invalid input for indEqual ${[t,e,n]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t))}prettyPrint(){return`(ind-= ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}},Hn=class extends on{type;length;constructor(t,e){super(),this.type=t,this.length=e}valOf(t){return new Ke(this.type.toLazy(t),this.length.toLazy(t))}prettyPrint(){return`(Vec ${this.type.prettyPrint()} ${this.length.prettyPrint()})`}toString(){return this.prettyPrint()}},zn=class extends on{head;tail;constructor(t,e){super(),this.head=t,this.tail=e}valOf(t){return new je(this.head.toLazy(t),this.tail.toLazy(t))}prettyPrint(){return`(vec:: ${this.head.prettyPrint()} ${this.tail.prettyPrint()})`}toString(){return this.prettyPrint()}},Dn=class extends on{valOf(t){return new Ye}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}},Fn=class extends on{vec;constructor(t){super(),this.vec=t}valOf(t){return function(t){const e=t.now();if(e instanceof je)return e.head;if(e instanceof tn){const t=e.type.now();if(t instanceof Ke&&t.length.now()instanceof Me)return new tn(t.entryType,new xe(e.neutral))}throw new Error(`invalid input for head ${t}`)}(this.vec.toLazy(t))}prettyPrint(){return`(head ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}},Qn=class extends on{vec;constructor(t){super(),this.vec=t}valOf(t){return te(this.vec.toLazy(t))}prettyPrint(){return`(tail ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}},Vn=class extends on{length;target;motive;base;step;constructor(t,e,n,r,s){super(),this.length=t,this.target=e,this.motive=n,this.base=r,this.step=s}valOf(t){return ne(this.length.toLazy(t),this.target.toLazy(t),this.motive.toLazy(t),this.base.toLazy(t),this.step.toLazy(t))}prettyPrint(){return`ind-Vec ${this.length.prettyPrint()}\n              ${this.target.prettyPrint()}\n              ${this.motive.prettyPrint()}\n              ${this.base.prettyPrint()}\n              ${this.step.prettyPrint()}`}toString(){return this.prettyPrint()}},Xn=class extends on{left;right;constructor(t,e){super(),this.left=t,this.right=e}valOf(t){return new Ze(this.left.toLazy(t),this.right.toLazy(t))}prettyPrint(){return`(Either ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}},Kn=class extends on{value;constructor(t){super(),this.value=t}valOf(t){return new We(this.value.toLazy(t))}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},Yn=class extends on{value;constructor(t){super(),this.value=t}valOf(t){return new Je(this.value.toLazy(t))}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}},jn=class extends on{target;motive;baseLeft;baseRight;constructor(t,e,n,r){super(),this.target=t,this.motive=e,this.baseLeft=n,this.baseRight=r}valOf(t){return function(t,e,n,r){const s=t.now();if(s instanceof We)return Vt(n,s.value);if(s instanceof Je)return Vt(r,s.value);if(s instanceof tn){const i=s.type.now();if(i instanceof Ze){const a=i.leftType,o=i.rightType,c=new Ge("x",new Ze(a,o),new kt(t=>new en));return new tn(Vt(e,t),new Se(s.neutral,new ie(c,e),new ie(new Ge("x",a,new kt(t=>Vt(e,new We(t)))),n),new ie(new Ge("x",o,new kt(t=>Vt(e,new Je(t)))),r)))}}throw new Error(`invalid input for indEither: ${[t,e,n,r]}`)}(this.target.toLazy(t),this.motive.toLazy(t),this.baseLeft.toLazy(t),this.baseRight.toLazy(t))}prettyPrint(){return`(ind-Either ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.baseLeft.prettyPrint()} \n              ${this.baseRight.prettyPrint()})`}toString(){return this.prettyPrint()}},Zn=class extends on{loc;type;constructor(t,e){super(),this.loc=t,this.type=e}valOf(t){return new tn(this.type.toLazy(t),new ce(this.loc,this.type.toLazy(t)))}prettyPrint(){return`TODO ${this.type.prettyPrint()}`}toString(){return this.prettyPrint()}},Wn=class extends on{fun;arg;constructor(t,e){super(),this.fun=t,this.arg=e}valOf(t){return Vt(this.fun.toLazy(t),this.arg.toLazy(t))}prettyPrint(){return`(${this.fun.prettyPrint()} ${this.arg.prettyPrint()})`}toString(){return this.prettyPrint()}};class Jn extends on{name;constructor(t){super(),this.name=t}valOf(t){if($t(this.name))return function(t,e){if(t.has(e))return t.get(e);throw new Error(`Variable ${e} not found in environment`)}(t,this.name);throw new Error("{this.name} is not a valid variable name")}prettyPrint(){return this.name}toString(){return this.prettyPrint()}}function tr(t,e){return sr(0,new Map,new Map,t,e)}const er=-1;function nr(t,e,n){return t.set(e,n)}function rr(t,e){return e.has(t)?e.get(t):er}function sr(t,e,n,r,s){if(r instanceof Jn&&s instanceof Jn){const t=r.name,i=s.name;if($t(t)&&$t(i)){const r=rr(t,e),s=rr(i,n);return r!==er&&s!==er?r===s:r===er&&s===er&&t===i}return!1}return r instanceof En&&s instanceof En?r.sym===s.sym:r instanceof mn&&s instanceof mn||r instanceof Pn&&s instanceof Pn?sr(t,e,n,r.type,s.type)&&sr(t+1,nr(e,r.name,t),nr(n,s.name,t),r.body,s.body):r instanceof gn&&s instanceof gn?sr(t+1,nr(e,r.param,t),nr(n,s.param,t),r.body,s.body):r instanceof cn&&s instanceof cn&&r.type instanceof An&&s.type instanceof An||(r instanceof Wn&&s instanceof Wn?sr(t,e,n,r.fun,s.fun)&&sr(t,e,n,r.arg,s.arg):r instanceof un&&s instanceof un||r instanceof hn&&s instanceof hn||r instanceof ln&&s instanceof ln||r instanceof vn&&s instanceof vn||r instanceof An&&s instanceof An||r instanceof Ln&&s instanceof Ln||r instanceof _n&&s instanceof _n||r instanceof Dn&&s instanceof Dn||r instanceof On&&s instanceof On||(r instanceof cn&&s instanceof cn?sr(t,e,n,r.type,s.type)&&sr(t,e,n,r.expr,s.expr):r instanceof kn&&s instanceof kn?sr(t,e,n,r.elemType,s.elemType):r instanceof pn&&s instanceof pn?sr(t,e,n,r.n,s.n):r instanceof wn&&s instanceof wn||r instanceof fn&&s instanceof fn||r instanceof yn&&s instanceof yn?sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.base,s.base)&&sr(t,e,n,r.step,s.step):r instanceof dn&&s instanceof dn?sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.motive,s.motive)&&sr(t,e,n,r.base,s.base)&&sr(t,e,n,r.step,s.step):r instanceof Tn&&s instanceof Tn?sr(t,e,n,r.first,s.first)&&sr(t,e,n,r.second,s.second):r instanceof bn&&s instanceof bn||r instanceof Nn&&s instanceof Nn?sr(t,e,n,r.pair,s.pair):r instanceof xn&&s instanceof xn?sr(t,e,n,r.head,s.head)&&sr(t,e,n,r.tail,s.tail):r instanceof $n&&s instanceof $n?sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.base,s.base)&&sr(t,e,n,r.step,s.step):r instanceof Sn&&s instanceof Sn?sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.motive,s.motive)&&sr(t,e,n,r.base,s.base)&&sr(t,e,n,r.step,s.step):r instanceof In&&s instanceof In?sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.motive,s.motive):r instanceof Cn&&s instanceof Cn?sr(t,e,n,r.type,s.type)&&sr(t,e,n,r.left,s.left)&&sr(t,e,n,r.right,s.right):r instanceof Bn&&s instanceof Bn?sr(t,e,n,r.type,s.type):r instanceof Rn&&s instanceof Rn?sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.motive,s.motive)&&sr(t,e,n,r.base,s.base):r instanceof qn&&s instanceof qn?sr(t,e,n,r.left,s.left)&&sr(t,e,n,r.right,s.right):r instanceof Mn&&s instanceof Mn?sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.base,s.base)&&sr(t,e,n,r.fun,s.fun):r instanceof Gn&&s instanceof Gn?sr(t,e,n,r.equality,s.equality):r instanceof Un&&s instanceof Un?sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.motive,s.motive)&&sr(t,e,n,r.base,s.base):r instanceof Hn&&s instanceof Hn?sr(t,e,n,r.type,s.type)&&sr(t,e,n,r.length,s.length):r instanceof zn&&s instanceof zn?sr(t,e,n,r.head,s.head)&&sr(t,e,n,r.tail,s.tail):r instanceof Fn&&s instanceof Fn||r instanceof Qn&&s instanceof Qn?sr(t,e,n,r.vec,s.vec):r instanceof Vn&&s instanceof Vn?sr(t,e,n,r.length,s.length)&&sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.motive,s.motive)&&sr(t,e,n,r.base,s.base)&&sr(t,e,n,r.step,s.step):r instanceof Xn&&s instanceof Xn?sr(t,e,n,r.left,s.left)&&sr(t,e,n,r.right,s.right):r instanceof Kn&&s instanceof Kn||r instanceof Yn&&s instanceof Yn?sr(t,e,n,r.value,s.value):r instanceof jn&&s instanceof jn?sr(t,e,n,r.target,s.target)&&sr(t,e,n,r.motive,s.motive)&&sr(t,e,n,r.baseLeft,s.baseLeft)&&sr(t,e,n,r.baseRight,s.baseRight):r instanceof Zn&&s instanceof Zn&&(function(t,e){return t.startLine===e.startLine&&t.startColumn===e.startColumn&&t.endLine===e.endLine&&t.endColumn===e.endColumn}(r.loc,s.loc)&&sr(t,e,n,r.type,s.type))))}function ir(t,e){t.forInfo}function ar(t,e){const n=t.get(e);return n||e}function or(t,e,n){return new Map([[e,n],...t])}function cr(t,e,n,r){const s=n.readBackType(t),i=r.readBackType(t);return tr(s,i)?new Pt(void 0):new Tt(e,new vt([`Expected ${i} but got ${s}`]))}function ur(t,e,n,r,s){return tr(se(t,n,r),se(t,n,s))?new Pt(void 0):new Tt(e,new vt([`The terms ${r.prettyPrint()} and ${s.prettyPrint()} are not the same ${n.prettyPrint()}.`]))}function hr(t){return lr(t.split(""))}function lr(t){return 0===t.length||(e=t[0],!(!/^[a-zA-Z]$/.test(e)&&"-"!==t[0])&&lr(t.slice(1)));var e}function pr(t,e,n){return new us(t.location,t,e,n)}class wr{static synthNat(t,e){return new Pt(new cn(new un,new hn))}static synthUniverse(t,e,n){return new Tt(n,new vt(["U is a type, but it does not have a type."]))}static synthArrow(t,e,n,r,s,i){if(0===i.length){const n=Lt(t,s,"x"),i=new bt("Aout"),a=new bt("Bout");return Nt([[i,()=>r.check(t,e,new en)],[a,()=>s.check(Qt(t,n,Ct(t,i.value)),e,new en)]],()=>new Pt(new cn(new un,new mn(n,i.value,a.value))))}{const[a,...o]=i,c=Lt(t,pr(s,a,o),"x"),u=new bt("Aout"),h=new bt("tout");return Nt([[u,()=>r.check(t,e,new en)],[h,()=>new Nr(ht(n),s,a,o).check(Qt(t,c,Ct(t,u.value)),e,new en)]],()=>new Pt(new cn(new un,new mn(c,u.value,h.value))))}}static synthPi(t,e,n,r,s){if(1===r.length){const[n,i]=[r[0].binder,r[0].type],a=Ot(t,n.varName),o=(n.location,new bt("Aout")),c=new bt("Bout");return Nt([[o,()=>i.check(t,e,new en)],[c,()=>s.check(Qt(t,a,Ct(t,o.value)),or(e,n.varName,a),new en)]],()=>(o.value,new Pt(new cn(new un,new mn(a,o.value,c.value)))))}if(r.length>1){const[i,...a]=r,[o,c]=[i.binder,i.type],u=(o.location,o.varName),h=Ot(t,u),l=new bt("Aout"),p=new bt("Bout");return Nt([[l,()=>c.check(t,e,new en)],[p,()=>new xr(ht(n),a,s).check(Qt(t,h,Ct(t,l.value)),or(e,u,h),new en)]],()=>(l.value,new Pt(new cn(new un,new mn(h,l.value,p.value)))))}throw new Error("Invalid number of binders in Pi type")}static synthZero(t,e){return new Pt(new cn(new hn,new ln))}static synthAdd1(t,e,n){const r=new bt("nout");return Nt([[r,()=>n.check(t,e,new Re)]],()=>new Pt(new cn(new hn,new pn(r.value))))}static synthWhichNat(t,e,n,r,s){const i=new bt("tgtout"),a=new bt("bout"),o=new bt("sout"),c=Ot(t,"n_minus_1");return Nt([[i,()=>n.check(t,e,new Re)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,new Ge(c,new Re,new _t(Mt(t),c,a.value.type)))]],()=>new Pt(new cn(a.value.type,new wn(i.value,new cn(a.value.type,a.value.expr),o.value))))}static synthIterNat(t,e,n,r,s){const i=new bt("tgtout"),a=new bt("bout"),o=new bt("sout");return Nt([[i,()=>n.check(t,e,new Re)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,(()=>{const e=Ot(t,"old");return Ct(t,new mn(e,a.value.type,a.value.type))})())]],()=>new Pt(new cn(a.value.type,new fn(i.value,new cn(a.value.type,a.value.expr),o.value))))}static synthRecNat(t,e,n,r,s){const i=new bt("tgtout"),a=new bt("bout"),o=new bt("sout");return Nt([[i,()=>n.check(t,e,new Re)],[a,()=>r.synth(t,e)],[o,()=>s.check(t,e,(()=>{const e=Ot(t,"n_minus_1"),n=Ot(t,"old");return Ct(t,new mn(e,new hn,new mn(n,a.value.type,a.value.type)))})())]],()=>new Pt(new cn(a.value.type,new yn(i.value,new cn(a.value.type,a.value.expr),o.value))))}static synthIndNat(t,e,n,r,s,i){const a=new bt("tgtout"),o=new bt("motout"),c=new bt("motval"),u=new bt("bout"),h=new bt("sout");return Nt([[a,()=>n.check(t,e,new Re)],[o,()=>r.check(t,e,new Ge("n",new Re,new kt(t=>new en)))],[c,()=>new Pt(Ct(t,o.value))],[u,()=>s.check(t,e,Vt(c.value,new qe))],[h,()=>i.check(t,e,new Ge("n-1",new Re,new kt(t=>new Ge("x",Vt(c.value,t),new kt(e=>Vt(c.value,new Me(t)))))))]],()=>new Pt(new cn(new Wn(o.value,a.value),new dn(a.value,o.value,u.value,h.value))))}static synthAtom(t,e){return new Pt(new cn(new un,new vn))}static synthPair(t,e,n,r){const s=Ot(t,"a"),i=new bt("Aout"),a=new bt("Dout");return Nt([[i,()=>n.check(t,e,new en)],[a,()=>r.check(Qt(t,s,Ct(t,i.value)),e,new en)]],()=>new Pt(new cn(new un,new Pn(s,i.value,a.value))))}static synthSigma(t,e,n,r,s){if(1===r.length){const[n,i]=[r[0].binder,r[0].type],a=Ot(t,n.varName),o=(n.location,new bt("Aout")),c=new bt("Dout");return Nt([[o,()=>i.check(t,e,new en)],[c,()=>s.check(Qt(t,a,Ct(t,o.value)),or(e,n.varName,a),new en)]],()=>(o.value,new Pt(new cn(new un,new Pn(a,o.value,c.value)))))}if(r.length>1){const[i,...a]=r,[o,c]=[i.binder,i.type],u=(o.location,o.varName),h=Ot(t,u),l=new bt("Aout"),p=new bt("Dout");return Nt([[l,()=>c.check(t,e,new en)],[p,()=>new kr(ht(n),a,s).check(Qt(t,h,Ct(t,l.value)),or(e,u,h),new en)]],()=>(l.value,new Pt(new cn(new un,new Pn(h,l.value,p.value)))))}throw new Error("Invalid number of binders in Sigma type")}static synthCar(t,e,n,r){const s=new bt("p_rst");return Nt([[s,()=>r.synth(t,e)]],()=>{const e=Ct(t,s.value.type);return e instanceof He?new Pt(new cn(e.carType.readBackType(t),new bn(s.value.expr))):new Tt(n,new vt([`car requires a Pair type, but was used as a: ${e}.`]))})}static synthCdr(t,e,n,r){const s=new bt("pout");return Nt([[s,()=>r.synth(t,e)]],()=>{const e=Ct(t,s.value.type);if(e instanceof He){const[n,r,i]=[e.carName,e.carType,e.cdrType];return new Pt(new cn(i.valOfClosure(jt(Ct(t,s.value.expr))).readBackType(t),new Nn(s.value.expr)))}return new Tt(n,new vt([`cdr requires a Pair type, but was used as a: ${e}.`]))})}static synthQuote(t,e,n,r){return hr(r)?new Pt(new cn(new vn,new En(r))):new Tt(n,new vt([`Invalid atom: ${r}. Atoms consist of letters and hyphens.`]))}static synthTrivial(t,e){return new Pt(new cn(new un,new On))}static synthSole(t,e){return new Pt(new cn(new On,new Ln))}static synthIndList(t,e,n,r,s,i,a){const o=new bt("tgtout"),c=new bt("motout"),u=new bt("motval"),h=new bt("bout"),l=new bt("sout");return Nt([[o,()=>r.synth(t,e)]],()=>{const[r,p]=[o.value.type,o.value.expr],w=Ct(t,r);if(w instanceof De){const n=w.entryType;return Nt([[c,()=>s.check(t,e,new Ge("xs",new De(n),new _t(Mt(t),"xs",new un)))],[u,()=>new Pt(Ct(t,c.value))],[h,()=>i.check(t,e,Vt(u.value,new Fe))],[l,()=>a.check(t,e,new Ge("e",n,new kt(t=>new Ge("es",new De(n),new kt(e=>new Ge("ih",Vt(u.value,e),new kt(n=>Vt(u.value,new Qe(t,e)))))))))]],()=>new Pt(new cn(new Wn(c.value,p),new Sn(p,c.value,h.value,l.value))))}return new Tt(n,new vt([`Not a List: ${w.readBackType(t)}.`]))})}static synthRecList(t,e,n,r,s,i){const a=new bt("tgtout");return Nt([[a,()=>r.synth(t,e)]],()=>{const[r,o]=[a.value.type,a.value.expr],c=Ct(t,r);if(c instanceof De){const n=c.entryType,r=new bt("bout"),a=new bt("btval"),u=new bt("sout");return Nt([[r,()=>s.synth(t,e)],[a,()=>new Pt(Ct(t,r.value.type))],[u,()=>i.check(t,e,new Ge("e",n,new kt(t=>new Ge("es",new De(n),new kt(t=>new Ge("ih",a.value,new kt(t=>a.value)))))))]],()=>new Pt(new cn(r.value.type,new $n(o,new cn(r.value.type,r.value.expr),u.value))))}return new Tt(n,new vt([`Not a List: ${c.readBackType(t)}.`]))})}static synthList(t,e,n){const r=new bt("Eout");return Nt([[r,()=>n.entryType.check(t,e,new en)]],()=>new Pt(new cn(new un,new kn(r.value))))}static synthListCons(t,e,n,r){const s=new bt("eout"),i=new bt("esout");return Nt([[s,()=>n.synth(t,e)],[i,()=>r.check(t,e,Ct(t,new kn(s.value.type)))]],()=>new Pt(new cn(new kn(s.value.type),new xn(s.value.expr,i.value))))}static synthAbsurd(t,e,n){return new Pt(new cn(new un,new An))}static synthIndAbsurd(t,e,n){const r=new bt("tgtout"),s=new bt("motout");return Nt([[r,()=>n.target.check(t,e,new an)],[s,()=>n.motive.check(t,e,new en)]],()=>new Pt(new cn(s.value,new In(r.value,s.value))))}static synthEqual(t,e,n,r,s){const i=new bt("Aout"),a=new bt("Av"),o=new bt("from_out"),c=new bt("to_out");return Nt([[i,()=>n.check(t,e,new en)],[a,()=>new Pt(Ct(t,i.value))],[o,()=>r.check(t,e,a.value)],[c,()=>s.check(t,e,a.value)]],()=>new Pt(new cn(new un,new Cn(i.value,o.value,c.value))))}static synthReplace(t,e,n,r,s,i){const a=new bt("tgt_rst"),o=new bt("motout"),c=new bt("bout");return Nt([[a,()=>r.synth(t,e)]],()=>{const r=Ct(t,a.value.type);if(r instanceof Ve){const[n,u,h]=[r.type,r.from,r.to];return Nt([[o,()=>s.check(t,e,new Ge("x",n,new kt(t=>new en)))],[c,()=>i.check(t,e,Vt(Ct(t,o.value),u))]],()=>new Pt(new cn(Vt(Ct(t,o.value),h).readBackType(t),new Rn(a.value.expr,o.value,c.value))))}return new Tt(n,new vt([`Expected an expression with = type, but the type was: ${a.value.type}.`]))})}static synthTrans(t,e,n,r,s){const i=new bt("p1_rst"),a=new bt("p2_rst");return Nt([[i,()=>r.synth(t,e)],[a,()=>s.synth(t,e)]],()=>{const e=Ct(t,i.value.type),r=Ct(t,a.value.type);if(e instanceof Ve&&r instanceof Ve){const[s,o,c]=[e.type,e.from,e.to],[u,h,l]=[r.type,r.from,r.to];return Nt([[new bt("_"),()=>cr(t,n,s,u)],[new bt("_"),()=>ur(t,n,s,c,h)]],()=>new Pt(new cn(new Ve(s,o,l).readBackType(t),new qn(i.value.expr,a.value.expr))))}return new Tt(n,new vt([`Expected =, got ${e} and ${r}.`]))})}static synthCong(t,e,n,r,s){const i=new bt("bout"),a=new bt("f_rst");return Nt([[i,()=>r.synth(t,e)],[a,()=>s.synth(t,e)]],()=>{const e=Ct(t,i.value.type),r=Ct(t,a.value.type);if(e instanceof Ve){const[s,o,c]=[e.type,e.from,e.to];if(r instanceof Ge){const[e,u,h]=[r.argName,r.argType,r.resultType],l=new bt("ph"),p=new bt("Cv"),w=new bt("fv");return Nt([[l,()=>cr(t,n,s,u)],[p,()=>new Pt(h.valOfClosure(o))],[w,()=>new Pt(Ct(t,a.value.expr))]],()=>new Pt(new cn(new Cn(p.value.readBackType(t),se(t,p.value,Vt(w.value,o)),se(t,p.value,Vt(w.value,c))),new Mn(i.value.expr,p.value.readBackType(t),a.value.expr))))}return new Tt(n,new vt([`Expected a function type, got ${r.readBackType(t)}.`]))}return new Tt(n,new vt([`Expected an = type, got ${e.readBackType(t)}.`]))})}static synthSymm(t,e,n,r){const s=new bt("eout");return Nt([[s,()=>r.synth(t,e)]],()=>{const e=Ct(t,s.value.type);if(e instanceof Ve){const[n,r,i]=[e.type,e.from,e.to];return new Pt(new cn(new Ve(n,i,r).readBackType(t),new Gn(s.value.expr)))}return new Tt(n,new vt([`Expected an = type, got ${e.readBackType(t)}.`]))})}static synthIndEqual(t,e,n,r,s,i){const a=new bt("tgtout"),o=new bt("motout"),c=new bt("motv"),u=new bt("baseout");return Nt([[a,()=>r.synth(t,e)]],()=>{const r=Ct(t,a.value.type);if(r instanceof Ve){const[n,h,l]=[r.type,r.from,r.to];return Nt([[o,()=>s.check(t,e,new Ge("to",n,new kt(t=>new Ge("p",new Ve(n,h,t),new kt(t=>new en)))))],[c,()=>new Pt(Ct(t,o.value))],[u,()=>i.check(t,e,Vt(Vt(c.value,h),new Xe(h)))]],()=>new Pt(new cn(Vt(Vt(c.value,l),Ct(t,a.value.expr)).readBackType(t),new Un(a.value.expr,o.value,u.value))))}return new Tt(n,new vt([`Expected evidence of equality, got ${r.readBackType(t)}.`]))})}static synthVec(t,e,n,r){const s=new bt("tout"),i=new bt("lenout");return Nt([[s,()=>n.check(t,e,new en)],[i,()=>r.check(t,e,new Re)]],()=>new Pt(new cn(new un,new Hn(s.value,i.value))))}static synthHead(t,e,n,r){const s=new bt("vout");return Nt([[s,()=>r.synth(t,e)]],()=>{const e=Ct(t,s.value.type).now();if(e instanceof Ke){const[r,i]=[e.entryType,e.length];return i.now()instanceof Me?new Pt(new cn(r.readBackType(t),new Fn(s.value.expr))):new Tt(n,new vt([`Expected a Vec with add1 at the top of the length, got ${se(t,new Re,i)}.`]))}return new Tt(n,new vt([`Expected a Vec, got ${e.readBackType(t)}.`]))})}static synthTail(t,e,n,r){const s=new bt("vout");return Nt([[s,()=>r.synth(t,e)]],()=>{const e=Ct(t,s.value.type).now();if(e instanceof Ke){const[r,i]=[e.entryType,e.length],a=i.now();if(a instanceof Me){const e=a.smaller;return new Pt(new cn(new Hn(r.readBackType(t),se(t,new Re,e)),new Qn(s.value.expr)))}return new Tt(n,new vt([`Expected a Vec with add1 at the top of the length, got ${se(t,new Re,i)}.`]))}return new Tt(n,new vt([`Expected a Vec, got ${e.readBackType(t)}.`]))})}static synthIndVec(t,e,n,r,s,i,a,o){const c=new bt("lenout"),u=new bt("lenv"),h=new bt("vecout"),l=new bt("motout"),p=new bt("motval"),w=new bt("bout"),f=new bt("sout");return Nt([[c,()=>r.check(t,e,new Re)],[u,()=>new Pt(Ct(t,c.value))],[h,()=>s.synth(t,e)]],()=>{const r=Ct(t,h.value.type);if(r instanceof Ke){const[s,y]=[r.entryType,r.length];return Nt([[new bt("_"),()=>ur(t,n,new Re,u.value,y)],[l,()=>i.check(t,e,new Ge("k",new Re,new kt(t=>new Ge("es",new Ke(s,t),new kt(t=>new en)))))],[p,()=>new Pt(Ct(t,l.value))],[w,()=>a.check(t,e,Vt(Vt(p.value,new qe),new Ye))],[f,()=>o.check(t,e,ee(s,p.value))]],()=>new Pt(new cn(new Wn(new Wn(l.value,c.value),h.value.expr),new Vn(c.value,h.value.expr,l.value,w.value,f.value))))}return new Tt(n,new vt([`Expected a Vec, got ${r.readBackType(t)}.`]))})}static synthEither(t,e,n,r){const s=new bt("Lout"),i=new bt("Rout");return Nt([[s,()=>n.check(t,e,new en)],[i,()=>r.check(t,e,new en)]],()=>new Pt(new cn(new un,new Xn(s.value,i.value))))}static synthIndEither(t,e,n,r,s,i,a){const o=new bt("tgtout"),c=new bt("motout"),u=new bt("motval"),h=new bt("lout"),l=new bt("rout");return Nt([[o,()=>r.synth(t,e)]],()=>{const r=Ct(t,o.value.type);if(r instanceof Ze){const[n,p]=[r.leftType,r.rightType];return Nt([[c,()=>s.check(t,e,new Ge("x",new Ze(n,p),new kt(t=>new en)))],[u,()=>new Pt(Ct(t,c.value))],[h,()=>i.check(t,e,new Ge("x",n,new kt(t=>Vt(u.value,new We(t)))))],[l,()=>a.check(t,e,new Ge("x",p,new kt(t=>Vt(u.value,new Je(t)))))]],()=>new Pt(new cn(new Wn(c.value,o.value.expr),new jn(o.value.expr,c.value,h.value,l.value))))}return new Tt(n,new vt([`Expected an Either, but got a ${r.readBackType(t)}.`]))})}static synthThe(t,e,n,r){const s=new bt("t_out"),i=new bt("e_out");return Nt([[s,()=>n.isType(t,e)],[i,()=>r.check(t,e,Ct(t,s.value))]],()=>new Pt(new cn(s.value,i.value)))}static synthApplication(t,e,n,r,s,i){if(0===i.length){const i=new bt("fout");return Nt([[i,()=>r.synth(t,e)]],()=>{const r=Ct(t,i.value.type);if(r instanceof Ge){const[n,a,o]=[r.argName,r.argType,r.resultType],c=new bt("argout");return Nt([[c,()=>s.check(t,e,a)]],()=>new Pt(new cn(o.valOfClosure(Ct(t,c.value)).readBackType(t),new Wn(i.value.expr,c.value))))}return new Tt(n,new vt([`Not a function type: ${r.readBackType(t)}.`]))})}{const a=new bt("appout");return Nt([[a,()=>new us(ht(n),r,s,i.slice(0,i.length-1)).synth(t,e)]],()=>{const r=Ct(t,a.value.type);if(r instanceof Ge){const[n,s,o]=[r.argName,r.argType,r.resultType],c=new bt("fout");return Nt([[c,()=>i[i.length-1].check(t,e,s)]],()=>new Pt(new cn(o.valOfClosure(Ct(t,c.value)).readBackType(t),new Wn(a.value.expr,c.value))))}return new Tt(n,new vt([`Not a function type: ${r.readBackType(t)}.`]))})}}static synthName(t,e,n,r){const s=ar(e,r),i=new bt("x_tv");return Nt([[i,()=>Ft(t,0,s)]],()=>(t.get(s),new Pt(new cn(i.value.readBackType(t),new Jn(s)))))}static synthNumber(t,e,n,r){if(0===r)return new Pt(new cn(new hn,new ln));if(r>0){const s=new bt("n_1_out");return Nt([[s,()=>new Mr(n,r-1).check(t,e,new Re)]],()=>new Pt(new cn(new hn,new pn(s.value))))}return new Tt(n,new vt([`Expected a positive number, got ${r}.`]))}}class fr{location;constructor(t){this.location=t}isType(t,e){const n=new bt("ok"),r=this.getType(t,e);return Nt([[n,()=>r]],()=>(ir(this.location,n.value),new Pt(n.value)))}getType(t,e){const n=this.check(t,e,new en);if(n instanceof Pt)return n;if(n instanceof Tt){if(this instanceof $r&&$t(this.name)){const e=new bt("other-tv");return new Nt([[e,()=>Ft(t,this.location,this.name)]],()=>{new Tt(this.location,new vt([`Expected U, but given ${e.value.readBackType(t)}`]))})}return new Tt(this.location,new vt(["not a type"]))}throw new Error("Invalid checkType")}check(t,e,n){const r=new bt("ok"),s=this.checkOut(t,e,n);return Nt([[r,()=>s]],()=>new Pt(r.value))}synth(t,e){const n=new bt("ok");return Nt([[n,()=>this.synthHelper(t,e)]],()=>(ir(this.location,n.value.type),new Pt(n.value)))}checkOut(t,e,n){const r=new bt("theT");return Nt([[r,()=>this.synth(t,e)],[new bt("_"),()=>cr(t,this.location,Ct(t,r.value.type),n)]],()=>new Pt(r.value.expr))}}class yr extends fr{location;type;value;constructor(t,e,n){super(t),this.location=t,this.type=e,this.value=n}synthHelper(t,e){return wr.synthThe(t,e,this.type,this.value)}findNames(){return this.type.findNames().concat(this.value.findNames())}prettyPrint(){return`(the ${this.type.prettyPrint()} ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class dr extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return wr.synthUniverse(t,e,this.location)}findNames(){return[]}getType(t,e){return new Pt(new un)}prettyPrint(){return"U"}toString(){return this.prettyPrint()}}class mr extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return wr.synthNat(t,e)}findNames(){return[]}getType(t,e){return new Pt(new hn)}prettyPrint(){return"Nat"}toString(){return this.prettyPrint()}}class gr extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return wr.synthZero(t,e)}findNames(){return[]}prettyPrint(){return"zero"}toString(){return this.prettyPrint()}}class vr extends fr{location;base;constructor(t,e){super(t),this.location=t,this.base=e}synthHelper(t,e){return wr.synthAdd1(t,e,this.base)}findNames(){return this.base.findNames()}prettyPrint(){return`(add1 ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class Er extends fr{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return wr.synthWhichNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(which-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Pr extends fr{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return wr.synthIterNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(iter-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Tr extends fr{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return wr.synthRecNat(t,e,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(rec-nat ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class br extends fr{location;target;motive;base;step;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.base=r,this.step=s}synthHelper(t,e){return wr.synthIndNat(t,e,this.target,this.motive,this.base,this.step)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(ind-nat ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Nr extends fr{location;arg1;arg2;args;constructor(t,e,n,r){super(t),this.location=t,this.arg1=e,this.arg2=n,this.args=r}synthHelper(t,e){return wr.synthArrow(t,e,this.location,this.arg1,this.arg2,this.args)}findNames(){return this.arg1.findNames().concat(this.arg2.findNames()).concat(this.args.flatMap(t=>t.findNames()))}getType(t,e){const[n,r,s]=[this.arg1,this.arg2,this.args];if(0===s.length){const s=Lt(t,r,"x"),i=new bt("Aout"),a=new bt("Bout");return Nt([[i,()=>n.isType(t,e)],[a,()=>r.isType(Qt(t,s,Ct(t,i.value)),e)]],()=>new Pt(new mn(s,i.value,a.value)))}{const[i,...a]=s,o=Lt(t,pr(r,i,a),"x"),c=new bt("Aout"),u=new bt("tout");return Nt([[c,()=>n.isType(t,e)],[u,()=>new Nr(ht(this.location),r,i,a).isType(Qt(t,o,Ct(t,c.value)),e)]],()=>new Pt(new mn(o,c.value,u.value)))}}prettyPrint(){return`(-> ${this.arg1.prettyPrint()} ${this.arg2.prettyPrint()} ${this.args.map(t=>t.prettyPrint()).join(" ")})`}toString(){return this.prettyPrint()}}class xr extends fr{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){return wr.synthPi(t,e,this.location,this.binders,this.body)}findNames(){return this.binders.flatMap(t=>At(t)).concat(this.body.findNames())}getType(t,e){const[n,r]=[this.binders,this.body];if(1===n.length){const[s,i]=[n[0].binder,n[0].type],a=Ot(t,s.varName),o=(s.location,new bt("Aout")),c=new bt("Aoutv"),u=new bt("Bout");return Nt([[o,()=>i.isType(t,e)],[c,()=>new Pt(Ct(t,o.value))],[u,()=>r.isType(Qt(t,a,c.value),or(e,s.varName,a))]],()=>(o.value,new Pt(new mn(a,o.value,u.value))))}if(n.length>1){const[s,...i]=n,[a,o]=[s.binder.varName,s.type],c=Ot(t,a),u=(s.binder.location,new bt("Aout")),h=new bt("Aoutv"),l=new bt("Bout");return Nt([[u,()=>o.isType(t,e)],[h,()=>new Pt(Ct(t,u.value))],[l,()=>new xr(ht(this.location),i,r).isType(Qt(t,c,h.value),or(e,s.binder.varName,c))]],()=>(u.value,new Pt(new mn(c,u.value,l.value))))}throw new Error("Invalid number of binders in Pi type")}prettyPrint(){return`(Π ${this.binders.map(t=>`(${t.binder.varName} ${t.type.prettyPrint()})`).join(" ")} \n            ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class _r extends fr{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.binders.map(t=>t.varName).concat(this.body.findNames())}checkOut(t,e,n){if(1===this.binders.length){const r=this.body,s=this.binders[0],i=s.varName,a=s.location,o=n.now();if(o instanceof Ge){const n=o.argType,s=o.resultType,a=ar(e,i),c=new bt("bout");return Nt([[c,()=>r.check(Qt(t,a,n),or(e,i,a),s.valOfClosure(new tn(n,new oe(a))))]],()=>(n.readBackType(t),new Pt(new gn(a,c.value))))}return new Tt(a,new vt([`Not a function type: ${o.readBackType(t)}.`]))}return new _r(this.location,[this.binders[0]],new _r(ht(this.location),this.binders.slice(1),this.body)).check(t,e,n)}prettyPrint(){return`(lambda ${this.binders.map(t=>t.varName).join(" ")} ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class kr extends fr{location;binders;body;constructor(t,e,n){super(t),this.location=t,this.binders=e,this.body=n}synthHelper(t,e){return wr.synthSigma(t,e,this.location,this.binders,this.body)}findNames(){return this.binders.flatMap(t=>At(t)).concat(this.body.findNames())}getType(t,e){const[n,r]=[this.binders,this.body];if(1===n.length){const[s,i]=[n[0].binder,n[0].type],a=s.varName,o=Ot(t,a),c=(s.location,new bt("Aout")),u=new bt("Aoutv"),h=new bt("Dout");return Nt([[c,()=>i.isType(t,e)],[u,()=>new Pt(Ct(t,c.value))],[h,()=>r.isType(Qt(t,o,u.value),or(e,a,o))]],()=>(c.value,new Pt(new Pn(o,c.value,h.value))))}if(n.length>1){const[[s,i],...a]=[[n[0].binder,n[0].type],n[1],...n.slice(2)],o=s.varName,c=Ot(t,o),u=(s.location,new bt("Aout")),h=new bt("Aoutv"),l=new bt("Dout");return Nt([[u,()=>i.isType(t,e)],[h,()=>new Pt(Ct(t,u.value))],[l,()=>new kr(this.location,a,r).isType(Qt(t,o,h.value),or(e,o,c))]],()=>(u.value,new Pt(new Pn(c,u.value,l.value))))}throw new Error("Invalid number of binders in Sigma type")}prettyPrint(){return`(Σ ${this.binders.map(t=>`(${t.binder.varName} ${t.type.prettyPrint()})`).join(" ")} \n            ${this.body.prettyPrint()})`}toString(){return this.prettyPrint()}}class $r extends fr{location;name;constructor(t,e){super(t),this.location=t,this.name=e}synthHelper(t,e){return wr.synthName(t,e,this.location,this.name)}findNames(){return[this.name]}prettyPrint(){return this.name}toString(){return this.prettyPrint()}}class Sr extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return wr.synthAtom(t,e)}findNames(){return[]}getType(t,e){return new Pt(new vn)}prettyPrint(){return"Atom"}toString(){return this.prettyPrint()}}class Or extends fr{location;name;constructor(t,e){super(t),this.location=t,this.name=e}synthHelper(t,e){return wr.synthQuote(t,e,this.location,this.name)}findNames(){return[]}prettyPrint(){return`'${this.name}`}toString(){return this.prettyPrint()}}class Lr extends fr{location;first;second;constructor(t,e,n){super(t),this.location=t,this.first=e,this.second=n}synthHelper(t,e){return wr.synthPair(t,e,this.first,this.second)}findNames(){return this.first.findNames().concat(this.second.findNames())}getType(t,e){const n=new bt("Aout"),r=new bt("Dout"),s=Lt(t,this.second,"x");return Nt([[n,()=>this.first.isType(t,e)],[r,()=>this.second.isType(Qt(t,s,Ct(t,n.value)),e)]],()=>new Pt(new Pn(s,n.value,r.value)))}prettyPrint(){return`(Pair ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}}class Ar extends fr{location;first;second;constructor(t,e,n){super(t),this.location=t,this.first=e,this.second=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.first.findNames().concat(this.second.findNames())}checkOut(t,e,n){const r=n.now();if(r instanceof He){const n=r.carType,s=r.cdrType,i=new bt("aout"),a=new bt("dout");return Nt([[i,()=>this.first.check(t,e,n)],[a,()=>this.second.check(t,e,s.valOfClosure(Ct(t,i.value)))]],()=>new Pt(new Tn(i.value,a.value)))}return new Tt(this.location,new vt([`cons requires a Pair or Σ type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(cons ${this.first.prettyPrint()} ${this.second.prettyPrint()})`}toString(){return this.prettyPrint()}}class Ir extends fr{location;pair;constructor(t,e){super(t),this.location=t,this.pair=e}synthHelper(t,e){return wr.synthCar(t,e,this.location,this.pair)}findNames(){return this.pair.findNames()}prettyPrint(){return`(car ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}}class Cr extends fr{location;pair;constructor(t,e){super(t),this.location=t,this.pair=e}synthHelper(t,e){return wr.synthCdr(t,e,this.location,this.pair)}findNames(){return this.pair.findNames()}prettyPrint(){return`(cdr ${this.pair.prettyPrint()})`}toString(){return this.prettyPrint()}}class Br extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return wr.synthTrivial(t,e)}findNames(){return[]}getType(t,e){return new Pt(new On)}prettyPrint(){return"Trivial"}toString(){return this.prettyPrint()}}class Rr extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return wr.synthSole(t,e)}findNames(){return[]}prettyPrint(){return"Sole"}}class qr extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.now();return r instanceof De?new Pt(new _n):new Tt(this.location,new vt([`nil requires a List type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return"nil"}toString(){return this.prettyPrint()}}let Mr=class extends fr{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){return wr.synthNumber(t,e,this.location,this.value)}findNames(){return[]}prettyPrint(){return`${this.value}`}toString(){return this.prettyPrint()}};class Gr extends fr{location;entryType;constructor(t,e){super(t),this.location=t,this.entryType=e}synthHelper(t,e){return wr.synthList(t,e,this)}findNames(){return this.entryType.findNames()}getType(t,e){const n=new bt("Eout");return Nt([[n,()=>this.entryType.isType(t,e)]],()=>new Pt(new kn(n.value)))}prettyPrint(){return`(List ${this.entryType.prettyPrint()})`}toString(){return this.prettyPrint()}}class Ur extends fr{location;x;xs;constructor(t,e,n){super(t),this.location=t,this.x=e,this.xs=n}synthHelper(t,e){return wr.synthListCons(t,e,this.x,this.xs)}findNames(){return this.x.findNames().concat(this.xs.findNames())}prettyPrint(){return`(:: ${this.x.prettyPrint()} ${this.xs.prettyPrint()})`}toString(){return this.prettyPrint()}}class Hr extends fr{location;target;base;step;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.base=n,this.step=r}synthHelper(t,e){return wr.synthRecList(t,e,this.location,this.target,this.base,this.step)}findNames(){return this.target.findNames().concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(rec-list ${this.target.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class zr extends fr{location;target;motive;base;step;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.base=r,this.step=s}synthHelper(t,e){return wr.synthIndList(t,e,this.location,this.target,this.motive,this.base,this.step)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`(ind-list ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()} \n              ${this.step.prettyPrint()})`}toString(){return this.prettyPrint()}}class Dr extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){return wr.synthAbsurd(t,e,this)}findNames(){return[]}getType(t,e){return new Pt(new An)}prettyPrint(){return"Absurd"}toString(){return this.prettyPrint()}}class Fr extends fr{location;target;motive;constructor(t,e,n){super(t),this.location=t,this.target=e,this.motive=n}synthHelper(t,e){return wr.synthIndAbsurd(t,e,this)}findNames(){return this.target.findNames().concat(this.motive.findNames())}prettyPrint(){return`(ind-Absurd \n              ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()})`}toString(){return this.prettyPrint()}}class Qr extends fr{location;type;left;right;constructor(t,e,n,r){super(t),this.location=t,this.type=e,this.left=n,this.right=r}synthHelper(t,e){return wr.synthEqual(t,e,this.type,this.left,this.right)}findNames(){return this.type.findNames().concat(this.left.findNames()).concat(this.right.findNames())}getType(t,e){const[n,r,s]=[this.type,this.left,this.right],i=new bt("Aout"),a=new bt("Av"),o=new bt("from_out"),c=new bt("to_out");return Nt([[i,()=>n.isType(t,e)],[a,()=>new Pt(Ct(t,i.value))],[o,()=>r.check(t,e,a.value)],[c,()=>s.check(t,e,a.value)]],()=>new Pt(new Cn(i.value,o.value,c.value)))}prettyPrint(){return`(= ${this.type.prettyPrint()} \n              ${this.left.prettyPrint()} \n              ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class Vr extends fr{location;type;constructor(t,e){super(t),this.location=t,this.type=e}findNames(){return this.type.findNames()}synthHelper(t,e){throw new Error("Method not implemented.")}checkOut(t,e,n){const r=n.now();if(r instanceof Ve){const n=r.type,s=r.from,i=r.to,a=new bt("cout"),o=new bt("val");return Nt([[a,()=>this.type.check(t,e,n)],[o,()=>new Pt(Ct(t,a.value))],[new bt("_"),()=>ur(t,this.type.location,n,s,o.value)],[new bt("_"),()=>ur(t,this.type.location,n,i,o.value)]],()=>new Pt(new Bn(a.value)))}return new Tt(this.location,new vt([`same requires an Equal type, but encounter: ${r.readBackType(t)}.`]))}prettyPrint(){return`(same ${this.type.prettyPrint()})`}toString(){return this.prettyPrint()}}class Xr extends fr{location;target;motive;base;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.motive=n,this.base=r}synthHelper(t,e){return wr.synthReplace(t,e,this.location,this.target,this.motive,this.base)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames())}prettyPrint(){return`(replace ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class Kr extends fr{location;left;right;synthHelper(t,e){return wr.synthTrans(t,e,this.location,this.left,this.right)}constructor(t,e,n){super(t),this.location=t,this.left=e,this.right=n}findNames(){return this.left.findNames().concat(this.right.findNames())}prettyPrint(){return`(trans ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class Yr extends fr{location;target;fun;constructor(t,e,n){super(t),this.location=t,this.target=e,this.fun=n}synthHelper(t,e){return wr.synthCong(t,e,this.location,this.target,this.fun)}findNames(){return this.target.findNames().concat(this.fun.findNames())}prettyPrint(){return`(cong ${this.target.prettyPrint()} ${this.fun.prettyPrint()})`}toString(){return this.prettyPrint()}}class jr extends fr{location;equality;constructor(t,e){super(t),this.location=t,this.equality=e}synthHelper(t,e){return wr.synthSymm(t,e,this.location,this.equality)}findNames(){return this.equality.findNames()}prettyPrint(){return`(symm ${this.equality.prettyPrint()})`}toString(){return this.prettyPrint()}}class Zr extends fr{location;target;motive;base;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.motive=n,this.base=r}synthHelper(t,e){return wr.synthIndEqual(t,e,this.location,this.target,this.motive,this.base)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.base.findNames())}prettyPrint(){return`(ind-= ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.base.prettyPrint()})`}toString(){return this.prettyPrint()}}class Wr extends fr{location;type;length;constructor(t,e,n){super(t),this.location=t,this.type=e,this.length=n}synthHelper(t,e){return wr.synthVec(t,e,this.type,this.length)}findNames(){return this.type.findNames().concat(this.length.findNames())}getType(t,e){const n=new bt("Eout"),r=new bt("lenout");return Nt([[n,()=>this.type.isType(t,e)],[r,()=>this.length.check(t,e,new Re)]],()=>new Pt(new Hn(n.value,r.value)))}prettyPrint(){return`(Vec ${this.type.prettyPrint()} ${this.length.prettyPrint()})`}toString(){return this.prettyPrint()}}class Jr extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.now();if(r instanceof Ke){return r.length.now()instanceof qe?new Pt(new Dn):new Tt(this.location,new vt([`vecnil requires a Vec type with length ZERO, but was used as a: \n          ${se(t,new Re,r.length)}.`]))}return new Tt(this.location,new vt([`vecnil requires a Vec type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return"vecnil"}toString(){return this.prettyPrint()}}class ts extends fr{location;x;xs;constructor(t,e,n){super(t),this.location=t,this.x=e,this.xs=n}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.x.findNames().concat(this.xs.findNames())}checkOut(t,e,n){const r=n.now();if(r instanceof Ke){const n=r.length.now();if(n instanceof Me){const s=new bt("hout"),i=new bt("tout"),a=n.smaller;return Nt([[s,()=>this.x.check(t,e,r.entryType)],[i,()=>this.xs.check(t,e,new Ke(r.entryType,a))]],()=>new Pt(new zn(s.value,i.value)))}return new Tt(this.location,new vt([`vec:: requires a Vec type with length Add1, but was used with a: \n          ${se(t,new Re,r.length)}.`]))}return new Tt(this.location,new vt([`vec:: requires a Vec type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(vec:: ${this.x.prettyPrint()} ${this.xs.prettyPrint()})`}toString(){return this.prettyPrint()}}class es extends fr{location;vec;constructor(t,e){super(t),this.location=t,this.vec=e}synthHelper(t,e){return wr.synthHead(t,e,this.location,this.vec)}findNames(){return this.vec.findNames()}prettyPrint(){return`(head ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}}class ns extends fr{location;vec;constructor(t,e){super(t),this.location=t,this.vec=e}synthHelper(t,e){return wr.synthTail(t,e,this.location,this.vec)}findNames(){return this.vec.findNames()}prettyPrint(){return`(tail ${this.vec.prettyPrint()})`}toString(){return this.prettyPrint()}}class rs extends fr{location;length;target;motive;base;step;constructor(t,e,n,r,s,i){super(t),this.location=t,this.length=e,this.target=n,this.motive=r,this.base=s,this.step=i}synthHelper(t,e){return wr.synthIndVec(t,e,this.location,this.length,this.target,this.motive,this.base,this.step)}findNames(){return this.length.findNames().concat(this.target.findNames()).concat(this.motive.findNames()).concat(this.base.findNames()).concat(this.step.findNames())}prettyPrint(){return`ind-Vec ${this.length.prettyPrint()}\n              ${this.target.prettyPrint()}\n              ${this.motive.prettyPrint()}\n              ${this.base.prettyPrint()}\n              ${this.step.prettyPrint()}`}toString(){return this.prettyPrint()}}class ss extends fr{location;left;right;constructor(t,e,n){super(t),this.location=t,this.left=e,this.right=n}synthHelper(t,e){return wr.synthEither(t,e,this.left,this.right)}findNames(){return this.left.findNames().concat(this.right.findNames())}getType(t,e){const n=new bt("Lout"),r=new bt("Rout");return Nt([[n,()=>this.left.isType(t,e)],[r,()=>this.right.isType(t,e)]],()=>new Pt(new Xn(n.value,r.value)))}prettyPrint(){return`(Either ${this.left.prettyPrint()} ${this.right.prettyPrint()})`}toString(){return this.prettyPrint()}}class is extends fr{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.value.findNames()}checkOut(t,e,n){const r=n.now();if(r instanceof Ze){const n=new bt("lout");return Nt([[n,()=>this.value.check(t,e,r.leftType)]],()=>new Pt(new Kn(n.value)))}return new Tt(this.location,new vt([`left requires an Either type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(left ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class as extends fr{location;value;constructor(t,e){super(t),this.location=t,this.value=e}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return this.value.findNames()}checkOut(t,e,n){const r=n.now();if(r instanceof Ze){const n=new bt("rout");return Nt([[n,()=>this.value.check(t,e,r.rightType)]],()=>new Pt(new Yn(n.value)))}return new Tt(this.location,new vt([`right requires an Either type, but was used as a: ${r.readBackType(t)}.`]))}prettyPrint(){return`(right ${this.value.prettyPrint()})`}toString(){return this.prettyPrint()}}class os extends fr{location;target;motive;baseLeft;baseRight;constructor(t,e,n,r,s){super(t),this.location=t,this.target=e,this.motive=n,this.baseLeft=r,this.baseRight=s}synthHelper(t,e){return wr.synthIndEither(t,e,this.location,this.target,this.motive,this.baseLeft,this.baseRight)}findNames(){return this.target.findNames().concat(this.motive.findNames()).concat(this.baseLeft.findNames()).concat(this.baseRight.findNames())}prettyPrint(){return`(ind-Either ${this.target.prettyPrint()} \n              ${this.motive.prettyPrint()} \n              ${this.baseLeft.prettyPrint()} \n              ${this.baseRight.prettyPrint()})`}toString(){return this.prettyPrint()}}class cs extends fr{location;constructor(t){super(t),this.location=t}synthHelper(t,e){throw new Error("Method not implemented.")}findNames(){return[]}checkOut(t,e,n){const r=n.readBackType(t);return ir(this.location,Bt(t)),new Pt(new Zn(this.location.locationToSrcLoc(),r))}prettyPrint(){return"TODO"}toString(){return this.prettyPrint()}}class us extends fr{location;func;arg;args;constructor(t,e,n,r){super(t),this.location=t,this.func=e,this.arg=n,this.args=r}synthHelper(t,e){return wr.synthApplication(t,e,this.location,this.func,this.arg,this.args)}findNames(){return this.func.findNames().concat(this.arg.findNames()).concat(this.args.flatMap(t=>t.findNames()))}prettyPrint(){return`(${this.func.prettyPrint()} ${this.arg.prettyPrint()} ${this.args.map(t=>t.prettyPrint()).join(" ")})`}toString(){return this.prettyPrint()}}class hs{id;type;context;renaming;term;constructor(t,e,n,r,s){this.id=t,this.type=e,this.context=n,this.renaming=r,this.term=s}clone(t={}){return new hs(t.id??this.id,t.type??this.type,t.context??new Map(this.context),t.renaming??new Map(this.renaming),t.term??this.term)}addHypothesis(t,e){const n=Ot(this.context,t);It(this.context,n,new Ht(e))}getVariableType(t){const e=this.context.get(t);return e?.type}prettyPrintWithContext(){const t=Array.from(this.context.entries()).map(([t,e])=>`${t} : ${e.type.readBackType(this.context).prettyPrint()}`).join("\n  "),e=this.type.readBackType(this.context).prettyPrint();return t?`Context:\n  ${t}\n────────────────\nGoal: ${e}`:`Goal: ${e}`}}class ls{goal;children=[];parent=null;isComplete=!1;childFocusIndex=-1;constructor(t){this.goal=t}addChildren(t){t.forEach(t=>{t.parent=this}),this.children=t}findById(t){if(this.goal.id===t)return this;for(const e of this.children){const n=e.findById(t);if(n)return n}return null}}class ps{location;goalTree;currentGoal;proofHistory=[];goalIdCounter=0;constructor(t,e){this.location=t,this.goalTree=e,this.currentGoal=this.goalTree}static initialize(t,e,n){const r=new hs("goal_0",e,new Map(t),new Map),s=new ps(n,new ls(r));return s.currentGoal=s.goalTree,s}generateGoalId(){return"goal_"+ ++this.goalIdCounter}isComplete(){return this.goalTree.isComplete}getCurrentGoal(){if(null===this.currentGoal)throw new Error("No current goal available.");return new Pt(this.currentGoal.goal)}visualizeTree(){return this.visualizeNode(this.goalTree,"",!0)}visualizeNode(t,e,n){let r=e+(n?"└── ":"├── ")+`${t.isComplete?"✓":t===this.currentGoal?"→":"○"} ${t.goal.id}`+"\n";const s=e+(n?"    ":"│   ");for(let e=0;e<t.children.length;e++){const n=e===t.children.length-1;r+=this.visualizeNode(t.children[e],s,n)}return r}addGoal(t){this.currentGoal.addChildren(t),this.currentGoal.childFocusIndex=0,this.currentGoal=t[0]}nextGoal(){if(null===this.currentGoal.parent)return!0;const t=this.currentGoal.parent,e=this.nextGoalAux(t);return null===e||(this.currentGoal=e,!1)}nextGoalAux(t){return-1===t.childFocusIndex||t.childFocusIndex>=t.children.length-1?(t.isComplete=!0,null===t.parent?null:this.nextGoalAux(t.parent)):(t.childFocusIndex+=1,t.children[t.childFocusIndex])}previousGoal(){if(null===this.currentGoal.parent)throw new Error("No previous goal available at the root level.");const t=this.PreviousGoalAux(this.currentGoal);if(null===t)throw new Error("No previous goal found.");this.currentGoal=t}PreviousGoalAux(t){if(0===t.childFocusIndex)return t;{let e=!1,n=t.children[t.childFocusIndex-1];for(;!e;){if(-1===n.childFocusINdex)return e=!0,n;n=n.children[n.childFocusIndex]}}}}class ws{location;constructor(t){this.location=t}}class fs extends ws{location;varName;constructor(t,e){super(t),this.location=t,this.varName=e}getName(){return"intro"}toString(){return`intro ${this.varName||""}`}apply(t){const e=t.currentGoal.goal,n=e.type;if(!(n instanceof Ge))return new Tt(t.location,new vt([`Cannot introduce a variable for non-function type: ${n.prettyPrint()}`]));const r=this.varName||n.argName||Ot(e.context,"x"),s=e.renaming;r!==n.argName&&or(s,n.argName,r);const i=It(e.context,r,new Dt(n.argType)),a=n.resultType.valOfClosure(new tn(n.argType,new oe(r))),o=new ls(new hs(t.generateGoalId(),a,i,s));return t.addGoal([o]),new Pt(t)}}class ys extends ws{location;term;constructor(t,e){super(t),this.location=t,this.term=e}toString(){return`exact ${this.term.prettyPrint()}`}apply(t){const e=t.getCurrentGoal().result,n=e.type;console.log("goalType:",n.prettyPrint()),console.log("term:",this.term.prettyPrint());const r=this.term.check(e.context,e.renaming,n);return r instanceof Tt?r:(t.currentGoal.isComplete=!0,t.nextGoal(),new Pt(t))}}class ds extends ws{location;value;varName;constructor(t,e,n){super(t),this.location=t,this.value=e,this.varName=n}toString(){return`exists ${this.varName||""}`}apply(t){const e=t.getCurrentGoal().result,n=e.type;if(!(n instanceof He))return new Tt(t.location,new vt([`Cannot use exists on non-product type: ${n.prettyPrint()}`]));const r=this.varName||n.carName||Ot(e.context,"x"),s=e.renaming;r!==n.carName&&or(s,n.carName,r);const i=this.value.check(e.context,e.renaming,n.carType);if(i instanceof Tt)return i;const a=i.result.valOf(Mt(e.context)),o=It(e.context,r,new zt(n.carType,a)),c=n.cdrType.valOfClosure(a),u=new ls(new hs(t.generateGoalId(),c,o,s));return t.addGoal([u]),new Pt(t)}}class ms extends ws{location;target;motive;constructor(t,e,n){super(t),this.location=t,this.target=e,this.motive=n}toString(){return`elim-nat ${this.target} to prove ${this.motive.prettyPrint()}`}apply(t){const e=t.getCurrentGoal().result,n=e.context.get(this.target);if(!n)return new Tt(t.location,new vt([`target not found in current context: ${this.target}`]));let r;if(!(n instanceof Dt))throw new Error("Expected target to be a free variable");if(r=n.type.now(),!(r instanceof Re))return new Tt(t.location,new vt([`Cannot eliminate non-Nat type: ${r.prettyPrint()}`]));const s=Ot(e.context,"n"),i=this.motive.check(e.context,e.renaming,new Ge(s,new Re,new kt(t=>new en)));if(i instanceof Tt)return i;{const n=this.eliminateNat(e.context,e.renaming,i.result.valOf(Mt(e.context)));return t.addGoal(n.map(n=>new ls(new hs(t.generateGoalId(),n,e.context,e.renaming)))),new Pt(t)}}eliminateNat(t,e,n){return[Vt(n,new qe),new Ge(Ot(t,"n-1"),new Re,new kt(e=>new Ge(Ot(t,"ih"),Vt(n,e),new kt(t=>Vt(n,new Me(e))))))]}}class gs extends ws{location;target;motive;constructor(t,e,n){super(t),this.location=t,this.target=e,this.motive=n}toString(){return`elim-list ${this.target} to prove ${this.motive.prettyPrint()}`}apply(t){const e=t.getCurrentGoal().result,n=e.context.get(this.target);if(!n)return new Tt(t.location,new vt([`target not found in current context: ${this.target}`]));let r;if(!(n instanceof Dt))throw new Error("Expected target to be a free variable");if(r=n.type.now(),!(r instanceof De))return new Tt(t.location,new vt([`Cannot eliminate non-List type: ${r.prettyPrint()}`]));Ot(e.context,"motive");const s=r.entryType,i=this.motive.check(e.context,e.renaming,new Ge("xs",new De(s),new _t(Mt(e.context),"xs",new un)));if(i instanceof Tt)return i;{const n=i.result.valOf(Mt(e.context)),r=this.eliminateList(e.context,e.renaming,n,s);return console.log("Eliminating List with motive"),t.addGoal(r.map(n=>new ls(new hs(t.generateGoalId(),n,e.context,e.renaming)))),new Pt(t)}}eliminateList(t,e,n,r){return[Vt(n,new Fe),new Ge(Ot(t,"x"),r,new kt(e=>new Ge(Ot(t,"xs"),new De(r),new kt(r=>new Ge(Ot(t,"ih"),Vt(n,r),new kt(t=>Vt(n,new Qe(e,r))))))))]}}class vs extends ws{location;target;motive;length;constructor(t,e,n,r){super(t),this.location=t,this.target=e,this.motive=n,this.length=r}toString(){return`elim-list ${this.target} to prove ${this.motive.prettyPrint()}`}apply(t){const e=t.getCurrentGoal().result,n=e.context.get(this.target);if(!n)return new Tt(t.location,new vt([`target not found in current context: ${this.target}`]));let r;if(!(n instanceof Dt))throw new Error("Expected target to be a free variable");if(r=n.type.now(),!(r instanceof Ke))return new Tt(t.location,new vt([`Cannot eliminate non-Vec type: ${r.prettyPrint()}`]));const s=this.length.check(e.context,e.renaming,new Re);if(s instanceof Tt)return s;const[i,a]=[r.entryType,r.length];ur(e.context,this.location,new Re,Ct(e.context,s.result),a),Ot(e.context,"motive");const o=this.motive.check(e.context,e.renaming,new Ge("k",new Re,new kt(t=>new Ge("es",new Ke(i,t),new kt(t=>new en)))));if(o instanceof Tt)return o;{const n=o.result.valOf(Mt(e.context)),r=this.eliminateVec(e.context,e.renaming,n,i);return t.addGoal(r.map(n=>new ls(new hs(t.generateGoalId(),n,e.context,e.renaming)))),new Pt(t)}}eliminateVec(t,e,n,r){return[Vt(Vt(n,new qe),new Ye),ee(r,n)]}}class Es extends ws{location;target;motive;constructor(t,e,n){super(t),this.location=t,this.target=e,this.motive=n}toString(){return`elim-equal ${this.target} with motive ${this.motive.prettyPrint()}`}apply(t){const e=t.getCurrentGoal().result,n=e.context.get(this.target);if(!n)return new Tt(t.location,new vt([`target not found in current context: ${this.target}`]));let r;if(!(n instanceof Dt))throw new Error("Expected target to be a free variable");if(r=n.type.now(),!(r instanceof Ve))return new Tt(t.location,new vt([`Cannot eliminate non-Equal type: ${r.prettyPrint()}`]));const[s,i,a]=[r.type,r.from,r.to],o=this.motive.check(e.context,e.renaming,new Ge("to",s,new kt(t=>new Ge("p",new Ve(s,i,t),new kt(t=>new en)))));if(o instanceof Tt)return o;{const n=[Vt(Vt(o.result.valOf(Mt(e.context)),i),new Xe(i))];return t.addGoal(n.map(n=>new ls(new hs(t.generateGoalId(),n,e.context,e.renaming)))),new Pt(t)}}}class Ps extends ws{location;constructor(t){super(t),this.location=t}toString(){return"left"}apply(t){const e=t.getCurrentGoal().result;if(!(e.type.now()instanceof Ze))return new Tt(t.location,new vt([`"left" expected goal type to be Either, but got: ${e.type.prettyPrint()}`]));const n=e.type.leftType.now();return t.addGoal([new ls(new hs(t.generateGoalId(),n,e.context,e.renaming))]),new Pt(t)}}class Ts extends ws{location;constructor(t){super(t),this.location=t}toString(){return"right"}apply(t){const e=t.getCurrentGoal().result;if(!(e.type.now()instanceof Ze))return new Tt(t.location,new vt([`"right" expected goal type to be Either, but got: ${e.type.prettyPrint()}`]));const n=e.type.rightType.now();return t.addGoal([new ls(new hs(t.generateGoalId(),n,e.context,e.renaming))]),new Pt(t)}}class bs extends ws{location;target;motive;constructor(t,e,n){super(t),this.location=t,this.target=e,this.motive=n}toString(){return`elim-either ${this.target} with motive ${this.motive.prettyPrint()}`}apply(t){const e=t.getCurrentGoal().result,n=e.context.get(this.target);if(!n)return new Tt(t.location,new vt([`target not found in current context: ${this.target}`]));let r;if(!(n instanceof Dt))throw new Error("Expected target to be a free variable");if(r=n.type.now(),!(r instanceof Ze))return new Tt(t.location,new vt([`Cannot eliminate non-Either type: ${r.prettyPrint()}`]));const[s,i]=[r.leftType,r.rightType],a=this.motive.check(e.context,e.renaming,new Ge("x",new Ze(s,i),new kt(t=>new en)));if(a instanceof Tt)return a;{const n=a.result.valOf(Mt(e.context)),r=new Ge("x",s,new kt(t=>Vt(n,new We(t)))),o=new Ge("x",i,new kt(t=>Vt(n,new Je(t))));return t.addGoal([new ls(new hs(t.generateGoalId(),r,e.context,e.renaming)),new ls(new hs(t.generateGoalId(),o,e.context,e.renaming))]),new Pt(t)}}}class Ns extends ws{constructor(t){super(t)}toString(){return"split"}apply(t){const e=t.getCurrentGoal().result;if(!(e.type.now()instanceof He))return new Tt(t.location,new vt([`"split" expected goal type to be Sigma, but got: ${e.type.prettyPrint()}`]));const n=e.type.now(),r=n.carType.now(),s=n.cdrType.valOfClosure(n);return t.addGoal([new ls(new hs(t.generateGoalId(),r,e.context,e.renaming)),new ls(new hs(t.generateGoalId(),s,e.context,e.renaming))]),new Pt(t)}}class xs extends ws{location;target;motive;constructor(t,e,n){super(t),this.location=t,this.target=e,this.motive=n}toString(){return`elim-absurd ${this.target} with motive ${this.motive.prettyPrint()}`}apply(t){const e=t.getCurrentGoal().result,n=e.context.get(this.target);if(!n)return new Tt(t.location,new vt([`target not found in current context: ${this.target}`]));let r;if(!(n instanceof Dt))throw new Error("Expected target to be a free variable");if(r=n.type.now(),!(r instanceof an))return new Tt(t.location,new vt([`Cannot eliminate non-Absurd type: ${r.prettyPrint()}`]));const s=this.motive.check(e.context,e.renaming,new en);return s instanceof Tt?s:(t.currentGoal.isComplete=!0,t.nextGoal(),new Pt(t))}}function _s(t,e){return[t,...e]}function ks(t){return new ut(t,!0)}function $s(t){return new mt(ks(t),t.source)}function Ss(t){if(t instanceof rt.Symbol)return t.value;if(t instanceof rt.NumericLiteral)return t.value;if(t instanceof st.List)return Ss(t.elements[0]);throw new Error("Expected a Element, but got: "+t)}function Os(t,e){return new ct(e.start,e.end,t)}function Ls(t,e){return Os(Ss(t),e)}function As(t){const e=new nt(t);return new at("",e.scanTokens()).parse()}class Is{static parsePie(t){return Is.parseElements(As(t)[0])}static parseElements(t){const e=Ss(t);if("U"===e)return n=Os("U",t.location),new dr(ks(n));if("the"===e){const e=t.elements;return function(t,e,n){return new yr(ks(t),e,n)}(Os("the",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("Nat"===e)return function(t){return new mr(ks(t))}(Os("Nat",t.location));if("zero"===e)return function(t){return new gr(ks(t))}(Os("zero",t.location));if("add1"===e)return function(t,e){return new vr(ks(t),e)}(Os("add1",t.location),this.parseElements(t.elements[1]));if("->"===e||"→"===e){const e=t.elements;return function(t,e){return new Nr(ks(t),e[0],e[1],e[2])}(Os("->",t.location),[this.parseElements(e[1]),this.parseElements(e[2]),e.slice(3).map(t=>this.parseElements(t))])}if("lambda"===e||"λ"===e){const e=t.elements,n=t.location,r=e[1],s=e[2];return function(t,e,n){return new _r(ks(t),e,n)}(Os("λ",n),r.elements.map(e=>$s(Ls(e,t.location))),this.parseElements(s))}if("Pi"===e||"Π"===e){const e=t.elements,n=e[1],r=e[2],s=n.elements[0],i=s.elements[0],a=s.elements[1],o=n.elements.slice(1).map(t=>{const e=t.elements[0],n=t.elements[1];return new gt($s(Ls(e,t.location)),this.parseElements(n))});return function(t,e,n){return new xr(ks(t),e,n)}(Os("Π",t.location),_s(new gt($s(Ls(i,s.location)),this.parseElements(a)),o),this.parseElements(r))}if("Sigma"===e||"Σ"===e){const e=t.elements,n=e[1],r=e[2],s=n.elements[0],i=s.elements[0],a=s.elements[1],o=n.elements.slice(1).map(t=>{const e=t.elements[0],n=t.elements[1];return new gt($s(Ls(e,t.location)),this.parseElements(n))});return function(t,e,n){return new kr(ks(t),e,n)}(Os("Π",t.location),_s(new gt($s(Ls(i,s.location)),this.parseElements(a)),o),this.parseElements(r))}if("Pair"===e){const e=t.elements;return function(t,e,n){return new Lr(ks(t),e,n)}(Os("Pair",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("cons"===e){const e=t.elements;return function(t,e,n){return new Ar(ks(t),e,n)}(Os("Cons",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("car"===e)return function(t,e){return new Ir(ks(t),e)}(Os("car",t.location),this.parseElements(t.elements[1]));if("cdr"===e)return function(t,e){return new Cr(ks(t),e)}(Os("cdr",t.location),this.parseElements(t.elements[1]));if("which-Nat"===e){const e=t.elements;return function(t,e,n,r){return new Er(ks(t),e,n,r)}(Os("which-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("iter-Nat"===e){const e=t.elements;return function(t,e,n,r){return new Pr(ks(t),e,n,r)}(Os("iter-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("rec-Nat"===e){const e=t.elements;return function(t,e,n,r){return new Tr(ks(t),e,n,r)}(Os("rec-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("ind-Nat"===e){const e=t.elements;return function(t,e,n,r,s){return new br(ks(t),e,n,r,s)}(Os("ind-Nat",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("Atom"===e)return function(t){return new Sr(ks(t))}(Os("Atom",t.location));if("quote"===e)return function(t,e){return new Or(ks(t),e)}(Os("Quote",t.location),Ss(t.elements[1]));if("Trivial"===e)return function(t){return new Br(ks(t))}(Os("Trivial",t.location));if("sole"===e)return function(t){return new Rr(ks(t))}(Os("sole",t.location));if("List"===e)return function(t,e){return new Gr(ks(t),e)}(Os("List",t.location),this.parseElements(t.elements[1]));if("nil"===e)return function(t){return new qr(ks(t))}(Os("nil",t.location));if("::"===e){const e=t.elements;return function(t,e,n){return new Ur(ks(t),e,n)}(Os("::",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("rec-List"===e){const e=t.elements;return function(t,e,n,r){return new Hr(ks(t),e,n,r)}(Os("rec-List",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("ind-List"===e){const e=t.elements;return function(t,e,n,r,s){return new zr(ks(t),e,n,r,s)}(Os("ind-List",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("="===e){const e=t.elements;return function(t,e,n,r){return new Qr(ks(t),e,n,r)}(Os("=",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("same"===e)return function(t,e){return new Vr(ks(t),e)}(Os("same",t.location),this.parseElements(t.elements[1]));if("replace"===e){const e=t.elements;return function(t,e,n,r){return new Xr(ks(t),e,n,r)}(Os("replace",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("trans"===e){const e=t.elements;return function(t,e,n){return new Kr(ks(t),e,n)}(Os("trans",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("cong"===e){const e=t.elements;return function(t,e,n){return new Yr(ks(t),e,n)}(Os("cong",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("ind-="===e){const e=t.elements;return function(t,e,n,r){return new Zr(ks(t),e,n,r)}(Os("ind-=",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]))}if("symm"===e)return function(t,e){return new jr(ks(t),e)}(Os("symm",t.location),this.parseElements(t.elements[1]));if("Vec"===e){const e=t.elements;return function(t,e,n){return new Wr(ks(t),e,n)}(Os("Vec",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("vecnil"===e)return function(t){return new Jr(ks(t))}(Os("vecnil",t.location));if("vec::"===e){const e=t.elements;return function(t,e,n){return new ts(ks(t),e,n)}(Os("vec::",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("head"===e)return function(t,e){return new es(ks(t),e)}(Os("head",t.location),this.parseElements(t.elements[1]));if("tail"===e)return function(t,e){return new ns(ks(t),e)}(Os("tail",t.location),this.parseElements(t.elements[1]));if("ind-Vec"===e){const e=t.elements;return function(t,e,n,r,s,i){return new rs(ks(t),e,n,r,s,i)}(Os("ind-Vec",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]),this.parseElements(e[5]))}if("Either"===e){const e=t.elements;return function(t,e,n){return new ss(ks(t),e,n)}(Os("Either",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("left"===e)return function(t,e){return new is(ks(t),e)}(Os("left",t.location),this.parseElements(t.elements[1]));if("right"===e)return function(t,e){return new as(ks(t),e)}(Os("right",t.location),this.parseElements(t.elements[1]));if("ind-Either"===e){const e=t.elements;return function(t,e,n,r,s){return new os(ks(t),e,n,r,s)}(Os("ind-Either",t.location),this.parseElements(e[1]),this.parseElements(e[2]),this.parseElements(e[3]),this.parseElements(e[4]))}if("Absurd"===e)return function(t){return new Dr(ks(t))}(Os("Absurd",t.location));if("ind-Absurd"===e){const e=t.elements;return function(t,e,n){return new Fr(ks(t),e,n)}(Os("ind-Absurd",t.location),this.parseElements(e[1]),this.parseElements(e[2]))}if("TODO"===e)return function(t){return new cs(ks(t))}(Os("TODO",t.location));if(t instanceof st.List&&t.elements.length>1){const e=t.elements;return function(t,e,n,r){return new us(ks(t),e,n,r)}(Os("App",t.location),this.parseElements(e[0]),this.parseElements(e[1]),e.slice(2).map(t=>this.parseElements(t)))}if($t(e))return function(t,e){return new $r(ks(t),e)}(Os(e,t.location),e);if(!isNaN(Number(e)))return function(t,e){return new Mr(ks(t),Number(e))}(Os(e,t.location),e);var n;throw new Error("Unexpected element: "+t)}static parseToTactics(t){const e=Ss(t);if("exact"===e)return n=Os("exact",t.location),r=this.parseElements(t.elements[1]),new ys(ks(n),r);if("intro"===e)return function(t,e){return new fs(ks(t),e)}(Os("intro",t.location),t.elements[1].value);if("exists"===e)return function(t,e,n){return new ds(ks(t),e,n)}(Os("exists",t.location),this.parseElements(t.elements[1]),t.elements[2].value);if("elimNat"===e)return function(t,e,n){return new ms(ks(t),e,n)}(Os("elimNat",t.location),t.elements[1].value,this.parseElements(t.elements[2]));if("elimList"===e)return function(t,e,n){return new gs(ks(t),e,n)}(Os("elimList",t.location),t.elements[1].value,this.parseElements(t.elements[2]));if("elimVec"===e)return function(t,e,n,r){return new vs(ks(t),e,n,r)}(Os("elimVec",t.location),t.elements[1].value,this.parseElements(t.elements[2]),this.parseElements(t.elements[3]));if("elimEqual"===e)return function(t,e,n){return new Es(ks(t),e,n)}(Os("elimEqual",t.location),t.elements[1].value,this.parseElements(t.elements[2]));if("left"===e)return function(t){return new Ps(ks(t))}(Os("left",t.location));if("right"===e)return function(t){return new Ts(ks(t))}(Os("right",t.location));if("elimEither"===e)return function(t,e,n){return new bs(ks(t),e,n)}(Os("elimEither",t.location),t.elements[1].value,this.parseElements(t.elements[2]));if("split"===e)return function(t){return new Ns(ks(t))}(Os("split",t.location));if("elimAbsurd"===e)return function(t,e,n){return new xs(ks(t),e,n)}(Os("elimAbsurd",t.location),t.elements[1].value,this.parseElements(t.elements[2]));var n,r;throw new Error("Unexpected tactic: "+t)}}class Cs{location;name;type;constructor(t,e,n){this.location=t,this.name=e,this.type=n}}class Bs{location;name;expr;constructor(t,e,n){this.location=t,this.name=e,this.expr=n}}class Rs{location;type;left;right;constructor(t,e,n,r){this.location=t,this.type=e,this.left=n,this.right=r}}class qs{location;name;tactics;constructor(t,e,n){this.location=t,this.name=e,this.tactics=n}}class Ms{static parseDeclaration(t){const e=Ss(t);if("claim"===e){const e=t.elements;return new Cs(ks(Ls(e[0],t.location)),Ss(e[1]),Is.parseElements(e[2]))}if("define"===e){const e=t.elements;return new Bs(ks(Ls(e[0],t.location)),Ss(e[1]),Is.parseElements(e[2]))}if("check-same"===e){const e=t.elements;return new Rs(ks(Ls(e[0],t.location)),Is.parseElements(e[1]),Is.parseElements(e[2]),Is.parseElements(e[3]))}if("define-tactically"===e){const e=t.elements;return new qs(ks(Ls(e[0],t.location)),Ss(e[1]),e[2].elements.map(t=>Is.parseToTactics(t)))}return Is.parseElements(t)}}function Gs(t,e){const n=new bt("outmeta");return Nt([[n,()=>e.synth(t,new Map)]],()=>{const e=Ct(t,n.value.type),r=Ct(t,n.value.expr);return new Pt(new cn(e.readBackType(t),se(t,e,r)))})}function Us(t,e,n,r,s){const i=new bt("tOut"),a=new bt("tv"),o=new bt("aOut"),c=new bt("bOut"),u=new bt("av"),h=new bt("bv");return Nt([[i,()=>n.isType(t,new Map)],[a,()=>Ct(t,i.value).readBackType(t)],[o,()=>r.check(t,new Map,a.value)],[c,()=>s.check(t,new Map,a.value)],[u,()=>Ct(t,o.value)],[h,()=>Ct(t,c.value)]],()=>ur(t,e,a.value,u.value,h.value))}function Hs(t){return t.prettyPrint()}class zs{currentState=null;startProof(t,e,n){const r=e.get(t);return r instanceof Ht?(this.currentState=ps.initialize(e,r.type,n),new Pt(`Started proof of ${t}\nCurrent goal: \n${r.type.readBackType(e).prettyPrint()}`)):new Tt(n,new vt([`${t} is not a valid type or has already been proved`]))}applyTactic(t){if(!this.currentState)return new Tt(t.location,new vt(["No proof has been initialized"]));const e=t.apply(this.currentState);if(e instanceof Tt)return e;this.currentState=e.result;let n=`\nApplied tactic: ${t}`;const r=this.currentState.getCurrentGoal();if(this.currentState.isComplete())n+="\nAll goals have been solved!";else{const t=r.result;n+="\nCurrent goal: \n"+t.type.readBackType(t.context).prettyPrint()}return new Pt(n)}}!function(t,e=self){const n=new c(e,!1);n.registerPlugin(m,t)}(class extends n{executionCount;constructor(t){super(t),this.executionCount=0}async evaluateChunk(t){this.executionCount++;try{const e=function(t){const e=As(t);let n=Gt,r="";for(const t of e){const e=Ms.parseDeclaration(t);if(e instanceof Cs){const t=Rt(n,e.name,e.location,e.type);if(t instanceof Pt)n=t.result;else if(t instanceof Tt)throw new Error(""+t.where+t.message)}else if(e instanceof Bs){const t=qt(n,e.name,e.location,e.expr);if(t instanceof Pt)n=t.result;else if(t instanceof Tt)throw new Error(""+t.where+t.message)}else if(e instanceof Rs){const t=Us(n,e.location,e.type,e.left,e.right);if(t instanceof Pt)n=t.result;else if(t instanceof Tt)throw new Error(""+t.where+t.message)}else{if(e instanceof qs){const t=new zs;let r="";const s=t.startProof(e.name,n,e.location);if(s instanceof Pt)r+=s.result+"\n";else if(s instanceof Tt)throw new Error(""+s.where+s.message);for(const n of e.tactics){const e=t.applyTactic(n);if(e instanceof Pt)r+=e.result;else if(e instanceof Tt)throw new Error(""+e.where+e.message)}return r}{const t=Gs(n,e);if(t instanceof Pt){const e=t.result;r+=`${Hs(e.expr)}: ${Hs(e.type)}\n`}else if(t instanceof Tt)throw new Error(`${t.message} at ${t.where}`)}}}for(const[t,e]of n)e instanceof zt?(r+=t+" : "+Hs(e.type.readBackType(n))+"\n",r+=t+" = "+Hs(se(n,e.type,e.value))+"\n"):r+=t+" : "+Hs(e.type.readBackType(n))+"\n";return r}(t);this.conductor.sendOutput(`Result of expression: execution ${e}`)}catch(t){t instanceof Error?this.conductor.sendOutput(`Error: ${t.message}`):this.conductor.sendOutput(`Error: ${String(t)}`)}}})}();
+//# sourceMappingURL=index.js.map