The following code and query doesn\'t work:
bottles(X) :- write(X), write(\' bottles of beer on the wall,\'), nl, write(X), write(\' bottles of beer,\
