TITS

taken from /b/. anyone want to contribute?
 

   if pics.notits ("gtfo");
    {else MOAR
    }
---------------------------------
    if pics = tits then
    MOAR
    else gtfo
    end if
---------------------------------
    if (post!= tits)
    {
    cout << "gtfo";
    }
    else
    {
    cin >> tits;
    }
---------------------------------
    <?php
    print pics.notits?"gtfo":"MOAR";
    ?>
---------------------------------
    if (pic.hasTits() == 0){
    you = gtfo;
    }
    else MOAR;
---------------------------------
    (define (tits n)
    (if (= n 0)
    GTFO
    (MOAR)
---------------------------------
    mov ax, pics
    mov dx, tits
    cmp ax, dx
    je MOAR
    jne GTFO
---------------------------------
    while true;
    do post tits;
    done
---------------------------------
    if ( preg_match ( "#tit(s?)#si", $post->contents ) )
    {
    print "MOAR";
    } else {
    print "GTFO";
    }
---------------------------------
    for tits = true
    if moar = false then
    tits = false
    end if
    next
    gtfo
---------------------------------
    hasTits:
    ^ (thread detect: #tits = notNil)

    processThread: thread
    [thread hasTits]
    whileFalse: [ thread post: 'tits or gtfo' ].
---------------------------------
    10 INPUT "Comment", POST$
    20 IF POST$ = "TITS" THEN 30
    30 PRINT "HOORAY"
    40 ELSE PRINT "GTFO"
    50 END

>>13
No, that's not much /prog-like.

>>13
This is /prog/, not /prog/.