-- /usr/users/brock/431/progs/tasksem_.ada

package TESTPACK is
  task type semifor is
    entry moremore ;
    entry lessless ;
  end semifor ;
end TESTPACK ;