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

>>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.