let the_list = Read_numbers_from_file.get_filename in
    Read_numbers_from_file.print_numbers the_list;
    let the_btree = Empty in
    match the_list with
      [] -> the_btree
    |  x::the_list -> add x the_btree