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

class
Reading ceased at quoted mark.

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

http://forum.osdev.org/viewtopic.php?f=11&t=24196

God is just.  I'm in a prison, anyway.  Blessed are those that suffer, cause they prolly get rewarded.  Nobody in the Bible got a reward who didn't suffer.  Joseph story was recently quoted.

Last time I thought my OS was dead was 7/7.

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

common people. The establishment of the two great mendicant
orders of St Dominic and St. Francis, it is observed by Machiavel,
revived, in the thirteenth and fourteenth centuries, the languishing
faith and devotion of the catholic church. In Roman catholic countries,
the spirit of devotion is supported altogether by the monks, and by the
poorer parochial clergy. The great dignitaries of the church, with all
the accomplishments of gentlemen and men of the world, and sometimes
with those of men of lea

>>3
LoseThos is useless if one's requirements include surfing the web, web videos and office productivity software. LoseThos is an acceptable system for hacking a computer.

IT'S PATRIOTIC!
IT'S AMERICAN!

America is not a country

>>5
An operating system is complete iff one can torrent and watch porn on it.

>>7
Porn? Ha.

>>8
That would be Hentai in your case.