Haskell sorter

Since we have the 1st of April, a simple program that my colleague will hopefully value. It provides a jabber service that sorts all input it receives in alphabetical order. Download source here

Screenshot

Sample screenshot

Sample output (on Sort.hs)

""""
$
'''
((((((((((((
))))))))))))
,,,
-----------
...........
1
::::
<<<
====
>
AA
CC
DD
E
F
I
LL
MM
N
O
RRR
SSSSSSSSSS
\\\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
cccccccc
ddddddddd
eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
fffff
ggggggggggggggggggg
hhhhhhhhhh
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
k
llllllllllllllllll
mmmmmmmmmmmmmmmm
nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
ooooooooooooooooooooooooooooo
pppppppppppp
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
sssssssssssssssssssssssssssss
ttttttttttttttttttttttttttttttttttttttttttt
uuuuuuu
vvv
wwww
xx
y