$ echo "current_prolog_flag(dialect,D), writeln(D), halt." | swipl -q
swi

$ echo "current_prolog_flag(dialect,D), writeln(D), halt." | yap -q
yap