Star /prog/ Movies

So I heard that Lucas is producing some new movies, a kind of isomorphism against Star Wars. The titles are:

Ep.I: The Haskell Menance;
Ep.II: Attack of the Sussmans;
Ep.III: The revenge of Frozen Void;
Ep.IV: A New Troll;
Ep.V: Sepples strikes back;
Ep.VI The return of the Haxus.

...and here it seems we have a trailer for Episode V:
http://gigamonkeys.com/blog/2009/10/16/coders-c++.html

EXPERT?PROGRAMMER


{-# LANGUAGE MultiParamTypeClasses, TypeSynonymInstances #-}
module Main where

data BBCode = Str String
            | Tag String BBCode
            | Cons BBCode BBCode
            | Quote BBCode

sup     = Tag "sup"
sub     = Tag "sub"
u       = Tag "u"
o       = Tag "o"
s       = Tag "s"
b       = Tag "b"
i       = Tag "i"
m       = Tag "m"
code    = Tag "code"
spoiler = Tag "spoiler"
q       = Quote
expert  = b.i.o.u

infixr 7 +++
infixr 5 <<

class Bbb a where
        (<<) :: (BBCode -> BBCode) -> a -> BBCode

instance Bbb String where
        f << a = f (Str a)
instance Bbb BBCode where
        f << a = f a

class Bb m n where
        (+++) :: m -> n -> BBCode
instance Bb String String where
        (+++) f = Str.(f ++)
instance Bb BBCode String where
        a +++ b = Cons a (Str b)
instance Bb BBCode BBCode where
        (+++) = Cons
instance Bb String BBCode where
        a +++ b = Str a +++ b
instance Show BBCode where
        show (Str s) = s
        show (Tag t s) = "[" ++ t ++ "]" ++ show s ++ "[/" ++ t ++ "]"
        show (Cons a b) = show a ++ show b
        show (Quote q) = "> " ++ a ++ "[o]" ++ b ++ "[/o]"
                where (a, b) = break (=='\n') (show q)


main = print $ expert << "EXPERT" +++ (spoiler << "?") +++ "PROGRAMMER"