Name: Anonymous 2007-08-16 12:33 ID:v5wQUxJL
======= URGENT NOTICE ======/PROG/ HAS BEEN DEHABILITATED BY C++ USING FAGGOTS
HOLY SHIT WHAT DO WE DO????????????????????????????
====== URGENT NOTICE =======
======= URGENT NOTICE ============ URGENT NOTICE =======
[spoiler]module BBCode where
data Tag = Tag String Tag
| Text String
instance Show Tag where
show (Tag t v) = "[" ++ t ++ "]" ++ show v ++ "[/" ++ t ++ "]"
show (Text v) = v
b = Tag "b"
code = Tag "code"
i = Tag "i"
o = Tag "o"
spoiler = Tag "spoiler"
u = Tag "u"
expert = b.i.o.u
nest _ 0 x = x
nest t n x = nest t (n-1) (Tag t x)
sub = nest "sub"
sup = nest "sup"
pos scale pos | pos < 0.0 = sub $ abs amt
| otherwise = sup amt
where amt = round $ pos * scale[/spoiler]