import StdEnv
import IRC
-Start :: [String]
-Start = map toString
+from Text import class Text(concat), instance Text String
+
+Start = concat $ map toString
[NICK "clooglebot" Nothing
- ,USER "cloogle" "0" "Cloogle bot"
+ ,USER "cloogle" "0" "cloogle" "Cloogle bot"
,JOIN (CSepList ["#cloogle"]) Nothing
,PRIVMSG (CSepList ["#cloogle"]) "Hello world"
,QUIT Nothing