module test

from Data.Func import $
import Data.Either
import Data.Maybe
import StdEnv
import IRC

Start :: [String]
Start = map toString
	[NICK "clooglebot" Nothing
	,USER "cloogle" "0" "Cloogle bot"
	,JOIN [("#cloogle", Nothing)]
	,PRIVMSG ["#cloogle"] "Hello world"
	,QUIT Nothing
	]