cube(C,N) :- C is N * N * N.
For interactive input:
cube :- read(X), calc(X).
calc(stop) :- !.
calc(X) :- C is X * X * X, write(C), cube.
Now will read until see ``stop''.
