parse(S, Count) :- atom_chars(S,Chars), string(Count,Chars, []).

string(N) --> as(N).

as(some) --> [a], as(_).
as(none) --> [].
