Evaler := Object clone do(
    newSlot("scope")

    init := method(
        scope = IoObject rawClone
    )

    eval := method(str,
        m := str asMessage
        scope evalMessage(scope, m)
        scope printSlots
    )
)