@nfdi4plants/arctrl 3.1.0 → 3.2.0

package/dist/ts/ts/CWL/Encode.js

@@ -1,16 +1,30 @@
-import { FSharpChoice$2_Choice1Of2, FSharpChoice$2_Choice2Of2 } from '../../node_modules/@fable-org/fable-library-js/Choice.js';
-import { map, value, bind, filter } from '../../node_modules/@fable-org/fable-library-js/Option.js';
-import { toList, map as map$2, choose as choose$1, fold, delay, append as append$1, singleton as singleton$1, empty as empty$1 } from '../../node_modules/@fable-org/fable-library-js/Seq.js';
-import { isEmpty, head, tail, map as map$1, singleton, ofArray, empty, append, ofSeq, choose, exists, cons, filter as filter$1, contains, tryFind, reverse, length } from '../../node_modules/@fable-org/fable-library-js/List.js';
-import { YAMLElement_Value, YAMLContent_create_Z1C3A29C9, YAMLElement_Object, YAMLElement_Mapping, ScalarStyle_Block, BlockScalarStyle_Literal, ChompingMode_Clip, ScalarStyle_DoubleQuoted, YAMLElement_Sequence, YAMLElement, Config } from '../fable_modules/YAMLicious.1.0.0-alpha.7/YAMLiciousTypes.fs.js';
-import { trimEnd, replace, toText, interpolate, trimStart, join, split } from '../../node_modules/@fable-org/fable-library-js/String.js';
-import { string, int, float } from '../fable_modules/YAMLicious.1.0.0-alpha.7/Encode.fs.js';
-import { LoadListingEnum_get_toCwlString } from './Requirements.js';
-import { int64ToString, stringHash, comparePrimitives } from '../../node_modules/@fable-org/fable-library-js/Util.js';
+import { FSharpChoice$2_Choice1Of2, FSharpChoice$2_Choice2Of2 } from '../../node_modules/@fable-org/fable-library-ts/Choice.js';
+import { FileInstance, DirectoryInstance, DirentInstance, InputRecordField, InputRecordSchema, InputEnumSchema, InputArraySchema, SchemaDefRequirementType, SoftwarePackage } from './CWLTypes.js';
+import { value, defaultArg, toArray } from '../../node_modules/@fable-org/fable-library-ts/Option.js';
+import { toList, choose, fold, map as map$1, delay, append as append$1, singleton as singleton$1, empty as empty$2 } from '../../node_modules/@fable-org/fable-library-ts/Seq.js';
+import { isEmpty, head, tail, map, append, singleton, ofArray, empty as empty$1, ofSeq, length, choose as choose$1, filter, contains as contains$1, tryFind, reverse, cons } from '../../node_modules/@fable-org/fable-library-ts/List.js';
+import { YAMLElement_Value, YAMLContent_create_Z1C3A29C9, YAMLElement_Object$, YAMLElement_Mapping, YAMLElement, YAMLElement_Sequence, ScalarStyle_Block, BlockScalarStyle, ChompingMode, ScalarStyle, Config } from '../fable_modules/YAMLicious.1.0.0/YAMLiciousTypes.fs.js';
+import { equals, defaultOf, int64ToString, isIterable, comparePrimitives, curry2, stringHash } from '../../node_modules/@fable-org/fable-library-ts/Util.js';
+import { string, int } from '../fable_modules/YAMLicious.1.0.0/Encode.fs.js';
+import { DynamicObj } from '../fable_modules/DynamicObj.8.0.0/DynamicObj.fs.js';
+import { dynamicPropertiesExcept } from './DynamicObjHelpers.js';
+import { empty, ofSeq as ofSeq$1, contains, ofList, FSharpSet__Contains } from '../../node_modules/@fable-org/fable-library-ts/Set.js';
+import { trimEnd, replace, interpolate, trimStart, join, split, concat } from '../../node_modules/@fable-org/fable-library-ts/String.js';
+import { Operators_IsNull } from '../../node_modules/@fable-org/fable-library-ts/FSharp.Core.js';
+import { LoadListingEnum_get_toCwlString, InlineJavascriptRequirementValue, InplaceUpdateRequirementValue, NetworkAccessRequirementValue, WorkReuseRequirementValue, ResourceRequirementInstance, EnvironmentDef, LoadListingRequirementValue, DockerRequirement } from './Requirements.js';
+import { OutputBinding, CWLOutput } from './Outputs.js';
+import { item } from '../../node_modules/@fable-org/fable-library-ts/Array.js';
+import { CWLParameterValueModule_floatToRoundTripString, CWLParameterValueModule_tryInferType } from './ParameterValue.js';
+import { InputBinding, CWLInput } from './Inputs.js';
+import { StepInput, StepOutputParameter, WorkflowStep } from './WorkflowSteps.js';
 import { WorkflowStepRunOps_tryGetOperation, WorkflowStepRunOps_tryGetExpressionTool, WorkflowStepRunOps_tryGetWorkflow, WorkflowStepRunOps_tryGetTool } from './CWLProcessingUnit.js';
-import { toString } from '../../node_modules/@fable-org/fable-library-js/Types.js';
-import { write } from '../fable_modules/YAMLicious.1.0.0-alpha.7/Writer.fs.js';
-import { ofList, FSharpSet__Contains } from '../../node_modules/@fable-org/fable-library-js/Set.js';
+import { CWLToolDescription } from './ToolDescription.js';
+import { ArgumentException_$ctor_Z721C83C5 } from '../../node_modules/@fable-org/fable-library-ts/System.js';
+import { CWLWorkflowDescription } from './WorkflowDescription.js';
+import { CWLExpressionToolDescription } from './ExpressionToolDescription.js';
+import { CWLOperationDescription } from './OperationDescription.js';
+import { write } from '../fable_modules/YAMLicious.1.0.0/Writer.fs.js';
+import { CWLParameterReference } from './ParameterReference.js';
 
 function $007CPrimitiveType$007CComplexType$007C(t) {
   switch (t.tag) {
@@ -54,7 +68,8 @@ function $007CPrimitiveType$007CComplexType$007C(t) {
     case /* Array */
     11: {
       const arraySchema = t.fields[0];
-      if ($007CPrimitiveType$007CComplexType$007C(arraySchema.Items).tag === /* Choice2Of2 */
+      const matchValue = arraySchema.Items;
+      if ($007CPrimitiveType$007CComplexType$007C(matchValue).tag === /* Choice2Of2 */
       1) {
         return FSharpChoice$2_Choice2Of2(void 0);
       } else {
@@ -66,7 +81,7 @@ function $007CPrimitiveType$007CComplexType$007C(t) {
   }
 }
 function tryGetArrayShorthand(cwlType) {
-  let matchResult, name_1, arraySchema;
+  let matchResult = void 0, name_1 = void 0, arraySchema = void 0;
   const activePatternResult = $007CPrimitiveType$007CComplexType$007C(cwlType);
   if (activePatternResult.tag === /* Choice1Of2 */
   0) {
@@ -90,8 +105,14 @@ function tryGetArrayShorthand(cwlType) {
   switch (matchResult) {
     case 0:
       return name_1;
-    case 1:
-      return map((s) => s + "[]", tryGetArrayShorthand(arraySchema.Items));
+    case 1: {
+      const option_1 = tryGetArrayShorthand(arraySchema.Items);
+      if (option_1 != null) {
+        return value(option_1) + "[]";
+      } else {
+        return void 0;
+      }
+    }
     default:
       return void 0;
   }
@@ -107,12 +128,14 @@ function isComplexType(t_mut) {
         13:
           return true;
         case /* Array */
-        11:
-          return tryGetArrayShorthand(t.fields[0].Items) == null;
+        11: {
+          const arraySchema = t.fields[0];
+          return tryGetArrayShorthand(arraySchema.Items) == null;
+        }
         case /* Union */
         14: {
           const typesList = toList(t.fields[0]);
-          let matchResult, otherType;
+          let matchResult = void 0, otherType = void 0;
           if (!isEmpty(typesList)) {
             if (head(typesList).tag === /* Null */
             10) {
@@ -162,21 +185,82 @@ function isComplexType(t_mut) {
 function yBool(b) {
   return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(b ? "true" : "false"));
 }
+function yFloat(value) {
+  return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(value.toString()));
+}
 function yMap(pairs) {
-  return YAMLElement_Object(map$1((tupledArg) => {
-    let _arg, single;
+  return YAMLElement_Object$(map((tupledArg) => {
+    let _arg = void 0, single = void 0;
     return YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(tupledArg[0]), (_arg = tupledArg[1], _arg.tag === /* Object */
     3 ? !isEmpty(_arg.fields[0]) ? head(_arg.fields[0]).tag === /* Value */
     1 ? isEmpty(tail(_arg.fields[0])) ? _arg : _arg : head(_arg.fields[0]).tag === /* Alias */
-    7 ? isEmpty(tail(_arg.fields[0])) ? _arg : _arg : isEmpty(tail(_arg.fields[0])) ? (single = head(_arg.fields[0]), single) : _arg : YAMLElement_Value(YAMLContent_create_Z1C3A29C9("{}")) : _arg));
+    7 ? isEmpty(tail(_arg.fields[0])) ? _arg : _arg : isEmpty(tail(_arg.fields[0])) ? (single = head(_arg.fields[0]), single) : _arg : _arg : _arg));
   }, pairs));
 }
+function encodeDynamicValue(value) {
+  if (equals(value, defaultOf())) {
+    return void 0;
+  } else if (typeof value === "string") {
+    const s = value;
+    return string(s);
+  } else if (typeof value === "boolean") {
+    const b = value;
+    return yBool(b);
+  } else if (typeof value === "number") {
+    const f = value;
+    return yFloat(f);
+  } else if (typeof value === "number") {
+    const i = value | 0;
+    return int(i);
+  } else if (typeof value === "bigint") {
+    const i_1 = value;
+    return string(int64ToString(i_1));
+  } else if (value instanceof YAMLElement) {
+    const y = value;
+    return y;
+  } else if (value instanceof DynamicObj) {
+    const dynObj = value;
+    return encodeDynamicObj(dynObj);
+  } else if (isIterable(value)) {
+    const values = value;
+    return YAMLElement_Sequence(toList(choose(encodeDynamicValue, values)));
+  } else {
+    return void 0;
+  }
+}
+function encodeDynamicObj(dynObj) {
+  return yMap(toList(choose((kvp) => {
+    const option_1 = encodeDynamicValue(kvp[1]);
+    if (option_1 != null) {
+      return [kvp[0], value(option_1)];
+    } else {
+      return void 0;
+    }
+  }, dynamicPropertiesExcept(empty({
+    Compare: (x, y) => comparePrimitives(x, y) | 0
+  }), dynObj))));
+}
+function appendDynamicPropertiesExcept(knownFieldNames, dynObj, acc) {
+  return fold((pairs, pair) => append(pairs, singleton(pair)), acc, choose((kvp) => {
+    const option_1 = encodeDynamicValue(kvp[1]);
+    if (option_1 != null) {
+      return [kvp[0], value(option_1)];
+    } else {
+      return void 0;
+    }
+  }, dynamicPropertiesExcept(knownFieldNames, dynObj)));
+}
+function appendDynamicProperties(dynObj, acc) {
+  return appendDynamicPropertiesExcept(empty({
+    Compare: (x, y) => comparePrimitives(x, y) | 0
+  }), dynObj, acc);
+}
 function normalizeDocString(doc) {
   return trimEnd(trimEnd(replace(doc, "\r\n", "\n"), "\n"), "\r");
 }
 function encodeExpressionScalar(expression) {
-  const normalized = expression == null ? "" : replace(replace(expression, "\r\n", "\n"), "\r", "\n");
-  return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(normalized, void 0, void 0, void 0, normalized.indexOf("\n") >= 0 ? ScalarStyle_Block(BlockScalarStyle_Literal(), ChompingMode_Clip(), void 0) : ScalarStyle_DoubleQuoted()));
+  const normalized = Operators_IsNull(expression) ? "" : replace(replace(expression, "\r\n", "\n"), "\r", "\n");
+  return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(normalized, void 0, void 0, void 0, normalized.indexOf("\n") >= 0 ? ScalarStyle_Block(BlockScalarStyle.Literal, ChompingMode.Clip, void 0) : ScalarStyle.DoubleQuoted));
 }
 function encodeSchemaSaladString(value) {
   switch (value.tag) {
@@ -198,13 +282,13 @@ function normalizeEnvValueForEncode(envValue) {
   }
 }
 function encodeEnvVarRequirementCompactMap(envs) {
-  const envDefMap = yMap(toList(map$2((env) => [env.EnvName, string(normalizeEnvValueForEncode(env.EnvValue))], envs)));
+  const envDefMap = yMap(toList(map$1((env) => [env.EnvName, string(normalizeEnvValueForEncode(env.EnvValue))], envs)));
   return yMap(ofArray([["class", string("EnvVarRequirement")], ["envDef", envDefMap]]));
 }
 function encodeSoftwareRequirementCompactMap(packages) {
-  const packagesMap = yMap(toList(map$2((package$_1) => {
-    let package$, matchValue_1, value_6, acc_3, value_3, acc_1;
-    return [package$_1.Package, (package$ = package$_1, matchValue_1 = package$.Specs, package$.Version == null ? matchValue_1 != null ? YAMLElement_Sequence(toList(map$2(string, value(matchValue_1)))) : yMap(empty()) : yMap((value_6 = package$.Specs, acc_3 = (value_3 = package$.Version, acc_1 = empty(), value_3 == null ? acc_1 : append(acc_1, singleton(["version", YAMLElement_Sequence(toList(map$2(string, value(value_3))))]))), value_6 == null ? acc_3 : append(acc_3, singleton(["specs", YAMLElement_Sequence(toList(map$2(string, value(value_6))))])))))];
+  const packagesMap = yMap(toList(map$1((package$_1) => {
+    let package$ = void 0, matchValue = void 0, matchValue_1 = void 0, acc_2 = void 0, value_3 = void 0, acc_1 = void 0, value_6 = void 0, acc_3 = void 0;
+    return [package$_1.Package, (package$ = package$_1, matchValue = package$.Version, matchValue_1 = package$.Specs, matchValue == null ? matchValue_1 != null ? YAMLElement_Sequence(toList(map$1(string, value(matchValue_1)))) : yMap(empty$1()) : yMap((acc_2 = (value_3 = package$.Version, acc_1 = empty$1(), value_3 == null ? acc_1 : append(acc_1, singleton(["version", YAMLElement_Sequence(toList(map$1(string, value(value_3))))]))), value_6 = package$.Specs, acc_3 = acc_2, value_6 == null ? acc_3 : append(acc_3, singleton(["specs", YAMLElement_Sequence(toList(map$1(string, value(value_6))))])))))];
   }, packages)));
   return yMap(ofArray([["class", string("SoftwareRequirement")], ["packages", packagesMap]]));
 }
@@ -215,18 +299,91 @@ function encodeDoc(doc) {
   return ["doc", string(normalizeDocString(doc))];
 }
 function encodeIntent(intent) {
-  return ["intent", YAMLElement_Sequence(ofSeq(map$2(string, intent)))];
+  return ["intent", YAMLElement_Sequence(ofSeq(map$1(string, intent)))];
+}
+function encodeFilePairs(discriminatorKey, discriminatorValue, file) {
+  let acc_22;
+  let acc_20;
+  let acc_18;
+  let acc_16;
+  let acc_14;
+  let acc_12;
+  let acc_10;
+  let acc_8;
+  let acc_6;
+  let acc_4;
+  let acc_2;
+  const acc = singleton([discriminatorKey, string(discriminatorValue)]);
+  const value_2 = file.Location;
+  const acc_1 = acc;
+  acc_2 = value_2 == null ? acc_1 : append(acc_1, singleton(["location", string(value(value_2))]));
+  const value_5 = file.Path;
+  const acc_3 = acc_2;
+  acc_4 = value_5 == null ? acc_3 : append(acc_3, singleton(["path", string(value(value_5))]));
+  const value_8 = file.Basename;
+  const acc_5 = acc_4;
+  acc_6 = value_8 == null ? acc_5 : append(acc_5, singleton(["basename", string(value(value_8))]));
+  const value_11 = file.Dirname;
+  const acc_7 = acc_6;
+  acc_8 = value_11 == null ? acc_7 : append(acc_7, singleton(["dirname", string(value(value_11))]));
+  const value_14 = file.Nameroot;
+  const acc_9 = acc_8;
+  acc_10 = value_14 == null ? acc_9 : append(acc_9, singleton(["nameroot", string(value(value_14))]));
+  const value_17 = file.Nameext;
+  const acc_11 = acc_10;
+  acc_12 = value_17 == null ? acc_11 : append(acc_11, singleton(["nameext", string(value(value_17))]));
+  const value_20 = file.Checksum;
+  const acc_13 = acc_12;
+  acc_14 = value_20 == null ? acc_13 : append(acc_13, singleton(["checksum", string(value(value_20))]));
+  const value_22 = file.Size;
+  const acc_15 = acc_14;
+  acc_16 = value_22 == null ? acc_15 : append(acc_15, singleton(["size", YAMLElement_Value(YAMLContent_create_Z1C3A29C9(int64ToString(value(value_22))))]));
+  const value_24 = file.SecondaryFiles;
+  const acc_17 = acc_16;
+  acc_18 = value_24 == null ? acc_17 : append(acc_17, singleton(["secondaryFiles", value(value_24)]));
+  const value_27 = file.Format;
+  const acc_19 = acc_18;
+  acc_20 = value_27 == null ? acc_19 : append(acc_19, singleton(["format", string(value(value_27))]));
+  const value_30 = file.Contents;
+  const acc_21 = acc_20;
+  acc_22 = value_30 == null ? acc_21 : append(acc_21, singleton(["contents", string(value(value_30))]));
+  return appendDynamicPropertiesExcept(FileInstance.KnownFieldNames, file, acc_22);
+}
+function encodeDirectoryPairs(discriminatorKey, discriminatorValue, directory) {
+  let acc_8;
+  let acc_6;
+  let acc_4;
+  let acc_2;
+  const acc = singleton([discriminatorKey, string(discriminatorValue)]);
+  const value_2 = directory.Location;
+  const acc_1 = acc;
+  acc_2 = value_2 == null ? acc_1 : append(acc_1, singleton(["location", string(value(value_2))]));
+  const value_5 = directory.Path;
+  const acc_3 = acc_2;
+  acc_4 = value_5 == null ? acc_3 : append(acc_3, singleton(["path", string(value(value_5))]));
+  const value_8 = directory.Basename;
+  const acc_5 = acc_4;
+  acc_6 = value_8 == null ? acc_5 : append(acc_5, singleton(["basename", string(value(value_8))]));
+  const value_10 = directory.Listing;
+  const acc_7 = acc_6;
+  acc_8 = value_10 == null ? acc_7 : append(acc_7, singleton(["listing", value(value_10)]));
+  return appendDynamicPropertiesExcept(DirectoryInstance.KnownFieldNames, directory, acc_8);
 }
 function encodeCWLType(t) {
-  let value_4, acc_3, value_2, acc_1;
+  let acc_4 = void 0, acc_2 = void 0, acc = void 0, value_2 = void 0, acc_1 = void 0, value_4 = void 0, acc_3 = void 0;
   switch (t.tag) {
     case /* Directory */
     1:
-      return string("Directory");
+      if (length(encodeDirectoryPairs("type", "Directory", t.fields[0])) > 1) {
+        const directory_2 = t.fields[0];
+        return yMap(encodeDirectoryPairs("type", "Directory", directory_2));
+      } else {
+        return string("Directory");
+      }
     case /* Dirent */
     2: {
       const d = t.fields[0];
-      return yMap((value_4 = d.Writable, acc_3 = (value_2 = d.Entryname, acc_1 = singleton(["entry", encodeSchemaSaladString(d.Entry)]), value_2 == null ? acc_1 : append(acc_1, singleton(["entryname", encodeSchemaSaladString(value(value_2))]))), value_4 == null ? acc_3 : append(acc_3, singleton(["writable", yBool(value(value_4))]))));
+      return yMap((acc_4 = (acc_2 = (acc = singleton(["entry", encodeSchemaSaladString(d.Entry)]), value_2 = d.Entryname, acc_1 = acc, value_2 == null ? acc_1 : append(acc_1, singleton(["entryname", encodeSchemaSaladString(value(value_2))]))), value_4 = d.Writable, acc_3 = acc_2, value_4 == null ? acc_3 : append(acc_3, singleton(["writable", yBool(value(value_4))]))), appendDynamicPropertiesExcept(DirentInstance.KnownFieldNames, d, acc_4)));
     }
     case /* String */
     3:
@@ -254,8 +411,9 @@ function encodeCWLType(t) {
       return string("null");
     case /* Union */
     14: {
-      const typesList = toList(t.fields[0]);
-      let matchResult, otherType;
+      const types = t.fields[0];
+      const typesList = toList(types);
+      let matchResult = void 0, otherType = void 0;
       if (!isEmpty(typesList)) {
         if (head(typesList).tag === /* Null */
         10) {
@@ -325,10 +483,10 @@ function encodeCWLType(t) {
               }
             }
             default:
-              return YAMLElement_Sequence(map$1(encodeCWLType, typesList));
+              return YAMLElement_Sequence(map(encodeCWLType, typesList));
           }
         default:
-          return YAMLElement_Sequence(map$1(encodeCWLType, typesList));
+          return YAMLElement_Sequence(map(encodeCWLType, typesList));
       }
     }
     case /* Array */
@@ -342,226 +500,228 @@ function encodeCWLType(t) {
       }
     }
     case /* Record */
-    12:
-      return encodeInputRecordSchema(t.fields[0]);
+    12: {
+      const recordSchema = t.fields[0];
+      return encodeInputRecordSchema(recordSchema);
+    }
     case /* Enum */
-    13:
-      return encodeInputEnumSchema(t.fields[0]);
+    13: {
+      const enumSchema = t.fields[0];
+      return encodeInputEnumSchema(enumSchema);
+    }
     default:
-      return string("File");
+      if (length(encodeFilePairs("type", "File", t.fields[0])) > 1) {
+        const file_2 = t.fields[0];
+        return yMap(encodeFilePairs("type", "File", file_2));
+      } else {
+        return string("File");
+      }
   }
 }
 function encodeInputRecordField(field) {
-  return [field.Name, yMap(singleton(["type", encodeCWLType(field.Type)]))];
+  let pairs;
+  let acc_4;
+  let acc_2;
+  const acc = singleton(["type", encodeCWLType(field.Type)]);
+  const value_2 = field.Doc;
+  const acc_1 = acc;
+  acc_2 = value_2 == null ? acc_1 : append(acc_1, singleton(["doc", string(value(value_2))]));
+  const value_5 = field.Label;
+  const acc_3 = acc_2;
+  acc_4 = value_5 == null ? acc_3 : append(acc_3, singleton(["label", string(value(value_5))]));
+  pairs = appendDynamicPropertiesExcept(InputRecordField.KnownFieldNames, field, acc_4);
+  return [field.Name, yMap(pairs)];
 }
 function encodeInputRecordSchema(schema) {
+  let acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, acc = void 0, value_2 = void 0, acc_1 = void 0, value_5 = void 0, acc_3 = void 0, value_8 = void 0, acc_5 = void 0;
   let fieldsElement;
   const matchValue = schema.Fields;
-  fieldsElement = matchValue == null ? yMap(empty()) : yMap(toList(map$2(encodeInputRecordField, value(matchValue))));
-  return yMap(ofArray([["type", string("record")], ["fields", fieldsElement]]));
+  fieldsElement = matchValue == null ? yMap(empty$1()) : yMap(toList(map$1(encodeInputRecordField, value(matchValue))));
+  return yMap((acc_6 = (acc_4 = (acc_2 = (acc = ofArray([["type", string("record")], ["fields", fieldsElement]]), value_2 = schema.Label, acc_1 = acc, value_2 == null ? acc_1 : append(acc_1, singleton(["label", string(value(value_2))]))), value_5 = schema.Doc, acc_3 = acc_2, value_5 == null ? acc_3 : append(acc_3, singleton(["doc", string(value(value_5))]))), value_8 = schema.Name, acc_5 = acc_4, value_8 == null ? acc_5 : append(acc_5, singleton(["name", string(value(value_8))]))), appendDynamicPropertiesExcept(InputRecordSchema.KnownFieldNames, schema, acc_6)));
 }
 function encodeInputEnumSchema(schema) {
-  return yMap(append(singleton(["type", string("enum")]), singleton(["symbols", YAMLElement_Sequence(ofSeq(map$2(string, schema.Symbols)))])));
+  let acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, value_3 = void 0, acc_1 = void 0, value_6 = void 0, acc_3 = void 0, value_9 = void 0, acc_5 = void 0;
+  const pairs = append(singleton(["type", string("enum")]), singleton(["symbols", YAMLElement_Sequence(ofSeq(map$1(string, schema.Symbols)))]));
+  return yMap((acc_6 = (acc_4 = (acc_2 = (value_3 = schema.Label, acc_1 = pairs, value_3 == null ? acc_1 : append(acc_1, singleton(["label", string(value(value_3))]))), value_6 = schema.Doc, acc_3 = acc_2, value_6 == null ? acc_3 : append(acc_3, singleton(["doc", string(value(value_6))]))), value_9 = schema.Name, acc_5 = acc_4, value_9 == null ? acc_5 : append(acc_5, singleton(["name", string(value(value_9))]))), appendDynamicPropertiesExcept(InputEnumSchema.KnownFieldNames, schema, acc_6)));
 }
 function encodeInputArraySchema(schema) {
-  return yMap(ofArray([["type", string("array")], ["items", encodeCWLType(schema.Items)]]));
+  let acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, acc = void 0, value_2 = void 0, acc_1 = void 0, value_5 = void 0, acc_3 = void 0, value_8 = void 0, acc_5 = void 0;
+  return yMap((acc_6 = (acc_4 = (acc_2 = (acc = ofArray([["type", string("array")], ["items", encodeCWLType(schema.Items)]]), value_2 = schema.Label, acc_1 = acc, value_2 == null ? acc_1 : append(acc_1, singleton(["label", string(value(value_2))]))), value_5 = schema.Doc, acc_3 = acc_2, value_5 == null ? acc_3 : append(acc_3, singleton(["doc", string(value(value_5))]))), value_8 = schema.Name, acc_5 = acc_4, value_8 == null ? acc_5 : append(acc_5, singleton(["name", string(value(value_8))]))), appendDynamicPropertiesExcept(InputArraySchema.KnownFieldNames, schema, acc_6)));
 }
 function encodeOutputBinding(ob) {
-  return yMap(choose((x) => x, singleton(map((g) => ["glob", string(g)], ob.Glob))));
+  let acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, acc = void 0, option_1 = void 0, value_1 = void 0, acc_1 = void 0, encoder_1 = void 0, f1 = void 0, value_4 = void 0, acc_3 = void 0, value_7 = void 0, acc_5 = void 0;
+  return yMap((acc_6 = (acc_4 = (acc_2 = (acc = choose$1((x) => x, singleton((option_1 = ob.Glob, option_1 != null ? ["glob", string(value(option_1))] : void 0))), value_1 = ob.LoadContents, acc_1 = acc, value_1 == null ? acc_1 : append(acc_1, singleton(["loadContents", yBool(value(value_1))]))), encoder_1 = (f1 = LoadListingEnum_get_toCwlString(), (arg) => string(f1(arg))), value_4 = ob.LoadListing, acc_3 = acc_2, value_4 == null ? acc_3 : append(acc_3, singleton(["loadListing", encoder_1(value(value_4))]))), value_7 = ob.OutputEval, acc_5 = acc_4, value_7 == null ? acc_5 : append(acc_5, singleton(["outputEval", string(value(value_7))]))), appendDynamicPropertiesExcept(OutputBinding.KnownFieldNames, ob, acc_6)));
 }
 function encodeStringArrayOrScalar(values) {
   if (values.length === 1) {
-    return string(values[0]);
+    return string(item(0, values));
   } else {
-    return YAMLElement_Sequence(ofSeq(map$2(string, values)));
+    return YAMLElement_Sequence(ofSeq(map$1(string, values)));
+  }
+}
+function encodeCWLParameterValue(value) {
+  switch (value.tag) {
+    case /* String */
+    1:
+      return string(value.fields[0]);
+    case /* Int */
+    2:
+      return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(int64ToString(value.fields[0])));
+    case /* Float */
+    3:
+      return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(CWLParameterValueModule_floatToRoundTripString(value.fields[0])));
+    case /* Boolean */
+    4:
+      return yBool(value.fields[0]);
+    case /* File */
+    5:
+      return yMap(encodeFilePairs("class", "File", value.fields[0]));
+    case /* Directory */
+    6:
+      return yMap(encodeDirectoryPairs("class", "Directory", value.fields[0]));
+    case /* Array */
+    7:
+      return YAMLElement_Sequence(toList(map$1(encodeCWLParameterValue, value.fields[0])));
+    case /* Record */
+    8:
+      return yMap(toList(map$1((field) => [field.Name, encodeCWLParameterValue(field.Value)], value.fields[0])));
+    default:
+      return YAMLElement_Value(YAMLContent_create_Z1C3A29C9("null"));
   }
 }
 function encodeCWLOutput(o) {
-  let values;
-  const typeElement = map((t) => {
-    switch (t.tag) {
-      case /* Union */
-      14: {
-        const typesList = toList(t.fields[0]);
-        let matchResult, otherType;
-        if (!isEmpty(typesList)) {
-          if (head(typesList).tag === /* Null */
-          10) {
-            if (!isEmpty(tail(typesList))) {
-              if (isEmpty(tail(tail(typesList)))) {
-                matchResult = 0;
-                otherType = head(tail(typesList));
-              } else {
-                matchResult = 1;
-              }
-            } else {
-              matchResult = 1;
-            }
-          } else if (!isEmpty(tail(typesList))) {
-            if (head(tail(typesList)).tag === /* Null */
-            10) {
-              if (isEmpty(tail(tail(typesList)))) {
-                matchResult = 0;
-                otherType = head(typesList);
-              } else {
-                matchResult = 1;
-              }
-            } else {
-              matchResult = 1;
-            }
-          } else {
-            matchResult = 1;
-          }
-        } else {
-          matchResult = 1;
-        }
-        switch (matchResult) {
-          case 0:
-            switch (otherType.tag) {
-              case /* File */
-              0:
-              case /* Directory */
-              1:
-              case /* String */
-              3:
-              case /* Int */
-              4:
-              case /* Long */
-              5:
-              case /* Float */
-              6:
-              case /* Double */
-              7:
-              case /* Boolean */
-              8:
-                return encodeCWLType(t);
-              case /* Array */
-              11: {
-                const matchValue = otherType.fields[0].Items;
-                switch (matchValue.tag) {
-                  case /* File */
-                  0:
-                  case /* Directory */
-                  1:
-                  case /* String */
-                  3:
-                  case /* Int */
-                  4:
-                  case /* Long */
-                  5:
-                  case /* Float */
-                  6:
-                  case /* Double */
-                  7:
-                  case /* Boolean */
-                  8:
-                    return encodeCWLType(t);
-                  default:
-                    return encodeCWLType(t);
-                }
-              }
-              default:
-                return encodeCWLType(t);
-            }
-          default:
-            return encodeCWLType(t);
-        }
-      }
-      case /* Array */
-      11: {
-        const arraySchema_1 = t.fields[0];
-        const matchValue_1 = arraySchema_1.Items;
-        switch (matchValue_1.tag) {
-          case /* File */
-          0:
-          case /* Directory */
-          1:
-          case /* Dirent */
-          2:
-          case /* String */
-          3:
-          case /* Int */
-          4:
-          case /* Long */
-          5:
-          case /* Float */
-          6:
-          case /* Double */
-          7:
-          case /* Boolean */
-          8:
-            return encodeCWLType(t);
-          default:
-            return yMap(singleton(["type", encodeInputArraySchema(arraySchema_1)]));
-        }
-      }
-      case /* Record */
-      12:
-        return yMap(singleton(["type", encodeInputRecordSchema(t.fields[0])]));
-      case /* Enum */
-      13:
-        return yMap(singleton(["type", encodeInputEnumSchema(t.fields[0])]));
-      default:
-        return encodeCWLType(t);
-    }
-  }, o.Type_);
+  let t = void 0, typesList = void 0, arraySchema = void 0, matchValue = void 0, arraySchema_1 = void 0, matchValue_1 = void 0, values = void 0;
+  let typeElement;
+  const option_1 = o.Type_;
+  typeElement = option_1 != null ? (t = value(option_1), t.tag === /* Union */
+  14 ? (typesList = toList(t.fields[0]), !isEmpty(typesList) ? head(typesList).tag === /* Null */
+  10 ? !isEmpty(tail(typesList)) ? isEmpty(tail(tail(typesList))) ? head(tail(typesList)).tag === /* File */
+  0 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Directory */
+  1 ? encodeCWLType(t) : head(tail(typesList)).tag === /* String */
+  3 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Int */
+  4 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Long */
+  5 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Float */
+  6 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Double */
+  7 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Boolean */
+  8 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Array */
+  11 ? (arraySchema = head(tail(typesList)).fields[0], matchValue = arraySchema.Items, matchValue.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue.tag === /* Boolean */
+  8 ? encodeCWLType(t) : encodeCWLType(t)) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : !isEmpty(tail(typesList)) ? head(tail(typesList)).tag === /* Null */
+  10 ? isEmpty(tail(tail(typesList))) ? head(typesList).tag === /* File */
+  0 ? encodeCWLType(t) : head(typesList).tag === /* Directory */
+  1 ? encodeCWLType(t) : head(typesList).tag === /* String */
+  3 ? encodeCWLType(t) : head(typesList).tag === /* Int */
+  4 ? encodeCWLType(t) : head(typesList).tag === /* Long */
+  5 ? encodeCWLType(t) : head(typesList).tag === /* Float */
+  6 ? encodeCWLType(t) : head(typesList).tag === /* Double */
+  7 ? encodeCWLType(t) : head(typesList).tag === /* Boolean */
+  8 ? encodeCWLType(t) : head(typesList).tag === /* Array */
+  11 ? (arraySchema = head(typesList).fields[0], matchValue = arraySchema.Items, matchValue.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue.tag === /* Boolean */
+  8 ? encodeCWLType(t) : encodeCWLType(t)) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t)) : t.tag === /* Array */
+  11 ? (arraySchema_1 = t.fields[0], matchValue_1 = arraySchema_1.Items, matchValue_1.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue_1.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue_1.tag === /* Dirent */
+  2 ? encodeCWLType(t) : matchValue_1.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue_1.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue_1.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue_1.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue_1.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue_1.tag === /* Boolean */
+  8 ? encodeCWLType(t) : yMap(singleton(["type", encodeInputArraySchema(arraySchema_1)]))) : t.tag === /* Record */
+  12 ? yMap(singleton(["type", encodeInputRecordSchema(t.fields[0])])) : t.tag === /* Enum */
+  13 ? yMap(singleton(["type", encodeInputEnumSchema(t.fields[0])])) : encodeCWLType(t)) : void 0;
   let pairs;
-  let value_4;
+  let acc_16;
+  let value_17;
   const matchValue_2 = o.OutputSource;
-  let matchResult_1, value$1, values_1;
+  let matchResult = void 0, value$1 = void 0, values_1 = void 0;
   if (matchValue_2 != null) {
     if (value(matchValue_2).tag === /* Multiple */
     1) {
       if (values = value(matchValue_2).fields[0], values.length > 0) {
-        matchResult_1 = 1;
+        matchResult = 1;
         values_1 = value(matchValue_2).fields[0];
       } else {
-        matchResult_1 = 2;
+        matchResult = 2;
       }
     } else {
-      matchResult_1 = 0;
+      matchResult = 0;
       value$1 = value(matchValue_2).fields[0];
     }
   } else {
-    matchResult_1 = 2;
+    matchResult = 2;
   }
-  switch (matchResult_1) {
+  switch (matchResult) {
     case 0: {
-      value_4 = string(value$1);
+      value_17 = string(value$1);
       break;
     }
     case 1: {
-      value_4 = encodeStringArrayOrScalar(values_1);
+      value_17 = encodeStringArrayOrScalar(values_1);
       break;
     }
     default:
-      value_4 = void 0;
+      value_17 = void 0;
   }
-  let acc_5;
+  let acc_15;
+  let acc_12;
+  let acc_10;
+  let acc_8;
+  let acc_6;
+  let acc_4;
   let acc_2;
   const value_1 = typeElement;
-  const acc_1 = empty();
+  const acc_1 = empty$1();
   acc_2 = value_1 == null ? acc_1 : append(acc_1, singleton(["type", value(value_1)]));
-  const value_3 = o.OutputBinding;
+  const value_4 = o.Label;
   const acc_3 = acc_2;
-  acc_5 = value_3 == null ? acc_3 : append(acc_3, singleton(["outputBinding", encodeOutputBinding(value(value_3))]));
-  pairs = value_4 == null ? acc_5 : append(acc_5, singleton(["outputSource", value(value_4)]));
-  let matchResult_2, t_1;
+  acc_4 = value_4 == null ? acc_3 : append(acc_3, singleton(["label", string(value(value_4))]));
+  const value_6 = o.SecondaryFiles;
+  const acc_5 = acc_4;
+  acc_6 = value_6 == null ? acc_5 : append(acc_5, singleton(["secondaryFiles", value(value_6)]));
+  const value_8 = o.Streamable;
+  const acc_7 = acc_6;
+  acc_8 = value_8 == null ? acc_7 : append(acc_7, singleton(["streamable", yBool(value(value_8))]));
+  const value_11 = o.Doc;
+  const acc_9 = acc_8;
+  acc_10 = value_11 == null ? acc_9 : append(acc_9, singleton(["doc", string(value(value_11))]));
+  const value_14 = o.Format;
+  const acc_11 = acc_10;
+  acc_12 = value_14 == null ? acc_11 : append(acc_11, singleton(["format", string(value(value_14))]));
+  const value_16 = o.OutputBinding;
+  const acc_13 = acc_12;
+  acc_15 = value_16 == null ? acc_13 : append(acc_13, singleton(["outputBinding", encodeOutputBinding(value(value_16))]));
+  acc_16 = value_17 == null ? acc_15 : append(acc_15, singleton(["outputSource", value(value_17)]));
+  pairs = appendDynamicPropertiesExcept(CWLOutput.KnownFieldNames, o, acc_16);
+  let matchResult_1 = void 0, t_1 = void 0;
   if (!isEmpty(pairs)) {
     if (head(pairs)[0] === "type") {
       if (isEmpty(tail(pairs))) {
-        matchResult_2 = 0;
+        matchResult_1 = 0;
         t_1 = head(pairs)[1];
       } else {
-        matchResult_2 = 1;
+        matchResult_1 = 1;
       }
     } else {
-      matchResult_2 = 1;
+      matchResult_1 = 1;
     }
   } else {
-    matchResult_2 = 1;
+    matchResult_1 = 1;
   }
-  switch (matchResult_2) {
+  switch (matchResult_1) {
     case 0:
       return [o.Name, t_1];
     default:
@@ -569,164 +729,123 @@ function encodeCWLOutput(o) {
   }
 }
 function encodeInputBinding(ib) {
-  let value_9, acc_7, value_7, acc_5, value_4, acc_3, value_2, acc_1;
-  return yMap((value_9 = ib.Separate, acc_7 = (value_7 = ib.ItemSeparator, acc_5 = (value_4 = ib.Position, acc_3 = (value_2 = ib.Prefix, acc_1 = empty(), value_2 == null ? acc_1 : append(acc_1, singleton(["prefix", string(value(value_2))]))), value_4 == null ? acc_3 : append(acc_3, singleton(["position", int(value(value_4))]))), value_7 == null ? acc_5 : append(acc_5, singleton(["itemSeparator", string(value(value_7))]))), value_9 == null ? acc_7 : append(acc_7, singleton(["separate", yBool(value(value_9))]))));
+  let acc_14 = void 0, acc_12 = void 0, acc_10 = void 0, acc_8 = void 0, acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, value_1 = void 0, acc_1 = void 0, value_4 = void 0, acc_3 = void 0, value_6 = void 0, acc_5 = void 0, value_9 = void 0, acc_7 = void 0, value_11 = void 0, acc_9 = void 0, value_14 = void 0, acc_11 = void 0, value_16 = void 0, acc_13 = void 0;
+  return yMap((acc_14 = (acc_12 = (acc_10 = (acc_8 = (acc_6 = (acc_4 = (acc_2 = (value_1 = ib.LoadContents, acc_1 = empty$1(), value_1 == null ? acc_1 : append(acc_1, singleton(["loadContents", yBool(value(value_1))]))), value_4 = ib.Prefix, acc_3 = acc_2, value_4 == null ? acc_3 : append(acc_3, singleton(["prefix", string(value(value_4))]))), value_6 = ib._position, acc_5 = acc_4, value_6 == null ? acc_5 : append(acc_5, singleton(["position", int(value(value_6))]))), value_9 = ib.ItemSeparator, acc_7 = acc_6, value_9 == null ? acc_7 : append(acc_7, singleton(["itemSeparator", string(value(value_9))]))), value_11 = ib.Separate, acc_9 = acc_8, value_11 == null ? acc_9 : append(acc_9, singleton(["separate", yBool(value(value_11))]))), value_14 = ib.ValueFrom, acc_11 = acc_10, value_14 == null ? acc_11 : append(acc_11, singleton(["valueFrom", string(value(value_14))]))), value_16 = ib.ShellQuote, acc_13 = acc_12, value_16 == null ? acc_13 : append(acc_13, singleton(["shellQuote", yBool(value(value_16))]))), appendDynamicPropertiesExcept(InputBinding.KnownFieldNames, ib, acc_14)));
 }
 function encodeCWLInput(i) {
+  let t = void 0, typesList = void 0, arraySchema = void 0, matchValue = void 0, arraySchema_1 = void 0, matchValue_1 = void 0;
   let pairs;
+  let acc_20;
+  let acc_18;
+  let acc_16;
+  let acc_14;
+  let acc_12;
+  let acc_10;
+  let acc_8;
+  let acc_6;
   let acc_4;
   let acc_2;
-  const value$1 = map((t) => {
-    switch (t.tag) {
-      case /* Union */
-      14: {
-        const typesList = toList(t.fields[0]);
-        let matchResult, otherType;
-        if (!isEmpty(typesList)) {
-          if (head(typesList).tag === /* Null */
-          10) {
-            if (!isEmpty(tail(typesList))) {
-              if (isEmpty(tail(tail(typesList)))) {
-                matchResult = 0;
-                otherType = head(tail(typesList));
-              } else {
-                matchResult = 1;
-              }
-            } else {
-              matchResult = 1;
-            }
-          } else if (!isEmpty(tail(typesList))) {
-            if (head(tail(typesList)).tag === /* Null */
-            10) {
-              if (isEmpty(tail(tail(typesList)))) {
-                matchResult = 0;
-                otherType = head(typesList);
-              } else {
-                matchResult = 1;
-              }
-            } else {
-              matchResult = 1;
-            }
-          } else {
-            matchResult = 1;
-          }
-        } else {
-          matchResult = 1;
-        }
-        switch (matchResult) {
-          case 0:
-            switch (otherType.tag) {
-              case /* File */
-              0:
-              case /* Directory */
-              1:
-              case /* String */
-              3:
-              case /* Int */
-              4:
-              case /* Long */
-              5:
-              case /* Float */
-              6:
-              case /* Double */
-              7:
-              case /* Boolean */
-              8:
-                return encodeCWLType(t);
-              case /* Array */
-              11: {
-                const matchValue = otherType.fields[0].Items;
-                switch (matchValue.tag) {
-                  case /* File */
-                  0:
-                  case /* Directory */
-                  1:
-                  case /* String */
-                  3:
-                  case /* Int */
-                  4:
-                  case /* Long */
-                  5:
-                  case /* Float */
-                  6:
-                  case /* Double */
-                  7:
-                  case /* Boolean */
-                  8:
-                    return encodeCWLType(t);
-                  default:
-                    return encodeCWLType(t);
-                }
-              }
-              default:
-                return encodeCWLType(t);
-            }
-          default:
-            return encodeCWLType(t);
-        }
-      }
-      case /* Array */
-      11: {
-        const arraySchema_1 = t.fields[0];
-        const matchValue_1 = arraySchema_1.Items;
-        switch (matchValue_1.tag) {
-          case /* File */
-          0:
-          case /* Directory */
-          1:
-          case /* Dirent */
-          2:
-          case /* String */
-          3:
-          case /* Int */
-          4:
-          case /* Long */
-          5:
-          case /* Float */
-          6:
-          case /* Double */
-          7:
-          case /* Boolean */
-          8:
-            return encodeCWLType(t);
-          default:
-            return yMap(singleton(["type", encodeInputArraySchema(arraySchema_1)]));
-        }
-      }
-      case /* Record */
-      12:
-        return yMap(singleton(["type", encodeInputRecordSchema(t.fields[0])]));
-      case /* Enum */
-      13:
-        return yMap(singleton(["type", encodeInputEnumSchema(t.fields[0])]));
-      default:
-        return encodeCWLType(t);
-    }
-  }, i.Type_);
-  const acc_1 = empty();
+  let value$1;
+  const option_1 = i.Type_;
+  value$1 = option_1 != null ? (t = value(option_1), t.tag === /* Union */
+  14 ? (typesList = toList(t.fields[0]), !isEmpty(typesList) ? head(typesList).tag === /* Null */
+  10 ? !isEmpty(tail(typesList)) ? isEmpty(tail(tail(typesList))) ? head(tail(typesList)).tag === /* File */
+  0 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Directory */
+  1 ? encodeCWLType(t) : head(tail(typesList)).tag === /* String */
+  3 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Int */
+  4 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Long */
+  5 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Float */
+  6 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Double */
+  7 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Boolean */
+  8 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Array */
+  11 ? (arraySchema = head(tail(typesList)).fields[0], matchValue = arraySchema.Items, matchValue.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue.tag === /* Boolean */
+  8 ? encodeCWLType(t) : encodeCWLType(t)) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : !isEmpty(tail(typesList)) ? head(tail(typesList)).tag === /* Null */
+  10 ? isEmpty(tail(tail(typesList))) ? head(typesList).tag === /* File */
+  0 ? encodeCWLType(t) : head(typesList).tag === /* Directory */
+  1 ? encodeCWLType(t) : head(typesList).tag === /* String */
+  3 ? encodeCWLType(t) : head(typesList).tag === /* Int */
+  4 ? encodeCWLType(t) : head(typesList).tag === /* Long */
+  5 ? encodeCWLType(t) : head(typesList).tag === /* Float */
+  6 ? encodeCWLType(t) : head(typesList).tag === /* Double */
+  7 ? encodeCWLType(t) : head(typesList).tag === /* Boolean */
+  8 ? encodeCWLType(t) : head(typesList).tag === /* Array */
+  11 ? (arraySchema = head(typesList).fields[0], matchValue = arraySchema.Items, matchValue.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue.tag === /* Boolean */
+  8 ? encodeCWLType(t) : encodeCWLType(t)) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t)) : t.tag === /* Array */
+  11 ? (arraySchema_1 = t.fields[0], matchValue_1 = arraySchema_1.Items, matchValue_1.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue_1.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue_1.tag === /* Dirent */
+  2 ? encodeCWLType(t) : matchValue_1.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue_1.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue_1.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue_1.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue_1.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue_1.tag === /* Boolean */
+  8 ? encodeCWLType(t) : yMap(singleton(["type", encodeInputArraySchema(arraySchema_1)]))) : t.tag === /* Record */
+  12 ? yMap(singleton(["type", encodeInputRecordSchema(t.fields[0])])) : t.tag === /* Enum */
+  13 ? yMap(singleton(["type", encodeInputEnumSchema(t.fields[0])])) : encodeCWLType(t)) : void 0;
+  const acc_1 = empty$1();
   acc_2 = value$1 == null ? acc_1 : append(acc_1, singleton(["type", value(value$1)]));
-  const value_2 = i.InputBinding;
+  const value_3 = i.Label;
   const acc_3 = acc_2;
-  acc_4 = value_2 == null ? acc_3 : append(acc_3, singleton(["inputBinding", encodeInputBinding(value(value_2))]));
-  const value_4 = i.Optional;
+  acc_4 = value_3 == null ? acc_3 : append(acc_3, singleton(["label", string(value(value_3))]));
+  const value_5 = i.SecondaryFiles;
   const acc_5 = acc_4;
-  pairs = value_4 == null ? acc_5 : append(acc_5, singleton(["optional", yBool(value(value_4))]));
-  let matchResult_1, t_1;
+  acc_6 = value_5 == null ? acc_5 : append(acc_5, singleton(["secondaryFiles", value(value_5)]));
+  const value_7 = i.Streamable;
+  const acc_7 = acc_6;
+  acc_8 = value_7 == null ? acc_7 : append(acc_7, singleton(["streamable", yBool(value(value_7))]));
+  const value_10 = i.Doc;
+  const acc_9 = acc_8;
+  acc_10 = value_10 == null ? acc_9 : append(acc_9, singleton(["doc", string(value(value_10))]));
+  const value_13 = i.Format;
+  const acc_11 = acc_10;
+  acc_12 = value_13 == null ? acc_11 : append(acc_11, singleton(["format", string(value(value_13))]));
+  const value_15 = i.LoadContents;
+  const acc_13 = acc_12;
+  acc_14 = value_15 == null ? acc_13 : append(acc_13, singleton(["loadContents", yBool(value(value_15))]));
+  let encoder_9;
+  const f1 = LoadListingEnum_get_toCwlString();
+  encoder_9 = (arg) => string(f1(arg));
+  const value_18 = i.LoadListing;
+  const acc_15 = acc_14;
+  acc_16 = value_18 == null ? acc_15 : append(acc_15, singleton(["loadListing", encoder_9(value(value_18))]));
+  const value_20 = i.DefaultValue;
+  const acc_17 = acc_16;
+  acc_18 = value_20 == null ? acc_17 : append(acc_17, singleton(["default", value(value_20)]));
+  const value_22 = i.InputBinding;
+  const acc_19 = acc_18;
+  acc_20 = value_22 == null ? acc_19 : append(acc_19, singleton(["inputBinding", encodeInputBinding(value(value_22))]));
+  pairs = appendDynamicPropertiesExcept(CWLInput.KnownFieldNames, i, acc_20);
+  let matchResult = void 0, t_1 = void 0;
   if (!isEmpty(pairs)) {
     if (head(pairs)[0] === "type") {
       if (isEmpty(tail(pairs))) {
-        matchResult_1 = 0;
+        matchResult = 0;
         t_1 = head(pairs)[1];
       } else {
-        matchResult_1 = 1;
+        matchResult = 1;
       }
     } else {
-      matchResult_1 = 1;
+      matchResult = 1;
     }
   } else {
-    matchResult_1 = 1;
+    matchResult = 1;
   }
-  switch (matchResult_1) {
+  switch (matchResult) {
     case 0:
       return [i.Name, t_1];
     default:
@@ -734,81 +853,53 @@ function encodeCWLInput(i) {
   }
 }
 function encodeSchemaDefRequirementType(s) {
-  return yMap(ofArray([["name", string(s.Name)], ["type", encodeCWLType(s.Type_)]]));
+  let acc = void 0;
+  return yMap((acc = ofArray([["name", string(s.Name)], ["type", encodeCWLType(s.Type_)]]), appendDynamicPropertiesExcept(SchemaDefRequirementType.KnownFieldNames, s, acc)));
 }
 function encodeRequirement(r) {
-  let value_23, acc_15, value_20, acc_13, value_17, acc_11, value_14, acc_9, value_11, acc_7, value_8, acc_5, value_5, acc_3, value_2, acc_1;
+  let acc_17 = void 0, acc_15 = void 0, acc_13 = void 0, acc_11 = void 0, acc_9 = void 0, acc_7 = void 0, acc_5 = void 0, acc_3 = void 0, value_5 = void 0, acc_4 = void 0, value_8 = void 0, acc_6 = void 0, value_11 = void 0, acc_8 = void 0, value_14 = void 0, acc_10 = void 0, value_17 = void 0, acc_12 = void 0, value_20 = void 0, acc_14 = void 0, value_23 = void 0, acc_16 = void 0, acc_24 = void 0, acc_32 = void 0, acc_33 = void 0, acc_34 = void 0, acc_2 = void 0, value_2 = void 0, option_1 = void 0, entries = void 0, acc_1 = void 0;
   switch (r.tag) {
     case /* SchemaDefRequirement */
     1: {
       const types = r.fields[0];
-      return yMap(ofArray([["class", string("SchemaDefRequirement")], ["types", YAMLElement_Sequence(ofSeq(map$2(encodeSchemaDefRequirementType, types)))]]));
+      return yMap(ofArray([["class", string("SchemaDefRequirement")], ["types", YAMLElement_Sequence(ofSeq(map$1(encodeSchemaDefRequirementType, types)))]]));
     }
     case /* DockerRequirement */
     2: {
       const dr = r.fields[0];
-      return yMap((value_23 = dr.DockerRunOptions, acc_15 = (value_20 = dr.DockerOutputDirectory, acc_13 = (value_17 = dr.DockerImport, acc_11 = (value_14 = dr.DockerLoad, acc_9 = (value_11 = dr.DockerImageId, acc_7 = (value_8 = dr.DockerFile, acc_5 = (value_5 = dr.DockerPull, acc_3 = singleton(["class", string("DockerRequirement")]), value_5 == null ? acc_3 : append(acc_3, singleton(["dockerPull", string(value(value_5))]))), value_8 == null ? acc_5 : append(acc_5, singleton(["dockerFile", encodeSchemaSaladString(value(value_8))]))), value_11 == null ? acc_7 : append(acc_7, singleton(["dockerImageId", string(value(value_11))]))), value_14 == null ? acc_9 : append(acc_9, singleton(["dockerLoad", string(value(value_14))]))), value_17 == null ? acc_11 : append(acc_11, singleton(["dockerImport", string(value(value_17))]))), value_20 == null ? acc_13 : append(acc_13, singleton(["dockerOutputDirectory", string(value(value_20))]))), value_23 == null ? acc_15 : append(acc_15, singleton(["cwltool:dockerRunOptions", YAMLElement_Sequence(ofSeq(map$2(string, value(value_23))))]))));
+      return yMap((acc_17 = (acc_15 = (acc_13 = (acc_11 = (acc_9 = (acc_7 = (acc_5 = (acc_3 = singleton(["class", string("DockerRequirement")]), value_5 = dr.DockerPull, acc_4 = acc_3, value_5 == null ? acc_4 : append(acc_4, singleton(["dockerPull", string(value(value_5))]))), value_8 = dr.DockerFile, acc_6 = acc_5, value_8 == null ? acc_6 : append(acc_6, singleton(["dockerFile", encodeSchemaSaladString(value(value_8))]))), value_11 = dr.DockerImageId, acc_8 = acc_7, value_11 == null ? acc_8 : append(acc_8, singleton(["dockerImageId", string(value(value_11))]))), value_14 = dr.DockerLoad, acc_10 = acc_9, value_14 == null ? acc_10 : append(acc_10, singleton(["dockerLoad", string(value(value_14))]))), value_17 = dr.DockerImport, acc_12 = acc_11, value_17 == null ? acc_12 : append(acc_12, singleton(["dockerImport", string(value(value_17))]))), value_20 = dr.DockerOutputDirectory, acc_14 = acc_13, value_20 == null ? acc_14 : append(acc_14, singleton(["dockerOutputDirectory", string(value(value_20))]))), value_23 = dr.DockerRunOptions, acc_16 = acc_15, value_23 == null ? acc_16 : append(acc_16, singleton(["cwltool:dockerRunOptions", YAMLElement_Sequence(ofSeq(map$1(string, value(value_23))))]))), appendDynamicPropertiesExcept(DockerRequirement.KnownFieldNames, dr, acc_17)));
     }
     case /* SoftwareRequirement */
     3: {
       const pkgs = r.fields[0];
-      return yMap(ofArray([["class", string("SoftwareRequirement")], ["packages", YAMLElement_Sequence(ofSeq(map$2((p) => {
-        let value_29, acc_20, value_26, acc_18;
-        return yMap((value_29 = p.Specs, acc_20 = (value_26 = p.Version, acc_18 = append(empty(), singleton(["package", string(p.Package)])), value_26 == null ? acc_18 : append(acc_18, singleton(["version", YAMLElement_Sequence(ofSeq(map$2(string, value(value_26))))]))), value_29 == null ? acc_20 : append(acc_20, singleton(["specs", YAMLElement_Sequence(ofSeq(map$2(string, value(value_29))))]))));
+      return yMap(ofArray([["class", string("SoftwareRequirement")], ["packages", YAMLElement_Sequence(ofSeq(map$1((p) => {
+        let acc_23 = void 0, acc_21 = void 0, acc_19 = void 0, value_26 = void 0, acc_20 = void 0, value_29 = void 0, acc_22 = void 0;
+        return yMap((acc_23 = (acc_21 = (acc_19 = append(empty$1(), singleton(["package", string(p.Package)])), value_26 = p.Version, acc_20 = acc_19, value_26 == null ? acc_20 : append(acc_20, singleton(["version", YAMLElement_Sequence(ofSeq(map$1(string, value(value_26))))]))), value_29 = p.Specs, acc_22 = acc_21, value_29 == null ? acc_22 : append(acc_22, singleton(["specs", YAMLElement_Sequence(ofSeq(map$1(string, value(value_29))))]))), appendDynamicPropertiesExcept(SoftwarePackage.KnownFieldNames, p, acc_23)));
       }, pkgs)))]]));
     }
     case /* LoadListingRequirement */
     4: {
       const loadListing = r.fields[0];
-      return yMap(ofArray([["class", string("LoadListingRequirement")], ["loadListing", string(LoadListingEnum_get_toCwlString()(loadListing.LoadListing))]]));
+      return yMap((acc_24 = ofArray([["class", string("LoadListingRequirement")], ["loadListing", string(LoadListingEnum_get_toCwlString()(loadListing.LoadListing))]]), appendDynamicPropertiesExcept(LoadListingRequirementValue.KnownFieldNames, loadListing, acc_24)));
     }
     case /* InitialWorkDirRequirement */
     5: {
       const listing = r.fields[0];
-      const encodeDynamicObjWithClass = (className, dynObj) => {
-        const dynamicPairs = toList(choose$1((kvp) => {
-          const matchValue = kvp[1];
-          if (typeof matchValue === "string") {
-            return [kvp[0], string(matchValue)];
-          } else if (typeof matchValue === "boolean") {
-            return [kvp[0], yBool(matchValue)];
-          } else if (typeof matchValue === "number") {
-            return [kvp[0], int(matchValue)];
-          } else if (typeof matchValue === "bigint") {
-            return [kvp[0], string(int64ToString(matchValue))];
-          } else if (typeof matchValue === "number") {
-            return [kvp[0], float(matchValue)];
-          } else if (matchValue instanceof YAMLElement) {
-            return [kvp[0], matchValue];
-          } else {
-            return void 0;
-          }
-        }, dynObj.GetProperties(false)));
-        if (exists((tupledArg) => tupledArg[0] === "class", dynamicPairs)) {
-          return yMap(dynamicPairs);
-        } else {
-          return yMap(cons(["class", string(className)], dynamicPairs));
-        }
-      };
-      return yMap(ofArray([["class", string("InitialWorkDirRequirement")], ["listing", YAMLElement_Sequence(ofSeq(map$2((_arg_1) => {
-        let value_34, acc_25, value_32, acc_22;
-        switch (_arg_1.tag) {
+      return yMap(ofArray([["class", string("InitialWorkDirRequirement")], ["listing", YAMLElement_Sequence(ofSeq(map$1((_arg) => {
+        let acc_30 = void 0, acc_28 = void 0, value_32 = void 0, acc_26 = void 0, value_34 = void 0, acc_29 = void 0;
+        switch (_arg.tag) {
           case /* StringEntry */
           1:
-            return encodeSchemaSaladString(_arg_1.fields[0]);
+            return encodeSchemaSaladString(_arg.fields[0]);
           case /* FileEntry */
-          2: {
-            const arg_1 = _arg_1.fields[0];
-            return encodeDynamicObjWithClass("File", arg_1);
-          }
+          2:
+            return yMap(encodeFilePairs("class", "File", _arg.fields[0]));
           case /* DirectoryEntry */
-          3: {
-            const arg_3 = _arg_1.fields[0];
-            return encodeDynamicObjWithClass("Directory", arg_3);
-          }
+          3:
+            return yMap(encodeDirectoryPairs("class", "Directory", _arg.fields[0]));
           default: {
-            const d = _arg_1.fields[0];
-            return yMap((value_34 = d.Writable, acc_25 = append((value_32 = d.Entryname, acc_22 = empty(), value_32 == null ? acc_22 : append(acc_22, singleton(["entryname", encodeSchemaSaladString(value(value_32))]))), singleton(["entry", encodeSchemaSaladString(d.Entry)])), value_34 == null ? acc_25 : append(acc_25, singleton(["writable", yBool(value(value_34))]))));
+            const d = _arg.fields[0];
+            return yMap((acc_30 = (acc_28 = append((value_32 = d.Entryname, acc_26 = empty$1(), value_32 == null ? acc_26 : append(acc_26, singleton(["entryname", encodeSchemaSaladString(value(value_32))]))), singleton(["entry", encodeSchemaSaladString(d.Entry)])), value_34 = d.Writable, acc_29 = acc_28, value_34 == null ? acc_29 : append(acc_29, singleton(["writable", yBool(value(value_34))]))), appendDynamicPropertiesExcept(DirentInstance.KnownFieldNames, d, acc_30)));
           }
         }
       }, listing)))]]));
@@ -816,9 +907,10 @@ function encodeRequirement(r) {
     case /* EnvVarRequirement */
     6: {
       const envs = r.fields[0];
-      return yMap(ofArray([["class", string("EnvVarRequirement")], ["envDef", YAMLElement_Sequence(ofSeq(map$2((e) => {
+      return yMap(ofArray([["class", string("EnvVarRequirement")], ["envDef", YAMLElement_Sequence(ofSeq(map$1((e) => {
+        let acc_31 = void 0;
         const v_12 = normalizeEnvValueForEncode(e.EnvValue);
-        return yMap(ofArray([["envName", string(e.EnvName)], ["envValue", string(v_12)]]));
+        return yMap((acc_31 = ofArray([["envName", string(e.EnvName)], ["envValue", string(v_12)]]), appendDynamicPropertiesExcept(EnvironmentDef.KnownFieldNames, e, acc_31)));
       }, envs)))]]));
     }
     case /* ShellCommandRequirement */
@@ -829,11 +921,11 @@ function encodeRequirement(r) {
       const rr = r.fields[0];
       const tryEncodeScalar = (key, value_35) => {
         if (typeof value_35 === "number") {
+          return [key, yFloat(value_35)];
+        } else if (typeof value_35 === "number") {
           return [key, int(value_35)];
         } else if (typeof value_35 === "bigint") {
           return [key, YAMLElement_Value(YAMLContent_create_Z1C3A29C9(int64ToString(value_35)))];
-        } else if (typeof value_35 === "number") {
-          return [key, float(value_35)];
         } else if (typeof value_35 === "string") {
           return [key, string(value_35)];
         } else if (typeof value_35 === "boolean") {
@@ -842,16 +934,27 @@ function encodeRequirement(r) {
           return void 0;
         }
       };
-      const dynamicPairs_1 = toList(choose$1((kvp_1) => {
-        const matchValue_1 = kvp_1[1];
-        return tryEncodeScalar(kvp_1[0], matchValue_1);
-      }, rr.GetProperties(false)));
-      return yMap(append(singleton(["class", string("ResourceRequirement")]), dynamicPairs_1));
+      const knownPairs = choose$1((tupledArg) => {
+        const binder_2 = curry2(tryEncodeScalar)(tupledArg[0]);
+        const option_3 = tupledArg[1];
+        if (option_3 != null) {
+          return binder_2(value(option_3));
+        } else {
+          return void 0;
+        }
+      }, rr.KnownFieldValues);
+      const dynamicPairs = toList(choose((kvp) => {
+        const matchValue = kvp[1];
+        return tryEncodeScalar(kvp[0], matchValue);
+      }, dynamicPropertiesExcept(ofSeq$1(map$1((x) => x, ResourceRequirementInstance.KnownFieldNames), {
+        Compare: (x_1, y) => comparePrimitives(x_1, y) | 0
+      }), rr)));
+      return yMap(append(singleton(["class", string("ResourceRequirement")]), append(knownPairs, dynamicPairs)));
     }
     case /* WorkReuseRequirement */
     9: {
       const workReuse = r.fields[0];
-      return yMap(ofArray([["class", string("WorkReuse")], ["enableReuse", yBool(workReuse.EnableReuse)]]));
+      return yMap((acc_32 = ofArray([["class", string("WorkReuse")], ["enableReuse", yBool(workReuse.EnableReuse)]]), appendDynamicPropertiesExcept(WorkReuseRequirementValue.KnownFieldNames, workReuse, acc_32)));
     }
     case /* WorkReuseExpressionRequirement */
     10: {
@@ -861,7 +964,7 @@ function encodeRequirement(r) {
     case /* NetworkAccessRequirement */
     11: {
       const networkAccess = r.fields[0];
-      return yMap(ofArray([["class", string("NetworkAccess")], ["networkAccess", yBool(networkAccess.NetworkAccess)]]));
+      return yMap((acc_33 = ofArray([["class", string("NetworkAccess")], ["networkAccess", yBool(networkAccess.NetworkAccess)]]), appendDynamicPropertiesExcept(NetworkAccessRequirementValue.KnownFieldNames, networkAccess, acc_33)));
     }
     case /* NetworkAccessExpressionRequirement */
     12: {
@@ -871,7 +974,7 @@ function encodeRequirement(r) {
     case /* InplaceUpdateRequirement */
     13: {
       const inplaceUpdate = r.fields[0];
-      return yMap(ofArray([["class", string("InplaceUpdateRequirement")], ["inplaceUpdate", yBool(inplaceUpdate.InplaceUpdate)]]));
+      return yMap((acc_34 = ofArray([["class", string("InplaceUpdateRequirement")], ["inplaceUpdate", yBool(inplaceUpdate.InplaceUpdate)]]), appendDynamicPropertiesExcept(InplaceUpdateRequirementValue.KnownFieldNames, inplaceUpdate, acc_34)));
     }
     case /* ToolTimeLimitRequirement */
     14: {
@@ -892,29 +995,26 @@ function encodeRequirement(r) {
     case /* StepInputExpressionRequirement */
     18:
       return yMap(singleton(["class", string("StepInputExpressionRequirement")]));
-    default:
-      return yMap((value_2 = bind((entries) => {
-        if (entries.length > 0) {
-          return entries;
-        } else {
-          return void 0;
-        }
-      }, r.fields[0].ExpressionLib), acc_1 = singleton(["class", string("InlineJavascriptRequirement")]), value_2 == null ? acc_1 : append(acc_1, singleton(["expressionLib", YAMLElement_Sequence(ofSeq(map$2(string, value(value_2))))]))));
+    default: {
+      const value$1 = r.fields[0];
+      return yMap((acc_2 = (value_2 = (option_1 = value$1.ExpressionLib, option_1 != null ? (entries = value(option_1), entries.length > 0 ? entries : void 0) : void 0), acc_1 = singleton(["class", string("InlineJavascriptRequirement")]), value_2 == null ? acc_1 : append(acc_1, singleton(["expressionLib", YAMLElement_Sequence(ofSeq(map$1(string, value(value_2))))]))), appendDynamicPropertiesExcept(InlineJavascriptRequirementValue.KnownFieldNames, value$1, acc_2)));
+    }
   }
 }
 function encodeHintEntry(hint) {
   if (hint.tag === /* UnknownHint */
   1) {
-    return hint.fields[0].Raw;
+    const unknownHint = hint.fields[0];
+    return unknownHint.Raw;
   } else {
     return encodeRequirement(hint.fields[0]);
   }
 }
 function encodeSourceArray(sources) {
   if (sources.length === 1) {
-    return string(sources[0]);
+    return string(item(0, sources));
   } else {
-    return YAMLElement_Sequence(ofSeq(map$2((s) => YAMLElement_Object(singleton(YAMLElement_Value(YAMLContent_create_Z1C3A29C9(s)))), sources)));
+    return YAMLElement_Sequence(ofSeq(map$1((s) => YAMLElement_Object$(singleton(YAMLElement_Value(YAMLContent_create_Z1C3A29C9(s)))), sources)));
   }
 }
 function encodeLinkMergeMethod(linkMerge) {
@@ -928,34 +1028,44 @@ function encodeScatterMethod(scatterMethod) {
 }
 function encodeStepInput(si) {
   let pairs;
-  const value_21 = si.Label;
-  let acc_17;
-  const value_18 = si.LoadListing;
-  let acc_15;
-  const value_15 = si.LoadContents;
-  let acc_13;
-  const value_13 = si.Doc;
-  let acc_11;
-  const value_10 = si.PickValue;
-  let acc_9;
-  const value_8 = si.LinkMerge;
-  let acc_7;
-  const value_6 = si.ValueFrom;
-  let acc_5;
-  const value_3 = si.DefaultValue;
-  let acc_3;
+  let acc_18;
+  let acc_16;
+  let acc_14;
+  let acc_12;
+  let acc_10;
+  let acc_8;
+  let acc_6;
+  let acc_4;
+  let acc_2;
   const value_1 = si.Source;
-  const acc_1 = empty();
-  acc_3 = value_1 == null ? acc_1 : append(acc_1, singleton(["source", encodeSourceArray(value(value_1))]));
-  acc_5 = value_3 == null ? acc_3 : append(acc_3, singleton(["default", value(value_3)]));
-  acc_7 = value_6 == null ? acc_5 : append(acc_5, singleton(["valueFrom", string(value(value_6))]));
-  acc_9 = value_8 == null ? acc_7 : append(acc_7, singleton(["linkMerge", encodeLinkMergeMethod(value(value_8))]));
-  acc_11 = value_10 == null ? acc_9 : append(acc_9, singleton(["pickValue", encodePickValueMethod(value(value_10))]));
-  acc_13 = value_13 == null ? acc_11 : append(acc_11, singleton(["doc", string(value(value_13))]));
-  acc_15 = value_15 == null ? acc_13 : append(acc_13, singleton(["loadContents", yBool(value(value_15))]));
-  acc_17 = value_18 == null ? acc_15 : append(acc_15, singleton(["loadListing", string(value(value_18))]));
-  pairs = value_21 == null ? acc_17 : append(acc_17, singleton(["label", string(value(value_21))]));
-  let matchResult, s_1;
+  const acc_1 = empty$1();
+  acc_2 = value_1 == null ? acc_1 : append(acc_1, singleton(["source", encodeSourceArray(value(value_1))]));
+  const value_3 = si.DefaultValue;
+  const acc_3 = acc_2;
+  acc_4 = value_3 == null ? acc_3 : append(acc_3, singleton(["default", value(value_3)]));
+  const value_6 = si.ValueFrom;
+  const acc_5 = acc_4;
+  acc_6 = value_6 == null ? acc_5 : append(acc_5, singleton(["valueFrom", string(value(value_6))]));
+  const value_8 = si.LinkMerge;
+  const acc_7 = acc_6;
+  acc_8 = value_8 == null ? acc_7 : append(acc_7, singleton(["linkMerge", encodeLinkMergeMethod(value(value_8))]));
+  const value_10 = si.PickValue;
+  const acc_9 = acc_8;
+  acc_10 = value_10 == null ? acc_9 : append(acc_9, singleton(["pickValue", encodePickValueMethod(value(value_10))]));
+  const value_13 = si.Doc;
+  const acc_11 = acc_10;
+  acc_12 = value_13 == null ? acc_11 : append(acc_11, singleton(["doc", string(value(value_13))]));
+  const value_15 = si.LoadContents;
+  const acc_13 = acc_12;
+  acc_14 = value_15 == null ? acc_13 : append(acc_13, singleton(["loadContents", yBool(value(value_15))]));
+  const value_18 = si.LoadListing;
+  const acc_15 = acc_14;
+  acc_16 = value_18 == null ? acc_15 : append(acc_15, singleton(["loadListing", string(value(value_18))]));
+  const value_21 = si.Label;
+  const acc_17 = acc_16;
+  acc_18 = value_21 == null ? acc_17 : append(acc_17, singleton(["label", string(value(value_21))]));
+  pairs = appendDynamicPropertiesExcept(StepInput.KnownFieldNames, si, acc_18);
+  let matchResult = void 0, s_1 = void 0;
   if (!isEmpty(pairs)) {
     if (head(pairs)[0] === "source") {
       if (isEmpty(tail(pairs))) {
@@ -982,13 +1092,14 @@ function encodeStepInput(si) {
   }
 }
 function encodeStepInputs(inputs) {
-  return yMap(toList(map$2(encodeStepInput, inputs)));
+  return yMap(toList(map$1(encodeStepInput, inputs)));
 }
 function encodeStepOutputParameter(so) {
-  return yMap(singleton(["id", string(so.Id)]));
+  let acc = void 0;
+  return yMap((acc = singleton(["id", string(so.Id)]), appendDynamicPropertiesExcept(StepOutputParameter.KnownFieldNames, so, acc)));
 }
 function encodeStepOutputs(outputs) {
-  return YAMLElement_Sequence(ofSeq(map$2((output) => {
+  return YAMLElement_Sequence(ofSeq(map$1((output) => {
     if (output.tag === /* StepOutputRecord */
     1) {
       return encodeStepOutputParameter(output.fields[0]);
@@ -999,9 +1110,9 @@ function encodeStepOutputs(outputs) {
 }
 function encodeScatter(scatter) {
   if (scatter.length === 1) {
-    return string(scatter[0]);
+    return string(item(0, scatter));
   } else {
-    return YAMLElement_Sequence(ofSeq(map$2(string, scatter)));
+    return YAMLElement_Sequence(ofSeq(map$1(string, scatter)));
   }
 }
 function encodeWorkflowStepRun(run) {
@@ -1011,7 +1122,7 @@ function encodeWorkflowStepRun(run) {
       const toolObj = run.fields[0];
       const matchValue = WorkflowStepRunOps_tryGetTool(run);
       if (matchValue == null) {
-        throw new Error(toText(interpolate("RunCommandLineTool must contain CWLToolDescription but got %A%P()", [toolObj])));
+        throw ArgumentException_$ctor_Z721C83C5(`RunCommandLineTool must contain CWLToolDescription but got ${interpolate("%A%P()", [toolObj])}`);
       } else {
         return encodeToolDescriptionElement(value(matchValue));
       }
@@ -1021,7 +1132,7 @@ function encodeWorkflowStepRun(run) {
       const workflowObj = run.fields[0];
       const matchValue_1 = WorkflowStepRunOps_tryGetWorkflow(run);
       if (matchValue_1 == null) {
-        throw new Error(toText(interpolate("RunWorkflow must contain CWLWorkflowDescription but got %A%P()", [workflowObj])));
+        throw ArgumentException_$ctor_Z721C83C5(`RunWorkflow must contain CWLWorkflowDescription but got ${interpolate("%A%P()", [workflowObj])}`);
       } else {
         return encodeWorkflowDescriptionElement(value(matchValue_1));
       }
@@ -1031,7 +1142,7 @@ function encodeWorkflowStepRun(run) {
       const expressionToolObj = run.fields[0];
       const matchValue_2 = WorkflowStepRunOps_tryGetExpressionTool(run);
       if (matchValue_2 == null) {
-        throw new Error(toText(interpolate("RunExpressionTool must contain CWLExpressionToolDescription but got %A%P()", [expressionToolObj])));
+        throw ArgumentException_$ctor_Z721C83C5(`RunExpressionTool must contain CWLExpressionToolDescription but got ${interpolate("%A%P()", [expressionToolObj])}`);
       } else {
         return encodeExpressionToolDescriptionElement(value(matchValue_2));
       }
@@ -1041,7 +1152,7 @@ function encodeWorkflowStepRun(run) {
       const operationObj = run.fields[0];
       const matchValue_3 = WorkflowStepRunOps_tryGetOperation(run);
       if (matchValue_3 == null) {
-        throw new Error(toText(interpolate("RunOperation must contain CWLOperationDescription but got %A%P()", [operationObj])));
+        throw ArgumentException_$ctor_Z721C83C5(`RunOperation must contain CWLOperationDescription but got ${interpolate("%A%P()", [operationObj])}`);
       } else {
         return encodeOperationDescriptionElement(value(matchValue_3));
       }
@@ -1051,27 +1162,37 @@ function encodeWorkflowStepRun(run) {
   }
 }
 function encodeToolDescriptionElement(td) {
-  let h, r, bc, matchValue_3, i, i_1, matchValue_4, md;
+  let intent = void 0, h = void 0, r = void 0, bc = void 0, matchValue_3 = void 0, i = void 0, i_1 = void 0;
   let basePairs;
   let acc_6;
   let acc_4;
   let acc_2;
   const acc = ofArray([["cwlVersion", string(td.CWLVersion)], ["class", string("CommandLineTool")]]);
-  const pairOpt_1 = map((id) => ["id", string(id)], td.Id);
+  let pairOpt_1;
+  const option_1 = td.Id;
+  pairOpt_1 = option_1 != null ? ["id", string(value(option_1))] : void 0;
   const acc_1 = acc;
   acc_2 = pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)));
-  const pairOpt_3 = map(encodeLabel, td.Label);
+  let pairOpt_3;
+  const option_3 = td.Label;
+  pairOpt_3 = option_3 != null ? encodeLabel(value(option_3)) : void 0;
   const acc_3 = acc_2;
   acc_4 = pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)));
-  const pairOpt_5 = map(encodeDoc, td.Doc);
+  let pairOpt_5;
+  const option_5 = td.Doc;
+  pairOpt_5 = option_5 != null ? encodeDoc(value(option_5)) : void 0;
   const acc_5 = acc_4;
   acc_6 = pairOpt_5 == null ? acc_5 : append(acc_5, singleton(value(pairOpt_5)));
-  const pairOpt_7 = map(encodeIntent, filter((intent) => intent.length > 0, td.Intent));
+  let pairOpt_7;
+  let option_9;
+  const option_7 = td.Intent;
+  option_9 = option_7 != null ? (intent = value(option_7), intent.length > 0) ? option_7 : void 0 : void 0;
+  pairOpt_7 = option_9 != null ? encodeIntent(value(option_9)) : void 0;
   const acc_7 = acc_6;
   basePairs = pairOpt_7 == null ? acc_7 : append(acc_7, singleton(value(pairOpt_7)));
   let withHints;
   const matchValue = td.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1084,7 +1205,7 @@ function encodeToolDescriptionElement(td) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
@@ -1092,7 +1213,7 @@ function encodeToolDescriptionElement(td) {
   }
   let withRequirements;
   const matchValue_1 = td.Requirements;
-  let matchResult_1, r_1;
+  let matchResult_1 = void 0, r_1 = void 0;
   if (matchValue_1 != null) {
     if (r = value(matchValue_1), r.length > 0) {
       matchResult_1 = 0;
@@ -1105,7 +1226,7 @@ function encodeToolDescriptionElement(td) {
   }
   switch (matchResult_1) {
     case 0: {
-      withRequirements = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]));
+      withRequirements = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]));
       break;
     }
     default:
@@ -1113,7 +1234,7 @@ function encodeToolDescriptionElement(td) {
   }
   let withBaseCommand;
   const matchValue_2 = td.BaseCommand;
-  let matchResult_2, bc_1;
+  let matchResult_2 = void 0, bc_1 = void 0;
   if (matchValue_2 != null) {
     if (bc = value(matchValue_2), bc.length > 0) {
       matchResult_2 = 0;
@@ -1126,40 +1247,78 @@ function encodeToolDescriptionElement(td) {
   }
   switch (matchResult_2) {
     case 0: {
-      withBaseCommand = append(withRequirements, singleton(["baseCommand", YAMLElement_Sequence(ofSeq(map$2(string, bc_1)))]));
+      withBaseCommand = append(withRequirements, singleton(["baseCommand", YAMLElement_Sequence(ofSeq(map$1(string, bc_1)))]));
       break;
     }
     default:
       withBaseCommand = withRequirements;
   }
-  const withOutputs = append((matchValue_3 = td.Inputs, matchValue_3 != null ? (i = value(matchValue_3), i.length > 0) ? (i_1 = value(matchValue_3), append(withBaseCommand, singleton(["inputs", yMap(toList(map$2(encodeCWLInput, i_1)))]))) : withBaseCommand : withBaseCommand), singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, td.Outputs)))]));
-  return yMap((matchValue_4 = td.Metadata, matchValue_4 == null ? withOutputs : (md = value(matchValue_4), fold((acc_8, kvp) => {
-    let matchValue_5;
-    return append(acc_8, singleton([kvp[0], (matchValue_5 = kvp[1], typeof matchValue_5 === "string" ? string(matchValue_5) : typeof matchValue_5 === "boolean" ? yBool(matchValue_5) : typeof matchValue_5 === "number" ? int(matchValue_5) : typeof matchValue_5 === "number" ? float(matchValue_5) : matchValue_5 instanceof YAMLElement ? matchValue_5 : string(toString(kvp[1])))]));
-  }, withOutputs, md.GetProperties(false)))));
+  let withCommandFields;
+  let acc_20;
+  let acc_18;
+  let acc_16;
+  let acc_14;
+  let acc_12;
+  let acc_10;
+  const value_2 = td.Arguments;
+  const acc_9 = withBaseCommand;
+  acc_10 = value_2 == null ? acc_9 : append(acc_9, singleton(["arguments", value(value_2)]));
+  const value_5 = td.Stdin;
+  const acc_11 = acc_10;
+  acc_12 = value_5 == null ? acc_11 : append(acc_11, singleton(["stdin", string(value(value_5))]));
+  const value_8 = td.Stderr;
+  const acc_13 = acc_12;
+  acc_14 = value_8 == null ? acc_13 : append(acc_13, singleton(["stderr", string(value(value_8))]));
+  const value_11 = td.Stdout;
+  const acc_15 = acc_14;
+  acc_16 = value_11 == null ? acc_15 : append(acc_15, singleton(["stdout", string(value(value_11))]));
+  const value_14 = td.SuccessCodes;
+  const acc_17 = acc_16;
+  acc_18 = value_14 == null ? acc_17 : append(acc_17, singleton(["successCodes", YAMLElement_Sequence(ofSeq(map$1(int, value(value_14))))]));
+  const value_17 = td.TemporaryFailCodes;
+  const acc_19 = acc_18;
+  acc_20 = value_17 == null ? acc_19 : append(acc_19, singleton(["temporaryFailCodes", YAMLElement_Sequence(ofSeq(map$1(int, value(value_17))))]));
+  const value_20 = td.PermanentFailCodes;
+  const acc_21 = acc_20;
+  withCommandFields = value_20 == null ? acc_21 : append(acc_21, singleton(["permanentFailCodes", YAMLElement_Sequence(ofSeq(map$1(int, value(value_20))))]));
+  const withOutputs = append((matchValue_3 = td.Inputs, matchValue_3 != null ? (i = value(matchValue_3), i.length > 0) ? (i_1 = value(matchValue_3), append(withCommandFields, singleton(["inputs", yMap(toList(map$1(encodeCWLInput, i_1)))]))) : withCommandFields : withCommandFields), singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, td.Outputs)))]));
+  let withMetadata;
+  const matchValue_4 = td.Metadata;
+  withMetadata = matchValue_4 == null ? withOutputs : appendDynamicProperties(value(matchValue_4), withOutputs);
+  return yMap(appendDynamicPropertiesExcept(CWLToolDescription.KnownFieldNames, td, withMetadata));
 }
 function encodeExpressionToolDescriptionElement(et) {
-  let h, r, matchValue_2, i, i_1, matchValue_3, md;
+  let intent = void 0, h = void 0, r = void 0, matchValue_2 = void 0, i = void 0, i_1 = void 0;
   let basePairs;
   let acc_6;
   let acc_4;
   let acc_2;
   const acc = ofArray([["cwlVersion", string(et.CWLVersion)], ["class", string("ExpressionTool")]]);
-  const pairOpt_1 = map((id) => ["id", string(id)], et.Id);
+  let pairOpt_1;
+  const option_1 = et.Id;
+  pairOpt_1 = option_1 != null ? ["id", string(value(option_1))] : void 0;
   const acc_1 = acc;
   acc_2 = pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)));
-  const pairOpt_3 = map(encodeLabel, et.Label);
+  let pairOpt_3;
+  const option_3 = et.Label;
+  pairOpt_3 = option_3 != null ? encodeLabel(value(option_3)) : void 0;
   const acc_3 = acc_2;
   acc_4 = pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)));
-  const pairOpt_5 = map(encodeDoc, et.Doc);
+  let pairOpt_5;
+  const option_5 = et.Doc;
+  pairOpt_5 = option_5 != null ? encodeDoc(value(option_5)) : void 0;
   const acc_5 = acc_4;
   acc_6 = pairOpt_5 == null ? acc_5 : append(acc_5, singleton(value(pairOpt_5)));
-  const pairOpt_7 = map(encodeIntent, filter((intent) => intent.length > 0, et.Intent));
+  let pairOpt_7;
+  let option_9;
+  const option_7 = et.Intent;
+  option_9 = option_7 != null ? (intent = value(option_7), intent.length > 0) ? option_7 : void 0 : void 0;
+  pairOpt_7 = option_9 != null ? encodeIntent(value(option_9)) : void 0;
   const acc_7 = acc_6;
   basePairs = pairOpt_7 == null ? acc_7 : append(acc_7, singleton(value(pairOpt_7)));
   let withHints;
   const matchValue = et.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1172,7 +1331,7 @@ function encodeExpressionToolDescriptionElement(et) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
@@ -1180,7 +1339,7 @@ function encodeExpressionToolDescriptionElement(et) {
   }
   let withRequirements;
   const matchValue_1 = et.Requirements;
-  let matchResult_1, r_1;
+  let matchResult_1 = void 0, r_1 = void 0;
   if (matchValue_1 != null) {
     if (r = value(matchValue_1), r.length > 0) {
       matchResult_1 = 0;
@@ -1193,40 +1352,50 @@ function encodeExpressionToolDescriptionElement(et) {
   }
   switch (matchResult_1) {
     case 0: {
-      withRequirements = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]));
+      withRequirements = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]));
       break;
     }
     default:
       withRequirements = withHints;
   }
-  const withExpression = append(append((matchValue_2 = et.Inputs, matchValue_2 != null ? (i = value(matchValue_2), i.length > 0) ? (i_1 = value(matchValue_2), append(withRequirements, singleton(["inputs", yMap(toList(map$2(encodeCWLInput, i_1)))]))) : withRequirements : withRequirements), singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, et.Outputs)))])), singleton(["expression", encodeExpressionScalar(et.Expression)]));
-  return yMap((matchValue_3 = et.Metadata, matchValue_3 == null ? withExpression : (md = value(matchValue_3), fold((acc_8, kvp) => {
-    let matchValue_4;
-    return append(acc_8, singleton([kvp[0], (matchValue_4 = kvp[1], typeof matchValue_4 === "string" ? string(matchValue_4) : typeof matchValue_4 === "boolean" ? yBool(matchValue_4) : typeof matchValue_4 === "number" ? int(matchValue_4) : typeof matchValue_4 === "number" ? float(matchValue_4) : matchValue_4 instanceof YAMLElement ? matchValue_4 : string(toString(kvp[1])))]));
-  }, withExpression, md.GetProperties(false)))));
+  const withExpression = append(append((matchValue_2 = et.Inputs, matchValue_2 != null ? (i = value(matchValue_2), i.length > 0) ? (i_1 = value(matchValue_2), append(withRequirements, singleton(["inputs", yMap(toList(map$1(encodeCWLInput, i_1)))]))) : withRequirements : withRequirements), singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, et.Outputs)))])), singleton(["expression", encodeExpressionScalar(et.Expression)]));
+  let withMetadata;
+  const matchValue_3 = et.Metadata;
+  withMetadata = matchValue_3 == null ? withExpression : appendDynamicProperties(value(matchValue_3), withExpression);
+  return yMap(appendDynamicPropertiesExcept(CWLExpressionToolDescription.KnownFieldNames, et, withMetadata));
 }
 function encodeOperationDescriptionElement(op) {
-  let h, matchValue_1, r, r_1, matchValue_2, md;
+  let intent = void 0, h = void 0, matchValue_1 = void 0, r = void 0, r_1 = void 0;
   let basePairs;
   let acc_6;
   let acc_4;
   let acc_2;
   const acc = ofArray([["cwlVersion", string(op.CWLVersion)], ["class", string("Operation")]]);
-  const pairOpt_1 = map((id) => ["id", string(id)], op.Id);
+  let pairOpt_1;
+  const option_1 = op.Id;
+  pairOpt_1 = option_1 != null ? ["id", string(value(option_1))] : void 0;
   const acc_1 = acc;
   acc_2 = pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)));
-  const pairOpt_3 = map(encodeLabel, op.Label);
+  let pairOpt_3;
+  const option_3 = op.Label;
+  pairOpt_3 = option_3 != null ? encodeLabel(value(option_3)) : void 0;
   const acc_3 = acc_2;
   acc_4 = pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)));
-  const pairOpt_5 = map(encodeDoc, op.Doc);
+  let pairOpt_5;
+  const option_5 = op.Doc;
+  pairOpt_5 = option_5 != null ? encodeDoc(value(option_5)) : void 0;
   const acc_5 = acc_4;
   acc_6 = pairOpt_5 == null ? acc_5 : append(acc_5, singleton(value(pairOpt_5)));
-  const pairOpt_7 = map(encodeIntent, filter((intent) => intent.length > 0, op.Intent));
+  let pairOpt_7;
+  let option_9;
+  const option_7 = op.Intent;
+  option_9 = option_7 != null ? (intent = value(option_7), intent.length > 0) ? option_7 : void 0 : void 0;
+  pairOpt_7 = option_9 != null ? encodeIntent(value(option_9)) : void 0;
   const acc_7 = acc_6;
   basePairs = pairOpt_7 == null ? acc_7 : append(acc_7, singleton(value(pairOpt_7)));
   let withHints;
   const matchValue = op.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1239,40 +1408,50 @@ function encodeOperationDescriptionElement(op) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
       withHints = basePairs;
   }
-  const withOutputs = append(append((matchValue_1 = op.Requirements, matchValue_1 != null ? (r = value(matchValue_1), r.length > 0) ? (r_1 = value(matchValue_1), append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]))) : withHints : withHints), singleton(["inputs", yMap(toList(map$2(encodeCWLInput, op.Inputs)))])), singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, op.Outputs)))]));
-  return yMap((matchValue_2 = op.Metadata, matchValue_2 == null ? withOutputs : (md = value(matchValue_2), fold((acc_8, kvp) => {
-    let matchValue_3;
-    return append(acc_8, singleton([kvp[0], (matchValue_3 = kvp[1], typeof matchValue_3 === "string" ? string(matchValue_3) : typeof matchValue_3 === "boolean" ? yBool(matchValue_3) : typeof matchValue_3 === "number" ? int(matchValue_3) : typeof matchValue_3 === "number" ? float(matchValue_3) : matchValue_3 instanceof YAMLElement ? matchValue_3 : string(toString(kvp[1])))]));
-  }, withOutputs, md.GetProperties(false)))));
+  const withOutputs = append(append((matchValue_1 = op.Requirements, matchValue_1 != null ? (r = value(matchValue_1), r.length > 0) ? (r_1 = value(matchValue_1), append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]))) : withHints : withHints), singleton(["inputs", yMap(toList(map$1(encodeCWLInput, op.Inputs)))])), singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, op.Outputs)))]));
+  let withMetadata;
+  const matchValue_2 = op.Metadata;
+  withMetadata = matchValue_2 == null ? withOutputs : appendDynamicProperties(value(matchValue_2), withOutputs);
+  return yMap(appendDynamicPropertiesExcept(CWLOperationDescription.KnownFieldNames, op, withMetadata));
 }
 function encodeWorkflowDescriptionElement(wd) {
-  let h, matchValue_1, r, r_1, matchValue_2, md;
+  let intent = void 0, h = void 0, matchValue_1 = void 0, r = void 0, r_1 = void 0;
   let basePairs;
   let acc_6;
   let acc_4;
   let acc_2;
   const acc = ofArray([["cwlVersion", string(wd.CWLVersion)], ["class", string("Workflow")]]);
-  const pairOpt_1 = map((id) => ["id", string(id)], wd.Id);
+  let pairOpt_1;
+  const option_1 = wd.Id;
+  pairOpt_1 = option_1 != null ? ["id", string(value(option_1))] : void 0;
   const acc_1 = acc;
   acc_2 = pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)));
-  const pairOpt_3 = map(encodeLabel, wd.Label);
+  let pairOpt_3;
+  const option_3 = wd.Label;
+  pairOpt_3 = option_3 != null ? encodeLabel(value(option_3)) : void 0;
   const acc_3 = acc_2;
   acc_4 = pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)));
-  const pairOpt_5 = map(encodeDoc, wd.Doc);
+  let pairOpt_5;
+  const option_5 = wd.Doc;
+  pairOpt_5 = option_5 != null ? encodeDoc(value(option_5)) : void 0;
   const acc_5 = acc_4;
   acc_6 = pairOpt_5 == null ? acc_5 : append(acc_5, singleton(value(pairOpt_5)));
-  const pairOpt_7 = map(encodeIntent, filter((intent) => intent.length > 0, wd.Intent));
+  let pairOpt_7;
+  let option_9;
+  const option_7 = wd.Intent;
+  option_9 = option_7 != null ? (intent = value(option_7), intent.length > 0) ? option_7 : void 0 : void 0;
+  pairOpt_7 = option_9 != null ? encodeIntent(value(option_9)) : void 0;
   const acc_7 = acc_6;
   basePairs = pairOpt_7 == null ? acc_7 : append(acc_7, singleton(value(pairOpt_7)));
   let withHints;
   const matchValue = wd.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1285,21 +1464,22 @@ function encodeWorkflowDescriptionElement(wd) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
       withHints = basePairs;
   }
-  const withOutputs = append(append(append((matchValue_1 = wd.Requirements, matchValue_1 != null ? (r = value(matchValue_1), r.length > 0) ? (r_1 = value(matchValue_1), append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]))) : withHints : withHints), singleton(["inputs", yMap(toList(map$2(encodeCWLInput, wd.Inputs)))])), singleton(["steps", yMap(toList(map$2(encodeWorkflowStep, wd.Steps)))])), singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, wd.Outputs)))]));
-  return yMap((matchValue_2 = wd.Metadata, matchValue_2 == null ? withOutputs : (md = value(matchValue_2), fold((acc_8, kvp) => {
-    let matchValue_3;
-    return append(acc_8, singleton([kvp[0], (matchValue_3 = kvp[1], typeof matchValue_3 === "string" ? string(matchValue_3) : typeof matchValue_3 === "boolean" ? yBool(matchValue_3) : typeof matchValue_3 === "number" ? int(matchValue_3) : typeof matchValue_3 === "number" ? float(matchValue_3) : matchValue_3 instanceof YAMLElement ? matchValue_3 : string(toString(kvp[1])))]));
-  }, withOutputs, md.GetProperties(false)))));
+  const withOutputs = append(append(append((matchValue_1 = wd.Requirements, matchValue_1 != null ? (r = value(matchValue_1), r.length > 0) ? (r_1 = value(matchValue_1), append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]))) : withHints : withHints), singleton(["inputs", yMap(toList(map$1(encodeCWLInput, wd.Inputs)))])), singleton(["steps", yMap(toList(map$1(encodeWorkflowStep, wd.Steps)))])), singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, wd.Outputs)))]));
+  let withMetadata;
+  const matchValue_2 = wd.Metadata;
+  withMetadata = matchValue_2 == null ? withOutputs : appendDynamicProperties(value(matchValue_2), withOutputs);
+  return yMap(appendDynamicPropertiesExcept(CWLWorkflowDescription.KnownFieldNames, wd, withMetadata));
 }
 function encodeWorkflowStep(ws) {
-  let h, r;
+  let h = void 0, r = void 0;
   let basePairs;
+  let acc_10;
   let acc_8;
   let acc_6;
   let acc_4;
@@ -1319,10 +1499,11 @@ function encodeWorkflowStep(ws) {
   acc_8 = value_9 == null ? acc_7 : append(acc_7, singleton(["scatterMethod", encodeScatterMethod(value(value_9))]));
   const value_12 = ws.When_;
   const acc_9 = acc_8;
-  basePairs = value_12 == null ? acc_9 : append(acc_9, singleton(["when", string(value(value_12))]));
+  acc_10 = value_12 == null ? acc_9 : append(acc_9, singleton(["when", string(value(value_12))]));
+  basePairs = appendDynamicPropertiesExcept(WorkflowStep.KnownFieldNames, ws, acc_10);
   let withHints;
   const matchValue = ws.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1335,7 +1516,7 @@ function encodeWorkflowStep(ws) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
@@ -1343,7 +1524,7 @@ function encodeWorkflowStep(ws) {
   }
   let withReq;
   const matchValue_1 = ws.Requirements;
-  let matchResult_1, r_1;
+  let matchResult_1 = void 0, r_1 = void 0;
   if (matchValue_1 != null) {
     if (r = value(matchValue_1), r.length > 0) {
       matchResult_1 = 0;
@@ -1356,7 +1537,7 @@ function encodeWorkflowStep(ws) {
   }
   switch (matchResult_1) {
     case 0: {
-      withReq = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]));
+      withReq = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]));
       break;
     }
     default:
@@ -1367,10 +1548,93 @@ function encodeWorkflowStep(ws) {
 function writeYaml(element) {
   return write(element, (c) => new Config(2, c.Level));
 }
+function encodeCWLParameterReference(reference) {
+  let option_1 = void 0;
+  const encodedValue = defaultArg((option_1 = reference.Value, option_1 != null ? encodeCWLParameterValue(value(option_1)) : void 0), YAMLElement_Sequence(empty$1()));
+  const dynamicPairs = toList(choose((property) => {
+    const option_4 = encodeDynamicValue(property[1]);
+    if (option_4 != null) {
+      return [property[0], value(option_4)];
+    } else {
+      return void 0;
+    }
+  }, dynamicPropertiesExcept(CWLParameterReference.KnownFieldNames, reference)));
+  let inferredType;
+  const option_6 = reference.Value;
+  inferredType = option_6 != null ? CWLParameterValueModule_tryInferType(value(option_6)) : void 0;
+  let explicitTypePair;
+  const matchValue = reference.Type;
+  let matchResult = void 0, type__1 = void 0;
+  if (matchValue != null) {
+    if (!equals(inferredType, value(matchValue))) {
+      matchResult = 0;
+      type__1 = value(matchValue);
+    } else {
+      matchResult = 1;
+    }
+  } else {
+    matchResult = 1;
+  }
+  switch (matchResult) {
+    case 0: {
+      explicitTypePair = ["type", encodeCWLType(type__1)];
+      break;
+    }
+    default:
+      explicitTypePair = void 0;
+  }
+  let encodedReference;
+  let matchResult_1 = void 0, overflow_1 = void 0, typePair = void 0, value_5 = void 0;
+  if (explicitTypePair == null) {
+    if (isEmpty(dynamicPairs)) {
+      matchResult_1 = 0;
+    } else if (encodedValue.tag === /* Object */
+    3) {
+      matchResult_1 = 1;
+    } else {
+      matchResult_1 = 2;
+      overflow_1 = dynamicPairs;
+      typePair = explicitTypePair;
+      value_5 = encodedValue;
+    }
+  } else {
+    matchResult_1 = 2;
+    overflow_1 = dynamicPairs;
+    typePair = explicitTypePair;
+    value_5 = encodedValue;
+  }
+  switch (matchResult_1) {
+    case 0: {
+      encodedReference = encodedValue;
+      break;
+    }
+    case 1: {
+      const valuePairs = choose$1((_arg) => {
+        if (_arg.tag === /* Mapping */
+        0) {
+          return [_arg.fields[0].Value, _arg.fields[1]];
+        } else {
+          return void 0;
+        }
+      }, encodedValue.fields[0]);
+      const valueKeys = ofSeq$1(map$1((tuple) => tuple[0], valuePairs), {
+        Compare: (x, y) => comparePrimitives(x, y) | 0
+      });
+      encodedReference = yMap(append(valuePairs, filter((tupledArg) => !contains(tupledArg[0], valueKeys), dynamicPairs)));
+      break;
+    }
+    default:
+      encodedReference = yMap(toList(delay(() => append$1(ofArray(toArray(typePair)), delay(() => append$1(singleton$1(["value", value_5]), delay(() => overflow_1)))))));
+  }
+  return [reference.Key, encodedReference];
+}
+function encodeYAMLParameterFile(references) {
+  return writeYaml(yMap(toList(map$1(encodeCWLParameterReference, references))));
+}
 function getObjectPairs(element) {
   if (element.tag === /* Object */
   3) {
-    return choose((_arg) => {
+    return choose$1((_arg) => {
       if (_arg.tag === /* Mapping */
       0) {
         return [_arg.fields[0].Value, _arg.fields[1]];
@@ -1379,26 +1643,33 @@ function getObjectPairs(element) {
       }
     }, element.fields[0]);
   } else {
-    return empty();
+    return empty$1();
   }
 }
 function renderTopLevelElement(baseKeys, orderedSectionKeys, element) {
   const section = (pairs) => trimEnd(replace(writeYaml(yMap(pairs)), "\r\n", "\n"), "\n");
   const pairs_2 = getObjectPairs(element);
-  const basePairs = filter$1((tupledArg) => contains(tupledArg[0], baseKeys, {
+  const basePairs = filter((tupledArg) => contains$1(tupledArg[0], baseKeys, {
     Equals: (x, y) => x === y,
-    GetHashCode: stringHash
+    GetHashCode: (x) => stringHash(x) | 0
   }), pairs_2);
-  const knownSections = choose((sectionKey) => map(singleton, tryFind((tupledArg_1) => tupledArg_1[0] === sectionKey, pairs_2)), orderedSectionKeys);
+  const knownSections = choose$1((sectionKey) => {
+    const option_1 = tryFind((tupledArg_1) => tupledArg_1[0] === sectionKey, pairs_2);
+    if (option_1 != null) {
+      return singleton(value(option_1));
+    } else {
+      return void 0;
+    }
+  }, orderedSectionKeys);
   const reservedKeys = ofList(append(baseKeys, orderedSectionKeys), {
-    Compare: comparePrimitives
+    Compare: (x_1, y_1) => comparePrimitives(x_1, y_1) | 0
   });
-  const metadataPairs = filter$1((tupledArg_2) => !FSharpSet__Contains(reservedKeys, tupledArg_2[0]), pairs_2);
+  const metadataPairs = filter((tupledArg_2) => !FSharpSet__Contains(reservedKeys, tupledArg_2[0]), pairs_2);
   const merge = (acc_mut, remaining_mut) => {
     merge:
       while (true) {
         const acc = acc_mut, remaining = remaining_mut;
-        let matchResult, a_1, b_1, rest_1, l, rest_2;
+        let matchResult = void 0, a_1 = void 0, b_1 = void 0, rest_1 = void 0, l = void 0, rest_2 = void 0;
         if (isEmpty(remaining)) {
           matchResult = 2;
         } else if (!isEmpty(tail(remaining))) {
@@ -1434,7 +1705,7 @@ function renderTopLevelElement(baseKeys, orderedSectionKeys, element) {
         break;
       }
   };
-  return join("\r\n", merge(empty(), ofArray(split(join("\r\n\r\n", toList(delay(() => append$1(length(basePairs) > 0 ? singleton$1(section(basePairs)) : empty$1(), delay(() => append$1(map$1(section, knownSections), delay(() => length(metadataPairs) > 0 ? singleton$1(section(metadataPairs)) : empty$1()))))))), ["\r\n"], void 0, 0))));
+  return join("\r\n", merge(empty$1(), ofArray(split(join("\r\n\r\n", toList(delay(() => append$1(length(basePairs) > 0 ? singleton$1(section(basePairs)) : empty$2(), delay(() => append$1(map(section, knownSections), delay(() => length(metadataPairs) > 0 ? singleton$1(section(metadataPairs)) : empty$2()))))))), ["\r\n"], void 0, 0))));
 }
 function encodeToolDescription(td) {
   return renderTopLevelElement(ofArray(["cwlVersion", "class", "id", "label", "doc", "intent"]), ofArray(["hints", "requirements", "baseCommand", "inputs", "outputs"]), encodeToolDescriptionElement(td));
@@ -1467,7 +1738,7 @@ function encodeCWLTypeYaml(t) {
   switch (t.tag) {
     case /* Union */
     14:
-      return "[" + join(", ", map$2(encodeCWLTypeYaml, t.fields[0])) + "]";
+      return "[" + join(", ", map$1(encodeCWLTypeYaml, t.fields[0])) + "]";
     case /* Array */
     11:
       return encodeInputArraySchemaYaml(t.fields[0]);
@@ -1487,13 +1758,14 @@ function encodeCWLTypeYaml(t) {
   }
 }
 function encodeInputRecordFieldYaml(field) {
-  return `{name: ${field.Name}, type: ${encodeCWLTypeYaml(field.Type)}}`;
+  const typeYaml = encodeCWLTypeYaml(field.Type);
+  return `{name: ${field.Name}, type: ${typeYaml}}`;
 }
 function encodeInputRecordSchemaYaml(schema) {
-  let fs;
+  let fs = void 0;
   let fieldsYaml;
   const matchValue = schema.Fields;
-  let matchResult, fs_1;
+  let matchResult = void 0, fs_1 = void 0;
   if (matchValue != null) {
     if (fs = value(matchValue), fs.length > 0) {
       matchResult = 0;
@@ -1506,7 +1778,7 @@ function encodeInputRecordSchemaYaml(schema) {
   }
   switch (matchResult) {
     case 0: {
-      fieldsYaml = join(", ", map$2(encodeInputRecordFieldYaml, fs_1));
+      fieldsYaml = join(", ", map$1(encodeInputRecordFieldYaml, fs_1));
       break;
     }
     default:
@@ -1515,17 +1787,21 @@ function encodeInputRecordSchemaYaml(schema) {
   if (fieldsYaml === "") {
     return "{type: record, fields: []}";
   } else {
-    return `{type: record, fields: [${fieldsYaml}]}`;
+    return concat("{type: record, fields: [", fieldsYaml, "]}");
   }
 }
 function encodeInputEnumSchemaYaml(schema) {
-  return `{type: enum, symbols: [${join(", ", schema.Symbols)}]}`;
+  return concat("{type: enum, symbols: [", join(", ", schema.Symbols), "]}");
 }
 function encodeInputArraySchemaYaml(schema) {
-  return `{type: array, items: ${encodeCWLTypeYaml(schema.Items)}}`;
+  return concat("{type: array, items: ", encodeCWLTypeYaml(schema.Items), "}");
 }
 function cwlTypeToYamlString(t) {
   return encodeCWLTypeYaml(t);
 }
+function formatCWLType(type_) {
+  const s = writeYaml(encodeCWLType(type_));
+  return s.trim();
+}
 
-export { $007CPrimitiveType$007CComplexType$007C, cwlTypeToYamlString, encodeCWLInput, encodeCWLOutput, encodeCWLType, encodeCWLTypeYaml, encodeDoc, encodeEnvVarRequirementCompactMap, encodeExpressionScalar, encodeExpressionToolDescription, encodeExpressionToolDescriptionElement, encodeHintEntry, encodeInputArraySchema, encodeInputArraySchemaYaml, encodeInputBinding, encodeInputEnumSchema, encodeInputEnumSchemaYaml, encodeInputRecordField, encodeInputRecordFieldYaml, encodeInputRecordSchema, encodeInputRecordSchemaYaml, encodeIntent, encodeLabel, encodeLinkMergeMethod, encodeOperationDescription, encodeOperationDescriptionElement, encodeOutputBinding, encodePickValueMethod, encodeProcessingUnit, encodeRequirement, encodeScatter, encodeScatterMethod, encodeSchemaDefRequirementType, encodeSchemaSaladString, encodeSoftwareRequirementCompactMap, encodeSourceArray, encodeStepInput, encodeStepInputs, encodeStepOutputParameter, encodeStepOutputs, encodeStringArrayOrScalar, encodeToolDescription, encodeToolDescriptionElement, encodeWorkflowDescription, encodeWorkflowDescriptionElement, encodeWorkflowStep, encodeWorkflowStepRun, getObjectPairs, isComplexType, normalizeDocString, normalizeEnvValueForEncode, renderTopLevelElement, tryGetArrayShorthand, writeYaml, yBool, yMap };
+export { $007CPrimitiveType$007CComplexType$007C, appendDynamicProperties, appendDynamicPropertiesExcept, cwlTypeToYamlString, encodeCWLInput, encodeCWLOutput, encodeCWLParameterReference, encodeCWLParameterValue, encodeCWLType, encodeCWLTypeYaml, encodeDirectoryPairs, encodeDoc, encodeDynamicObj, encodeDynamicValue, encodeEnvVarRequirementCompactMap, encodeExpressionScalar, encodeExpressionToolDescription, encodeExpressionToolDescriptionElement, encodeFilePairs, encodeHintEntry, encodeInputArraySchema, encodeInputArraySchemaYaml, encodeInputBinding, encodeInputEnumSchema, encodeInputEnumSchemaYaml, encodeInputRecordField, encodeInputRecordFieldYaml, encodeInputRecordSchema, encodeInputRecordSchemaYaml, encodeIntent, encodeLabel, encodeLinkMergeMethod, encodeOperationDescription, encodeOperationDescriptionElement, encodeOutputBinding, encodePickValueMethod, encodeProcessingUnit, encodeRequirement, encodeScatter, encodeScatterMethod, encodeSchemaDefRequirementType, encodeSchemaSaladString, encodeSoftwareRequirementCompactMap, encodeSourceArray, encodeStepInput, encodeStepInputs, encodeStepOutputParameter, encodeStepOutputs, encodeStringArrayOrScalar, encodeToolDescription, encodeToolDescriptionElement, encodeWorkflowDescription, encodeWorkflowDescriptionElement, encodeWorkflowStep, encodeWorkflowStepRun, encodeYAMLParameterFile, formatCWLType, getObjectPairs, isComplexType, normalizeDocString, normalizeEnvValueForEncode, renderTopLevelElement, tryGetArrayShorthand, writeYaml, yBool, yFloat, yMap };