let rec elim_repeats lst = match lst with
    cur::rest when List.mem cur rest -> elim_repeats rest
  | cur::rest -> cur::(elim_repeats rest)
  | [] -> []