INPUT DAN OUTPUT (makelower)

?- write(9),nl.
9
yes

?- write('Morning Star'),nl.
Morning Star
yes

?- write([widya,riza,dita,sari,[mathematic,on,cyber]),nl.
[widya,riza,dita,sari,[mathematic,on,cyber]]
yes

?- write(mypartners(widya,dita,sari)),nl.
mypartners(widya,dita,sari)
yes

?- write('Morning Star'),nl,nl,write('Bright'),nl.
Morning Star
Bright
yes

?- writeq('Morning Star'),nl.
'Morning Star'
yes

?- read(X).
: riza.
X = riza

?- read(X).
: 9.
X = 9

?- read(X).
: mypartners(widya,dita,sari).
X = mypartners(widya,dita,sari)

?- read(Z).
: [riza,hanum,mypartners(widya,dita,sari),[mathematic,on,cyber]].
Z = [riza,hanum,mypartners(widya,dita,sari),[mathematic,on,cyber]]

?- read(Y).
: 'Morning Star'.
Y = 'Morning Star'

?- X=dita,read(X).
: sari.
no

?- X=riza,read(X).
: riza.
X =riza