> print(d)
History:  6 2 1 
> print(c)
$history
[1] "F" "F" "T"

attr(,"class")
[1] "list"          "RollToSuccess" "Coin"         
> 
> getHistory(d)
[1] "6" "2" "1"
> getHistory(c)
[1] "F" "F" "T"
>