NOTE:	I'm not using ocamlyacc, just because I don't want to deal with
		recursive module issues

%%
deck ::= 
	| card decktail     { card :: decktail }
	| nil               { empty deck }

decktail
	| nil

blanks ::=
	BlankLine blanks

card ::=
	Line lines			{ {Deck.front = $1; Deck.back = (String.concat "" $2)} }

lines ::=
	Line lines			{ $1 :: $2
%%						{ [] }
