let parse_seq s =
  parse_opt_string "SEQ" seq_re s