domains
s=string
predicates
convert(S)
clauses
convert(""):-!.
convert(S):-frontchar(S,C,S1),C='b',!,write('*'),convert(S1).
convert(S):-frontchar(S,C,S1),write(C),convert(S1).