TUPPL!

ARE YOU SICK OF FUNCTIONAL LANGUAGES?
DO YOU FEEL LIKE YOU WANT TO STRANGLE A HASKAL?
DO YOU THINK FIOC IS BULLSHIT?
DO YOU LOVE PROCEDURAL PROGRAMMING?
DO YOU ALSO LOVE OBJECT ORIENTED PROGRAMMING, BUT WITHOUT THE OBJECTS?
DO YOU THINK RASMUS LERDORF IS GODLIKE?

THEN TUPPLE^(tm) IS THE PERFECT PROGRAMMING LANGUAGE FOR YOU!

TUPPLE IS
   The
   Ultimative
   Procedural
   Programming
   Language

THATS RIGHT!
ALL THE PARENTHESES, WITHOUT THE UGLY UGLINESS OF DA LITHPU!
EVERYTHING IS PROCEDURAL!
EVERYTHING IS GARBAGE COLLECTED!
EVEN YOUR RELATIONSHIP TO YOUR MOTHER IS GARBAGECOLLECTED!
EVERYTHING IS A FUNCTION!
AND BY EVERYTHING, I MEAN EVERYTHING!

AND IT ONLY COSTS YOU $500000000000000000000000000000000000000000* DOLLAR!
CHEAP AS DIRT!
IT'S PATRIOTIC!
IT'S AMERICAN!
IT DEFEATS COMMUNISM WHILE YOU WRITE IT!
IT INVENTS BACON FLAVOURS WHILE YOU EVALUATE IT!
IT BECOMES ONE WITH THE BEAUTIFUL PASTELL COLORED CARPET YOU ALWAYS DREAMED OF!
THOUSANDS OF VIETNAM VETERANS CAN'T POSSIBLY WRONG!
BUY NOW!
ALSO COOL FREE RINGTONES!




import(sys, "core/sys")

class(Person, [object],

    member(_name, <String>, nil),

    member(create, <self>, func([],
        sys.write(sys.stdout, "new() called\n")
    )),

    member(delete, <nil>, func([$garbage_collected],
        sys.write(sys.stdout, "delete() called by"),
        if(eq($garbage_collected, true),
            sys.write(sys.stdout, " garbage collector")
        ),
        else(
            sys.write(sys.stdout, " runtime")
        ),
        sys.write(sys.stdout, "\n")
    )),

    member(setname, <>, func([$newname],
        def(this._name, $newname),
        return(this)
    )),

    member(printname, <nil>, func([],
        sys.stdout.write(sys.stdout,
            String.format("Hello, %s!\n", [this._name])
        )
    ))
)


def(printname,
    func([$name, $prefix="Hello"],
        def(formatted,
            String.format("%s, %s!", [$prefix, $name])
        ),
        sys.write(sys.stdout, String.concat(formatted, "\n"))
    )
)

def(name, "World")
printname(name)

!##

def(per, create(Person))
per:setname("World")
per:printname()
delete(per)


!# ---

def(i, 0)
for(i, upto(10), do([],
    print("i = ", i, "\n")
))


!# ---
def(colors, ["Red", "Green", "Blue"])
foreach(colors, do([$color],
    print("color = ", $color, "\n")
))

!# ---
def(servers, [
    "Freenode" -> [6667, "irc.freenode.org"],
    "Quakenet" -> [6667, "irc.quakenet.org"],
])
foreach(servers, do([$pair],
    def(_port, index_at($pair, 0)),
    def(_host, index_at($pair, 1)),
    print("irc://", _host, ":", _port, "/\n")
))

!# ---

do([$name], print("Hello, ", $name, "!\n"))("World")

*: Supported operating systems include: HaikuOS, PicoBSD, SchemeOS, any operating system written in COBOL, Not Linux, Not Mac OSX, and most certainly not Windows

http://www.laughtonelectronics.com/arcana/BrideOfSonPg1.html

"laugh ton"

I call LoseThos a souped-up C64.  Thats because it has no networking, so, philosophically it's like a souped-up C64.  It also can crash but restarts quickly.

To those who would say LoseThos is worthless, I say, "Was a C64 worthless?"

Somebody gets a little literal carried away with my statement.  There's a crazy C64-looking PC hardware thing, somebody made, too!

God says...
C:\TEXT\DARWIN.TXT

ic moraines, left by old glaciers, are now clothed by the vine
and maize.  Throughout a large part of the United States, erratic boulders
and scored rocks plainly reveal a former cold period.

The former influence of the glacial climate on the distribution of the
inhabitants of Europe, as explained by Edward Forbes, is substantially as
follows.  But we shall follow the changes more readily, by supposing a new
glacial period slowly to come on, and then pass away, as formerly occurred.
As the cold c