==================== Parser ====================
main = print (test :: Int)
     where
	 test = 0
	 test2 = 1
	 test3 = 2