let cigar_op_skipped i = Or_error.(positive i >>| fun i -> `Skipped i)