parent('磯野藻屑源素太皆','磯野波平').
parent('磯野藻屑源素太皆','磯野海平').
parent('磯野藻屑源素太皆','波野なぎえ').
parent('磯野波平','フグ田サザエ').
parent('磯野波平','磯野カツオ').
parent('磯野波平','磯野ワカメ').
parent('磯野フネ','フグ田サザエ').
parent('磯野フネ','磯野カツオ').
parent('磯野フネ','磯野ワカメ').
parent('フグ田サザエ','フグ田タラオ').
parent('フグ田マスオ','フグ田タラオ').
parent('フグ田入江','フグ田マスオ').
parent('フグ田入江','フグ田サケオ').
parent('波野なぎえ','波野ノリスケ').
parent('波野ノリスケ','波野イクラ').
parent('波野タイ子','波野イクラ').

% 起動時に実行
:- initialization(main).

main :-
    parent(X, Y),
    format('親: ~w, 子: ~w~n', [X, Y]),
    fail.
main.