cprint {
  S scenario1 = autoUnindent_mls([[
    There is a plan
    The plan works
  ]]);

  S scenario2 = autoUnindent_mls([[
    There is this idea
    This idea is a plan
    This idea works
  ]]);

  NLABlock nla1, nla2;
  S output;
  
  visual jvsplit(
    jhsplit(
      hgridWithSpacing(
        jCenteredSection("Scenario 1 (in Natural Language Assembly)", dm_textAreaAsSection scenario1()),
        jCenteredSection("Scenario 2 (in Natural Language Assembly)", dm_textAreaAsSection scenario2())),
      dm_textAreaAsSection output()),
    super);
  
  start {
    dm_onFieldChange scenario1(r calc);
    dm_onFieldChangeAndNow scenario2(r calc);
  }

  void calc {
    setField(nla1 := nla_simplifyIntroductions(scenario1));
    setField(nla2 := nla_simplifyIntroductions(scenario2));
    printWithIndent("nla1: ", nla1);
    printWithIndent("nla2: ", nla2);
    
    L<Map<NLABlock.Entity>> mappings = nla_partialMappings(nla1, nla2);
    if (empty(mappings))
      setField(output := "Scenarios incompatible");
    else
      setField(output := "Scenarios compatible:\n\n" + lines(mappings));
  }
}