perform(A) :- write(A), nl.