shiny web app for st petersburg paradox