F# 1.4

let a = [ [1] ; [2;8;9] ; [3] ; [4] ; [5;10] ; [6] ; [7] ]
let rec del = fun N ->
    if N == 1 then del(List.tail 0)
    else
        List.head :: del(List.tail 1)