module Types where

type Event = (Int, Char, String)
type TimeFlow = (Int, Int)
type TimeLine = [Event]

data EventFlowTree = Leaf Event
					| Branch TimeFlow EventFlowTree EventFlowTree
-- Åñëè èñïîëüçîâàòü ýíåðãè÷íûé âàðèàíò, òî ïðè îòïðàâêå êîðàáëÿ â áóäóùåå ïðîãðàììà êðàøèòñÿ èç-çà íåõâàòêè ïàìÿòè.
-- Ëåíèâûé âàðèàíò òîæå îòæèðàåò ïàìÿòü, íî íå êðàøèòñÿ.
--					| Branch TimeFlow !EventFlowTree !EventFlowTree
	deriving (Show)