[REBOL] can't explain

[tim781]

Hi, can anyone tell me what's wrong with
this script and why it does'nt throw an error
for input numbers 1 - 9. thanks alot.. tim

BEGIN SCRIPT

REBOL [
]

Listing: [

print "Choose Command..."
print "1 - Command 1"
print "2 - Command 2"
]



command1: [print "Doing Command 1"]
command2: [print "Doing Command 2"]



forever [
do listing
command: input
do rejoin ["command" command]
]