let skip xs ~n =
  drop xs ~n ;
  from (fun _ -> next xs)