let do_something_group_project ifok orelse gnum padd = try begin
  let grp  = get_group gnum in 
  let proj = group_find_project_at_address grp padd in ifok proj
end with _ -> orelse()