program define permpear
  version 4.0
  qui corr `1' `2'
  global S_1 = _result(4)
end