I\'m running this script and takes a lot of time to finish (kind of one hour).
c2018<- euler(c("A"=9, "B"=5,
