parent('磯野藻屑源素太皆', '磯野波平').
parent('磯野藻屑源素太皆', '磯野海平').
parent('磯野藻屑源素太皆', '波野なぎえ').
parent('磯野波平', 'フグ田サザエ').
parent('磯野波平', '磯野カツオ').
parent('磯野波平', '磯野ワカメ').
parent('磯野フネ', 'フグ田サザエ').
parent('磯野フネ', '磯野カツオ').
parent('磯野フネ', '磯野ワカメ').
parent('フグ田サザエ', 'フグ田タラオ').
parent('フグ田マスオ', 'フグ田タラオ').
parent('フグ田入江', 'フグ田マスオ').
parent('フグ田入江', 'フグ田サケオ'). % この行を追加
parent('波野なぎえ', '波野ノリスケ').
parent('波野ノリスケ', '波野イクラ').
parent('波野タイ子', '波野イクラ').
main :-
parent(X,Y),
format('親: ~w, 子: ~w~n', [X,Y]),
main.
cGFyZW50KCfno6/ph47ol7vlsZHmupDntKDlpKrnmoYnLCAn56Ov6YeO5rOi5bmzJykuCnBhcmVudCgn56Ov6YeO6Je75bGR5rqQ57Sg5aSq55qGJywgJ+ejr+mHjua1t+W5sycpLgpwYXJlbnQoJ+ejr+mHjuiXu+Wxkea6kOe0oOWkqueahicsICfms6Lph47jgarjgY7jgYgnKS4KcGFyZW50KCfno6/ph47ms6LlubMnLCAn44OV44Kw55Sw44K144K244KoJykuCnBhcmVudCgn56Ov6YeO5rOi5bmzJywgJ+ejr+mHjuOCq+ODhOOCqicpLgpwYXJlbnQoJ+ejr+mHjuazouW5sycsICfno6/ph47jg6/jgqvjg6EnKS4KcGFyZW50KCfno6/ph47jg5Xjg40nLCAn44OV44Kw55Sw44K144K244KoJykuCnBhcmVudCgn56Ov6YeO44OV44ONJywgJ+ejr+mHjuOCq+ODhOOCqicpLgpwYXJlbnQoJ+ejr+mHjuODleODjScsICfno6/ph47jg6/jgqvjg6EnKS4KcGFyZW50KCfjg5XjgrDnlLDjgrXjgrbjgqgnLCAn44OV44Kw55Sw44K/44Op44KqJykuCnBhcmVudCgn44OV44Kw55Sw44Oe44K544KqJywgJ+ODleOCsOeUsOOCv+ODqeOCqicpLgpwYXJlbnQoJ+ODleOCsOeUsOWFpeaxnycsICfjg5XjgrDnlLDjg57jgrnjgqonKS4KcGFyZW50KCfjg5XjgrDnlLDlhaXmsZ8nLCAn44OV44Kw55Sw44K144Kx44KqJykuICUg44GT44Gu6KGM44KS6L+95YqgCnBhcmVudCgn5rOi6YeO44Gq44GO44GIJywgJ+azoumHjuODjuODquOCueOCsScpLgpwYXJlbnQoJ+azoumHjuODjuODquOCueOCsScsICfms6Lph47jgqTjgq/jg6knKS4KcGFyZW50KCfms6Lph47jgr/jgqTlrZAnLCAn5rOi6YeO44Kk44Kv44OpJykuCgo6LSBpbml0aWFsaXphdGlvbihtYWluKS4KCm1haW4gOi0KICAgIHBhcmVudChYLFkpLAogICAgZm9ybWF0KCfopqo6IH53LCDlrZA6IH53fm4nLCBbWCxZXSksCiAgICBmYWlsLgptYWluLgo=
親: 磯野藻屑源素太皆, 子: 磯野波平
親: 磯野藻屑源素太皆, 子: 磯野海平
親: 磯野藻屑源素太皆, 子: 波野なぎえ
親: 磯野波平, 子: フグ田サザエ
親: 磯野波平, 子: 磯野カツオ
親: 磯野波平, 子: 磯野ワカメ
親: 磯野フネ, 子: フグ田サザエ
親: 磯野フネ, 子: 磯野カツオ
親: 磯野フネ, 子: 磯野ワカメ
親: フグ田サザエ, 子: フグ田タラオ
親: フグ田マスオ, 子: フグ田タラオ
親: フグ田入江, 子: フグ田マスオ
親: フグ田入江, 子: フグ田サケオ
親: 波野なぎえ, 子: 波野ノリスケ
親: 波野ノリスケ, 子: 波野イクラ
親: 波野タイ子, 子: 波野イクラ
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
Exception: (3) program ? EOF: exit