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