let specification_of_string s =
    try Ok (specification_list_of_sexp (Core.Std.Sexp.of_string s))
    with e -> Error (`fasta (`parse_specification e))