let indeksy lista=
	let rec indeksy_1(lista,licznik)=
		match (lista,licznik) with
		| ([],_)->([],[],[])
		| (h::t,_)-> let (l1,l2,l3)= podzielp(t,licznik+1) in
								if licznik mod 3=0 then (h::l1,l2,l3)
								else if licznik mod 3=1 then (l1,h::l2,l3)
								else (l1,l2,h::l3)
	in podzielp(lista,0);;

indeksy [5;4;3;2];;