let rec indeksy xs =
    match xs with
  | x::y::z::tail ->
        let a,b,c = indeksy tail in
        x::a, y::b, z::c
  | x::[] -> [x],[],[]
	| x::y::[]->[x],[y],[]
  | [] -> [],[],[];;