Usine := Object clone do (
  /* (...) */
  declare   := method (factory,
    object := Object clone
    call sender setSlot(call argAt(1) name, object)
    call sender appendProto(DummyObject)
    call evalArgAt(2)
    factories setSlot(factory,object)
  )
)