99 bottles of beer

rebol []

a: [
    99  ;1
    " bottles of beer" ;2
    " on the wall"  ;3
    ", "    ;4
    ".^/"   ;5
    "Take one down and pass it around, "    ;6
    98  ;7
    " bottle of beer"   ;8
    "no more"   ;9
    "No more"   ;10
    "Go to the store and buy some more, "   ;11
    99  ;12
]

b: [
    [1 2 3 4  1 2 5  6 7 2 3 5] ;97 times
    [1 2 3 4  1 2 5  6 7 8 3 5]
    [1 8 3 4  1 8 5  6 9 2 3 5]
    [10 2 3 4  9 2 5  11 12 2 3 5]
]

drink: does [prin newline  a/1: a/1 - 1  a/7: a/7 - 1]
loop 97 [foreach n sequence/1 [prin pick a n] drink ]
foreach seq next sequence [foreach n seq [prin pick a n] drink ]