A Maple subroutine for computing Milnor and Tyurina numbers of hypersurface singularities