REBOL [
		Title: "Sliding Tile Game"
		Date: 30-Jan-2006
		Version: 1
		File: %tiniest_tile_game.r
		Author: "Nick Antonaccio"
		Purpose: {Simple classic tile game in 8 lines of code.}
		eMail: rebol@musiclessonz.com
		Web: http://musiclessonz.com
		Note: {	Taken from the beginner's tutorial at
				http://musiclessonz.com/rebol_tutorial.html }
	]

	view center-face gui: layout [
		origin 0x0 space 0x0 across 
		style p button 60x60 [
			if not find [0x60 or 60x0 0x-60 -60x0] face/offset - empty/offset [exit]
			temp: face/offset face/offset: empty/offset empty/offset: temp
		]
		p "1"   p "2"   p "3"   p "4" 	return p "5"   p "6"   p "7"   p "8" return
		p "9"   p "10"  p "11"  p "12" 	return p "13"  p "14"  p "15"  
		empty: p 200.200.200 edge [size: 0]
	]