namer := Namer clone

Object asSimpleString := method(getSlot("self") type ..("_") ..(namer nameFor(getSlot("self") uniqueId)))

1 to(400) foreach(i,
    write(Object clone)
)