for A; do
< /proc/$A/status grep ^PPid: |cut -f2
done