parse_die(DieString)        -> post_d(string:tokens(DieString, "d")).

post_d([JustDie])           -> post_d(["1"], JustDie);
post_d([Count,Die])         -> post_plus([Count] ++ string_tokens(JustDie, "+")).

post_plus(Count,[Die])      -> post_plus(Count,[Die,0]);
post_plus(Count,[Die,Plus]) -> {Count,Die,Plus}.