(* let rec arbre n = match n with
    | 0 -> ()
    | _ -> print_string 
*)
[1;2;3];;