let rec mniejsze (list,element) =
	   if list=[] then true
		else if List.hd list>=element then false
		else mniejsze List.tl list element;;


mniejesze ([1;2;4],7);;