seq.ml

let rec seq n_from n_to =
  if n_from <= n_to then
    let rec seq_ n acc = match n with
      | n when n = n_from-1 -> acc 
      | _ -> seq_ (n-1) (n::acc)
    in seq_ n_to []
  else
    []