NameOption := Object clone do(
    newSlot("options")

    remainder := method(i,
        i / (size) floor
    )

    option := method(i,
        options at(i % (options size))
    )

    size := method(
        options size
    )
)