Rebol [ 
title: "Win for Life!"
 Author: "Massimiliano Vessi"
 Date: 01-01-2011
 version: 1.4.9
 file: %winforlife.r
 Purpose: {"Win for life" is an italian lotery. You have to guess 10 number over 20, plus a number over 20. The probability is about 1/3000000.
This is a simply random numbers generator between 1 and 20. }
 ;following data are for library
 ;you can find a lot of rebol script there
 library: [ 
           level: 'beginner 
           platform: 'all 
           type: [tutorial tool] 
           domain: [ vid gui] 
           tested-under: [windows linux] 
           support: none 
           license: [gpl] 
           see-also: none 

random/seed now

view layout [
	title "Win for life!"
	a1: text "xxx"
	a2: text "xxx"
	a3: text "xxx"
	a4: text "xxx"
	a5: text "xxx"
	a6: text "xxx"
	a7: text "xxx"
	a8: text "xxx"
	a9: text "xxx"
	a10: text "xxx"
	button "Estrai!" [
			estrazione: copy/part  (random [1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20])  10
			sort estrazione
			a1/text: to-string estrazione/1
			a2/text: to-string estrazione/2
			a3/text: to-string estrazione/3
			a4/text: to-string estrazione/4
			a5/text: to-string estrazione/5
			a6/text: to-string estrazione/6
			a7/text: to-string estrazione/7
			a8/text: to-string estrazione/8
			a9/text: to-string estrazione/9
			a10/text: to-string estrazione/10
			show [a1 a2 a3 a4 a5 a6 a7 a8 a9 a10]