% SCE_VISUALPROLOG_KEY_MAJOR (1)
goal

% SCE_VISUALPROLOG_KEY_MINOR (2)
procedure

% SCE_VISUALPROLOG_KEY_DIRECTIVE (3)
#include

% SCE_VISUALPROLOG_COMMENT_BLOCK (4)
/**
   SCE_VISUALPROLOG_COMMENT_KEY (6)
   @detail
   SCE_VISUALPROLOG_COMMENT_KEY_ERROR (7)
   @unknown
 /* SCE_VISUALPROLOG_IDENTIFIER (8)
    SCE_VISUALPROLOG_VARIABLE (9)
    SCE_VISUALPROLOG_ANONYMOUS (10)
    SCE_VISUALPROLOG_NUMBER (11)
    SCE_VISUALPROLOG_OPERATOR (12) */ */
singleton -->
    [S],
    {
        string_lower(S, L),
        atom_codes(L, Bytes),
        sort(0, @=<, Bytes, [95, _discard])
    }.

% SCE_VISUALPROLOG_COMMENT_LINE (5)
% @detail
% @unknown

% SCE_VISUALPROLOG_STRING (16)
"string"
'string'
% ISO Prolog back-quoted string
`string`

% SCE_VISUALPROLOG_STRING_ESCAPE (17)
"\n"
'\uAB12'

% SCE_VISUALPROLOG_STRING_ESCAPE_ERROR (18)
"\ "

% SCE_VISUALPROLOG_STRING_EOL_OPEN (19)
"open string

% Not implemented for ISO/SWI-Prolog:
% SCE_VISUALPROLOG_STRING_VERBATIM
% SCE_VISUALPROLOG_STRING_VERBATIM_SPECIAL
% SCE_VISUALPROLOG_STRING_VERBATIM_EOL
@"verbatim string"
@"""special"" verbatim string"
@"multi-line
  verbatim
  string"