Modify Identifier_name so that more chars are accepted: (){}~

util.pl

@@ -589,11 +589,8 @@ identifier_name(Atom) :-
       (
         alphanumeric_char(Char)
       ;
-        Char = '-'
-      ;
-        Char = '_'
-      ;
-        Char = '.'
+        % ad-hoc bypassing for species name
+        member(Char,['-','_','.',',','~','{','}','(',')'])
       )
     )
   ).