program shellout, rclass
tempfile f
tempname m
shell `0' > `f'
file open `m' using "`f'", read binary
file seek `m' eof
file seek `m' query
local n=r(loc)
if `n'>0 {
  file seek `m' tof
  file read `m' %`n's s
  file close `m'
  return local out "`s'"
}
end