Rebol [
    Title: "Enum"
    File: %enum.r
    Date: 27-Jun-2005/8:17:13+2:00
    Author: "Ladislav Mecir"
    Purpose: {enumerates a block}
]

#include-check %cfor.r

enum: function [
    {Enumerates a block}
    from [integer!]
    to [integer!]
] [result] [
    result: make block! to + 1 - from
    cfor [i: from] [i <= to] [i: i + 1] [
        insert tail result i
    ]
    result
]

comment [
;   Example:

    enum 1 3
]