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