!7

concept Bla {
  S name;
  new RefL<Bla> references;
}

cprint {
  start-thread {
    new Concepts cc;
    Bla a = cnew(cc, Bla, name := "a");
    Bla b = cnew(cc, Bla, name := "hello", whatever := 123, ref := a,
      references := ll(a, a));
    pnl(conceptShadow_rawMap(a));
    print(ConceptShadow(a));
    pnl(conceptShadow_rawMap(b));
    print(ConceptShadow(b));
  }
}