%% ?- phrase(Body, []).