let raise_type_error s_list =
  let str = String.concat "" s_list in
    raise (Type_error str)