Eko Nopyanto

domains
nama=symbol
datatree=tree(nama,datatree,datatree,datatree,datatree,datatree);kosong

predicates
cetak_data(datatree)

clauses
cetak_data(kosong).
cetak_data(tree(U,V,W,X,Y,Z)):- write(U),nl,cetak_data(V),cetak_data(W),cetak_data(X),cetak_data(Y),cetak_data(Z).