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

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