function begingroup(&p,groupname)
  p.groupname = groupname;