fun	deckCreatorClubs 1 = [];
|	deckCreatorClubs n = makeCard("spader",n)::deckCreatorClubs(n-1);

fun	deckCreatorDiamonds 1 = deckCreatorClubs(15)
| 	deckCreatorDiamonds n = makeCard("spader",n)::deckCreatorDiamonds(n-1);

fun	deckCreatorHearts 1 = deckCreatorDiamonds(15)
| 	deckCreatorHearts n = makeCard("spader",n)::deckCreatorHearts(n-1);

fun	deckCreatorSpades 1 = deckCreatorHearts(15)
|	deckCreatorSpades n = makeCard("spader",n)::deckCreatorSpades(n-1);

fun makeDeck() = deckCreatorSpades(15);


Varför får detta ett Match fel?