>>606 [2]
% Prolog 見かけ再帰を含みませんが、実はfor/3やconcat_atom/3は再帰なしには書けない・・・

t606_2(N,R,X) :-
　　findall(N1,for(N,N1,R+1),L1),
　　findall(N2,for(R,N2,1),L2),
　　concat_atom(L1,'*',S1),
　　concat_atom(L2,'*',S2),
　　atom_to_term(S1,Term1,_),
　　atom_to_term(S2,Term2,_),
　　X is Term1 / Term2.