let incr_line ?(n=1) t =
  let prev = match t.line with None -> 0 | Some x -> x in
  {t with line = Some (prev + n)}