is_tall(peter).is_short(john).is_short(greg).:-findall(X,is_tall(X),Res), length(Res,1), write(yes).
Standard input is empty
yes
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!