Вывод в запросе - Prolog

Формулировка задачи:

Добрый вечер!Есть некоторая база,которая ниже.И Задание.Как можно избавиться от вывода Length=1805 в каждой строке???

%river(Название реки,Длина км,Годовой сток км3,Площадь бассейна тыс.км2,Истоки,Куда впадает).
...
river(кама,1805,130,507,верхнеКамскаяВозвышенность,волга).
...

Какие реки короче Камы?

?- river(кама,Length,_,_,_,_),river(River,X,_,_,_,_),X<Length.

Вывод: Length = 1805, River = ангара, X = 1779 ; Length = 1805, River = селенга, X = 1024 ; Length = 1805, River = кубань, X = 870.

Решение задачи: «Вывод в запросе»

textual
                            Листинг программы 
                        
                            ? river_shorter_then(кама, Y).