/* 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 display = fun [[I [S r2]]] I;;
	
fun displayTuple (a, n)=
	if n < 0 then
		0
	else
	(
		_fooS strcat "__" tupleGet a n nil; 	// tupleGet is in the Syspack library
		displayTuple a n-1
	);;
	
fun display (l)=
	if l == nil then
		0
	else
		let l -> [first [second next]] in
		(
		_fooId first;
		_fooS second;
		display next
		);;

typeof TUPLE = [I I I];;
	
fun main ()=
	_showconsole;
	
	_fooS sprintf "sunrise : %s  sunset : %s" _scienceDateSun [0 0] [0 0] nil; // [43 17] [(-5) 37] nil;
	_fooId _scienceDateLeapYear 2012;
	_fooId _scienceDateDayNumber 2012 2 14;
	0;;_fooSList _getlicenses;
	_fooS _getlicense "scol.txt";
	_fooS _getlicensesinfos;
	_fooS _getWebSite;
	0;;