/* Source code made by iri <http://www.irizone.net>
This code is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, 
either express or implied.
You can do what you want with it */

proto divideX = fun [] I;;

fun main ()=
	_showconsole;
	
	srand time;
	let (((rand&255)*100)>>8)-50 -> x in	// randomized value (-50 +50)
	let strcatn "fun divideX () = 100 / " :: (itoa x) :: ";;" :: nil -> strCode in
	let _testpakS strCode -> res in
	if (nil == res) then	// it's ok
	(
		_loadS strCode;	// we load and run this part of code
		_fooId divideX;
	)		
	else	// divide by zero !
	(
		_fooS res;
		_fooId x;
		1;
	);
	0;;