let load path =
  In_channel.read_lines (path ^ "/matrix_list.txt")
  |! List.map ~f:(fun l -> String.split l ~on:'\t')
  |! List.map ~f:(function
      | [ id ; info ; factor_name ; factor_class ; attrs ] -> 
          load_motif ~id ~info ~factor_name ~factor_class ~attrs ~path
      | l -> 
          failwithf "Jaspa.load: incorrect fields\n%s" (String.concat ~sep:"\n" l) ())