resource gift_givers()
   const MAX := 100
   var n, money, num_friends : int
   var names[1:MAX], friends[1:MAX,1:MAX], name : string[12]
   do read(n) != EOF ->
      if n > MAX -> write("n=", n, "is larger than", MAX); stop fi
      write("n=", n)
      writes("names=")
      fa i := 1 to n ->
         scanf("%s", names[i])
         writes(" ", names[i])
      af
      write()
      fa i := 1 to n ->
         scanf("%s%d%d", name, money, num_friends)
         write("name=", name, "money=", money, "num_friends=", num_friends)
         writes("friends=")
         fa j := 1 to num_friends ->
            scanf("%s", friends[i,j])
            writes(" ", friends[i,j])
         af
         write()
      af
   od
end gift_givers

/* ............... Example compile and run(s)

% sr -o gift_givers gift_givers.sr
% ./gift_givers <input
n= 5
names= dave laura owen vick amy
name= dave money= 200 num_friends= 3
friends= laura owen vick
name= owen money= 500 num_friends= 1
friends= dave
name= amy money= 150 num_friends= 2
friends= vick owen
name= laura money= 0 num_friends= 2
friends= amy vick
name= vick money= 0 num_friends= 0
friends=
n= 3
names= liz steve dave
name= liz money= 30 num_friends= 1
friends= steve
name= steve money= 55 num_friends= 2
friends= liz dave
name= dave money= 0 num_friends= 2
friends= steve liz
                                              */