このディレクトリの索引

'99 bottles of beer on the wall' :-
' bottles of beer on the wall, ' = A,
' bottles of beer,
Take one down and pass it around, ' = B,
' bottles of beer on the wall.

' = C,
'1 bottle of beer on the wall, 1 bottle of beer,
Take one down, and pass it around,
Now they are all gone.
' = D,
findall([N,C,N,A,N,B],between(2,99,N),L_1),
reverse([D|L_1],L_2),
flatten(L_2,[_,_|L_3]),
atomic_list_concat(L_3,_99_bottles_of_beer_on_the_wall),
write(_99_bottles_of_beer_on_the_wall).