t/t4018/r-indent

RIGHT <- function(a, b) {
    c = mean(a, b)
    d = c + 2
    ChangeMe()
    return (d)
}