let rec zero = function
    | 1 -> [[0]]
    | n -> let m = zero (n-1) in let m2 = List.map(fun e -> 0::e) m in List.hd m2 :: m2;;