(defun main int)
	(InitWindow 800 800 "test test")
	(SetTargetFPS 60)

	(let img:Image (LoadImage "dvd.png"))
	(let tex:Texture (LoadTextureFromImage img))
	(UnloadImage img)

	(let x:int (randint 4 9))
	(let y:int (randint 4 9))
	(let xd:int (randint 3 5))
	(let yd:int (randint 3 5))

	(for i:int 0 (= (WindowShouldClose) 0) 0)
		(BeginDrawing)
		(ClearBackground RAYWHITE)
		(DrawTexture tex x y WHITE)
		(EndDrawing)

		(set x (+ x xd))
		(set y (+ y yd))

		(if (> x 750))
			(set xd -xd)
		(elif (< x 0))
			(set xd -xd)
		(endif)
		(if (> y 750))
			(set yd -yd)
		(elif (< y 0))
			(set yd -yd)
		(endif)

	(endfor)
	(CloseWindow)
(endfun)