let rec drop_value l to_drop =
  match l with
  | [] -> []
  | hd :: tl ->
      if hd = to_drop
      then drop_value tl to_drop
      else hd :: drop_value tl to_drop
;;

drop_value [1;2;3;4;5;6;1] 1;;