!7

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

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