このディレクトリの索引

'99 bottles of beer on the wall' :-
        findall([N,' bottles of beer on the wall.\n\n',N,' bottles of beer on the wall, ',N,' bottles of beer,\nTake one down and pass it around, '],between(2,99,N),L_1),
        reverse(['1 bottle of beer on the wall, 1 bottle of beer,\nTake one down, and pass it around,\nNow they are all gone.\n'|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).