(o = ShoutLT( OptPx(Opt(Style='Shout'))))$PxLT
o = Opt(Style='Shout', Right='Call', S0=60, ttm=.25, K=60)
ShoutLT( OptPx(o,r=.1, q=.02, vol=.45, NSteps=10))
o = Opt(Style='Shout', Right='Call', S0=60, ttm=.25, K=60)
Run the code above in your browser using DataLab