REBOL [
    Title: "Text Size Check"
    File: %text-size.r
    Date: 1-Jun-2000
    Purpose: "Compare text font sizes"
    Category: [text view vid 3]
]

data: [space 0x0]

for size 32 8 -2 [
    append data compose/deep
        [text (join "Text Size " size) font [size: (size)]]
]

view layout data