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