В Лиспе - атомы, кажется, выглядят так: `atom
В Эрланге - так: any_string_starting_from_lowercase
В Руби - так:  :atom
В Окамле - как-то так: type atoms of [`Atom1, `Atom2, `Atom3];

if x == atom('AAA') then ... ;

-define(HELLO, "hello, world").

start() ->
    io:format("~p~n", [?HELLO]);

@ $ ? `

if moo == foobar then puts("FOOBAR"); # тут определился атом

...
# а вот тут он втихую перекрылся, так как в одной области видимости 
# вполне можно иметь одинаковые идентификаторы, но при этом один будет скрывать 
# в порядке обхода AST, что будет иногда приводить к странным ошибкам
def foobar() 
{
...
}

this.one = 1; эквивалентен
this[#one] = 1;

def parse(s)
{
    local i = 0;
    local end = strlen(s);
    local e = [];
    while i < end
    {
        if strnth(s, i) == ',' 
        then {
            local ss = strsub(s, i+1, 2);
            if streq(ss, "EE") then e = ss :: e;
            elif streq(ss, "DD") then e = ss :: e;
            elif streq(ss, "FF") then e = ss :: e;
        }
        i = i + 1;
    }
    ret e;
}


def main()
{
    local l = [];
    l = parse("AAA,BB,CC,DD,EE,FF#");
    while !nil(l) #когда нибудь тут будет foreach
    {
        putsn(head(l));
        l = tail(l);
    }
    debug_dump_mem();
}

def parse_nmea(s)
{
    result = [];
    while ... {
      if    ... then result = (`Longitude, parse_longitude(s, i) :: result;
      elif  ... then result = (`Latitude, parse_latitude(s, i)   :: result;
      elif  ... then result  = (`Quality, parse_quality(s, i)    :: result;
      elif  ... then result = (`Satellites, parse_satellites(s, i) :: result;
    }
   ret result;
}

(t@segfault.kiev.ua)6> is_atom('AAA').
true
(t@segfault.kiev.ua)7> is_atom('\001').
true
(t@segfault.kiev.ua)8> is_atom('').
true

CS>this.one = 1; эквивалентен
CS>this[#one] = 1;
CS>

#!bin/tiscript

Г>#!bin/tiscript
Г>

The first line in the file is ignored if it starts with a #.

$x = 123;
$y = x;
$$y += 1; # получилось 124