>>584
% Prolog

t584 :-
　　user_parameters([File1,File2]),
　　get_lines(File2,L1),
　　get_lines(File2,L2),
　　append(L,[A|_],L1),
　　append(L,[B|_],L2),
　　\+(A=B),
　　length(L,Len),
　　_行番号 is Len + 1,
　　write_formatted('行番号=%t %t=%t %t=%t\n',[_行番号,File1,A,File2,B]).