$ swipl -q <<< "current_prolog_flag(dialect,D), writeln(D), halt."
swi
$ yap -q <<< "current_prolog_flag(dialect,D), writeln(D), halt."
yap