let line () =
  for i = 1 to Glob.nb_col do print_string "+-" done;
  print_endline "+ "