BEGIN  {
  while ("ls -1 pp*/neg" | getline) {
    who = $1
    dir = substr($1,1,length($1)-4)
    split(dir,tt,/\./)
    pess = tt[2]/100
    pun = tt[3]/10
    hurw = substr(tt[4],2)/100

    print who, dir, pess, pun, hurw
    delete s
    ns = 0
    while (getline < who) s[++ns] = $0
    close(who)
    for (i=1; i<=ns; i++) {
      if (s[i] ~ /^  PESS =/) s[i] = "PESS = "pess
      if (s[i] ~ /^  PUN =/) s[i] = "PUN = "pun
      if (s[i] ~ /^  HURWICZ =/) s[i] = "HURWICZ = "hurw
      print s[i] > who
    }
    close(who)
  }
}