let a = [ [1] ; [2;8;9] ; [3] ; [4] ; [5;10] ; [6] ; [7] ]
let rec del N =
    if N == 1 then del(a.Tail 0)
    else
        a.Head :: del(a.Tail 1)