If programming languages were /prog/riders

Visual Basic would be they guy you have to keep telling to go back to /b/

Java would make the homework question threads

C would try to have a technical discussion and get drowned out by trolls

Assembly wouldn't post here, hes too old for this kinda thing

Haskell single-handedly makes all the U MENA HASKELL posts in hope that someday people will care about him

The Scheme contingent is running a pyramid scheme where they get people to read sicp who then join the scheme contingent

C# said fuck you guys and went to stack overflow

Ruby is always necroposting because threads are that old once he gets to them

PHP makes a million 'If programming languages were...' threads because he was dropped on his head as a baby

>>10
module U_MENA_HASKELL( nest,nestl,nestr,enterprise,hump,fabulous,nestlttrl,nestlttrr,nestwrdl,nestwrdr ) where

--[t][t]x[/t][/t]
nest _ _ 0 = []
nest t x 1 = "[" ++ t ++ "]" ++ x ++ "[/" ++ t ++ "]"
nest t x n =  "[" ++ t ++ "]" ++ (nest t x (n - 1)) ++ "[/" ++ t ++ "]"

--[t]x[t]x[/t][/t]
nestl _ _ 0 = []
nestl t x n = "[" ++ t ++ "]" ++ x ++ (nestl t x (n - 1)) ++ "[/" ++ t ++ "]"

--[t][t]x[/t]x[/t]
nestr _ _ 0 = []
nestr t x n = "[" ++ t ++ "]" ++ (nestr t x (n - 1)) ++ x ++ "[/" ++ t ++ "]"

--[o][u][i][b]x[/b][/i][/u][/o]
enterprise x =  "[o][u][i][b]"++ x ++ "[/b][/i][/u][/o]"

humpover _ 0 = []
humpover x n = (nest "sup" x n) ++ "[br]" ++ (humpover x (n-1))

humpunder _ 0 =[]
humpunder x n = (humpunder x (n-1)) ++ "[br]"++ (nest "sup" x n)

--Standard n-hump
hump x n = ("[m]"++(humpover x n) ++ x ++ (humpunder x n)++"[/m]")

--Enterprise 10-hump
fabulous x = hump (enterprise x) 10

--[t]l[t]e[t]t[t]t[t]e[t]r[t]s[/t][/t][/t][/t][/t][/t][/t]
nestlttrl t [] = []
nestlttrl t (x:xs) = "[" ++ t ++ "]" ++ [x] ++ (nestlttrl t xs) ++ "[/" ++ t ++ "]"

--[t][t][t][t][t][t][t]l[/t]e[/t]t[/t]t[/t]e[/t]r[/t]s[/t]
nestlttrr t [] = []
nestlttrr t x = "[" ++ t ++ "]" ++ (nestlttrr t (reverse ys)) ++ [y] ++ "[/" ++ t ++ "]" where
        (y:ys)=reverse x

--[t]These [t]are [t]words [/t][/t][/t]
nestwrdl t "" = ""
nestwrdl t (x:xs) = let (w,ws)= span(/=' ') (if x== ' ' then xs else x:xs) in "[" ++ t ++ "]" ++ w ++" "++ (nestwrdl t ws) ++ "[/" ++ t ++ "]"

--[t][t][t]These [/t]are [/t]words[/t]
nestwrdr t "" = ""
nestwrdr t xs = "[" ++ t ++ "]" ++ (nestwrdr t (reverse ws)) ++ (reverse w) ++ " " ++ "[/" ++ t ++ "]" where
        heads=head rev
        tails=tail rev
        rev=reverse xs
        (w,ws)=span(/=' ') (if heads== ' ' then tails else heads:tails)