let rec getNth l n =
    if n = 0 then List.hd l else getNth (List.tl l) (n - 1);;

let rec slice l index1 index2 =
    if index1 < index2 then getNth l index1 :: slice (index1 + 1) index2 else [];;