SWI-Prolog -- atom//1

Availability::- use_module(library(dcg/basics)).

[det]atom(++Atom)//

Generate codes of Atom. Current implementation uses write/1, dealing with any Prolog term. Atom must be ground though.