*! version 1.0.0 (STB-33: sg58)
program define mountain
    version 4.0
    local varlist "req ex max(1)"
    local if "opt"
    local in "opt"
    local options "NOGraph *"
    parse "`*'"
    parse "`varlist'", parse(" ")
    tempvar rankx pctx touse
    qui mark `touse' `if' `in'
    qui markout `touse' `varlist'
    qui count if `varlist'!=. & `touse'
    local en=_result(1)+1
    qui su `varlist', d
    local median=_result(10)
    cap drop `rankx'
    cap drop `pctx'
    cap drop FOLDX
    qui egen `rankx'=rank2(`varlist') if `touse'
    qui gen `pctx'=100*(`rankx'/`en')
    qui gen FOLDX=`pctx' if `pctx'<=50
    qui replace FOLDX=100 - `pctx' if FOLDX==.
    la var FOLDX "Folded Percentile"
    if "`nograph'" == "" {
         gr FOLDX `varlist', ylab(0,5,25,50) xlab c(l) yline(5) xline(`median') ti(Monti's Mountain Plot) `options'
    }
end